datamodule.pas

来自「Delphi的在线考试系统」· PAS 代码 · 共 41 行

unit DataModule;

interface

uses
  Windows,SysUtils, Classes, DB, ADODB;

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

var
  Data: TData;

implementation

{$R *.dfm}

procedure TData.DataModuleCreate(Sender: TObject);
var  Path:string;
begin
Path:=ExtractFilePath(ParamStr(0));
  Connection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 Path+'onlineexam.mdb;Persist Security Info=true';
 
  try
   Connection.Open;
  except
    MessageBox(0,'无法打开数据库','错误',MB_OK);
  end;

end;

end.