umydm.pas

企业信息管理系统程序框架

unit uMydm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uDM, DB, ADODB,ADOXQuery,frame_UtilFunc,frame_setDataBase,
  frame_uSqlServerDM;

type
  TmyDM = class(Tframe_sqlserverDM)
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  myDM: TmyDM;
  GV_GpsCon:TADOConnection;
  GV_GpsQry:TADOXQuery;

implementation



{$R *.dfm}
procedure TmyDM.DataModuleCreate(Sender: TObject);
var
  datalinkstr,linkstr,userid,password,initialcatalog,datasource:string;
  adoconn:TADOConnection;
  adoqry:TAdoxquery;
  mydbparamsession:String;
begin
  // create gpsmis connect;
  inherited;

  // create gps connect;
  mydbparamsession:='gpsdatabase';
  Linkstr:=readcfg(mydbparamsession,'LinkStr','');
  userid := Readcfg(mydbparamsession, 'userid', '');
  initialcatalog := readcfg(mydbparamsession, 'initialcatalog', '');
  datasource := readcfg(mydbparamsession, 'datasource', '');
  password := UncrypStr(readcfg(mydbparamsession, 'password', ''));

  datalinkstr:=format(Linkstr,[password,userid,datasource,initialcatalog]);
  adoconn:=TADoConnection.create(self);
  adoconn.LoginPrompt:=false;
  adoconn.Connected := false;
  adoconn.ConnectionString := datalinkstr;
  try
    adoconn.Connected := true;
  except
    adoconn.connected := false;
    Application.messagebox('gps数据库参数配置不正确！', '提示', mb_ok +
      mb_iconinformation);
    with tf_setdatabase.create(self) do
    begin
      dbparamsession:=mydbParamsession;
      mycaption:='水星系统数据库连接设置';
      showmodal;
      free;
    end;
  end;
  IF not adoConn.Connected then
    Application.Terminate;
  GV_GpsCon:=adoconn;
  adoqry:=tAdoxquery.Create(self);
  adoqry.Connection:=adoconn;
  GV_GpsQry:=adoqry;

end;

initialization
    DMClass:=TmyDM;
end.