udm.pas

来自「DELPHI应用一则」· PAS 代码 · 共 92 行

unit UDM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, inifiles, ADODB, frxClass, frxDBSet;

type
  TDM = class(TDataModule)
    ADOCON: TADOConnection;
    ADOtemp: TADOQuery;
    ADOcode: TADOQuery;
    ADOxykmx: TADOQuery;
    frxxykmx: TfrxDBDataset;
    ADOrepot: TADOQuery;
    ADOlx: TADOQuery;
    ADObank: TADOQuery;
    ADOrowset: TADOQuery;
    ADOxykmxid: TAutoIncField;
    ADOxykmxbankmc: TStringField;
    ADOxykmxcardmc: TStringField;
    ADOxykmxcardno: TStringField;
    ADOxykmxamount: TBCDField;
    ADOxykmxondate: TDateTimeField;
    ADOxykmxcardname: TStringField;
    ADOxykmxbz: TStringField;
    ADOxykmxbz1: TStringField;
    ADOxykmxbz2: TStringField;
    ADOxykmxbz3: TStringField;
    ADOxykmxbz4: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    hzhid:Integer;
    Hczydm:string;
    Hczy:string;
  end;

var
  DM: TDM;

implementation

uses UnitMAIN;



{$R *.DFM}

procedure TDM.DataModuleCreate(Sender: TObject);
var
  inifile:Tinifile;
  strfilename,strtemp:string;
  strserver,strdatabase,struid,strpwd:string;

begin
    strfilename:=ExtractFilePath(ParamStr(0))+'swzx.ini';
    inifile:=Tinifile.Create(strfilename);
    strserver:=inifile.ReadString('dbconfig','server','');
    strdatabase:=inifile.ReadString('dbconfig','database','');
    struid:=IniFile.ReadString('dbconfig','uid','');
    strpwd:=inifile.ReadString('dbconfig','pwd','');

    strtemp:='provider=sqloledb.1;persist security info=false;';
    strtemp:=strtemp+'data source='+strserver+';';
    strtemp:=strtemp+'initial catalog='+strdatabase+';';
    strtemp:=strtemp+'user id='+struid+';';
    strtemp:=strtemp+'password='+strpwd+';';
    adocon.Close;
    adocon.ConnectionString:=strtemp;
    try
      if (strserver<>'') or (strdatabase<>'') or (struid<>'')  then
      begin
      adocon.Connected:=True;
      MessageDlg('配置文件连接数据库成功！',mtInformation,[mbOK],0);
      ADOCON.Open;
      end
      else
      MessageDlg('配置文件错误，请重新配置连接文件！',mtError,[mbCancel],0);
     except
      MessageDlg('连接数据库失败！',mtError,[mbCancel],0);
      Exit;
    end;
    inifile.Free;

end;

end.