udm.pas

来自「一.录入学生信息（预计有81个学生」· PAS 代码 · 共 41 行

unit uDM;

interface

uses
  SysUtils, Classes, DB, ADODB,Dialogs;

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

var
  DM: TDM;

implementation

uses uPub;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  ADOLocal.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
      AppPath+'db\Student.dat'+';Persist Security Info=False'+
      '';//;Jet OLEDB:Database Password=BQ9980048
  Try
    ADOLocal.Connected:=True;
  Except
    SHowMessage('请确认您的程序是否安装正确，或者没有安装MDAC数据访问组件！也可能该数据库正被独占打开！');
    Exit;
  End;
end;

end.