untconfig.pas

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

unit untConfig;
{*********************************************************************
作者：杨中科
功能描述：配置系统用的相关内容
**********************************************************************}
interface
function GetConnectionString: String;
function GetDefaultConnectionString: String;
procedure SetConnectionString(AValue: string);

//得到仓库编号，如CKM03
function GetWareHouseId: string;
procedure SetWareHouseId(AValue: string);

//得到仓库的部门编号，如BM003
function GetWareHouseDepartId: string;
procedure SetWareHouseDepartId(AValue: string);


implementation
uses IniFiles, CommonFunc;

const
  CONFIGFILENAME = 'dbconfig.ini';
  DEFAULTCONNECTIONSTRING = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;'+
    'Persist Security Info=False;Initial Catalog=GoodsManagementSystem_Data;'+
    'Data Source=127.0.0.1';

function GetConnectionString: String;
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  result := LIni.ReadString('Connection', 'ConnectionString',DEFAULTCONNECTIONSTRING);
  LIni.Free;
end;


function GetDefaultConnectionString: String;
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  result := LIni.ReadString('Connection', 'DefaultConnectionString',DEFAULTCONNECTIONSTRING);
  LIni.Free;
end;


procedure SetConnectionString(AValue: string);
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  LIni.WriteString('Connection', 'ConnectionString',AValue);
  LIni.Free;
end;

function GetWareHouseId: string;
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  result := LIni.ReadString('Connection', 'WareHouseId','CKM01');
  LIni.Free;
end;

procedure SetWareHouseId(AValue: string);
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  LIni.WriteString('Connection', 'WareHouseId',AValue);
  LIni.Free;
end;

function GetWareHouseDepartId: string;
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  result := LIni.ReadString('Connection', 'WareHouseDepartId','BM003');
  LIni.Free;
end;

procedure SetWareHouseDepartId(AValue: string);
var
  LIni: TIniFile;
begin
  LIni := TIniFile.Create(GetApplicationPath + CONFIGFILENAME);
  LIni.WriteString('Connection', 'WareHouseDepartId',AValue);
  LIni.Free;
end;

end.