wdmfish.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit wdmFish;

interface

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

type
  TWebDataModule1 = class(TWebDataModule)
    Session1: TSession;
    Database1: TDatabase;
    Table1: TTable;
    DataSetAdapter1: TDataSetAdapter;
    AdaptSpeciesNo: TDataSetAdapterField;
    AdaptCategory: TDataSetAdapterField;
    AdaptCommon_Name: TDataSetAdapterField;
    AdaptSpeciesName: TDataSetAdapterField;
    AdaptLengthcm: TDataSetAdapterField;
    AdaptLength_In: TDataSetAdapterField;
    AdaptNotes: TDataSetAdapterMemoField;
    AdaptGraphic: TDataSetAdapterImageField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function WebDataModule1: TWebDataModule1;

implementation

{$R *.dfm} 

uses WebReq, WebCntxt, WebFact, Variants;

function WebDataModule1: TWebDataModule1;
begin
  Result := TWebDataModule1(WebContext.FindModuleClass(TWebDataModule1));
end;

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

end.