dbmodule.pas

初学DELPHI编写的“奖学金评定系统”

unit dbmodule;

interface

uses
  SysUtils, Classes, DB, ADODB,inifiles;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation
var
  Inifile: tinifile;
  DirDb: string;
{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
  inifilename: string;
begin
  Inifilename:= ExtractFilePath(paramstr(0))+'Serv.ini';
  inifile:= TInifile.Create(Inifilename);
  dirdb:= inifile.Readstring('资源文件地址','数据库地址',ExtractFilePath(paramstr(0))+'综合信息.mdb');
  ADOConnection1.Connected:= false;
  ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dirdb+';Persist Security Info=False';
  ADOConnection1.Connected:= true;
end;

procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
  Inifile.WriteString('资源文件地址','数据库地址',dirdb);
  inifile.Free;
end;

end.