mysqlserver.hpp

MYSQL 连接控件 MYSQL 连接控件

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'MySQLServer.pas' rev: 6.00

#ifndef MySQLServerHPP
#define MySQLServerHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <MySQLParser.hpp>	// Pascal unit
#include <MySQLDrivers.hpp>	// Pascal unit
#include <MySQLLoginDlg.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <DB.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Mysqlserver
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TMySQLServer;
typedef void __fastcall (__closure *TMySQLServerLoginEvent)(TMySQLServer* Server, Classes::TStrings* LoginParams);

#pragma option push -b-
enum MySQLServer__1 { coLongPassword, coFoundRows, coLongFlag, coConnectWithDB, coNoSchema, coCompress, coODBC, coLocalFiles, coIgnoreSpace, coInteractive, coIgnoreSigpipe, coTransactions, coProtocol41, coSecureConnection, coMultiQueries, soAutoCreate, soDropIfExists, soCloseOnChildren };
#pragma option pop

typedef Set<MySQLServer__1, coLongPassword, soCloseOnChildren>  TMySQLServerOptions;

#pragma option push -b-
enum TMySQLDriverType { dtDirect, dtEmbedded, dtLibrary };
#pragma option pop

#pragma option push -b-
enum TMySQLProtocolType { ptTCP, ptPipe };
#pragma option pop

class PASCALIMPLEMENTATION TMySQLServer : public Db::TCustomConnection 
{
	typedef Db::TCustomConnection inherited;
	
private:
	TMySQLDriverType FDriverType;
	TMySQLProtocolType FProtocolType;
	Mysqldrivers::TMySQLBase* FDriver;
	void *FConnection;
	TMySQLServerOptions FConOptions;
	AnsiString FHost;
	AnsiString FUserName;
	AnsiString FPassword;
	Word FPort;
	Classes::TStrings* FParams;
	TMySQLServerLoginEvent FOnLogin;
	AnsiString FDBName;
	Classes::TStringList* FOwnDatasets;
	Mysqldrivers::TMySQLBase* __fastcall GetDriver(void);
	AnsiString __fastcall GetHost();
	Word __fastcall GetPort(void);
	AnsiString __fastcall GetUserName();
	AnsiString __fastcall GetPassword();
	bool __fastcall GetCompression(void);
	void __fastcall SetCompression(bool Value = false);
	void __fastcall SetDriverType(TMySQLDriverType Value);
	void __fastcall SetProtocolType(TMySQLProtocolType Value);
	void __fastcall SetDriver(Mysqldrivers::TMySQLBase* Value);
	void __fastcall SetDatabaseName(AnsiString Value);
	void __fastcall SetHost(AnsiString Value = "localhost");
	void __fastcall SetPort(Word Value = (Word)(0xcea));
	void __fastcall SetUserName(AnsiString Value = "root");
	void __fastcall SetPassword(AnsiString Value = "");
	void __fastcall SetParams(Classes::TStrings* Value);
	void __fastcall ActivateConnection(void);
	TMySQLServerOptions __fastcall GetOptions(void);
	void __fastcall SetOptions(const TMySQLServerOptions Value);
	
protected:
	void __fastcall DisconnectClients(void);
	bool __fastcall CheckChildrenAllClosed(void);
	void __fastcall CloseClients(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual void __fastcall Loaded(void);
	void __fastcall Link(const AnsiString Detail, const AnsiString Master, const AnsiString Condition);
	void __fastcall UnLink(const AnsiString Detail);
	int __fastcall FindDataset(const AnsiString AName = "");
	virtual void __fastcall DoConnect(void);
	virtual void __fastcall DoDisconnect(void);
	virtual void __fastcall SetConnected(bool Value);
	virtual bool __fastcall GetConnected(void);
	AnsiString __fastcall GetClientVersion();
	int __fastcall GetClientVer(void);
	AnsiString __fastcall GetServerVersion();
	int __fastcall GetServerVer(void);
	Db::TDataSet* __fastcall NewDataset(const AnsiString AName = "", const AnsiString Table = "");
	
public:
	__fastcall virtual TMySQLServer(Classes::TComponent* AOwner);
	__fastcall virtual ~TMySQLServer(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall RegisterClient(System::TObject* Client, Db::TConnectChangeEvent Event = 0x0);
	virtual void __fastcall UnRegisterClient(System::TObject* Client);
	void * __fastcall AllocConnection(void);
	void __fastcall FreeConnection(void * &Value);
	void __fastcall Connect(void);
	void __fastcall Disconnect(void);
	AnsiString __fastcall CreateDatabase(const bool AExecSQL = false)/* overload */;
	void __fastcall CreateDatabase(AnsiString Value, void * Conn = (void *)(0x0))/* overload */;
	bool __fastcall SelectDatabase(AnsiString Value, void * Conn = (void *)(0x0));
	void __fastcall DropDatabase(AnsiString Value, void * Conn = (void *)(0x0));
	bool __fastcall ExecSQL(AnsiString SQL);
	bool __fastcall ExecSQLBatch(Classes::TStrings* SQL);
	AnsiString __fastcall ConnectionDatabase(void * Conn = (void *)(0x0));
	void __fastcall GetDatabaseNames(Classes::TStrings* List);
	void __fastcall GetTableNames(const AnsiString DatabaseName, Classes::TStrings* List, const void * Conn = (void *)(0x0));
	void __fastcall GetFieldNames(const AnsiString DatabaseName, const AnsiString TableName, Classes::TStrings* List);
	AnsiString __fastcall EscapeStr(const AnsiString Value);
	AnsiString __fastcall FormatIdentifier(const AnsiString Value = "");
	int __fastcall GetLock(const AnsiString Value = "MyLock", int TimeOut = 0x0);
	int __fastcall ReleaseLock(const AnsiString Value = "MyLock");
	bool __fastcall Ping(void);
	Db::TDataSet* __fastcall Dataset(const AnsiString AName = "", const AnsiString Table = "", bool AutoOpen = false, const AnsiString Master = "", const AnsiString Condition = "");
	Db::TDataSet* __fastcall DatasetFrom(const AnsiString SQL = "", const AnsiString AName = "", bool AutoOpen = true, const AnsiString Master = "", const AnsiString Condition = "");
	void __fastcall FreeDataset(const AnsiString AName = "");
	__property Mysqldrivers::TMySQLBase* Driver = {read=GetDriver, write=SetDriver};
	__property void * Connection = {read=FConnection};
	
__published:
	__property AnsiString ClientVersion = {read=GetClientVersion};
	__property AnsiString ServerVersion = {read=GetServerVersion};
	__property int ClientVer = {read=GetClientVer, nodefault};
	__property int ServerVer = {read=GetServerVer, nodefault};
	__property TMySQLDriverType DriverKind = {read=FDriverType, write=SetDriverType, default=0};
	__property TMySQLProtocolType Protocol = {read=FProtocolType, write=SetProtocolType, default=0};
	__property Mysqldrivers::TMySQLBase* DriverProperties = {read=GetDriver, write=SetDriver};
	__property Connected  = {default=0};
	__property AnsiString DatabaseName = {read=FDBName, write=SetDatabaseName};
	__property AnsiString Host = {read=GetHost, write=SetHost};
	__property Word Port = {read=GetPort, write=SetPort, default=3306};
	__property LoginPrompt  = {default=0};
	__property AnsiString UserName = {read=GetUserName, write=SetUserName};
	__property AnsiString Password = {read=GetPassword, write=SetPassword};
	__property Classes::TStrings* Params = {read=FParams, write=SetParams};
	__property bool Compression = {read=GetCompression, write=SetCompression, default=0};
	__property TMySQLServerOptions Options = {read=GetOptions, write=SetOptions, default=6656};
	__property AfterConnect ;
	__property AfterDisconnect ;
	__property BeforeConnect ;
	__property BeforeDisconnect ;
	__property TMySQLServerLoginEvent OnLogin = {read=FOnLogin, write=FOnLogin};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Mysqlserver */
using namespace Mysqlserver;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// MySQLServer