cgilg.h

来自「网络编程的一些实例」· C头文件 代码 · 共 59 行

//---------------------------------------------------------------------------
#ifndef cgilgH
#define cgilgH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <HTTPApp.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
#include <DBWeb.hpp>
//---------------------------------------------------------------------------
class TWebModule1 : public TWebModule
{
__published:	// IDE-managed Components
    TDataSetTableProducer *DataSetTableProducer1;
    TTable *Table1;
    TFloatField *Table1SpeciesNo;
    TStringField *Table1Category;
    TStringField *Table1Common_Name;
    TStringField *Table1SpeciesName;
    TFloatField *Table1Lengthcm;
    TFloatField *Table1Length_In;
    TMemoField *Table1Notes;
    TGraphicField *Table1Graphic;
    TPageProducer *PageProducer1;
    TQueryTableProducer *QueryTableProducer1;
    TQuery *Query1;
    TFloatField *Query1Population;
    TStringField *Query1Name;
    TStringField *Query1Capital;
    TStringField *Query1Continent;
    TFloatField *Query1Area;
    TPageProducer *PageProducer2;
    void __fastcall WebModule1WebActionItem2Action(TObject *Sender,
          TWebRequest *Request, TWebResponse *Response, bool &Handled);
    void __fastcall DataSetTableProducer1FormatCell(TObject *Sender,
          int CellRow, int CellColumn, THTMLBgColor &BgColor,
          THTMLAlign &Align, THTMLVAlign &VAlign, AnsiString &CustomAttrs,
          AnsiString &CellData);
    void __fastcall PageProducer1HTMLTag(TObject *Sender, TTag Tag,
          const AnsiString TagString, TStrings *TagParams,
          AnsiString &ReplaceText);
    void __fastcall WebModule1WebActionItem1Action(TObject *Sender,
          TWebRequest *Request, TWebResponse *Response, bool &Handled);
    void __fastcall PageProducer2HTMLTag(TObject *Sender, TTag Tag,
          const AnsiString TagString, TStrings *TagParams,
          AnsiString &ReplaceText);
    void __fastcall WebModule1DefaultActionItemAction(TObject *Sender,
          TWebRequest *Request, TWebResponse *Response, bool &Handled);
private:	// User declarations
public:		// User declarations
	__fastcall TWebModule1(TComponent* Owner);
	__fastcall ~TWebModule1();
};
//---------------------------------------------------------------------------
extern PACKAGE TWebModule1 *WebModule1;
//---------------------------------------------------------------------------
#endif