mydatabase.pas

来自「本软件是小管家个人帐户管理系统 (ADO+ACCESS)」· PAS 代码 · 共 61 行

unit Mydatabase;

interface

uses
  SysUtils, Classes, DB, ADODB,windows;

type
  TDataModule1 = class(TDataModule)
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //公共变量
    opts:TLocateoptions;
  end;

var
  DataModule1: TDataModule1;

implementation
uses main;
{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
const
password='jack1030';
var
MyPath:string;
begin
MyPath:=ExtractFilePath(ParamStr(0));
{数据连接}
adotable1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'infor.mdb;Jet OLEDB:Database Password='+
                                 password+';Persist Security Info=False';
adotable2.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'infor.mdb;Jet OLEDB:Database Password='+
                                 password+';Persist Security Info=False';
adotable3.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'infor.mdb;Jet OLEDB:Database Password='+
                                 password+';Persist Security Info=False';
adotable1.TableName :='帐号信息';
adotable2.TableName :='出帐信息';
adotable3.TableName :='入帐信息';
{打开数据库中数据表}
try
  adotable1.Open ;
  adotable2.Open ;
  adotable3.Open ;
  except
    MessageBox(0,'无法打开数据库','错误',MB_OK);
    halt;
  end;
end;

end.