开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Login_dm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

Login_dm.pas：源码内容
  2. unit Login_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,
  8.   WebAdapt, WebComp, CompProd, PagItems, SiteProd, WebForm, MidItems;
  10. type
  11.   Tloginform = class(TWebPageModule)
  12.     AdapterPageProducer: TAdapterPageProducer;
  13.     LoginFormAdapter1: TLoginFormAdapter;
  14.     AdapterForm1: TAdapterForm;
  15.     AdapterFieldGroup1: TAdapterFieldGroup;
  16.     AdapterCommandGroup1: TAdapterCommandGroup;
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  23.   function loginform: Tloginform;
  25. implementation
  27. {$R *.dfm}  {*.html}
  29. uses WebReq, WebCntxt, WebFact, Variants;
  31. function loginform: Tloginform;
  32. begin
  33.   Result := Tloginform(WebContext.FindModuleClass(Tloginform));
  34. end;
  36. initialization
  37.   if WebRequestHandler <> nil then
  38.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tloginform, TWebPageInfo.Create([{wpPublished , wpLoginRequired}], '.html'), crOnDemand, caCache));
  40. end.