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

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

Delphi控件源码

开发平台：

Delphi

date_dm.pas：源码内容
  2. unit date_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, DSProd,
  8.   DBTables, DB;
  10. type
  11.   Tcountry = class(TWebPageModule)
  12.     DataSetPageProducer: TDataSetPageProducer;
  13.     Table1: TTable;
  14.     Session1: TSession;
  15.     procedure WebPageModuleBeforeDispatchPage(Sender: TObject;
  16.       const PageName: String; var Handled: Boolean);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  23.   function country: Tcountry;
  25. implementation
  27. {$R *.dfm}  {*.html}
  29. uses WebReq, WebCntxt, WebFact, Variants;
  31. function country: Tcountry;
  32. begin
  33.   Result := Tcountry(WebContext.FindModuleClass(Tcountry));
  34. end;
  36. procedure Tcountry.WebPageModuleBeforeDispatchPage(Sender: TObject;
  37.   const PageName: String; var Handled: Boolean);
  38. begin
  39.   Table1.Open;
  40.   Table1.First;
  41. end;
  43. initialization
  44.   if WebRequestHandler <> nil then
  45.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tcountry, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
  47. end.