wwfltdlg.hpp

来自「胜天进销存源码,国产优秀的进销存」· HPP 代码 · 共 563 行 · 第 1/2 页

	__property AnsiString LikeWildcardChar = {read=FLikeWildcardChar, write=FLikeWildcardChar};
	__property bool LikeSupportsUpperKeyword = {read=FLikeSupportsUpperKeyword, write=FLikeSupportsUpperKeyword, default=0};
	__property bool UseBracketsAroundFields = {read=FUseBracketsAroundFields, write=FUseBracketsAroundFields, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwFilterPropertyOptions(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwwFilterPropertyOptions(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TwwFieldOperators;
class PASCALIMPLEMENTATION TwwFieldOperators : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FOrChar;
	AnsiString FAndChar;
	AnsiString FNullChar;
	void __fastcall SetOrChar(AnsiString val);
	void __fastcall SetAndChar(AnsiString val);
	void __fastcall SetNullChar(AnsiString val);
	void __fastcall SetOpChar(AnsiString &opchar, AnsiString val);
	
public:
	__fastcall TwwFieldOperators(Classes::TComponent* Owner);
	
__published:
	__property AnsiString OrChar = {read=FOrChar, write=SetOrChar};
	__property AnsiString AndChar = {read=FAndChar, write=SetAndChar};
	__property AnsiString NullChar = {read=FNullChar, write=SetNullChar};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwFieldOperators(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwSQLTablesCollectionItem;
class PASCALIMPLEMENTATION TwwSQLTablesCollectionItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString FTableName;
	AnsiString FTableAliasName;
	
protected:
	virtual AnsiString __fastcall GetDisplayName();
	
__published:
	__property AnsiString TableName = {read=FTableName, write=FTableName};
	__property AnsiString TableAliasName = {read=FTableAliasName, write=FTableAliasName};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TwwSQLTablesCollectionItem(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TwwSQLTablesCollectionItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwSQLTablesCollection;
class PASCALIMPLEMENTATION TwwSQLTablesCollection : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
protected:
	Classes::TComponent* Control;
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TwwSQLTablesCollection(Classes::TComponent* Control);
	HIDESBASE TwwSQLTablesCollectionItem* __fastcall Add(void);
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TwwSQLTablesCollection(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TwwOnFilterPropertyOption { fdClearWhenNoCriteria, fdClearWhenCloseDataSet };
#pragma option pop

typedef Set<TwwOnFilterPropertyOption, fdClearWhenNoCriteria, fdClearWhenCloseDataSet>  TwwOnFilterPropertyOptions;

#pragma option push -b-
enum TwwFilterDialogRoundingMethod { fdrmFixed, fdrmRelative };
#pragma option pop

class DELPHICLASS TwwFilterDialogRounding;
class PASCALIMPLEMENTATION TwwFilterDialogRounding : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	double FEpsilon;
	TwwFilterDialogRoundingMethod FRoundingMethod;
	
public:
	__fastcall TwwFilterDialogRounding(Classes::TComponent* Owner);
	
__published:
	__property double Epsilon = {read=FEpsilon, write=FEpsilon};
	__property TwwFilterDialogRoundingMethod RoundingMethod = {read=FRoundingMethod, write=FRoundingMethod, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TwwFilterDialogRounding(void) { }
	#pragma option pop
	
};


class DELPHICLASS TwwFilterDialog;
class PASCALIMPLEMENTATION TwwFilterDialog : public Wwdialog::TwwCustomDialog 
{
	typedef Wwdialog::TwwCustomDialog inherited;
	
private:
	Db::TDataLink* FDataLink;
	TwwFilterDialogOptions FOptions;
	TwwFilterDialogSort FSortBy;
	Wwfltdum::TwwDummyForm* FDummyForm;
	AnsiString FTitle;
	TwwFilterMethodAll FFilterMethod;
	TwwFilterMatchType FDefaultMatchType;
	TwwDefaultFilterBy FDefaultFilterBy;
	AnsiString FDefaultField;
	Classes::TStrings* FSelectedFields;
	TwwOnInitFilterDlgEvent FOnInitDialog;
	TwwOnExecuteSQLEvent FOnExecuteSQL;
	TwwFieldOperators* FwwOperators;
	TwwFilterDialogRounding* FRounding;
	bool FRangeApplied;
	TwwFilterOptimization FFilterOptimization;
	Word FUpperRangePadChar;
	int FDlgHeight;
	TwwOnEncodeValueEvent FOnEncodeValue;
	TwwOnEncodeDateTimeEvent FOnEncodeDateTime;
	TwwOnSelectFilterField FOnSelectField;
	TwwOnInitTempDataSetEvent FOnInitTempDataSet;
	TwwOnAcceptFilterRecord FOnAcceptFilterRecord;
	TwwFilterFieldsFetchType FFieldsFetchMethod;
	TwwFilterDialogSummaryEvent FOnDialogSummary;
	Classes::TStrings* FOrigSQL;
	Classes::TList* FFldList;
	bool FShowDialog;
	Classes::TList* FDependentComponents;
	TwwQueryFormatDateMode FQueryFormatDateMode;
	TwwFilterPropertyOptions* FFilterPropertyOptions;
	TwwOnFilterPropertyOptions FOnFilterPropertyOptions;
	TwwSQLTablesCollection* FSQLTables;
	AnsiString FSQLUpperString;
	bool SkipClearFieldInfo;
	AnsiString FSQLPropertyName;
	void __fastcall SetDataSource(Db::TDataSource* value);
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetFilterMethod(TwwFilterMethod val);
	void __fastcall ReplaceRemoteSQL(Classes::TStrings* querySQL);
	AnsiString __fastcall PadUpperRange(int size, AnsiString val);
	void __fastcall SetDlgHeight(int val);
	AnsiString __fastcall GetEffectiveSQLUpperString();
	
protected:
	virtual void __fastcall FilterDialogView(Classes::TList* AFieldInfo);
	virtual AnsiString __fastcall GetSQLPropertyname();
	virtual void __fastcall DoInitDialog(void);
	TwwDBFieldInfo* __fastcall AddDBFieldInfo(void);
	virtual void __fastcall LinkActive(bool active);
	virtual void __fastcall DoSelectField(AnsiString FieldName, AnsiString &PictureMask, Classes::TStrings* ComboList);
	virtual void __fastcall DoInitTempDataSet(Db::TDataSet* OrigDataSet, Db::TDataSet* TempDataset);
	virtual void __fastcall DoAcceptFilterRecord(Db::TDataSet* DataSet, bool &Accept, bool &DefaultFiltering);
	virtual void __fastcall InitQueryFields(void);
	virtual void __fastcall InitTableFields(void);
	virtual void __fastcall ReplaceWhereClause(Classes::TStrings* whereClause);
	virtual Db::TDataSet* __fastcall GetCommandTextDataSet(Db::TDataSet* ADataSet = (Db::TDataSet*)(0x0));
	bool __fastcall IsWideSql(Db::TDataSet* dataSet, Typinfo::PPropInfo propInfo);
	
public:
	char *MemoBuffer;
	TwwFilterDlg* Form;
	Classes::TList* FieldInfo;
	bool FieldsInDblQuotes;
	Variant Patch;
	Classes::TStringList* SQLWhereClause;
	__fastcall virtual TwwFilterDialog(Classes::TComponent* AOwner);
	__fastcall virtual ~TwwFilterDialog(void);
	bool __fastcall ExecuteDialog(bool ExecuteQuery = true, Classes::TStrings* ReturnWhereClause = (Classes::TStrings*)(0x0));
	virtual bool __fastcall Execute(void);
	virtual Db::TDataSet* __fastcall GetPrimaryDataSet(void);
	void __fastcall ApplyFilter(void);
	void __fastcall ClearFilter(void);
	virtual void __fastcall InitFields(void);
	__property Classes::TList* AllFields = {read=FFldList};
	__property bool ShowDialog = {read=FShowDialog, write=FShowDialog, nodefault};
	TwwDBFieldInfo* __fastcall GetDBInfoForField(AnsiString AFilterFieldName);
	void __fastcall AddDependent(Classes::TComponent* value);
	void __fastcall RemoveDependent(Classes::TComponent* value);
	TwwFieldInfo* __fastcall AddFieldInfo(void);
	
__published:
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property TwwFilterDialogSummaryEvent OnDialogSummary = {read=FOnDialogSummary, write=FOnDialogSummary};
	__property TwwFilterDialogOptions Options = {read=FOptions, write=FOptions, default=62};
	__property TwwFilterDialogSort SortBy = {read=FSortBy, write=FSortBy, nodefault};
	__property AnsiString Caption = {read=FTitle, write=FTitle};
	__property TwwFilterMethod FilterMethod = {read=FFilterMethod, write=SetFilterMethod, nodefault};
	__property TwwDefaultMatchType DefaultMatchType = {read=FDefaultMatchType, write=FDefaultMatchType, nodefault};
	__property TwwDefaultFilterBy DefaultFilterBy = {read=FDefaultFilterBy, write=FDefaultFilterBy, nodefault};
	__property AnsiString DefaultField = {read=FDefaultField, write=FDefaultField};
	__property TwwFilterFieldsFetchType FieldsFetchMethod = {read=FFieldsFetchMethod, write=FFieldsFetchMethod, default=0};
	__property TwwFieldOperators* FieldOperators = {read=FwwOperators, write=FwwOperators};
	__property TwwFilterDialogRounding* Rounding = {read=FRounding, write=FRounding};
	__property TwwFilterPropertyOptions* FilterPropertyOptions = {read=FFilterPropertyOptions, write=FFilterPropertyOptions};
	__property TwwOnFilterPropertyOptions OnFilterPropertyOptions = {read=FOnFilterPropertyOptions, write=FOnFilterPropertyOptions, default=3};
	__property Classes::TStrings* SelectedFields = {read=FSelectedFields, write=FSelectedFields};
	__property TwwFilterOptimization FilterOptimization = {read=FFilterOptimization, write=FFilterOptimization, nodefault};
	__property Word UpperRangePadChar = {read=FUpperRangePadChar, write=FUpperRangePadChar, default=122};
	__property int DlgHeight = {read=FDlgHeight, write=SetDlgHeight, default=267};
	__property TwwQueryFormatDateMode QueryFormatDateMode = {read=FQueryFormatDateMode, write=FQueryFormatDateMode, nodefault};
	__property TwwSQLTablesCollection* SQLTables = {read=FSQLTables, write=FSQLTables};
	__property AnsiString SQLUpperString = {read=FSQLUpperString, write=FSQLUpperString};
	__property AnsiString SQLPropertyName = {read=FSQLPropertyName, write=FSQLPropertyName};
	__property TwwOnInitFilterDlgEvent OnInitDialog = {read=FOnInitDialog, write=FOnInitDialog};
	__property TwwOnExecuteSQLEvent OnExecuteSQL = {read=FOnExecuteSQL, write=FOnExecuteSQL};
	__property TwwOnEncodeValueEvent OnEncodeValue = {read=FOnEncodeValue, write=FOnEncodeValue};
	__property TwwOnEncodeDateTimeEvent OnEncodeDateTime = {read=FOnEncodeDateTime, write=FOnEncodeDateTime};
	__property TwwOnSelectFilterField OnSelectField = {read=FOnSelectField, write=FOnSelectField};
	__property TwwOnInitTempDataSetEvent OnInitTempDataSet = {read=FOnInitTempDataSet, write=FOnInitTempDataSet};
	__property TwwOnAcceptFilterRecord OnAcceptFilterRecord = {read=FOnAcceptFilterRecord, write=FOnAcceptFilterRecord};
};


class DELPHICLASS TwwFilterDataLink;
class PASCALIMPLEMENTATION TwwFilterDataLink : public Db::TDataLink 
{
	typedef Db::TDataLink inherited;
	
private:
	TwwFilterDialog* FilterDialog;
	
protected:
	virtual void __fastcall ActiveChanged(void);
	
public:
	__fastcall TwwFilterDataLink(TwwFilterDialog* AFilterDialog);
public:
	#pragma option push -w-inl
	/* TDataLink.Destroy */ inline __fastcall virtual ~TwwFilterDataLink(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TwwFilterDlg* wwFilterDlg;
extern PACKAGE void __fastcall Register(void);
extern PACKAGE AnsiString __fastcall wwGetFilterToken(AnsiString FilterValue, AnsiString SearchDelimiter, int &CurPos);
extern PACKAGE AnsiString __fastcall wwGetFilterOperator(AnsiString FilterValue, TwwFieldOperators* FilterOperator, bool &OrFlg, bool &AndFlg);
extern PACKAGE AnsiString __fastcall wwPadUpperRange(int size, AnsiString s, Word UpperRangePadChar);

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

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