home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / BTSCLASS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  18KB  |  431 lines
  1. //----------------------------------------------------------------------------
  2. // BtsClass.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: BtsClass.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef BtsClassHPP
  6. #define BtsClassHPP
  7. //----------------------------------------------------------------------------
  8. #include <Bde.hpp>
  9. #include <BtsConst.hpp>
  10. #include <DBTables.hpp>
  11. #include <DB.hpp>
  12. #include <MIFiles.hpp>
  13. #include <Classes.hpp>
  14. #include <SysUtils.hpp>
  15. #include <Windows.hpp>
  16. #include <System.hpp>
  17. namespace Btsclass
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. class __declspec(delphiclass) EBts;
  21. class __declspec(pascalimplementation) EBts : public Sysutils::Exception
  22. {
  23.     typedef Sysutils::Exception inherited;
  24.     
  25. public:
  26.     /* Exception.Create */ __fastcall EBts(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
  27.         
  28.     /* Exception.CreateFmt */ __fastcall EBts(const System::AnsiString Msg, const System::TVarRec *Args
  29.         , const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  30.     /* Exception.CreateRes */ __fastcall EBts(int Ident) : Sysutils::Exception(Ident) { }
  31.     /* Exception.CreateResFmt */ __fastcall EBts(int Ident, const System::TVarRec *Args, const int Args_Size
  32.         ) : Sysutils::Exception(Ident, Args, Args_Size) { }
  33.     /* Exception.CreateHelp */ __fastcall EBts(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  34.         Exception(Msg, AHelpContext) { }
  35.     /* Exception.CreateFmtHelp */ __fastcall EBts(const System::AnsiString Msg, const System::TVarRec *
  36.         Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  37.         ) { }
  38.     /* Exception.CreateResHelp */ __fastcall EBts(int Ident, int AHelpContext) : Sysutils::Exception(Ident
  39.         , AHelpContext) { }
  40.     /* Exception.CreateResFmtHelp */ __fastcall EBts(int Ident, const System::TVarRec *Args, const int 
  41.         Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  42.     
  43. public:
  44.     /* TObject.Destroy */ __fastcall virtual ~EBts(void) { }
  45.     
  46. };
  47.  
  48. class __declspec(delphiclass) ENoRecords;
  49. class __declspec(pascalimplementation) ENoRecords : public EBts
  50. {
  51.     typedef EBts inherited;
  52.     
  53. public:
  54.     /* Exception.Create */ __fastcall ENoRecords(const System::AnsiString Msg) : Btsclass::EBts(Msg) { }
  55.         
  56.     /* Exception.CreateFmt */ __fastcall ENoRecords(const System::AnsiString Msg, const System::TVarRec 
  57.         *Args, const int Args_Size) : Btsclass::EBts(Msg, Args, Args_Size) { }
  58.     /* Exception.CreateRes */ __fastcall ENoRecords(int Ident) : Btsclass::EBts(Ident) { }
  59.     /* Exception.CreateResFmt */ __fastcall ENoRecords(int Ident, const System::TVarRec *Args, const int 
  60.         Args_Size) : Btsclass::EBts(Ident, Args, Args_Size) { }
  61.     /* Exception.CreateHelp */ __fastcall ENoRecords(const System::AnsiString Msg, int AHelpContext) : 
  62.         Btsclass::EBts(Msg, AHelpContext) { }
  63.     /* Exception.CreateFmtHelp */ __fastcall ENoRecords(const System::AnsiString Msg, const System::TVarRec 
  64.         *Args, const int Args_Size, int AHelpContext) : Btsclass::EBts(Msg, Args, Args_Size, AHelpContext)
  65.          { }
  66.     /* Exception.CreateResHelp */ __fastcall ENoRecords(int Ident, int AHelpContext) : Btsclass::EBts(Ident
  67.         , AHelpContext) { }
  68.     /* Exception.CreateResFmtHelp */ __fastcall ENoRecords(int Ident, const System::TVarRec *Args, const 
  69.         int Args_Size, int AHelpContext) : Btsclass::EBts(Ident, Args, Args_Size, AHelpContext) { }
  70.     
  71. public:
  72.     /* TObject.Destroy */ __fastcall virtual ~ENoRecords(void) { }
  73.     
  74. };
  75.  
  76. class __declspec(delphiclass) ESystemDown;
  77. class __declspec(pascalimplementation) ESystemDown : public EBts
  78. {
  79.     typedef EBts inherited;
  80.     
  81. public:
  82.     /* Exception.Create */ __fastcall ESystemDown(const System::AnsiString Msg) : Btsclass::EBts(Msg) { }
  83.         
  84.     /* Exception.CreateFmt */ __fastcall ESystemDown(const System::AnsiString Msg, const System::TVarRec 
  85.         *Args, const int Args_Size) : Btsclass::EBts(Msg, Args, Args_Size) { }
  86.     /* Exception.CreateRes */ __fastcall ESystemDown(int Ident) : Btsclass::EBts(Ident) { }
  87.     /* Exception.CreateResFmt */ __fastcall ESystemDown(int Ident, const System::TVarRec *Args, const int 
  88.         Args_Size) : Btsclass::EBts(Ident, Args, Args_Size) { }
  89.     /* Exception.CreateHelp */ __fastcall ESystemDown(const System::AnsiString Msg, int AHelpContext) : 
  90.         Btsclass::EBts(Msg, AHelpContext) { }
  91.     /* Exception.CreateFmtHelp */ __fastcall ESystemDown(const System::AnsiString Msg, const System::TVarRec 
  92.         *Args, const int Args_Size, int AHelpContext) : Btsclass::EBts(Msg, Args, Args_Size, AHelpContext)
  93.          { }
  94.     /* Exception.CreateResHelp */ __fastcall ESystemDown(int Ident, int AHelpContext) : Btsclass::EBts(
  95.         Ident, AHelpContext) { }
  96.     /* Exception.CreateResFmtHelp */ __fastcall ESystemDown(int Ident, const System::TVarRec *Args, const 
  97.         int Args_Size, int AHelpContext) : Btsclass::EBts(Ident, Args, Args_Size, AHelpContext) { }
  98.     
  99. public:
  100.     /* TObject.Destroy */ __fastcall virtual ~ESystemDown(void) { }
  101.     
  102. };
  103.  
  104. class __declspec(delphiclass) EInvalidField;
  105. class __declspec(pascalimplementation) EInvalidField : public EBts
  106. {
  107.     typedef EBts inherited;
  108.     
  109. public:
  110.     Db::TField* Field;
  111.     __fastcall EInvalidField(Db::TField* AField, const System::AnsiString Msg);
  112. public:
  113.     /* Exception.CreateFmt */ __fastcall EInvalidField(const System::AnsiString Msg, const System::TVarRec 
  114.         *Args, const int Args_Size) : Btsclass::EBts(Msg, Args, Args_Size) { }
  115.     /* Exception.CreateRes */ __fastcall EInvalidField(int Ident) : Btsclass::EBts(Ident) { }
  116.     /* Exception.CreateResFmt */ __fastcall EInvalidField(int Ident, const System::TVarRec *Args, const 
  117.         int Args_Size) : Btsclass::EBts(Ident, Args, Args_Size) { }
  118.     /* Exception.CreateHelp */ __fastcall EInvalidField(const System::AnsiString Msg, int AHelpContext)
  119.          : Btsclass::EBts(Msg, AHelpContext) { }
  120.     /* Exception.CreateFmtHelp */ __fastcall EInvalidField(const System::AnsiString Msg, const System::TVarRec 
  121.         *Args, const int Args_Size, int AHelpContext) : Btsclass::EBts(Msg, Args, Args_Size, AHelpContext)
  122.          { }
  123.     /* Exception.CreateResHelp */ __fastcall EInvalidField(int Ident, int AHelpContext) : Btsclass::EBts(
  124.         Ident, AHelpContext) { }
  125.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidField(int Ident, const System::TVarRec *Args, const 
  126.         int Args_Size, int AHelpContext) : Btsclass::EBts(Ident, Args, Args_Size, AHelpContext) { }
  127.     
  128. public:
  129.     /* TObject.Destroy */ __fastcall virtual ~EInvalidField(void) { }
  130.     
  131. };
  132.  
  133. class __declspec(delphiclass) EMissingAttach;
  134. class __declspec(pascalimplementation) EMissingAttach : public EInvalidField
  135. {
  136.     typedef EInvalidField inherited;
  137.     
  138. public:
  139.     /* EInvalidField.Create */ __fastcall EMissingAttach(Db::TField* AField, const System::AnsiString Msg
  140.         ) : Btsclass::EInvalidField(AField, Msg) { }
  141.     
  142. public:
  143.     /* Exception.CreateFmt */ __fastcall EMissingAttach(const System::AnsiString Msg, const System::TVarRec 
  144.         *Args, const int Args_Size) : Btsclass::EInvalidField(Msg, Args, Args_Size) { }
  145.     /* Exception.CreateRes */ __fastcall EMissingAttach(int Ident) : Btsclass::EInvalidField(Ident) { }
  146.         
  147.     /* Exception.CreateResFmt */ __fastcall EMissingAttach(int Ident, const System::TVarRec *Args, const 
  148.         int Args_Size) : Btsclass::EInvalidField(Ident, Args, Args_Size) { }
  149.     /* Exception.CreateHelp */ __fastcall EMissingAttach(const System::AnsiString Msg, int AHelpContext
  150.         ) : Btsclass::EInvalidField(Msg, AHelpContext) { }
  151.     /* Exception.CreateFmtHelp */ __fastcall EMissingAttach(const System::AnsiString Msg, const System::TVarRec 
  152.         *Args, const int Args_Size, int AHelpContext) : Btsclass::EInvalidField(Msg, Args, Args_Size, AHelpContext
  153.         ) { }
  154.     /* Exception.CreateResHelp */ __fastcall EMissingAttach(int Ident, int AHelpContext) : Btsclass::EInvalidField(
  155.         Ident, AHelpContext) { }
  156.     /* Exception.CreateResFmtHelp */ __fastcall EMissingAttach(int Ident, const System::TVarRec *Args, 
  157.         const int Args_Size, int AHelpContext) : Btsclass::EInvalidField(Ident, Args, Args_Size, AHelpContext
  158.         ) { }
  159.     
  160. public:
  161.     /* TObject.Destroy */ __fastcall virtual ~EMissingAttach(void) { }
  162.     
  163. };
  164.  
  165. class __declspec(delphiclass) EDisplayOutline;
  166. class __declspec(pascalimplementation) EDisplayOutline : public Sysutils::Exception
  167. {
  168.     typedef Sysutils::Exception inherited;
  169.     
  170. public:
  171.     double ItemCode;
  172.     __fastcall EDisplayOutline(double ACode);
  173. public:
  174.     /* Exception.CreateFmt */ __fastcall EDisplayOutline(const System::AnsiString Msg, const System::TVarRec 
  175.         *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  176.     /* Exception.CreateRes */ __fastcall EDisplayOutline(int Ident) : Sysutils::Exception(Ident) { }
  177.     /* Exception.CreateResFmt */ __fastcall EDisplayOutline(int Ident, const System::TVarRec *Args, const 
  178.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  179.     /* Exception.CreateHelp */ __fastcall EDisplayOutline(const System::AnsiString Msg, int AHelpContext
  180.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  181.     /* Exception.CreateFmtHelp */ __fastcall EDisplayOutline(const System::AnsiString Msg, const System::TVarRec 
  182.         *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  183.         ) { }
  184.     /* Exception.CreateResHelp */ __fastcall EDisplayOutline(int Ident, int AHelpContext) : Sysutils::Exception(
  185.         Ident, AHelpContext) { }
  186.     /* Exception.CreateResFmtHelp */ __fastcall EDisplayOutline(int Ident, const System::TVarRec *Args, 
  187.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  188.          { }
  189.     
  190. public:
  191.     /* TObject.Destroy */ __fastcall virtual ~EDisplayOutline(void) { }
  192.     
  193. };
  194.  
  195. struct TStrItem;
  196. typedef TStrItem *PStrItem;
  197.  
  198. struct TStrItem
  199. {
  200.     System::TObject* FObject;
  201.     int FCode;
  202.     char *FDesc;
  203.     System::AnsiString FValue;
  204.     System::AnsiString FString;
  205. } ;
  206.  
  207. class __declspec(delphiclass) TLookupList;
  208. class __declspec(pascalimplementation) TLookupList : public Classes::TStrings
  209. {
  210.     typedef Classes::TStrings inherited;
  211.     
  212. private:
  213.     Classes::TList* List;
  214.     bool FCoded;
  215.     bool FUseDesc;
  216.     System::AnsiString FTableName;
  217.     
  218. protected:
  219.     System::AnsiString CodeSep;
  220.     System::AnsiString DescSep;
  221.     PStrItem __fastcall NewStrItem(const System::AnsiString S);
  222.     void __fastcall DisposeStrItem(PStrItem P);
  223.     virtual System::AnsiString __fastcall Get(int Index);
  224.     virtual int __fastcall GetCount(void);
  225.     virtual System::TObject* __fastcall GetObject(int Index);
  226.     virtual void __fastcall Put(int Index, const System::AnsiString S);
  227.     virtual void __fastcall PutObject(int Index, System::TObject* AObject);
  228.     HIDESBASE System::AnsiString __fastcall GetValue(int Index);
  229.     System::AnsiString __fastcall GetDesc(int Index);
  230.     int __fastcall GetCode(int Index);
  231.     System::AnsiString __fastcall GetItem(int Index);
  232.     
  233. public:
  234.     __fastcall TLookupList(void);
  235.     __fastcall virtual ~TLookupList(void);
  236.     virtual void __fastcall Delete(int Index);
  237.     virtual void __fastcall Insert(int Index, const System::AnsiString S);
  238.     virtual void __fastcall Clear(void);
  239.     int __fastcall IndexOfValue(const System::AnsiString S);
  240.     int __fastcall IndexOfDesc(const System::AnsiString S);
  241.     int __fastcall IndexOfCode(int ACode);
  242.     int __fastcall IndexOfItem(const System::AnsiString S);
  243.     System::AnsiString __fastcall CodeToValue(int ACode);
  244.     int __fastcall ValueToCode(const System::AnsiString AValue);
  245.     __property System::AnsiString Value[int Index] = {read=GetValue};
  246.     __property System::AnsiString Desc[int Index] = {read=GetDesc};
  247.     __property int Code[int Index] = {read=GetCode};
  248.     __property System::AnsiString Item[int Index] = {read=GetItem};
  249.     __property bool UseDesc = {read=FUseDesc, write=FUseDesc, nodefault};
  250.     __property System::AnsiString TableName = {read=FTableName, write=FTableName, nodefault};
  251.     __property bool Coded = {read=FCoded, nodefault};
  252. };
  253.  
  254. class __declspec(delphiclass) TBtsUser;
  255. class __declspec(pascalimplementation) TBtsUser : public System::TObject
  256. {
  257.     typedef System::TObject inherited;
  258.     
  259. private:
  260.     System::AnsiString FNetName;
  261.     System::AnsiString FUserName;
  262.     System::AnsiString FGroup;
  263.     Btsconst::TUserRights FRights;
  264.     bool FRegistered;
  265.     
  266. public:
  267.     __fastcall TBtsUser(Dbtables::TTable* UserTab, TLookupList* GroupLook, const System::AnsiString DefRights
  268.         );
  269.     void __fastcall CheckRights(Btsconst::TUserRights Value);
  270.     __property System::AnsiString Group = {read=FGroup, nodefault};
  271.     __property System::AnsiString NetName = {read=FNetName, nodefault};
  272.     __property Btsconst::TUserRights Rights = {read=FRights, nodefault};
  273.     __property System::AnsiString UserName = {read=FUserName, nodefault};
  274.     __property bool Registered = {read=FRegistered, write=FRegistered, nodefault};
  275. public:
  276.     /* TObject.Destroy */ __fastcall virtual ~TBtsUser(void) { }
  277.     
  278. };
  279.  
  280. class __declspec(delphiclass) TFieldMap;
  281. class __declspec(pascalimplementation) TFieldMap : public Classes::TStringList
  282. {
  283.     typedef Classes::TStringList inherited;
  284.     
  285. private:
  286.     int __fastcall GetStatusValue(int ResValue);
  287.     
  288. public:
  289.     __fastcall TFieldMap(Mifiles::TMemIniFile* StatIni, const System::AnsiString CfgSect);
  290.     __property int StatusValue[int ResValue] = {read=GetStatusValue};
  291. public:
  292.     /* TStringList.Destroy */ __fastcall virtual ~TFieldMap(void) { }
  293.     
  294. };
  295.  
  296. class __declspec(delphiclass) TCloneDataset;
  297. class __declspec(pascalimplementation) TCloneDataset : public Db::TDBDataSet
  298. {
  299.     typedef Db::TDBDataSet inherited;
  300.     
  301. private:
  302.     Bde::_hDBIObj *FSourceHandle;
  303.     void __fastcall SetSourceHandle(Bde::hDBICur ASourceHandle);
  304.     
  305. protected:
  306.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  307.     
  308. public:
  309.     __property Bde::hDBICur SourceHandle = {read=FSourceHandle, write=SetSourceHandle, nodefault};
  310. public:
  311.         
  312.     /* TDataSet.Create */ __fastcall virtual TCloneDataset(Classes::TComponent* AOwner) : Db::TDBDataSet(
  313.         AOwner) { }
  314.     /* TDataSet.Destroy */ __fastcall virtual ~TCloneDataset(void) { }
  315.     
  316. };
  317.  
  318. class __declspec(delphiclass) TCloneTable;
  319. class __declspec(pascalimplementation) TCloneTable : public Dbtables::TTable
  320. {
  321.     typedef Dbtables::TTable inherited;
  322.     
  323. private:
  324.     Bde::_hDBIObj *FSourceHandle;
  325.     void __fastcall SetSourceHandle(Bde::hDBICur ASourceHandle);
  326.     
  327. protected:
  328.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  329.     
  330. public:
  331.     __fastcall TCloneTable(Classes::TComponent* AOwner, bool Reset);
  332.     void __fastcall InitFromTable(Dbtables::TTable* SourceTable, bool Reset);
  333. public:
  334.     /* TTable.Create */ __fastcall virtual TCloneTable(Classes::TComponent* AOwner) : Dbtables::TTable(
  335.         AOwner) { }
  336.     /* TTable.Destroy */ __fastcall virtual ~TCloneTable(void) { }
  337.     
  338. };
  339.  
  340. class __declspec(delphiclass) TQueryField;
  341. class __declspec(pascalimplementation) TQueryField : public System::TObject
  342. {
  343.     typedef System::TObject inherited;
  344.     
  345. protected:
  346.     TQueryDataType FQDType;
  347.     int FFldNo;
  348.     int FQRow;
  349.     System::AnsiString FQText;
  350.     System::AnsiString FFldName;
  351.     System::AnsiString FLookupTableName;
  352.     
  353. public:
  354.     TQueryField* LookupData[2];
  355.     __fastcall TQueryField(Btsconst::TQueryDataType AQDType, int AFldNo,  System::AnsiString AQText);
  356.     __fastcall virtual ~TQueryField(void);
  357.     void __fastcall InitLookupData(TLookupList* LookupList, const System::AnsiString Example, const System::AnsiString 
  358.         CodeFldName, const System::AnsiString DescFldName, int ARow, int ACol);
  359.     __property int FldNo = {read=FFldNo, nodefault};
  360.     __property System::AnsiString FldName = {read=FFldName, write=FFldName, nodefault};
  361.     __property System::AnsiString QText = {read=FQText, write=FQText, nodefault};
  362.     __property int QRow = {read=FQRow, write=FQRow, nodefault};
  363.     __property Btsconst::TQueryDataType QDType = {read=FQDType, nodefault};
  364.     __property System::AnsiString LookupTableName = {read=FLookupTableName, write=FLookupTableName, nodefault
  365.         };
  366. };
  367.  
  368. class __declspec(delphiclass) TQueryData;
  369. class __declspec(pascalimplementation) TQueryData : public Classes::TList
  370. {
  371.     typedef Classes::TList inherited;
  372.     
  373. private:
  374.     HIDESBASE TQueryField* __fastcall Get(int Index);
  375.     
  376. public:
  377.     void __fastcall Empty(void);
  378.     __fastcall virtual ~TQueryData(void);
  379.     __property TQueryField* Items[int Index] = {read=Get/*, default*/};
  380. public:
  381.     /* TObject.Create */ __fastcall TQueryData(void) : Classes::TList() { }
  382.     
  383. };
  384.  
  385. enum TCheckType { ctNone, ctCheck, ctCheckPlus, ctCheckDesc, ctCheckGroup };
  386.  
  387. class __declspec(delphiclass) TQBEQuery;
  388. class __declspec(pascalimplementation) TQBEQuery : public Dbtables::TQuery
  389. {
  390.     typedef Dbtables::TQuery inherited;
  391.     
  392. private:
  393.     Bde::_hDBIObj *hQry;
  394.     
  395. protected:
  396.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  397.     
  398. public:
  399.     __fastcall virtual TQBEQuery(Classes::TComponent* AOwner);
  400.     void __fastcall AddExpr(const System::AnsiString TabName, const System::AnsiString FldName, int Row
  401.         , TCheckType CheckType,  System::AnsiString Expr);
  402. public:
  403.     /* TQuery.Destroy */ __fastcall virtual ~TQBEQuery(void) { }
  404.     
  405. };
  406.  
  407. class __declspec(delphiclass) TOtlData;
  408. class __declspec(pascalimplementation) TOtlData : public System::TObject
  409. {
  410.     typedef System::TObject inherited;
  411.     
  412. public:
  413.     char *ProgName;
  414.     char *Tester;
  415.     bool HasChildren;
  416.     __fastcall TOtlData(char * PName, char * TName, bool ChildFlag);
  417.     __fastcall virtual ~TOtlData(void);
  418. };
  419.  
  420. //-- var, const, procedure ---------------------------------------------------
  421. #define fldnoNetName (Byte)(3)
  422. //-- template instantiations -------------------------------------------------
  423. template class Btsconst::TUserRights ;
  424.  
  425. }    /* namespace Btsclass */
  426. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  427. using namespace Btsclass;
  428. #endif
  429. //-- end unit ----------------------------------------------------------------
  430. #endif    // BtsClass
  431.