rmd_qrydesigner.hpp

这是一个功能强大

	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMQBTable(HWND ParentWindow) : Extctrls::TPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMQBLink;
class PASCALIMPLEMENTATION TRMQBLink : public Extctrls::TShape 
{
	typedef Extctrls::TShape inherited;
	
private:
	TRMQBTable* Tbl1;
	TRMQBTable* Tbl2;
	int FldN1;
	int FldN2;
	AnsiString FldNam1;
	AnsiString FldNam2;
	int FLinkOpt;
	int FLinkType;
	Byte LnkX;
	Byte LnkY;
	HRGN Rgn;
	Menus::TPopupMenu* FPopMenu;
	void __fastcall _Click(int X, int Y);
	HIDESBASE MESSAGE void __fastcall CMHitTest(Messages::TWMNCHitTest &Message);
	Controls::TControl* __fastcall ControlAtPos(const Types::TPoint &Pos);
	
public:
	__fastcall virtual TRMQBLink(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMQBLink(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	virtual void __fastcall Paint(void);
};


class DELPHICLASS TRMQBArea;
class PASCALIMPLEMENTATION TRMQBArea : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
public:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	void __fastcall SetOptions(System::TObject* Sender);
	void __fastcall InsertTable(int X, int Y);
	TRMQBLink* __fastcall InsertLink(TRMQBTable* _tbl1, TRMQBTable* _tbl2, int _fldN1, int _fldN2);
	TRMQBTable* __fastcall FindTable(AnsiString TableName);
	bool __fastcall FindLink(TRMQBLink* Link);
	bool __fastcall FindOtherLink(TRMQBLink* Link, TRMQBTable* Tbl, int FldN);
	void __fastcall ReboundLink(TRMQBLink* Link);
	void __fastcall ReboundLinks4Table(TRMQBTable* ATable);
	void __fastcall Unlink(System::TObject* Sender);
	void __fastcall UnlinkTable(TRMQBTable* ATable);
	void __fastcall _DragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState State, bool &Accept);
	void __fastcall _DragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
public:
	#pragma option push -w-inl
	/* TScrollBox.Create */ inline __fastcall virtual TRMQBArea(Classes::TComponent* AOwner) : Forms::TScrollBox(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TScrollingWinControl.Destroy */ inline __fastcall virtual ~TRMQBArea(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMQBArea(HWND ParentWindow) : Forms::TScrollBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMDQueryDesignerForm;
class PASCALIMPLEMENTATION TRMDQueryDesignerForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Extctrls::TPanel* pnlButtons;
	Extctrls::TPanel* Panel1;
	Comctrls::TPageControl* pgcDesigner;
	Comctrls::TTabSheet* TabSheetFields;
	Comctrls::TTabSheet* TabSheetCalc;
	Comctrls::TTabSheet* TabSheetSQL;
	Extctrls::TSplitter* VSplitter;
	Extctrls::TImage* Image1;
	Controls::TImageList* ImageList1;
	Stdctrls::TComboBox* cmbCalc;
	Extctrls::TPanel* Panel3;
	Buttons::TSpeedButton* FieldsB;
	Buttons::TSpeedButton* ParamsB;
	Comctrls::TTabSheet* TabSheetGroup;
	Comctrls::TTabSheet* TabSheetSort;
	Stdctrls::TEdit* edtExpr;
	Extctrls::TPanel* Panel5;
	Buttons::TSpeedButton* btnAddGroup;
	Buttons::TSpeedButton* btnDeleteGroup;
	Extctrls::TPanel* pnlGroupLeft;
	Extctrls::TPanel* Panel6;
	Extctrls::TPanel* Panel7;
	Stdctrls::TListBox* lstGroupLeft;
	Stdctrls::TListBox* lstGroupRight;
	Extctrls::TPanel* pnlSortLeft;
	Extctrls::TPanel* Panel9;
	Stdctrls::TListBox* lstSortLeft;
	Extctrls::TPanel* Panel10;
	Buttons::TSpeedButton* btnAddSort;
	Buttons::TSpeedButton* btnDeleteSort;
	Extctrls::TPanel* Panel11;
	Extctrls::TPanel* Panel12;
	Buttons::TSpeedButton* btnSortAsc;
	Buttons::TSpeedButton* btnSortDec;
	Extctrls::TPanel* Panel4;
	Extctrls::TPanel* Panel13;
	Stdctrls::TLabel* Label7;
	Extctrls::TPanel* Panel14;
	Buttons::TSpeedButton* SpeedButton5;
	Buttons::TSpeedButton* SpeedButton6;
	Comctrls::TListView* lsvSortRight;
	Extctrls::TPanel* Panel8;
	Extctrls::TPanel* Panel15;
	Extctrls::TPanel* Panel17;
	Buttons::TSpeedButton* SpeedButton1;
	Buttons::TSpeedButton* SpeedButton2;
	Menus::TPopupMenu* pmnSQLMemo;
	Menus::TMenuItem* padModifySQL;
	Extctrls::TBevel* Bevel2;
	Extctrls::TBevel* Bevel1;
	Buttons::TSpeedButton* btnOK;
	Buttons::TSpeedButton* btnCancel;
	Buttons::TSpeedButton* btnNew;
	Buttons::TSpeedButton* btnLoadFromFile;
	Buttons::TSpeedButton* btnSaveToFile;
	Dialogs::TOpenDialog* OpenDialog1;
	Dialogs::TSaveDialog* SaveDialog1;
	Extctrls::TPanel* Panel16;
	Stdctrls::TListBox* lsbTables;
	Extctrls::TPanel* Panel18;
	Stdctrls::TComboBox* cmbDatabase;
	Extctrls::TSplitter* Splitter1;
	Extctrls::TPanel* Panel2;
	Buttons::TSpeedButton* btnModifySQL;
	void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall FieldsBClick(System::TObject* Sender);
	void __fastcall ParamsBClick(System::TObject* Sender);
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall lsbTablesDrawItem(Controls::TWinControl* Control, int Index, const Types::TRect &ARect, Windows::TOwnerDrawState State);
	void __fastcall cmbCalcChange(System::TObject* Sender);
	void __fastcall edtExprKeyPress(System::TObject* Sender, char &Key);
	void __fastcall edtExprExit(System::TObject* Sender);
	void __fastcall pgcDesignerChange(System::TObject* Sender);
	void __fastcall TabSheetGroupResize(System::TObject* Sender);
	void __fastcall TabSheetSortResize(System::TObject* Sender);
	void __fastcall lstGroupLeftDblClick(System::TObject* Sender);
	void __fastcall lstGroupRightDblClick(System::TObject* Sender);
	void __fastcall lstSortLeftDblClick(System::TObject* Sender);
	void __fastcall lsvSortRightDblClick(System::TObject* Sender);
	void __fastcall btnSortAscClick(System::TObject* Sender);
	void __fastcall btnSortDecClick(System::TObject* Sender);
	void __fastcall SpeedButton6Click(System::TObject* Sender);
	void __fastcall SpeedButton5Click(System::TObject* Sender);
	void __fastcall SpeedButton2Click(System::TObject* Sender);
	void __fastcall SpeedButton1Click(System::TObject* Sender);
	void __fastcall padModifySQLClick(System::TObject* Sender);
	void __fastcall btnCancelClick(System::TObject* Sender);
	void __fastcall btnLoadFromFileClick(System::TObject* Sender);
	void __fastcall btnSaveToFileClick(System::TObject* Sender);
	void __fastcall btnOKClick(System::TObject* Sender);
	void __fastcall Panel18Resize(System::TObject* Sender);
	void __fastcall lsbTablesDblClick(System::TObject* Sender);
	void __fastcall cmbDatabaseChange(System::TObject* Sender);
	void __fastcall btnNewClick(System::TObject* Sender);
	
private:
	Rmd_dbwrap::TRMDQuery* FQuery;
	AnsiString FSaveSQL;
	bool FSaveEditSQLAsText;
	Classes::TStringList* FSaveVisualSQL;
	AnsiString FSaveDatabase;
	Rm_designer::TRMSynEditor* SQLMemo;
	TRMQBFieldListView* FFieldListView;
	TRMQBCalcListView* FCalcListView;
	void __fastcall ApplySettings(void);
	void __fastcall ClearAll(void);
	void __fastcall SetQuery(Rmd_dbwrap::TRMDQuery* Value);
	void __fastcall DecodeVisualSQL(void);
	void __fastcall SaveVisualSQL(void);
	void __fastcall SetEditSQLAsText(void);
	void __fastcall Localize(void);
	
protected:
	TRMQBArea* QBArea;
	
public:
	__property Rmd_dbwrap::TRMDQuery* Query = {read=FQuery, write=SetQuery};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TRMDQueryDesignerForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TRMDQueryDesignerForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TRMDQueryDesignerForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMDQueryDesignerForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


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

}	/* namespace Rmd_qrydesigner */
using namespace Rmd_qrydesigner;
#pragma pack(pop)
#pragma option pop

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