LiveBindings Component To Datasource

Pada database yang sudah kia buat tambahkan 2 ComboBox, 1 ComboEdit, 1 Edit, 1 Label , 1 FDQuery dan atur properti sebagai berikut :

ComboBox2 > TextSettings > Font > Size => 16 ComboBox2 > Position > X => 408 ComboBox2 > Position > Y => 8 ComboBox2 > Size > Height => 27 ComboBox2 > Size > width => 105 ComboBox2 > ItemHeight => 20 ComboBox3 > TextSettings > Font > Size => 16 ComboBox3 > Position > X => 408 ComboBox3 > Position > Y => 122 ComboBox3 > Size > Height => 27 ComboBox3 > Size > width => 150 ComboBox3 > ItemHeight => 20 ComboEdit2 > TextSettings > Font > Size => 16 ComboEdit2 > Position > X => 408 ComboEdit2 > Position > Y => 44 ComboEdit2 > Size > Height => 27 ComboEdit2 > Size > width => 250 ComboEdit2 > ItemHeight => 20 Edit2 > TextSettings > Font > Size => 16 Edit2 > Position > X => 408 Edit2 > Position > Y => 83 Edit2 > Size > Height => 27 Edit2 > Size > width => 100 Label4 > TextSettings > Font > Size => 16 Label4 > Position > X => 516 Label4 > Position > Y => 86 Label4 > Size > Height => 22 Label4 > Size > width => 100 FDQuery3 > Connection => FDConnection1

Atur Relasi seperti terlihat pada gambar

Secara runtime tambahkan 1 BindSourceDB, 1 LinkPropertyToFieldText, 1 LinkControlToField, 1 LinkFillControlToField, 1 LinkListControlToField, 1 LinkPropertyToFieldIndex. kemudian buat procedure HubunganKmponenToDB; Serta tambahkan procedure ke procedure FormCreate.

public BindSourceDB1: TBindSourceDB; LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource; Procedure BuatTable ; BindSourceDB2: TBindSourceDB; LinkPropertyToFieldText: TLinkPropertyToField; LinkControlToField1: TLinkControlToField; LinkFillControlToField1: TLinkFillControlToField; LinkPropertyToFieldIndex1: TLinkPropertyToFieldIndex; LinkListControlToField1: TLinkListControlToField; Procedure HubunganKmponenToDB ; end; var Form1: TForm1; implementation {$R *.fmx} Procedure TForm1.HubunganKmponenToDB ; begin FDQuery3.Connection := FDConnection1 ; BindSourceDB2 := TBindSourceDB.Create(Form1) ; BindSourceDB2.DataSet := FDQuery3 ; { menghubungkan Label dengan Database / field dataase tidak dapat dirubah } LinkPropertyToFieldText := TLinkPropertyToField.Create(Form1) ; with LinkPropertyToFieldText do begin DataSource := BindSourceDB2 ; Component := Label4 ; ComponentProperty := 'Text' ; FieldName := 'T_TglLahir' ; end; { menghubungkan Edit dengan Database / field dataase dapat dirubah} LinkControlToField1 := TLinkControlToField.Create(Form1) ; with LinkControlToField1 do begin DataSource := BindSourceDB2 ; Control := Edit2 ; FieldName := 'T_TglLahir' ; end; LinkFillControlToField1 := TLinkFillControlToField.Create(Form1) ; with LinkFillControlToField1 do begin DataSource := BindSourceDB2 ; Control := ComboEdit2 ; FieldName := 'T_Nama' ; FillDataSource := BindSourceDB2 ; FillDisplayFieldName := 'T_Nama' ; Track := False ; end; LinkPropertyToFieldIndex1 := TLinkPropertyToFieldIndex.Create(Form1) ; with LinkPropertyToFieldIndex1 do begin DataSource := BindSourceDB2 ; Control := ComboBox3 ; ComponentProperty := 'ItemIndex' ; FieldName := 'T_Gender' ; end; LinkListControlToField1 := TLinkListControlToField.Create(Form1) ; with LinkListControlToField1 do begin DataSource := BindSourceDB2 ; Control := ComboBox2 ; FieldName := 'T_ID' ; end; end; procedure TForm1.FormCreate(Sender: TObject); begin with FDConnection1 do begin Loginprompt := False ; Drivername := 'SQLite' ; FDConnection1.Params.Values['Database'] := 'TestDBSQLite.s3db' ; Connected := True ; end; FDQuery1.Connection := FDConnection1 ; BuatTable ; Button5Click(Button5) ; HubunganKmponenToDB ; FDQuery3.Open('SELECT * FROM Table1') ; end;

Semoga bermanfaat,