unit1.pas

《Delphi面向对象编程实例教程》源代码____数据表的基本操作.rar《Delphi面向对象编程实例教程》源代码____数据表的基本操作.rar

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    B_add: TButton;
    B_edit: TButton;
    B_del: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    B_index: TButton;
    B_next: TButton;
    B_prior: TButton;
    B_First: TButton;
    B_last: TButton;
    procedure B_addClick(Sender: TObject);
    procedure B_editClick(Sender: TObject);
    procedure B_delClick(Sender: TObject);
    procedure B_indexClick(Sender: TObject);
    procedure B_nextClick(Sender: TObject);
    procedure B_priorClick(Sender: TObject);
    procedure B_FirstClick(Sender: TObject);
    procedure B_lastClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.B_addClick(Sender: TObject);
begin
 F_add:=TF_add.Create(Application);
 if F_add.ShowModal=mrok then
  begin
   Table1.Append;
   Table1.FieldByName('EmpNo').AsString:=F_add.Edit1.Text;
   Table1.FieldByName('LastName').AsString:=F_add.Edit2.Text;
   Table1.FieldByName('FirstName').AsString:=F_add.Edit3.Text;
   Table1.Post;
   Table1.Refresh;
  end;
end;

procedure TForm1.B_editClick(Sender: TObject);
begin
 F_add:=TF_add.Create(Application);
 F_add.Edit1.Text:=Table1.fieldbyname('EmpNo').AsString;
 F_add.Edit2.Text:=Table1.fieldbyname('LastName').AsString;
 F_add.Edit3.Text:=Table1.fieldbyname('FirstName').AsString;
 if F_add.ShowModal=mrok then
  begin
   Table1.Edit;
   Table1.FieldByName('EmpNo').AsString:=F_add.Edit1.Text;
   Table1.FieldByName('LastName').AsString:=F_add.Edit2.Text;
   Table1.FieldByName('FirstName').AsString:=F_add.Edit3.Text;
   Table1.Post;
   Table1.Refresh;
  end;
end;

procedure TForm1.B_delClick(Sender: TObject);
begin
 Table1.Delete;
end;

procedure TForm1.B_indexClick(Sender: TObject);
begin
 if Table1.IndexName='' then
  Table1.IndexName:='ByName'
 else
  Table1.IndexName:='';
end;

procedure TForm1.B_nextClick(Sender: TObject);
begin
 if (not Table1.Eof) then
  begin
   Table1.Next;
   B_First.Enabled:=True;
   B_prior.Enabled:=True;
  end
 else
  begin
   self.B_next.Enabled:=False;
   self.B_last.Enabled:=False;
  end;
end;

procedure TForm1.B_priorClick(Sender: TObject);
begin
 if (not Table1.Bof) then
  begin
   Table1.Prior;
   B_last.Enabled:=True;
   B_next.Enabled:=True;
  end
 else
  begin
   B_First.Enabled:=False;
   B_prior.Enabled:=False;
  end;
end;

procedure TForm1.B_FirstClick(Sender: TObject);
begin
 Table1.First;
 B_First.Enabled:=False;
 B_prior.Enabled:=False;
 B_last.Enabled:=True;
 B_next.Enabled:=True;
end;

procedure TForm1.B_lastClick(Sender: TObject);
begin
 Table1.Last;
 B_First.Enabled:=True;
 B_prior.Enabled:=True;
 B_last.Enabled:=False;
 B_next.Enabled:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 B_First.Enabled:=False;
 B_prior.Enabled:=False;
end;

end.