odbclink.hpp

TMS component pack v4.2 for delphi

// CodeGear C++ Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Odbclink.pas' rev: 11.00

#ifndef OdbclinkHPP
#define OdbclinkHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <Seldlg.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Odbccst.hpp>	// Pascal unit

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

namespace Odbclink
{
//-- type declarations -------------------------------------------------------
typedef unsigned *phandle;

typedef char TSQLstringbuf[256];

typedef TSQLstringbuf *PSQLstringbuf;

#pragma option push -b-
enum TODBCStatus { odbcOpening, odbcInserting, odbcUpdating, odbcCreating, odbcDeleting, odbcNormal };
#pragma option pop

#pragma option push -b-
enum TODBCKeyType { odbcNormalKey, odbcRequiredKey };
#pragma option pop

class DELPHICLASS EODBCError;
class PASCALIMPLEMENTATION EODBCError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EODBCError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EODBCError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EODBCError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EODBCError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EODBCError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EODBCError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EODBCError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EODBCError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EODBCError(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TODBCErrorEvent)(System::TObject* Sender, AnsiString odbcstate, AnsiString odbcmsg, int errcode);

class DELPHICLASS TODBCField;
class PASCALIMPLEMENTATION TODBCField : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString fFieldName;
	AnsiString fDisplayName;
	int fSize;
	int fDataTypeIdx;
	bool fKey;
	void __fastcall SetFieldName(AnsiString value);
	void __fastcall SetDisplName(AnsiString value);
	
public:
	int ColIndex;
	
__published:
	__property AnsiString DisplayName = {read=fDisplayName, write=SetDisplName};
	__property AnsiString FieldName = {read=fFieldName, write=SetFieldName};
	__property int Size = {read=fSize, write=fSize, nodefault};
	__property int DatatypeIdx = {read=fDataTypeIdx, write=fDataTypeIdx, nodefault};
	__property bool Key = {read=fKey, write=fKey, nodefault};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TODBCField(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TODBCField(void) { }
	#pragma option pop
	
};


class DELPHICLASS TODBCFieldCollection;
class DELPHICLASS TODBCLink;
class PASCALIMPLEMENTATION TODBCLink : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	AnsiString fAuthentication;
	AnsiString fUserID;
	bool fActive;
	Classes::TStringList* fSQL;
	AnsiString fDataSource;
	AnsiString fDriver;
	AnsiString fTable;
	AnsiString fDBFile;
	Classes::TStrings* fResultList;
	Grids::TStringGrid* fGrid;
	Comctrls::TListView* fListView;
	TODBCFieldCollection* fFields;
	bool fShowFields;
	bool fShowErrors;
	TODBCErrorEvent fOnODBCError;
	TODBCStatus fODBCStatus;
	TODBCKeyType fKeyType;
	void __fastcall SetActive(bool avalue);
	void __fastcall SetTable(AnsiString avalue);
	void __fastcall SetDriver(AnsiString avalue);
	void __fastcall SetDataSource(AnsiString avalue);
	void __fastcall SetSQL(Classes::TStringList* avalue);
	void __fastcall SetFieldCollection(TODBCFieldCollection* value);
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	
protected:
	virtual int __fastcall GetVersionNr(void);
	virtual void __fastcall Loaded(void);
	
public:
	__fastcall virtual TODBCLink(Classes::TComponent* aOwner);
	__fastcall virtual ~TODBCLink(void);
	void __fastcall OpenDatabase(void);
	void __fastcall SaveDatabase(void);
	bool __fastcall BrowseDatabase(bool doOpen);
	Classes::TStrings* __fastcall DataSources(void);
	Classes::TStrings* __fastcall Drivers(void);
	Classes::TStrings* __fastcall Tables(void);
	AnsiString __fastcall DriverForExtension(const AnsiString S);
	bool __fastcall HasDataType(int sqltype);
	bool __fastcall CreateDataSource(AnsiString szDriver, AnsiString szAttr);
	bool __fastcall InsertRows(int RowIndex, int RowCount);
	bool __fastcall UpdateRows(int RowIndex, int RowCount);
	bool __fastcall DeleteRows(int RowIndex, int RowCount);
	__property TODBCStatus Status = {read=fODBCStatus, nodefault};
	__property TODBCKeyType KeyType = {read=fKeyType, write=fKeyType, nodefault};
	
__published:
	__property bool Active = {read=fActive, write=SetActive, nodefault};
	__property Classes::TStringList* SQL = {read=fSQL, write=SetSQL};
	__property AnsiString DataSource = {read=fDataSource, write=SetDataSource};
	__property AnsiString Driver = {read=fDriver, write=SetDriver};
	__property AnsiString Table = {read=fTable, write=SetTable};
	__property AnsiString Databasefile = {read=fDBFile, write=fDBFile};
	__property Grids::TStringGrid* Grid = {read=fGrid, write=fGrid};
	__property Comctrls::TListView* ListView = {read=fListView, write=fListView};
	__property TODBCFieldCollection* Fields = {read=fFields, write=SetFieldCollection};
	__property bool ShowFields = {read=fShowFields, write=fShowFields, nodefault};
	__property bool ShowErrors = {read=fShowErrors, write=fShowErrors, nodefault};
	__property AnsiString UserID = {read=fUserID, write=fUserID};