main.~pas

Delphi7数据库开发教程,包含该书21套实例

unit Main;

interface

uses
  SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti, WebDisp,
  WebAdapt, WebComp, CompProd, PagItems, SiteProd, DBAdapt, DBAdaptImg,
  WebForm, MidItems;

type
  TWebSnapDemo = class(TWebAppPageModule)
    AdapterPageProducer: TAdapterPageProducer;
    WebAppComponents: TWebAppComponents;
    ApplicationAdapter: TApplicationAdapter;
    PageDispatcher: TPageDispatcher;
    AdapterDispatcher: TAdapterDispatcher;
    DataSetAdapter1: TDataSetAdapter;
    AdapterForm1: TAdapterForm;
    AdapterGrid1: TAdapterGrid;
    AdaptOrderNo: TDataSetAdapterField;
    AdaptCustNo: TDataSetAdapterField;
    AdaptSaleDate: TDataSetAdapterField;
    AdaptShipDate: TDataSetAdapterField;
    AdaptEmpNo: TDataSetAdapterField;
    AdaptShipToContact: TDataSetAdapterField;
    AdaptShipToAddr1: TDataSetAdapterField;
    AdaptShipToAddr2: TDataSetAdapterField;
    AdaptShipToCity: TDataSetAdapterField;
    AdaptShipToState: TDataSetAdapterField;
    AdaptShipToZip: TDataSetAdapterField;
    AdaptShipToCountry: TDataSetAdapterField;
    AdaptShipToPhone: TDataSetAdapterField;
    AdaptShipVIA: TDataSetAdapterField;
    AdaptPO: TDataSetAdapterField;
    AdaptTerms: TDataSetAdapterField;
    AdaptPaymentMethod: TDataSetAdapterField;
    AdaptItemsTotal: TDataSetAdapterField;
    AdaptTaxRate: TDataSetAdapterField;
    AdaptFreight: TDataSetAdapterField;
    AdaptAmountPaid: TDataSetAdapterField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function WebSnapDemo: TWebSnapDemo;

implementation

{$R *.dfm}  {*.html}

uses WebReq, WebCntxt, WebFact, Variants, uDEModule;

function WebSnapDemo: TWebSnapDemo;
begin
  Result := TWebSnapDemo(WebContext.FindModuleClass(TWebSnapDemo));
end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(TWebSnapDemo, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), caCache)

);

end.