main.~pas

Delphi7数据库开发教程,包含该书21套实例

unit main;

interface

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

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBNavigator2: TDBNavigator;
    DBGrid1: TDBGrid;
    DBImage1: TDBImage;
    btnExit: TButton;
    GroupBox1: TGroupBox;
    bbtnFirst: TBitBtn;
    bbtnNext: TBitBtn;
    bbtnLast: TBitBtn;
    bbtnPrior: TBitBtn;
    GroupBox2: TGroupBox;
    btnNavigate: TButton;
    cbxDisableControls: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure bbtnFirstClick(Sender: TObject);
    procedure bbtnLastClick(Sender: TObject);
    procedure bbtnNextClick(Sender: TObject);
    procedure bbtnPriorClick(Sender: TObject);
    procedure btnNavigateClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  table1.last;
  table1.next;




end;

//单击该按钮时，将记录指针移动到第一条记录
procedure TForm1.bbtnFirstClick(Sender: TObject);
begin
  Table1.First;
end;

//单击该按钮时，将记录指针移动到最后一条记录
procedure TForm1.bbtnLastClick(Sender: TObject);
begin
  Table1.Last;
end;

//单击该按钮时，将记录指针移动到下一条记录
procedure TForm1.bbtnNextClick(Sender: TObject);
begin
  Table1.Next;
end;

//单击该按钮时，将记录指针移动到上一条记录
procedure TForm1.bbtnPriorClick(Sender: TObject);
begin
  Table1.Prior;
end;

procedure TForm1.btnNavigateClick(Sender: TObject);
begin
  with Table1 do
  begin
    if cbxDisableControls.Checked then
       DisableControls;    //禁止更新组件
    try
      First;            //从第一条记录开始
      //循环一直到最后一条记录
      while not Eof do
      begin
        // 处理数据...
        Edit;
        FieldByName('Size').AsInteger := FieldByName('Size').AsInteger + 1;
        Post;
        Edit;
        FieldByName('Size').AsInteger := FieldByName('Size').AsInteger - 1;
        Post;
        Next;
      end;

      //再反方向执行一遍
      Last;            //从最后一条记录开始
      //循环一直到第一条记录
      while not Bof do
      begin
        // 处理数据...
        Edit;
        FieldByName('Size').AsInteger := FieldByName('Size').AsInteger + 1;
        Post;
        Edit;
        FieldByName('Size').AsInteger := FieldByName('Size').AsInteger - 1;
        Post;
        Prior;
      end;
    finally
      if cbxDisableControls.Checked then
         EnableControls;   //允许更新组件
    end;
  end;

end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
  Close；
end;

end.