udbconfig.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 38 行

unit uDBConfig;

interface

{$H+}
Const
  CONFIGKEYNAME = 'GMSDATAOBJ';
  CONNECTIONSTRING = 'ConnectionString';

function GetConnectionString: string;
procedure SetConnectionString(AValue: string);

implementation
uses Registry;

function GetConnectionString: String;
var
  LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.OpenKey('\Software\'+CONFIGKEYNAME, True);
  if LReg.ValueExists(CONNECTIONSTRING) then
    result := LReg.ReadString(CONNECTIONSTRING)
  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=SINCOYANG;Use Encryption for Data=False;Tag with column collation when possible=False';
end;

procedure SetConnectionString(AValue: string);
var
  LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.OpenKey('\Software\'+CONFIGKEYNAME, True);
  LReg.WriteString(CONNECTIONSTRING, AValue);
end;
end.