1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
|
TxxxxIniRemoted = class(TObject)
public
const
GLOBAL = '*';
OSUSER_AS_COMPUTER = 'COMPUTER_';
type
TSectionsValue = record
Key: string;
TextValue: string;
OSUser: string;
Localisation: string;
NumeroSalarie: Integer;
end;
TSectionsValues = array of TSectionsValue;
private
class var FQueryRead: TOraQuery;
class var FQueryWrite: TOraQuery;
class var FQuerySectionExists: TOraQuery;
class var FQueryEraseSection: TOraQuery;
class var FQueryReadSectionValues: TOraQuery;
class function InternalReadValue(DBSession: TOraSession; const AFileName, ASection, AIdent: string; const ADefault: Variant; out AValue: Variant; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class procedure InternalWriteValue(DBSession: TOraSession; const AFileName, ASection, AIdent: string; const AValue: Variant; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class procedure InternalEraseSection(DBSession: TOraSession; const AFileName, ASection: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function InternalSectionExists(DBSession: TOraSession; const AFileName, ASection: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class function InternalReadSectionValues(DBSession: TOraSession; const AFileName, ASection: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): TSectionsValues;
public
// Constructeurs de Classe
class destructor Destroy();
// Méthodes de Classe
class function GetClientUser(): string;
class function GetClientComputer(AWithPrefix: Boolean = True): string;
class function ReadString(DBSession: TOraSession; const AFileName, ASection, AIdent, ADefault: string; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): string;
class procedure WriteString(DBSession: TOraSession; const AFileName, ASection, AIdent, AValue: string; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadBoolean(DBSession: TOraSession; const AFileName, ASection, AIdent: string; ADefault: Boolean; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class procedure WriteBoolean(DBSession: TOraSession; const AFileName, ASection, AIdent: string; AValue: Boolean; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadInteger(DBSession: TOraSession; const AFileName, ASection, AIdent: string; ADefault: Integer; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Integer;
class procedure WriteInteger(DBSession: TOraSession; const AFileName, ASection, AIdent: string; AValue: Integer; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadFloat(DBSession: TOraSession; const AFileName, ASection, AIdent: string; ADefault: Double; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Double;
class procedure WriteFloat(DBSession: TOraSession; const AFileName, ASection, AIdent: string; AValue: Double; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class procedure DeleteValue(DBSession: TOraSession; const AFileName, ASection, AIdent: string; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadUserString(DBSession: TOraSession; const AFileName, ASection, AIdent, ADefault: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): string;
class procedure WriteUserString(DBSession: TOraSession; const AFileName, ASection, AIdent, AValue: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadUserBoolean(DBSession: TOraSession; const AFileName, ASection, AIdent: string; ADefault: Boolean; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class procedure WriteUserBoolean(DBSession: TOraSession; const AFileName, ASection, AIdent: string; AValue: Boolean; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadUserInteger(DBSession: TOraSession; const AFileName, ASection, AIdent: string; ADefault: Integer; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Integer;
class procedure WriteUserInteger(DBSession: TOraSession; const AFileName, ASection, AIdent: string; AValue: Integer; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadUserFloat(DBSession: TOraSession; const AFileName, ASection, AIdent: string; ADefault: Double; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Double;
class procedure WriteUserFloat(DBSession: TOraSession; const AFileName, ASection, AIdent: string; AValue: Double; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class procedure DeleteUserValue(DBSession: TOraSession; const AFileName, ASection, AIdent: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function KeyExists(DBSession: TOraSession; const AFileName, ASection, AIdent: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class function SectionExists(DBSession: TOraSession; const AFileName, ASection: string; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class procedure EraseSection(DBSession: TOraSession; const AFileName, ASection: string; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class function ReadSectionValues(DBSession: TOraSession; const AFileName, ASection: string; out ASectionValues: TSectionsValues): Integer;
class function ReadSectionValuesOfUser(DBSession: TOraSession; const AFileName, ASection, AOSUser: string; out ASectionValues: TSectionsValues): Integer;
class function ReadSectionValuesOfLocalisation(DBSession: TOraSession; const AFileName, ASection, ALocalisation: string; out ASectionValues: TSectionsValues): Integer;
class function ReadSectionValuesOfSalarie(DBSession: TOraSession; const AFileName, ASection: string; ANumeroSalarie: Integer; out ASectionValues: TSectionsValues): Integer;
class function UserSectionExists(DBSession: TOraSession; const AFileName, ASection: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0): Boolean;
class procedure EraseUserSection(DBSession: TOraSession; const AFileName, ASection: string; const AOSUser: string = ''; const ALocalisation: string = ''; ANumeroSalarie: Integer = 0);
class procedure MigrationLocalToRemoted(DBSession: TOraSession; const AFileName: string; const ARemotedFileName: string; const ALocalisation: string);
end; |
Partager