datamunit.pas

人事管理系统帮助人们管理复杂的关系

unit DataMUnit;

interface

uses
  Windows, Messages,SysUtils, Classes, DB, ADODB;

type
  TDataM = class(TDataModule)
    ADOLogin: TADOQuery;
    DSLogin: TDataSource;
    DSMsg: TDataSource;
    DSPrsent: TDataSource;
    DSMoney: TDataSource;
    ADOMsg: TADOQuery;
    ADOPrsent: TADOQuery;
    ADOMoney: TADOQuery;
    ADOGZ: TADOQuery;
    DSGZ: TDataSource;
    ADOMSGA: TADOQuery;
    DSMSGA: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataM: TDataM;

implementation

{$R *.dfm}

procedure TDataM.DataModuleCreate(Sender: TObject);
var
  filename:string;
begin
  filename:=ExtractFilePath(ParamStr(0)) + 'MDB\Information.mdb';

  if FileExists(filename) then
    begin

      ADOLogin.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      +filename+';Persist Security Info=false;jet OLEDB:Database Password=02091;';

      ADOMSG.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      +filename+';Persist Security Info=false;jet OLEDB:Database Password=02091;';

      ADOPrsent.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      +filename+';Persist Security Info=false;jet OLEDB:Database Password=02091;';

      ADOMoney.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      +filename+';Persist Security Info=false;jet OLEDB:Database Password=02091;';

      ADOGZ.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      +filename+';Persist Security Info=false;jet OLEDB:Database Password=02091;';

      ADOMSGA.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
      +filename+';Persist Security Info=false;jet OLEDB:Database Password=02091;';


    end
  else
    MessageBox(0,'数据库文件 Information.mdb 找不到！', '人事管理系统', MB_OK);

end;

end.