opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Cleanly name TMySQLServerCapabilities and TMySQLClientOptions, so they tell what they're for.

Browse Source
This commit is contained in:
Ansgar Becker
2007-09-19 21:07:30 +00:00
parent 9b5c32ead1
commit b1d8ac345f
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
extra/mysql_dataset/mysqldataset.pas
View File

@@ -14,7 +14,7 @@ type
TMySQLLogCategory = (lcStats, lcSQL, lcError, lcInternal);
TMySQLLogEvent = procedure (Category: TMySQLLogCategory; Msg: String) of object;
TMySQLCapability = (
TMySQLServerCapability = (
cpShowEngines, // SHOW ENGINES
cpShowTableStatus, // SHOW TABLE STATUS
cpShowFullTables, // SHOW FULL TABLES
@@ -30,11 +30,11 @@ type
cpTruncateTable, // TRUNCATE TABLE foo
cpBackticks, // `identifier`
cpAlterDatabase, // ALTER DATABASE
cpRenameDatabase // RENAME DATABASE
cpRenameDatabase // RENAME DATABASE
);
TMySQLCapabilities = set of TMySQLCapability;
TMySQLServerCapabilities = set of TMySQLServerCapability;
TMySQLConnectionOption = (
TMySQLClientOption = (
opCompress, // CLIENT_COMPRESS
opConnectWithDb, // CLIENT_CONNECT_WITH_DB
opFoundRows, // CLIENT_FOUND_ROWS
@@ -55,7 +55,7 @@ type
opSSL, // CLIENT_SSL
opTransactions // CLIENT_TRANSACTIONS
);
TMySQLConnectionOptions = set of TMySQLConnectionOption;
TMySQLClientOptions = set of TMySQLClientOption;
const
DEFAULT_MYSQLOPTIONS = [opLocalFiles, opInteractive, opProtocol41];
@@ -72,8 +72,8 @@ type
FTimeout: Cardinal;
FDatabase: String;
FOnLog: TMySQLLogEvent;
FOptions: TMySQLConnectionOptions;
FCapabilities: TMySQLCapabilities;
FOptions: TMySQLClientOptions;
FCapabilities: TMySQLServerCapabilities;
procedure SetActive( Value: Boolean );
procedure SetDatabase( Value: String );
function GetThreadId: Cardinal;
@@ -93,7 +93,7 @@ type
property ServerVersionStr: String read GetServerVersionStr;
property ServerVersionInt: Integer read GetServerVersionInt;
function EscapeString( Text: String; DoQuote: Boolean = True ): String;
property Capabilities: TMySQLCapabilities read FCapabilities;
property Capabilities: TMySQLServerCapabilities read FCapabilities;
function QuoteIdent( Identifier: String ): String;
published
@@ -104,7 +104,7 @@ type
property Password: String read FPassword write FPassword;
property Timeout: Cardinal read FTimeout write FTimeout default NET_READ_TIMEOUT;
property Database: String read FDatabase write SetDatabase;
property Options: TMySQLConnectionOptions read FOptions write FOptions default DEFAULT_MYSQLOPTIONS;
property Options: TMySQLClientOptions read FOptions write FOptions default DEFAULT_MYSQLOPTIONS;
// Events
property OnLog: TMySQLLogEvent read FOnLog write FOnLog;
@@ -478,7 +478,7 @@ end;
procedure TMySQLConnection.DetectCapabilities;
var
ver : Integer;
procedure addCap( c: TMySQLCapability; addit: Boolean );
procedure addCap( c: TMySQLServerCapability; addit: Boolean );
begin
if addit then
Include( FCapabilities, c )