unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls,
Buttons;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
Edit1: TEdit;
Label7: TLabel;
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
    table1.First();
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
    table1.Next();
    if table1.Eof then   ShowMessage('Ѿһ¼ٺƣ');
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
    table1.Prior();
    if table1.Bof then   ShowMessage('Ѿǵһ¼ǰƣ');
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
    table1.Last();
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
    table1.MoveBy(StrToInt(Edit1.Text))
end;
end.
