dm.~pas

此程序是应朋友的 老婆单位的要求写的

unit DM;

interface

uses
  SysUtils, Classes, DB, ADODB,windows;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
    AT_SJDW: TADOTable;
    DS_SJDW: TDataSource;
    AT_JFDW: TADOTable;
    DS_JFDW: TDataSource;
    DS_JLDW: TDataSource;
    AT_JLDW: TADOTable;
    AT_LHJGC: TADOTable;
    DS_LHJGC: TDataSource;
    DS_JZJCDW: TDataSource;
    AT_JZJCDW: TADOTable;
    AT_JZGC: TADOTable;
    DS_JZGC: TDataSource;
    DS_WWKTDW: TDataSource;
    AT_WWKTDW: TADOTable;
    AT_DKDW: TADOTable;
    DS_DKDW: TDataSource;
    AT_ZTSGDW: TADOTable;
    DS_ZTSGDW: TDataSource;
    DS_GCZGK: TDataSource;
    AT_GCZGK: TADOTable;
    AT_GCMC: TADOTable;
    DS_GCMC: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;
  servername ,datebase,password,timeout,hospname:string;
  successed : boolean;

implementation
uses inifiles;
{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
var inifile : TiniFile;
begin
  adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='
                                      + ExtractFilePath(Paramstr(0))+ 'gcgl.mdb'
                                      + ';Persist Security Info=True';
 {
    inifile := Tinifile.Create(ExtractFilePath(Paramstr(0))  + 'delphi.ini');
    servername := inifile.ReadString('datebase','servername','.');
    datebase := inifile.ReadString('datebase','datebase','');
    password := inifile.ReadString('datebase','password','');
    timeout := inifile.ReadString('datebase','timeout','100');
    hospname := inifile.ReadString('datebase','hospname','');
    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='
                                    + password + ';Persist Security Info=True;User ID=sa;Initial Catalog='
                                    + datebase + ';Data Source=' + servername;
    AdoConnection1.CommandTimeout := 30;
   try
    AdoConnection1.Open ;
    successed := true;
   except
    //ShowMessage('数据库连接失败，应用程序即将终止！！！');
    successed := false;
   end;
   }


end;

end.