frame_usqlserverdm.~pas

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

unit frame_uSqlServerDM;

interface

uses
  Windows, Messages, ADODB,DB,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uDM;

type
  Tframe_SqlServerDM = class(Tframe_DM)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure doConnect;  override;
  end;

var
  frame_SqlServerDM: Tframe_SqlServerDM;

implementation

uses frame_UtilFunc, frame_setdatabase;

{$R *.dfm}




{ Tframe_SqlServerDM }

procedure Tframe_SqlServerDM.doConnect;
var
  datalinkstr,linkstr,userid,password,initialcatalog,datasource:string;
  adoconn:Tadoconnection;
begin
  Linkstr:=readcfg('database','LinkStr','');
  userid := Readcfg('database', 'userid', '');
  initialcatalog := readcfg('database', 'initialcatalog', '');
  datasource := readcfg('database', 'datasource', '');
  password := uncrypstr(readcfg('database', '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('数据库参数配置不正确！', '提示', mb_ok +
      mb_iconinformation);
    with tf_setdatabase.create(self) do
    begin
      showmodal;
      free;
    end;
  end;
  IF not adoConn.Connected then
    Application.Terminate;
  Con=adoconn;

end;

initialization
  DMClass := Tframe_SqlServerDM;

end.