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

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

Delphi控件源码

开发平台：

Delphi

form_dm.pas：源码内容
  2. unit form_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,
  8.   CompProd, PagItems, SiteProd, MidItems, WebForm, WebComp;
  10. type
  11.   Tformview = class(TWebPageModule)
  12.     AdapterPageProducer: TAdapterPageProducer;
  13.     AdapterForm1: TAdapterForm;
  14.     AdapterFieldGroup1: TAdapterFieldGroup;
  15.     AdapterCommandGroup1: TAdapterCommandGroup;
  16.     CmdDeleteRow: TAdapterActionButton;
  17.     CmdCancel: TAdapterActionButton;
  18.     CmdApply: TAdapterActionButton;
  19.     FldCUST_NO: TAdapterDisplayField;
  20.     FldCUSTOMER: TAdapterDisplayField;
  21.     FldADDRESS_LINE1: TAdapterDisplayField;
  22.     FldCITY: TAdapterDisplayField;
  23.     FldSTATE_PROVINCE: TAdapterDisplayField;
  24.     FldCOUNTRY: TAdapterDisplayField;
  25.     AdapterErrorList1: TAdapterErrorList;
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32.   function formview: Tformview;
  34. implementation
  36. {$R *.dfm}  {*.html}
  38. uses WebReq, WebCntxt, WebFact, Variants, table_dm;
  40. function formview: Tformview;
  41. begin
  42.   Result := Tformview(WebContext.FindModuleClass(Tformview));
  43. end;
  45. initialization
  46.   if WebRequestHandler <> nil then
  47.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tformview, TWebPageInfo.Create([{wpPublished, wpLoginRequired}], '.html'), crOnDemand, caCache));
  49. end.