unit1.pas

this is simpele phone book write in delphi and the database is access

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
ADOTable1.Next;
if adotable1.Eof=true then
begin
button4.Enabled:=false;
button2.Enabled :=false;
end;
button3.Enabled:=true;
button7.Enabled:=true;
button1.Enabled :=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Prior;
if adotable1.Bof=true   then
begin
button3.Enabled:=false;
button1.Enabled :=false;
end;
button4.Enabled:=true;
button7.Enabled:=true;
button2.Enabled :=true;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin

ADOTable1.First;
button1.Enabled :=false;
button3.Enabled :=false;
button4.Enabled :=true;
button2.Enabled :=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Last;
button3.Enabled:=true;
button2.Enabled :=false;
button4.Enabled :=false;
button1.Enabled :=true;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 ADOTable1.Insert;
 button6.Enabled:=false;
  button8.Enabled:=true;
 button9.Enabled:=true;
    button1.Enabled:=false;
    button2.Enabled:=false;
    button3.Enabled:=false;
    button4.Enabled:=false;
    button5.Enabled:=false;
    button7.Enabled:=false;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ADOTable1.Edit;
button6.Enabled:=false;
button8.Enabled:=true;
button9.Enabled:=true;
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button7.Enabled:=false;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 IF ADOTable1.IsEmpty=TRUE THEN
Button5.Enabled:=false
else
begin
if application.MessageBox('马