sqldriverediteh.hpp

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

	Sqleditframeeh::TSQLEditFrame* FrameDeleteSQL;
	Stdctrls::TButton* bBuildUpdates;
	Extctrls::TImage* Image1;
	Extctrls::TPanel* Panel4;
	Buttons::TSpeedButton* sbRefresh;
	Menus::TPopupMenu* PopupMenu1;
	Menus::TMenuItem* Ggg1;
	Dbgrideh::TDBGridEh* gridDBTree;
	Db::TDataSource* dsDBTree;
	Memtableeh::TMemTableEh* mtDBTree;
	Db::TStringField* mtDBTreeName;
	Db::TIntegerField* mtDBTreeChieldCount;
	Db::TStringField* mtDBTreeDescription;
	Db::TAutoIncField* mtDBTreeId;
	Db::TIntegerField* mtDBTreeRefParent;
	Stdctrls::TButton* bCheck;
	Stdctrls::TButton* bQueryPlan;
	Buttons::TSpeedButton* spCut;
	Buttons::TSpeedButton* sbCopy;
	Buttons::TSpeedButton* spPaste;
	Buttons::TSpeedButton* sbSelectAll;
	Actnlist::TActionList* ActionList1;
	Stdactns::TEditCut* EditCut1;
	Stdactns::TEditCopy* EditCopy1;
	Stdactns::TEditPaste* EditPaste1;
	Stdactns::TEditSelectAll* EditSelectAll1;
	Controls::TImageList* ImageList1;
	Controls::TImageList* ImageList2;
	Db::TIntegerField* mtDBTreeImageIndex;
	Comctrls::TTabSheet* TabSheet5;
	Sqleditframeeh::TSQLEditFrame* FrameGetRecSQL;
	Comctrls::TToolBar* ToolBar1;
	Comctrls::TToolButton* ToolButton1;
	Comctrls::TToolButton* ToolButton2;
	Comctrls::TToolButton* ToolButton3;
	Comctrls::TToolButton* ToolButton4;
	Comctrls::TTabSheet* tsSpecParams;
	Extctrls::TPanel* Panel11;
	Stdctrls::TLabel* Label1;
	Stdctrls::TLabel* Label2;
	Stdctrls::TMemo* MemoUpdateFields;
	Stdctrls::TMemo* MemoKeyFields;
	Extctrls::TBevel* Bevel1;
	Extctrls::TBevel* Bevel2;
	Dbctrlseh::TDBEditEh* dbeUpdateTable;
	Stdctrls::TLabel* Label3;
	Extctrls::TBevel* Bevel3;
	Stdctrls::TGroupBox* GroupBox1;
	Stdctrls::TCheckBox* cbDinaDeleteSQL;
	Stdctrls::TCheckBox* cbDinaInsertSQL;
	Stdctrls::TCheckBox* cbDinaUpdateSQL;
	Extctrls::TPanel* Panel12;
	Stdctrls::TMemo* mSpecParams;
	Extctrls::TPanel* Panel10;
	Stdctrls::TLabel* Label4;
	Extctrls::TBevel* Bevel4;
	Stdctrls::TButton* bLoadSpecString;
	Extctrls::TBevel* Bevel5;
	Memtableeh::TRefObjectField* mtDBTreeRefData;
	void __fastcall sbRefreshTreeClick(System::TObject* Sender);
	void __fastcall bExecuteClick(System::TObject* Sender);
	void __fastcall sbHideShowClick(System::TObject* Sender);
	void __fastcall Splitter2CanResize(System::TObject* Sender, int &NewSize, bool &Accept);
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall bBuildUpdatesClick(System::TObject* Sender);
	void __fastcall MemTableEh1AfterOpen(Db::TDataSet* DataSet);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall Memo1Exit(System::TObject* Sender);
	void __fastcall Memo1Enter(System::TObject* Sender);
	void __fastcall sbRefreshClick(System::TObject* Sender);
	void __fastcall DBEditEh1EditButtons0Click(System::TObject* Sender, bool &Handled);
	void __fastcall DBEditEh1EditButtons1Click(System::TObject* Sender, bool &Handled);
	void __fastcall Memo1DragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState State, bool &Accept);
	void __fastcall Memo1DragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	void __fastcall Ggg1Click(System::TObject* Sender);
	void __fastcall dsDBTreeDataChange(System::TObject* Sender, Db::TField* Field);
	void __fastcall gridDBTreeMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall gridDBTreeStartDrag(System::TObject* Sender, Controls::TDragObject* &DragObject);
	void __fastcall bQueryPlanClick(System::TObject* Sender);
	void __fastcall gridDBTreeColumns0GetCellParams(System::TObject* Sender, bool EditMode, Dbgrideh::TColCellParamsEh* Params);
	void __fastcall bLoadSpecStringClick(System::TObject* Sender);
	void __fastcall FormClose(System::TObject* Sender, Forms::TCloseAction &Action);
	void __fastcall gridParamsColumns0UpdateData(System::TObject* Sender, AnsiString &Text, Variant &Value, bool &UseText, bool &Handled);
	
private:
	int FCharHeight;
	Controls::TControlCanvas* FSQLCanvas;
	Datadrivereh::TCustomSQLDataDriverEh* FDesignDriver;
	Datadrivereh::TCustomSQLDataDriverEh* FDataDriver;
	TDesignDataBaseEh* FDesignDataBase;
	void __fastcall SetDesignDataBase(const TDesignDataBaseEh* Value);
	void __fastcall DrawCaretPosIndicator(void);
	__property Datadrivereh::TCustomSQLDataDriverEh* DesignDriver = {read=FDesignDriver, write=FDesignDriver};
	void __fastcall SetObjectTreeParams(void);
	void __fastcall ResetObjectTreeParams(void);
	int __fastcall ExecuteCommand(Datadrivereh::TCustomSQLDataDriverEh* DataDriver, Datadrivereh::TCustomSQLCommandEh* Command, Db::TDataSet* &Cursor, bool &FreeOnEof);
	void __fastcall DesignDatabaseChanged(void);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
public:
	int Panel3Width;
	TSQLTreeNode* DragSQLTreeNode;
	bool mtDBTreeLoading;
	__fastcall virtual ~TSQLDataEditWin(void);
	void __fastcall AssignToDesignDriver(void);
	void __fastcall AssignToDesignControls(void);
	void __fastcall mtDBTreeExpanding(System::TObject* Sender, int RecordNumber, bool &AllowExpansion);
	void __fastcall gridTreeDetailColumns0GetCellParams(System::TObject* Sender, bool EditMode, Dbgrideh::TColCellParamsEh* Params);
	__property Datadrivereh::TCustomSQLDataDriverEh* DataDriver = {read=FDataDriver, write=FDataDriver};
	__property TDesignDataBaseEh* DesignDataBase = {read=FDesignDataBase, write=SetDesignDataBase};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TSQLDataEditWin(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TSQLDataEditWin(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSQLDataEditWin(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


typedef TMetaClass* TDesignDataBaseClassEh;

class DELPHICLASS TAccessEngineEh;
class PASCALIMPLEMENTATION TAccessEngineEh : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	virtual AnsiString __fastcall AccessEngineName(void) = 0 ;
	virtual TDesignDataBaseEh* __fastcall CreateDesignDataBase(Datadrivereh::TCustomSQLDataDriverEh* DataDriver, TMetaClass* DBServiceClass, AnsiString DataBaseName) = 0 ;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TAccessEngineEh(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TAccessEngineEh(void) { }
	#pragma option pop
	
};


struct TColumnAtribute
{
	
public:
	AnsiString FieldName;
	AnsiString Title;
	int Width;
} ;

struct TFieldAtribute
{
	
public:
	AnsiString FieldName;
	Memtabledataeh::TMTDataFieldEh* FieldType;
	int Size;
} ;

typedef AnsiString __fastcall (__closure *TGetTextEvent)(System::TObject* Sender);

struct TServicePopupParam
{
	
public:
	AnsiString Text;
	Classes::TNotifyEvent OnSelect;
	TGetTextEvent OnGetMenuText;
	TGetTextEvent OnGetDataText;
} ;

typedef DynamicArray<TFieldAtribute >  TFieldAtributesEh;

class DELPHICLASS TDesignUpdateParamsEh;
class PASCALIMPLEMENTATION TDesignUpdateParamsEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FIncremenField;
	AnsiString FIncremenObject;
	AnsiString FTableName;
	Classes::TStrings* FKeyFields;
	Classes::TStrings* FUpdateFields;
	Classes::TStrings* FSelectSQL;
	void __fastcall SetKeyFields(const Classes::TStrings* Value);
	void __fastcall SetUpdateFields(const Classes::TStrings* Value);
	void __fastcall SetSelectSQL(const Classes::TStrings* Value);
	
public:
	__fastcall TDesignUpdateParamsEh(void);
	__fastcall virtual ~TDesignUpdateParamsEh(void);
	__property AnsiString TableName = {read=FTableName, write=FTableName};
	__property AnsiString IncremenField = {read=FIncremenField, write=FIncremenField};
	__property AnsiString IncremenObject = {read=FIncremenObject, write=FIncremenObject};
	__property Classes::TStrings* KeyFields = {read=FKeyFields, write=SetKeyFields};
	__property Classes::TStrings* UpdateFields = {read=FUpdateFields, write=SetUpdateFields};
	__property Classes::TStrings* SelectSQL = {read=FSelectSQL, write=SetSelectSQL};
};


class DELPHICLASS TDesignUpdateInfoEh;
class PASCALIMPLEMENTATION TDesignUpdateInfoEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FTableName;
	Classes::TStrings* FDeleteSQL;
	Classes::TStrings* FGetRecSQL;
	Classes::TStrings* FUpdateSQL;
	Classes::TStrings* FInsertSQL;
	Classes::TStrings* FSpecParams;
	Classes::TStrings* FUpdateFields;
	Classes::TStrings* FKeyFields;
	void __fastcall SetDeleteSQL(const Classes::TStrings* Value);
	void __fastcall SetGetRecSQL(const Classes::TStrings* Value);
	void __fastcall SetUpdateSQL(const Classes::TStrings* Value);
	void __fastcall SetInsertSQL(const Classes::TStrings* Value);
	void __fastcall SetSpecParams(const Classes::TStrings* Value);
	void __fastcall SetKeyFields(const Classes::TStrings* Value);
	void __fastcall SetUpdateFields(const Classes::TStrings* Value);
	
public:
	__fastcall TDesignUpdateInfoEh(void);
	__fastcall virtual ~TDesignUpdateInfoEh(void);
	__property AnsiString TableName = {read=FTableName, write=FTableName};
	__property Classes::TStrings* DeleteSQL = {read=FDeleteSQL, write=SetDeleteSQL};
	__property Classes::TStrings* InsertSQL = {read=FInsertSQL, write=SetInsertSQL};
	__property Classes::TStrings* UpdateSQL = {read=FUpdateSQL, write=SetUpdateSQL};
	__property Classes::TStrings* GetRecSQL = {read=FGetRecSQL, write=SetGetRecSQL};
	__property Classes::TStrings* SpecParams = {read=FSpecParams, write=SetSpecParams};
	__property Classes::TStrings* UpdateFields = {read=FUpdateFields, write=SetUpdateFields};