Class TSQLSession (unit MSSQL)

Inherits from

TObject

Constructors


constructor Create;



Functions

procedure Commit;


destructor Destroy;


procedure DoLogin;


procedure DoLogoff;

Lese jetzt alle Tabellen aus, die in der Datenbank vorhanden *) (* sind.

function GetDeviceDatafile(const Device : String) : String;


function GetPDatabase : PChar;


function GetPHost : PChar;


procedure Rollback;


procedure SetLoginTime(Seconds : Integer);


procedure StartTransaction;


function GetDatabase : String;


function GetDatabases : TStringList;


function GetDevices : TStringList;


function GetHost : String;


function GetIndex(Tables : String) : TStringList;


function GetPassword : String;


function GetTables : TStringList;


function GetUsername : String;


function GetUsers : TStringList;


procedure SetActive(Data : Boolean);


procedure SetDatabase(Data : String);


procedure SetHost(Data : String);


procedure SetPassword(Data : String);


procedure SetUsername(Data : String);


procedure ShowError(Error : Integer; Msg : String);

TSQLSession --------------------------------------------------------

Properties

property Active : Boolean


property Database : String


property Databases : TStringList


property Devices : TStringList


property Handle : PDBPROCESS


property Host : String


property Index : TStringList


property Login : PLOGINREC


property Password : String


property Tables : TStringList


property Username : String


property Users : TStringList


Events

Variables

fActive : Boolean;


fDatabase : TSQLData;


fDatabases : TStringList;


fDevices : TStringList;


fHandle : PDBPROCESS;


fHost : TSQLData;


fIndex : TStringList;


fLogin : PLOGINREC;


fPassword : TSQLData;


fTables : TStringList;


fUserList : TStringList;


fUsername : TSQLData;



Constructors


constructor Create;


Functions


procedure Commit;


destructor Destroy;


procedure DoLogin;


procedure DoLogoff;

Lese jetzt alle Tabellen aus, die in der Datenbank vorhanden *) (* sind.


function GetDeviceDatafile(const Device : String) : String;


function GetPDatabase : PChar;


function GetPHost : PChar;


procedure Rollback;


procedure SetLoginTime(Seconds : Integer);


procedure StartTransaction;


function GetDatabase : String;


function GetDatabases : TStringList;


function GetDevices : TStringList;


function GetHost : String;


function GetIndex(Tables : String) : TStringList;


function GetPassword : String;


function GetTables : TStringList;


function GetUsername : String;


function GetUsers : TStringList;


procedure SetActive(Data : Boolean);


procedure SetDatabase(Data : String);


procedure SetHost(Data : String);


procedure SetPassword(Data : String);


procedure SetUsername(Data : String);


procedure ShowError(Error : Integer; Msg : String);

TSQLSession --------------------------------------------------------


Properties


property Active : Boolean


property Database : String


property Databases : TStringList


property Devices : TStringList


property Handle : PDBPROCESS


property Host : String


property Index : TStringList


property Login : PLOGINREC


property Password : String


property Tables : TStringList


property Username : String


property Users : TStringList


Events


Variables


fActive : Boolean;


fDatabase : TSQLData;


fDatabases : TStringList;


fDevices : TStringList;


fHandle : PDBPROCESS;


fHost : TSQLData;


fIndex : TStringList;


fLogin : PLOGINREC;


fPassword : TSQLData;


fTables : TStringList;


fUserList : TStringList;


fUsername : TSQLData;