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

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

Delphi控件源码

开发平台：

Delphi

countries_dm.pas：源码内容
  2. unit countries_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,
  8.   DBTables, DB, DBWeb;
  10. type
  11.   Tcountries = class(TWebPageModule)
  12.     DataSetTableProducer1: TDataSetTableProducer;
  13.     Table1: TTable;
  14.     Session1: TSession;
  15.     PageProducer: TPageProducer;
  16.     procedure WebPageModuleBeforeDispatchPage(Sender: TObject;
  17.       const PageName: String; var Handled: Boolean);
  18.     procedure PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  19.       const TagString: String; TagParams: TStrings;
  20.       var ReplaceText: String);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  27.   function countries: Tcountries;
  29. implementation
  31. {$R *.dfm}  {*.html}
  33. uses WebReq, WebCntxt, WebFact, Variants, country_dm;
  35. function countries: Tcountries;
  36. begin
  37.   Result := Tcountries(WebContext.FindModuleClass(Tcountries));
  38. end;
  40. procedure Tcountries.WebPageModuleBeforeDispatchPage(Sender: TObject;
  41.   const PageName: String; var Handled: Boolean);
  42. begin
  43.   Table1.Open;
  44.   Table1.First;
  45. end;
  47. procedure Tcountries.PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  48.   const TagString: String; TagParams: TStrings; var ReplaceText: String);
  49. begin
  50.   if TagString = 'htmltable' then
  51.     ReplaceText := DataSetTableProducer1.Content;
  52. end;
  54. initialization
  55.   if WebRequestHandler <> nil then
  56.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tcountries, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
  58. end.