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

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

Delphi控件源码

开发平台：

Delphi

home_dm.pas：源码内容
  2. unit home_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
  8.   WebAdapt, DBAdapt, WebDisp, WebComp, CompProd, PagItems, SiteProd,
  9.   MidItems, WebForm;
  11. type
  12.   THomePage = class(TWebAppPageModule)
  13.     AdapterPageProducer: TAdapterPageProducer;
  14.     WebAppComponents: TWebAppComponents;
  15.     ApplicationAdapter: TApplicationAdapter;
  16.     PageDispatcher: TPageDispatcher;
  17.     AdapterDispatcher: TAdapterDispatcher;
  18.     AdapterForm1: TAdapterForm;
  19.     AdapterFieldGroup1: TAdapterFieldGroup;
  20.     AdapterCommandGroup1: TAdapterCommandGroup;
  21.     AdapterGrid1: TAdapterGrid;
  22.     CmdFirstRow: TAdapterActionButton;
  23.     CmdPrevRow: TAdapterActionButton;
  24.     CmdNextRow: TAdapterActionButton;
  25.     CmdLastRow: TAdapterActionButton;
  26.     ColEMP_NO: TAdapterDisplayColumn;
  27.     ColFIRST_NAME: TAdapterDisplayColumn;
  28.     ColLAST_NAME: TAdapterDisplayColumn;
  29.     ColDEPT_NO: TAdapterDisplayColumn;
  30.     ColJOB_CODE: TAdapterDisplayColumn;
  31.     ColJOB_COUNTRY: TAdapterDisplayColumn;
  32.     ColSALARY: TAdapterDisplayColumn;
  33.     FldDEPARTMENT: TAdapterDisplayField;
  34.     FldDEPT_NO: TAdapterDisplayField;
  35.     FldHEAD_DEPT: TAdapterDisplayField;
  36.     FldLOCATION: TAdapterDisplayField;
  37.     FldBUDGET: TAdapterDisplayField;
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44.   function HomePage: THomePage;
  46. implementation
  48. {$R *.dfm}  {*.html}
  50. uses WebReq, WebCntxt, WebFact, Variants, datamod;
  52. function HomePage: THomePage;
  53. begin
  54.   Result := THomePage(WebContext.FindModuleClass(THomePage));
  55. end;
  57. initialization
  58.   if WebRequestHandler <> nil then
  59.     WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(THomePage, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), caCache));
  61. end.