Sebagai contoh kita gunakan apliksi yang sudah kita buat disini. Lalu Tambahkan 1 FDQuery lagi dan 1 Grid. dowble click FDConnection1 pada form Firedac Connection Editor pastikan Driver ID sudah terisi dengn SQLite dan pada database click icon folder dan dan cari file TestDBSQLite.s3db, jika tidak terliat rubah filter menjadi all file akhiri dengan click open > OK

Selajunya atur properti sebgai berikut:
FDConnection1 > Connected => True
FDQuery2 > Connection => FDConnection1
FDQuery2 > SQL, click tanda elip lalu pada form yang tmpil ketika SELECT * FROM Table1 lalu click OK.
FDQuery2 > Active => True
Grid1 > Position > X => 8
Grid1 > Position > Y => 216
Grid1 > ReadOnly => True
Grid1 > Size > Height => 193
Grid1 > Size > Width => 372

Selajutnya click Bind Visually yang berada dibawah Object Inspetor atau Click kanan Grid1 (seperti terlihat pada gambar) lalu pada form livebindings designer yang tampil Clck dan tahan Grid1 lalu arahkan ke FDQuery2 lalu lepaskan.

sampai disini sudah selesai menampilkan database ke Grid (Table View).
Nah, sekarang bagaimana cara melakukannya secara runtime ?
Lihat ini, ada penambahan 1 BindSourceDB, 1 LinkGridToDataSource dan penambahan procedure BuatTable ; serta peruahan procedure FormCreate(Sender: TObject); dan procedure Button5Click(Sender: TObject);

  private
    { Private declarations }
  public
    BindSourceDB1: TBindSourceDB;
    LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource;
    Procedure BuatTable ;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

Procedure TForm1.BuatTable ;
begin
  FDQuery2.Connection := FDConnection1 ;
  FDQuery2.SQL.Clear ;
  FDQuery2.SQL.Text := 'SELECT * FROM Table1' ;

  BindSourceDB1 := TBindSourceDB.Create(Form1) ;
  BindSourceDB1.DataSet := FDQuery2 ;

  LinkGridToDataSourceBindSourceDB1 := TLinkGridToDataSource.Create(Form1) ;
  LinkGridToDataSourceBindSourceDB1.DataSource := BindSourceDB1 ;
  LinkGridToDataSourceBindSourceDB1.GridControl := Grid1 ;

  with LinkGridToDataSourceBindSourceDB1 do begin
    Columns.Clear ;
    Columns.Add ;
    Columns[0].Header := 'No' ;
    Columns[0].Width := 60 ;
    Columns[0].MemberName := 'T_ID' ;
    Columns.Add ;
    Columns[1].Header := 'Nama' ;
    Columns[1].Width := 250 ;
    Columns[1].MemberName := 'T_Nama' ;
    Columns.Add ;
    Columns[2].Header := 'Tgl Lahir' ;
    Columns[2].Width := 100 ;
    Columns[2].MemberName := 'T_TglLahir' ;
    Columns.Add ;
    Columns[3].Header := 'Gender' ;
    Columns[3].Width := 60 ;
    Columns[3].MemberName := 'T_Gender' ;
  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) ;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  ComboEdit1.Text :='' ;
  Edit1.Text :='' ;
  DateEdit1.Date := Date ;
  ComboBox1.ItemIndex := -1 ;
  Button3.Enabled := False ;
  Button4.Enabled := False ;

  FDQuery2.Active := False  ;
  FDQuery2.Active := True  ;
end;

Learn on my own

Rabu, 17 Februari 2021

Delphi FMX TGrid, DataSet, Database dan FireDac

Semoga bermanfaat,

Tidak ada komentar:

Posting Komentar

Baru Tayang