unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.First ;     //移動(dòng)到第一條記錄
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Next ;       //移動(dòng)到下一條記錄
if adotable1.Eof then
showmessage('移過最后一條了') ;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
adotable1.Prior;
if adotable1.Bof then
showmessage('移過第一條了') ;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
adotable1.last ;
end;

procedure TForm1.Button5Click(Sender: TObject);
var x1,x2,x3 :integer ;
begin
 x1:=adotable1.Fields[2].AsInteger ;
 x2:=adotable1.Fields[3].AsInteger ;
 x3:=adotable1.Fields[4].AsInteger ;
 label3.Caption:=inttostr(x1+x2+x3) ;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
//如果文本框?yàn)榭眨瑒t顯示提示對(duì)話框
if edit1.Text ='' then
begin
showmessage('不能為空');
exit ;
end ;
//移動(dòng)數(shù)據(jù)庫表中的記錄
adotable1.MoveBy(strtoint(edit1.Text));
if adotable1.Eof then
showmessage('移過最后一條了') ;
 if adotable1.Bof then
showmessage('移過第一條了') ;
end;

end.