sqldriverediteh.hpp

中式财务栏 表格式录入 运行时设置可显示列、列名、列宽

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

// (DO NOT EDIT: machine generated header) 'Sqldriverediteh.pas' rev: 10.00

#ifndef SqldrivereditehHPP
#define SqldrivereditehHPP

#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 <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <Dbgrideh.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <Dbctrlseh.hpp>	// Pascal unit
#include <Datadrivereh.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Memtableeh.hpp>	// Pascal unit
#include <Memtabledataeh.hpp>	// Pascal unit
#include <Sqleditframeeh.hpp>	// Pascal unit
#include <Ehlibvcl.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Stdactns.hpp>	// Pascal unit
#include <Actnlist.hpp>	// Pascal unit
#include <Toolwin.hpp>	// Pascal unit
#include <Gridseh.hpp>	// Pascal unit

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

namespace Sqldriverediteh
{
//-- type declarations -------------------------------------------------------
typedef TMetaClass* TCustomDBServiceClass;

class DELPHICLASS TSQLDataEditWin;
class DELPHICLASS TDesignDataBaseEh;
typedef DynamicArray<Variant >  TParamsArr;

class DELPHICLASS TCustomDBService;
class PASCALIMPLEMENTATION TDesignDataBaseEh : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
protected:
	Memtableeh::TMemTableEh* FTreeDataSet;
	void __fastcall RemoveFromDesignDataBaseList(void);
	virtual bool __fastcall GetConnected(void);
	virtual void __fastcall SetConnected(const bool Value);
	
public:
	__fastcall TDesignDataBaseEh(void);
	__fastcall virtual ~TDesignDataBaseEh(void);
	virtual bool __fastcall BuildObjectTree(Classes::TList* List);
	virtual bool __fastcall BuildUpdates(Datadrivereh::TCustomSQLDataDriverEh* DataDriver);
	virtual Datadrivereh::TCustomSQLDataDriverEh* __fastcall CreateDesignCopy(Datadrivereh::TCustomSQLDataDriverEh* RTDataDriver);
	virtual Db::TDataSet* __fastcall CreateReader(AnsiString SQL, TParamsArr FParams);
	virtual bool __fastcall DesignDataBaseConnetionEqual(Datadrivereh::TCustomSQLDataDriverEh* DataDriver);
	virtual int __fastcall Execute(Datadrivereh::TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof)/* overload */;
	virtual int __fastcall Execute(AnsiString SQLText, Datadrivereh::TSQLCommandTypeEh CommandType, const Variant &VarParams, Db::TDataSet* &Cursor)/* overload */;
	virtual AnsiString __fastcall GetEngineName();
	virtual AnsiString __fastcall GetServerTypeName();
	virtual bool __fastcall GetFieldList(const AnsiString TableName, Db::TDataSet* DataSet);
	virtual AnsiString __fastcall GetSpecParamsList();
	virtual bool __fastcall SupportCustomSQLDataDriver(void) = 0 ;
	virtual TCustomDBService* __fastcall GetCustomDBService(void);
	virtual Classes::TStrings* __fastcall GetIncrementObjectsList(void);
	virtual Db::TDataSet* __fastcall GetObjectTreeDataSet(void);
	virtual Memtableeh::TMemTableEh* __fastcall CreateTreeDataSet(void);
	void __fastcall mtDBTreeExpanding(System::TObject* Sender, int RecordNumber, bool &AllowExpansion);
	virtual void __fastcall BuildQueryPlan(Memtableeh::TMemTableEh* PlanTable, Datadrivereh::TCustomSQLCommandEh* Command);
	virtual void __fastcall EditDatabaseParams(void);
	virtual void __fastcall ResetDesignInfo(void);
	virtual void __fastcall AssignFromDesignDataDriver(Datadrivereh::TCustomSQLDataDriverEh* DesignDataDriver, Datadrivereh::TCustomSQLDataDriverEh* RuntimeDataDriver);
	virtual void __fastcall AssignToDesignDataDriver(Datadrivereh::TCustomSQLDataDriverEh* DesignDataDriver, Datadrivereh::TCustomSQLDataDriverEh* RuntimeDataDriver);
	__property bool Connected = {read=GetConnected, write=SetConnected, nodefault};
private:
	void *__IDesignDataBaseEh;	/* Datadrivereh::IDesignDataBaseEh */
	
public:
	operator IDesignDataBaseEh*(void) { return (IDesignDataBaseEh*)&__IDesignDataBaseEh; }
	
};


class DELPHICLASS TSQLTreeNode;
class DELPHICLASS TSQLTreeNodeTemplate;
struct TColumnAtribute;
typedef DynamicArray<TColumnAtribute >  TColumnAttributes;

struct TServicePopupParam;
typedef DynamicArray<TServicePopupParam >  TServicePopupParams;

class PASCALIMPLEMENTATION TSQLTreeNodeTemplate : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FName;
	AnsiString FMasterTemplateName;
	AnsiString FNodesMemTableName;
	DynamicArray<Variant >  FParams;
	TCustomDBService* FNodeManager;
	AnsiString FObjIdFieldName;
	AnsiString FInTreeTextFieldName;
	AnsiString FNodesFilter;
	AnsiString FNodesSQLClassName;
	DynamicArray<TColumnAtribute >  FColumnAttributes;
	Controls::TDragDropEvent FOnNodeDragDrop;
	DynamicArray<TServicePopupParam >  FNodeDropMenuParams;
	DynamicArray<TServicePopupParam >  FTableNodeDropMenuParams;
	bool FHasNodes;
	int FSelectedIndex;
	AnsiString FAdditionalLoadSQL;
	AnsiString FColumnAttributesStr;
	AnsiString FAdditionalFielsInfo;
	void __fastcall SetColumnAttributes(const AnsiString Value);
	
public:
	__fastcall TSQLTreeNodeTemplate(TCustomDBService* ANodeManager, AnsiString AName);
	__fastcall virtual ~TSQLTreeNodeTemplate(void);
	virtual TSQLTreeNode* __fastcall CreateNode(void);
	AnsiString __fastcall DropMenuNodeText(System::TObject* Sender);
	AnsiString __fastcall DropMenuNlCommaNodeText(System::TObject* Sender);
	AnsiString __fastcall DropMenuSelectAstFromName(System::TObject* Sender);
	AnsiString __fastcall DropMenuSelectAllFieldsFromName(System::TObject* Sender);
	AnsiString __fastcall DropDataSelectAllFieldsFromName(System::TObject* Sender);
	int __fastcall ShowPopup(System::TObject* Source, const Types::TPoint &Coord, TServicePopupParams Params);
	void __fastcall TableEditorDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	void __fastcall OnPopupClick(System::TObject* Sender);
	__property Controls::TDragDropEvent OnNodeDragDrop = {read=FOnNodeDragDrop, write=FOnNodeDragDrop};
	__property TServicePopupParams NodeDropMenuParams = {read=FNodeDropMenuParams, write=FNodeDropMenuParams};
	__property AnsiString NodesSQLClassName = {read=FNodesSQLClassName, write=FNodesSQLClassName};
	__property AnsiString MasterTemplateName = {read=FMasterTemplateName, write=FMasterTemplateName};
	__property AnsiString NodesMemTableName = {read=FNodesMemTableName, write=FNodesMemTableName};
	__property AnsiString ObjIdFieldName = {read=FObjIdFieldName, write=FObjIdFieldName};
	__property AnsiString InTreeTextFieldName = {read=FInTreeTextFieldName, write=FInTreeTextFieldName};
	__property bool HasNodes = {read=FHasNodes, write=FHasNodes, nodefault};
	__property AnsiString NodesFilter = {read=FNodesFilter, write=FNodesFilter};
	__property AnsiString ColumnAttributesStr = {read=FColumnAttributesStr, write=SetColumnAttributes};
	__property AnsiString AdditionalLoadSQL = {read=FAdditionalLoadSQL, write=FAdditionalLoadSQL};
	__property AnsiString AdditionalFielsInfo = {read=FAdditionalFielsInfo, write=FAdditionalFielsInfo};
};


class PASCALIMPLEMENTATION TSQLTreeNode : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Controls::TDragDropEvent FOnDragDrop;
	TSQLTreeNode* __fastcall GetSQLTreeNode(void);
	
public:
	AnsiString FFullName;
	int FImageIndex;
	Memtabledataeh::TMemoryRecordEh* FMemRec;
	AnsiString FName;
	Contnrs::TObjectList* FNodes;
	bool FNodesLoaded;
	AnsiString FNodesSelect;
	TSQLTreeNodeTemplate* FNodesTemplate;
	AnsiString FObjId;
	TSQLTreeNode* FParent;
	Memtableeh::TMemTableEh* FTable;
	AnsiString FTableFields;
	AnsiString FTableFilter;
	AnsiString FTypeId;
	bool FParentRecordToTableMode;
	DynamicArray<TServicePopupParam >  PopupParams;
	__fastcall TSQLTreeNode(void);
	__fastcall virtual ~TSQLTreeNode(void);
	void __fastcall AddChild(TSQLTreeNode* Node);
	Memtableeh::TMemTableEh* __fastcall GetTable(void);
	__property Controls::TDragDropEvent OnDragDrop = {read=FOnDragDrop, write=FOnDragDrop};
};


class PASCALIMPLEMENTATION TSQLDataEditWin : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Extctrls::TPanel* Panel1;
	Dbgrideh::TDBGridEh* DBGridEh1;
	Extctrls::TPanel* Panel2;
	Comctrls::TStatusBar* StatusBar1;
	Stdctrls::TButton* Button1;
	Stdctrls::TButton* Button2;
	Extctrls::TSplitter* Splitter1;
	Extctrls::TSplitter* Splitter3;
	Extctrls::TPanel* Panel6;
	Extctrls::TPanel* Panel7;
	Dbctrlseh::TDBEditEh* DBEditEh1;
	Buttons::TSpeedButton* sbRefreshTree;
	Memtableeh::TMemTableEh* MemTableEh1;
	Db::TDataSource* DataSource1;
	Memtableeh::TMemTableEh* mtParams;
	Db::TDataSource* dsParams;
	Db::TStringField* mtParamsParName;
	Db::TStringField* mtParamsParType;
	Db::TStringField* mtParamsParValue;
	Dbgrideh::TDBGridEh* gridTreeDetail;
	Memtableeh::TMemTableEh* mtTreeDetail;
	Db::TDataSource* dsTreeDetail;
	Extctrls::TSplitter* Splitter4;
	Extctrls::TPanel* Panel3;
	Comctrls::TPageControl* PageControl1;
	Comctrls::TTabSheet* TabSheet1;
	Extctrls::TSplitter* Splitter2;
	Extctrls::TPanel* PanelParams;
	Dbgrideh::TDBGridEh* gridParams;
	Extctrls::TPanel* Panel5;
	Stdctrls::TMemo* Memo1;
	Extctrls::TPanel* Panel8;
	Stdctrls::TButton* bExecute;
	Extctrls::TPanel* Panel9;
	Buttons::TSpeedButton* SpeedButton2;
	Comctrls::TTabSheet* TabSheet2;
	Sqleditframeeh::TSQLEditFrame* FrameInsertSQL;
	Comctrls::TTabSheet* TabSheet3;
	Sqleditframeeh::TSQLEditFrame* FrameUpdateSQL;
	Comctrls::TTabSheet* TabSheet4;