udm.pas

来自「小银行系统」· PAS 代码 · 共 65 行

unit UDM;

interface

uses
  SysUtils,inifiles, Classes, DB, ADODB, Provider,QDialogs, DBClient,Forms;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    q_seek: TADODataSet;
    c_seek: TClientDataSet;
    dsp_seek: TDataSetProvider;
    ADOCommand1: TADOCommand;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var srvini: TIniFile;
   srvstrs: TStrings;
   exepath:String;
begin
  try
   exepath:=ExtractFilePath(Application.ExeName);

   srvini := TIniFile.Create(Pchar(exepath+'config.ini'));
   srvstrs := TStringList.Create ;

   srvini.ReadSectionValues('Server Config',srvstrs);

   if self.ADOConnection1.Connected =true then
      self.ADOConnection1.Connected :=false ;

   If trim(srvstrs.Values['SERVER NAME']) <> '' then
      ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;Password='+
      srvstrs.Values['PASSWORD']+';Persist Security Info=True;User ID=sa;Initial Catalog='+
      srvstrs.Values['DATABASE NAME'] +';Data Source='+ srvstrs.Values['SERVER NAME'] ;
    SrvIni.Free;
    srvstrs.Free ;
    self.ADOConnection1.Connected:=true;
  except
    showmessage('后台资料连接失败');
end;

end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
   self.ADOConnection1.Free;
end;

end.