dmrsgl.pas

Delphi开发的人事管理系统

unit dmRsgl;

interface

uses
  SysUtils, Classes, RSGLCommon, ADODB, DB, Dialogs;

type
  TdmRsgl = class(TDataModule)
    adocRsgl: TADOConnection;
    adotRyxx: TADOTable;
    adotBmxx: TADOTable;
    adotJycd: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TdmRSGL }

procedure TdmRsgl.DataModuleCreate(Sender: TObject);
var
  l_File: string;
begin
  inherited;

  l_File := DataPath + conRSGLDataFile;
  if not FileExists(l_File) then
    ShowMessage('文件不存在！无法打开数据库！');

  with adocRsgl do
  begin
    ConnectionString := CNT_ConnectString;
    ConnectionString := Format(ConnectionString, [l_File]);
    Connected := True;
  end;
end;

end.