unit4.pas

图书管理 很好。很好 ado 多用户不错

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrls, ComCtrls, Mask, DB, ADODB, DBActns,
  ActnList, XPMenu;

type
  TForm4 = class(TForm)
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label11: TLabel;
    Label18: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    StatusBar1: TStatusBar;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    GroupBox1: TGroupBox;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    BitBtn9: TBitBtn;
    XPMenu1: TXPMenu;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}



procedure TForm4.DataSource1DataChange(Sender: TObject; Field: TField);
var
i :integer;
begin
   i:=ADOTable1.RecNo ;
    statusbar1.Panels[0].Text:='第 '+inttostr(i)+' 条记录，总共 '+inttostr(ADOTable1.RecordCount)+' 条记录';
end;

procedure TForm4.FormCreate(Sender: TObject);
 var
 mypath:string;
begin
MyPath:=ExtractFilePath(ParamStr(0));
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
  MyPath+'db1.mdb;Persist Security Info=False';
 try
  ADOConnection1.Open;
  ADOtable1.Active:=true;
  except
   application.MessageBox('找不到数据库，引起该问题的原因是数据库文件可能被人为删除或改名.','无法打开数据库',0);
   application.Terminate;
  end;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;

end.