Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- object Form6: TForm6
- Left = 0
- Top = 0
- Caption = 'Zeos - Mysql'
- ClientHeight = 481
- ClientWidth = 447
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 24
- Top = 12
- Width = 38
- Height = 13
- Caption = 'Prodi ID'
- end
- object Label2: TLabel
- Left = 24
- Top = 41
- Width = 54
- Height = 13
- Caption = 'Nama Prodi'
- end
- object Label3: TLabel
- Left = 24
- Top = 73
- Width = 40
- Height = 13
- Caption = 'Fakultas'
- end
- object cbFakultas: TDBLookupComboBox
- Left = 96
- Top = 69
- Width = 145
- Height = 21
- DataField = 'fakultas_id'
- DataSource = dsProdi
- DropDownAlign = daRight
- KeyField = 'fakultas_id'
- ListField = 'fakultas_name'
- ListSource = dsFakultas
- TabOrder = 0
- end
- object DBGrid1: TDBGrid
- Left = 24
- Top = 136
- Width = 377
- Height = 321
- DataSource = dsProdi
- TabOrder = 1
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'Tahoma'
- TitleFont.Style = []
- end
- object edProdiID: TDBEdit
- Left = 96
- Top = 8
- Width = 121
- Height = 21
- DataField = 'prodi_id'
- DataSource = dsProdi
- TabOrder = 2
- end
- object edProdiName: TDBEdit
- Left = 96
- Top = 37
- Width = 121
- Height = 21
- DataField = 'prodi_name'
- DataSource = dsProdi
- TabOrder = 3
- end
- object DBNavigator1: TDBNavigator
- Left = 24
- Top = 101
- Width = 240
- Height = 25
- DataSource = dsProdi
- TabOrder = 4
- end
- object conn: TZConnection
- ControlsCodePage = cCP_UTF16
- Catalog = ''
- Connected = True
- HostName = 'localhost'
- Port = 3325
- Database = 'kul_gram'
- User = 'kulgram'
- Password = '********'
- Protocol = 'mysql'
- LibraryLocation = 'D:\materi kulgram\source berlin\kulgram i zeos\libmysql.dll'
- Left = 280
- Top = 120
- end
- object tbfakultas: TZTable
- Connection = conn
- Active = True
- TableName = 'fakultas'
- Left = 328
- Top = 288
- end
- object dsFakultas: TDataSource
- DataSet = tbfakultas
- Left = 384
- Top = 184
- end
- object tbprodi: TZTable
- Connection = conn
- Active = True
- TableName = 'prodi'
- Left = 288
- Top = 248
- end
- object dsProdi: TDataSource
- DataSet = tbprodi
- Left = 384
- Top = 232
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement