udata.~pas

相关的销售服务管理行业的一个软件

unit Udata;

interface
uses
  Windows, SysUtils,Forms, Dialogs,Registry,U_DM;

var
  Regr,Regw,Regs: TRegistry;
  SServerName,SDataUser,SdataPassword,Spath : string;   //系统数据库参数
  UserId,UserName,UserpassWord,Userrole :string;        //用户参数
  Udataname,udatauser,udatapass,udataserver:string;     //帐套数据库参数
  UserState:Boolean;
  ConSuccess :Boolean;
  const Mcode = 'eexs';       //模块编码
  const SDatabase = 'eesys';  //系统数据库名称
  procedure readreg;
  procedure swritereg;
  procedure Connectdatabase;       //连接系统数据库
  procedure Connectdatabaseuser;   //连接帐套数据库
implementation
  uses umain,SYS_DataModal;
  
procedure readreg;
begin
  Regr := TRegistry.Create;
   try
    Regr.RootKey := HKEY_LOCAL_MACHINE;
     if Regr.OpenKey('Software\清华同方\EE\1.0',true) then
       SServerName := Regr.ReadString('ServerName');
       SDataUser := Regr.ReadString('DataUser');
       SDataPassword := Regr.ReadString('dataPassWord');
       Spath := Regr.ReadString('Path');
   finally
       Regr.CloseKey;
       Regr.Free;
  end;
end;
procedure swritereg;
begin
   Regw := TRegistry.Create;
   try
    Regw.RootKey := HKEY_LOCAL_MACHINE;
    if Regw.OpenKey('Software\清华同方\EE\1.0',true) then
       Regw.Writestring('ServerName',SServerName);
       Regw.Writestring('DataBaseName',SDatabase);
       Regw.Writestring('DataUser',SDataUser);
       Regw.Writestring('DataPassWord',Sdatapassword);
   finally
       Regw.CloseKey;
       Regw.Free;
   end;
end;

procedure Connectdatabase;
begin
  ConSuccess := false;
  try
    with DM1.ADOCon1 do
      begin
          close;
          ConnectionString := 'Provider=SQLOLEDB.1;Password=' + SDatapassword +
             ';Persist Security Info=false;User ID=' + SDataUser +
             ';Initial Catalog=' + SDatabase +
             ';Data Source=' + SServerName + ';Locale Identifier=2052;Connect Timeout=15' +
             ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096'+
             ';Workstation ID=' + SServerName;
          open;
          screen.cursor := 0;
          ConSuccess := true;
     end;
  except
      Application.MessageBox('数据库连接失败','连接数据库',16);
      exit;
      screen.cursor := 0;
  end;
end;

procedure Connectdatabaseuser;
begin
  try
    with DM1.ADOConuser do    //  ADOConuser 为用户连接数据库的ADOConnect
      begin
          close;
          ConnectionString := 'Provider=SQLOLEDB.1;Password=' + udatapass +
             ';Persist Security Info=False;User ID=' + udatauser +
             ';Initial Catalog=' + Udataname +
             ';Data Source=' + udataserver + ';Locale Identifier=2052;Connect Timeout=15' +
             ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096'+
             ';Workstation ID=' + udataserver;
          Dm.ADOConnection.Close;
          Dm.ADOConnection.ConnectionString:=DM1.ADOConuser.ConnectionString;
          open;
          screen.cursor := 0;
     end;
  except
      Application.MessageBox('数据库连接失败','连接数据库',16);
      screen.cursor := 0;
      exit;
  end;
end;

end.