unit3.pas

DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, WebAdapt,
  WebComp, DBAdapt, DB, ADODB;

type
  TWebDataModule3 = class(TWebDataModule)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSetAdapter1: TDataSetAdapter;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function WebDataModule3: TWebDataModule3;

implementation

{$R *.dfm} 

uses WebReq, WebCntxt, WebFact, Variants;

function WebDataModule3: TWebDataModule3;
begin
  Result := TWebDataModule3(WebContext.FindModuleClass(TWebDataModule3));
end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebDataModuleFactory.Create(TWebDataModule3, crOnDemand, caCache));

end.