Lanjutkn contoh database ini dengan menambahkan 1 Layout, 5 CornerButton, 1 Label, 1 Edit, 1 ComboBox, 1 Grid, LinkGridToDataSource. CornerButton, Label, Edit, ComboBox berda dibawah hirarki layout.
Caranya setelah mengatur layout1 pada panel tools plate pilh CornerButton lalu click layout1 yang berada di form1. Lakukan cara yang sama untuk semua komponen yang ditambahkan keculi Grid, lalu atur properti masing-masing komponent sebagai beikut:

Layout1 > Position > X => 408
Layout1 > Position > Y => 170
Layout1 > Size > Height => 30
Layout1 > Size > Width => 372
CornerButton1 > Position > X => 0
CornerButton1 > Position > Y => 0
CornerButton1 > Size > Height => 30
CornerButton1 > Size > Width => 40
CornerButton1 > Text => <<
CornerButton1 > TextSettings > Font > Size => 16
CornerButton1 > OnClick => BtnNavigatorClick 
CornerButton2 > Position > X => 40
CornerButton2 > Position > Y => 0
CornerButton2 > Size > Height => 30
CornerButton2 > Size > Width => 40
CornerButton2 > Text => <
CornerButton2 > TextSettings > Font > Size => 16
CornerButton2 > OnClick => BtnNavigatorClick 
CornerButton3 > Position > X => 132
CornerButton3 > Position > Y => 0
CornerButton3 > Size > Height => 30
CornerButton3 > Size > Width => 40
CornerButton3 > Text => >
CornerButton3 > TextSettings > Font > Size => 16
CornerButton3 > OnClick => BtnNavigatorClick 
CornerButton4 > Position > X => 172
CornerButton4 > Position > Y => 0
CornerButton4 > Size > Height => 30
CornerButton4 > Size > Width => 40
CornerButton4 > Text => >>
CornerButton4 > TextSettings > Font > Size => 16
CornerButton4 > OnClick => BtnNavigatorClick 
CornerButton5 > Position > X => 332
CornerButton5 > Position > Y => 0
CornerButton5 > Size > Height => 30
CornerButton5 > Size > Width => 40
CornerButton5 > Text => R
CornerButton5 > TextSettings > Font > Size => 16
CornerButton5 > OnClick => BtnNavigatorClick 
Label5 > Position > X => 80
Label5 > Position > Y => 0
Label5 > Size > Height => 30
Label5 > Size > Width => 52
Label5 > Text => 0
Label5 > TextSettings > Font > Size => 16
Edit3 > Position > X => 214
Edit3 > Position > Y => 0
Edit3 > Size > Height => 30
Edit3 > Size > Width => 56
Edit3 > Text => 10
Edit3 > TextSettings > Font > Size => 16
ComboBox4 > Position > X => 272
ComboBox4 > Position > Y => 0
ComboBox4 > Size > Height => 30
ComboBox4 > Size > Width => 60
Grid2 > Position > X => 408
Grid2 > Position > Y => 216
Grid2 > Size > Height => 193
Grid2 > Size > Width => 372
Grid2 > ReadOnly => True
Grid2 > OnClick => Grid2Click

Buat procedure StausNavigator ;

Buat procedure Grid2Click(Sender: TObject);

Buat procedure BtnNavigatorClick(Sender: TObject);

procedure TForm1.BtnNavigatorClick(Sender: TObject);
const
  BtnName : Array[0..4] of string = ('CornerButton1', 'CornerButton2', 'CornerButton3', 'CornerButton4', 'CornerButton5') ;
var
  OldPage, SumPage, RowNmr, I : Integer ;
begin
  case IndexStr(TCornerButton(Sender).Name, BtnName) of
    0 : FDQuery3.First ;
    1 : FDQuery3.Prior ;
    2 : FDQuery3.Next ;
    3 : FDQuery3.Last ;
    4 : Begin
          if ComboBox4.ItemIndex =-1 then OldPage := 1 else
            OldPage := StrToIntDef(ComboBox4.Items[ComboBox4.ItemIndex], 1) ;
          FDQuery3.Open('SELECT * FROM Table1') ;
          FDQuery3.FetchAgain ;
          FDQuery3.FetchAll ;
          RowNmr := StrToIntDef(Edit3.Text, 10) ;
          SumPage := FDQuery3.RecordCount DIV RowNmr ;
          if FDQuery3.RecordCount MOD RowNmr > 0 then SumPage := SumPage +1 ;
          ComboBox4.Items.Clear ;
          for I := 1 to SumPage do ComboBox4.Items.Add(IntToStr(I)) ;
          ComboBox4.ItemIndex := ComboBox4.Items.IndexOf(IntToStr(OldPage)) ;

FDQuery3.Open('SELECT * FROM Table1 LIMIT '+IntToStr((OldPage-1)*RowNmr)+', '+IntToStr(RowNmr)) ;
        End;
  end;
  StausNavigator ;
end;

Rubah procedure FormCreate(Sender: TObject); Sehingga menjadi sepeti dibawah ini

Rubah procedure HubunganKmponenToDB; Sehingga menjadi sepeti dibawah ini

procedure TForm1.HubunganKmponenToDB ;
begin
  FDQuery3.Connection := FDConnection1 ;

ComboBox3.Items := ComboBox1.Items ;
  BindSourceDB2 := TBindSourceDB.Create(Form1) ;
  BindSourceDB2.DataSet := FDQuery3 ;

LinkPropertyToFieldText := TLinkPropertyToField.Create(Form1) ;
  with LinkPropertyToFieldText do begin
    DataSource := BindSourceDB2 ;
    Component := Label4 ;
    ComponentProperty := 'Text' ;
    FieldName := 'T_TglLahir' ;
  end;

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;

LinkPropertyToFieldIndex := TLinkPropertyToField.Create(Form1) ;
  with LinkPropertyToFieldIndex do begin
    LinkPropertyToFieldIndex.
    DataSource := BindSourceDB2 ;
    Component := ComboBox3 ;
    ComponentProperty := 'ItemIndex' ;
    FieldName := 'T_Gender' ;
  end;

LinkListControlToField1 := TLinkListControlToField.Create(Form1) ;
  with LinkListControlToField1 do begin
    DataSource := BindSourceDB2 ;
    Control := ComboBox2 ;
    FieldName := 'T_ID' ;
  end;

LinkGridToDataSourceBindSourceDB2 := TLinkGridToDataSource.Create(Form1) ;
  LinkGridToDataSourceBindSourceDB2.DataSource := BindSourceDB2 ;
  LinkGridToDataSourceBindSourceDB2.GridControl := Grid2 ;

with LinkGridToDataSourceBindSourceDB2 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 := 200 ;
    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;

Tambahkan Uses system.StrUtils ; tepat dibawah implementation

Learn on my own

Sabtu, 20 Februari 2021

Navigator Datasource

Semoga bermanfaat,

Tidak ada komentar:

Posting Komentar

Baru Tayang