hygl_dmodule.pas

工会会员信息管理系统 v1.0.5 (DAO+ACCESS+QR).

unit HYGL_DModule;

interface

uses
  Windows,Forms,

  SysUtils, Classes, DB, ADODB;

type
  Tdmd = class(TDataModule)
    Connec_main: TADOConnection;
    Src_HY: TDataSource;
    Tbl_HY: TADOTable;
    Qry_HY: TADOQuery;
    SrcQry_HY: TDataSource;
    Qry_temp: TADOQuery;
    SrcQRY_temp: TDataSource;
    Src_DDJL: TDataSource;
    TbL_DDJL: TADOTable;
    Src_DDJL2: TDataSource;
    TbL_DDJL2: TADOTable;
    Src_zgdb: TDataSource;
    Tbl_zgdb: TADOTable;
    Qry_zgdb: TADOQuery;
    SrcQry_zgdb: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmd: Tdmd;

implementation

{$R *.dfm}

procedure Tdmd.DataModuleCreate(Sender: TObject);
var
  s,DataFilename:string;
begin
  //配置数据
  DataFilename:=extractfilepath(application.exename);
  DataFilename:=DataFilename+'SQ_HYGL.mdb';
  try
    //Win98
    s:='Provider=Microsoft.Jet.OLEDB.3.51;'+
       'Persist Security Info=False;'+
       'Data Source=%s;'+
       'Jet OLEDB:Database Password=1024';
    s:=format(s,[DataFilename]);
    Connec_main.ConnectionString:=s;
    Connec_main.Connected:=true;
  except
    try
      //Win2000
      s:='Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Persist Security Info=False;'+
             'Data Source=%s;'+
             'Jet OLEDB:Database Password=1024';
      s:=format(s,[DataFilename]);
      Connec_main.ConnectionString:=s;
      Connec_main.Connected:=true;
    except
      s:='老兄,数据连接错误,请与管理员联系！ ';
      MessageBox(application.handle,pchar(s),'错误',16+mb_ok);
    end;
  end;

end;


end.