membuat button pertama,sebelumnya,setelahny,terakhir pada dbgrid

Sekarang kodenya. Klik ganda Button1, yang memiliki caption “Pertama”. Ketikkan kode untuk navigasi ke data pertama

1	procedure TForm1.Button1Click(Sender: TObject);

2

begin

3	<span>   </span>ClientDataset1.First;

4

end;

Untuk Button Sebelumnya

1	procedure TForm1.Button2Click(Sender: TObject);

2

begin

3	if not ClientDataset1.Bof then

4	ClientDataset1.Prior

5

end;

Untuk Button Setelahnya

1	procedure TForm1.Button3Click(Sender: TObject);

2

begin

3	if not ClientDataset1.Eof do then

4	ClientDataset1.Next;

5

end;

Untuk Button Terakhir

1	procedure TForm1.Button4Click(Sender: TObject);

2

begin

3	ClientDataSet1.Last;

4

end;

Untuk Button Refresh

view source

print?

1	procedure TForm1.Button5Click(Sender: TObject);

2

begin

3	if ClientDataset1.ChangeCount>0 then

4	ClientDataset1.ApplyUpdates(-1);

5

end;

sumber dari : http://jokorb.wordpress.com/2008/03/26/koneksi-database-dengan-delphi-mysql/