unit2.pas

sql server 2005书中11到16章的全部代码

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 ;     //移动到第一条记录
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.Next ;       //移动到下一条记录
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
//如果文本框为空，则显示提示对话框
if edit1.Text ='' then
begin
showmessage('不能为空');
exit ;
end ;
//移动数据库表中的记录
adotable1.MoveBy(strtoint(edit1.Text));
if adotable1.Eof then
showmessage('移过最后一条了') ;
 if adotable1.Bof then
showmessage('移过第一条了') ;
end;

end.