unitlocatdata.pas

delphi写的基于server和client的聊天源码 有参考意义

{多层数据库程序设计——数据库模块}
unit Unitlocatdata;

interface

uses
  SysUtils, Classes, DB, ADODB,forms,windows,registry;

type
  TDm = class(TDataModule)
    ADOConn: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dm: TDm;

implementation

uses Unitzc;

{$R *.dfm}

procedure TDm.DataModuleCreate(Sender: TObject);
var
  reg:treginifile;
  //reg:tinifile;
  fwqm,sjkm,yhm,mm,ms:string;
begin
  reg:=treginifile.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  fwqm:=reg.ReadString('\software\glaess','服务器名','');                                  //;User ID='+trim(yhm)+';password='+trim(mm)+'
  yhm:=reg.ReadString('\software\glaess','用户名称','');
  mm:=reg.ReadString('\software\glaess','用户密码','');
  sjkm:=reg.ReadString('\software\glaess','数据库名称','');
  ms:= reg.ReadString('\software\glaess','连接模式','');
  ADOConn.DefaultDatabase:=sjkm;
  if trim(ms)='2' then
  begin
    adoconn.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(yhm)+';password='+trim(mm)+';Initial Catalog='+trim(sjkm)+';Data Source='+trim(fwqm);
  end;
  if trim(ms)='1' then
  begin
    adoconn.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+trim(sjkm)+';Data Source='+trim(fwqm);
  end;
  try
  ADOConn.Connected:=true;
  except
    Application.MessageBox('数据库连接错误,请重新注册!','错误',mb_iconwarning);
    Application.CreateForm(TFormzc, Formzc);
    formzc.ShowModal;
  end;
  reg.Free;
end;

end.