bizdbconfig.pas

物流供应链管理系统

unit BizDBConfig;

interface
Const
  BIZLAYER = 'GMSBizLayer';
  COMPUTERNAME='ComputerName';
  DBCONSTR = 'DBConnectionString';

function GetComputerName: string;
procedure SetComputerName(AValue: string);

function GetDBConnectionString: string;
procedure SetDBConnectionString(AValue: string);

implementation
uses Registry;

function GetComputerName: string;
var
  LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.OpenKey('\Software\'+BIZLAYER, True);
  if LReg.ValueExists(COMPUTERNAME) then
    result := LReg.ReadString(COMPUTERNAME)
  else
    result := '127.0.0.1';
end;

procedure SetComputerName(AValue: string);
var
  LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.OpenKey('\Software\'+BIZLAYER, True);
  LReg.WriteString(COMPUTERNAME, AValue);
end;

function GetDBConnectionString: string;
var
  LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.OpenKey('\Software\'+BIZLAYER, True);
  if LReg.ValueExists(DBCONSTR) then
    result := LReg.ReadString(DBCONSTR)
  else
    result := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;'+'Initial Catalog=GoodsManagementSystem_Data;Data Source=127.0.0.1;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=127.0.0.1;Use Encryption for Data=False;Tag with column collation when possible=False';
end;

procedure SetDBConnectionString(AValue: string);
var
  LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.OpenKey('\Software\'+BIZLAYER, True);
  LReg.WriteString(DBCONSTR, AValue);
end;

end.