wwcommon.hpp

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

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

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

#ifndef WwcommonHPP
#define WwcommonHPP

#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 <Classes.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Wwstr.hpp>	// Pascal unit
#include <Dbtables.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Wwtypes.hpp>	// Pascal unit
#include <Wwlocate.hpp>	// Pascal unit
#include <Wwstorep.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Bde.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit

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

namespace Wwcommon
{
//-- type declarations -------------------------------------------------------
typedef AnsiString wwSmallString;

//-- var, const, procedure ---------------------------------------------------
#define WW_DB_COMBO "Combo"
#define WW_DB_LOOKUP_COMBO "LookupCombo"
#define WW_DB_EDIT "CustomEdit"
#define WW_DB_RICHEDIT "RichEdit"
extern PACKAGE Wwtypes::TwwInvalidValueEvent __fastcall wwGetOnInvalidValue(Db::TDataSet* DataSet);
extern PACKAGE Wwtypes::TwwPerformSearchEvent __fastcall wwGetOnPerformCustomSearch(Classes::TComponent* Component);
extern PACKAGE System::TMethod __fastcall wwGetCalcCellColorsEvent(Controls::TWinControl* Grid);
extern PACKAGE Classes::TComponent* __fastcall wwGetPictureControl(Classes::TComponent* Control, Db::TDataSet* DataSet = (Db::TDataSet*)(0x0));
extern PACKAGE Classes::TComponent* __fastcall wwGetControlTypeControl(Classes::TComponent* Control, Db::TDataSet* DataSet = (Db::TDataSet*)(0x0));
extern PACKAGE Classes::TStrings* __fastcall wwGetStrings(Classes::TComponent* Component, AnsiString PropertyName);
extern PACKAGE Classes::TStrings* __fastcall wwGetPictureMasks(Classes::TComponent* DataSet);
extern PACKAGE Classes::TStrings* __fastcall wwGetRegexMasks(Classes::TComponent* DataSet);
extern PACKAGE Classes::TStrings* __fastcall wwGetControlType(Classes::TComponent* dataSet);
extern PACKAGE int __fastcall wwGetCommandType(Db::TDataSet* DataSet);
extern PACKAGE int __fastcall wwGetDatabaseCursorType(Db::TDataSet* DataSet);
extern PACKAGE bool __fastcall wwSetDatabaseCursorType(Db::TDataSet* DataSet, int val);
extern PACKAGE bool __fastcall wwSetDatabaseMaxRecords(Db::TDataSet* DataSet, int val);
extern PACKAGE bool __fastcall wwGetValidateWithMask(Db::TDataSet* dataSet);
extern PACKAGE bool __fastcall wwGetControlInfoInDataSet(Classes::TComponent* component);
extern PACKAGE bool __fastcall wwGetPictureMaskFromDataSet(Classes::TComponent* Component);
extern PACKAGE Classes::TStrings* __fastcall wwGetLookupFields(Db::TDataSet* dataSet);
extern PACKAGE Classes::TStrings* __fastcall wwGetLookupLinks(Db::TDataSet* dataSet);
extern PACKAGE AnsiString __fastcall wwDataSetGetLinks(Db::TDataSet* dataSet, AnsiString lookupFieldName);
extern PACKAGE AnsiString __fastcall wwDataSetGetDisplayField(Db::TDataSet* dataSet, AnsiString lookupFieldName);
extern PACKAGE AnsiString __fastcall wwGetDatabaseName(Db::TDataSet* dataSet);
extern PACKAGE Classes::TComponent* __fastcall wwGetConnection(Db::TDataSet* dataSet);
extern PACKAGE AnsiString __fastcall wwGetConnectionString(Db::TDataSet* dataSet);
extern PACKAGE Classes::TComponent* __fastcall wwGetIBDatabase(Db::TDataSet* dataSet);
extern PACKAGE bool __fastcall wwSetIBDatabase(Db::TDataSet* Dataset, Classes::TComponent* db);
extern PACKAGE bool __fastcall wwGetAlwaysTransparent(Controls::TControl* ctrl);
extern PACKAGE AnsiString __fastcall wwGetTableName(Db::TDataSet* dataSet);
extern PACKAGE bool __fastcall wwDataSetIsValidField(Classes::TComponent* dataset, AnsiString fieldName);
extern PACKAGE void __fastcall wwDataSetUpdateFieldProperties(Db::TDataSet* dataSet, Classes::TStrings* selected);
extern PACKAGE bool __fastcall wwDataSet(Db::TDataSet* dataSet);
extern PACKAGE void __fastcall wwDebug(AnsiString s);
extern PACKAGE bool __fastcall wwDataSetLookupDisplayField(Db::TField* curField, AnsiString &LookupValue, Db::TField* &DisplayField);
extern PACKAGE bool __fastcall wwDoLookupTable(Dbtables::TTable* ALookupTable, Db::TDataSet* DataSet, Classes::TStrings* links);
extern PACKAGE bool __fastcall wwisNonBDEField(Db::TField* thisField);
extern PACKAGE bool __fastcall wwisNonPhysicalField(Db::TField* thisField);
extern PACKAGE void __fastcall wwConvertFieldToParam(Db::TField* OtherField, Db::TParam* &AFilterParam, char * AFilterFieldBuffer);
extern PACKAGE Db::TField* __fastcall wwDataSet_GetFilterLookupField(Db::TDataSet* dataSet, Db::TField* curfield, const System::TMethod &AMethod);
extern PACKAGE bool __fastcall wwSetLookupField(Db::TDataSet* dataSet, Db::TField* linkedField);
extern PACKAGE void __fastcall wwDataSetDoOnCalcFields(Db::TDataSet* dataSet, Classes::TStrings* FLookupFields, Classes::TStrings* FLookupLinks, Classes::TList* lookupTables);
extern PACKAGE bool __fastcall wwDataSetSyncLookupTable(Db::TDataSet* dataSet, Db::TDataSet* AlookupTable, AnsiString lookupFieldName, AnsiString &fromField);
extern PACKAGE void __fastcall wwDataSet_GetControl(Classes::TComponent* dataSet, AnsiString AFieldName, AnsiString &AControlType, AnsiString &AParameters);
extern PACKAGE void __fastcall wwDataSetRemoveObsolete(Classes::TComponent* dataSet, Classes::TStrings* FLookupFields, Classes::TStrings* FLookupLinks, Classes::TStrings* FControlType);
extern PACKAGE void __fastcall wwDataSet_SetControl(Classes::TComponent* dataSet, AnsiString AFieldName, AnsiString AComponentType, AnsiString AParameters);
extern PACKAGE bool __fastcall wwFieldIsValidValue(Db::TField* fld, AnsiString key);
extern PACKAGE bool __fastcall wwFieldIsValidLocateValue(Db::TField* fld, AnsiString key);
extern PACKAGE bool __fastcall wwIsValidValue(Db::TFieldType FldType, AnsiString key);
extern PACKAGE bool __fastcall wwTableFindNearest(Db::TDataSet* dataSet, AnsiString key, int FieldNo);
extern PACKAGE void __fastcall wwTableChangeIndex(Db::TDataSet* dataSet, Db::TIndexDef* a_indexItem);
extern PACKAGE AnsiString __fastcall wwGetAlias(AnsiString aliasName);
extern PACKAGE bool __fastcall wwSaveAnswerTable(Dbtables::TDBDataSet* ADataSet, Bde::hDBICur AHandle, AnsiString tableName);
extern PACKAGE bool __fastcall wwInPaintCopyState(Controls::TControlState ControlState);
extern PACKAGE void __fastcall wwPlayKeystroke(HWND Handle, Word VKChar, Word VKShift);
extern PACKAGE void __fastcall wwClearAltChar(void);
extern PACKAGE char * __fastcall wwGetQueryText(Classes::TStrings* tempQBE, bool Sql);
extern PACKAGE bool __fastcall wwMemAvail(int memSize);
extern PACKAGE void __fastcall wwPictureByField(Classes::TComponent* DataSet, AnsiString FieldName, bool FromTable, AnsiString &Mask, bool &AutoFill, bool &UsePictureMask);
extern PACKAGE void __fastcall wwRegexByField(Classes::TComponent* DataSet, AnsiString FieldName, AnsiString &Mask, bool &CaseSensitive, AnsiString &ErrorMsg);
extern PACKAGE void __fastcall wwDataModuleChanged(Classes::TComponent* temp);
extern PACKAGE void __fastcall wwSetPictureMask(Classes::TComponent* dataSet, AnsiString AFieldName, AnsiString AMask, bool AutoFill, bool UsePictureMask, bool SetMask, bool SetAutoFill, bool SetUsePictureMask);