dbinfounit.pas.svn-base

来自「农村信用社对日常凭证的管理功能」· SVN-BASE 代码 · 共 59 行

unit DBInfoUnit;

interface
uses
  IniFiles;
type
  TDBInfo=class
  private
  public
    class function getDataSourceName:String;
    class function getUserID:String;
    class function getPassword:String;
    class function getDBName:String;
  end;

implementation
const
  DBConfigFilePath='config/DBConfig.ini';

{ TDBInfo }

class function TDBInfo.getDataSourceName: String;
var
    DBInfoIni:TIniFile;
begin
  DBInfoIni:=TIniFile.Create(DBConfigFilePath);
  result:=DBInfoIni.ReadString('DBConnection','DataSource','(local)');
  DBInfoIni.Free;
end;

class function TDBInfo.getDBName: String;  
var
    DBInfoIni:TIniFile;
begin                            
  DBInfoIni:=TIniFile.Create(DBConfigFilePath);
  result:=DBInfoIni.ReadString('DBConnection','DBName','voucher');  
  DBInfoIni.Free;
end;

class function TDBInfo.getPassword: String; 
var
    DBInfoIni:TIniFile;
begin             
  DBInfoIni:=TIniFile.Create(DBConfigFilePath);
  result:=DBInfoIni.ReadString('DBConnection','Password','');  
  DBInfoIni.Free;
end;

class function TDBInfo.getUserID: String;  
var
    DBInfoIni:TIniFile;
begin    
  DBInfoIni:=TIniFile.Create(DBConfigFilePath);
  result:=DBInfoIni.ReadString('DBConnection','UserID','sa');  
  DBInfoIni.Free;
end;

end.