webapp3module.pas

来自「《delphi数据库设计与实例开发》随书光盘」· PAS 代码 · 共 44 行

unit WebApp3Module;

interface

uses
  SysUtils, Classes, HTTPApp, MidItems, WebComp, DB, DBClient, MConnect,
  SConnect, HTTPProd, CompProd, PagItems, MidProd, XMLBrokr;

type
  TWebModule2 = class(TWebModule)
    XMLBroker1: TXMLBroker;
    InetXPageProducer1: TInetXPageProducer;
    SocketConnection1: TSocketConnection;
    DataForm1: TDataForm;
    DataGrid1: TDataGrid;
    DataNavigator1: TDataNavigator;
    EmpNo: TTextColumn;
    LastName: TTextColumn;
    FirstName: TTextColumn;
    PhoneExt: TTextColumn;
    HireDate: TTextColumn;
    Salary: TTextColumn;
    StatusColumn1: TStatusColumn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule2: TWebModule2;

implementation

uses WebReq;

{$R *.dfm}

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := TWebModule2;

end.