u_datamodule.~pas

给一个企业做的产品展示系统,很好的展示了产品的各种功能

unit U_DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB,Forms,Dialogs,Windows;

type
  TDataDM = class(TDataModule)
    adoConn: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    procedure ConnectDataBase;
  public
    { Public declarations }
  end;

var
  DataDM: TDataDM;

implementation

{$R *.dfm}

{ TDataDM }

procedure TDataDM.ConnectDataBase;
var
  ConnStr: String;
  dbPath: String;
begin
  dbPath := ExtractFilePath(Application.ExeName) + 'db\ProductDB.mdb';
  if not FileExists(dbPath) then
  begin
    Application.MessageBox('没有找到指定的数据文件！','错误提示',mb_OK + mb_IconWarning);
    Exit;
  end;
  connStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ' + dbPath + ';Persist Security Info=False';
  adoConn.Connected := False;
  adoConn.ConnectionString := ConnStr;
  adoConn.LoginPrompt := False;
  adoConn.Connected := True;
end;

procedure TDataDM.DataModuleCreate(Sender: TObject);
begin
  ConnectDataBase;
end;

end.