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

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

Delphi控件源码

开发平台：

Delphi

multiple_dm.pas：源码内容
  2. unit multiple_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,
  8.   WebAdapt, WebComp, CompProd, PagItems, SiteProd, MidItems, WebForm;
  10. type
  11.   Tmultiple = class(TWebPageModule)
  12.     AdapterPageProducer: TAdapterPageProducer;
  13.     PagedAdapter1: TPagedAdapter;
  14.     NumbersList: TStringsValuesList;
  15.     AdapterForm1: TAdapterForm;
  16.     AdapterGrid1: TAdapterGrid;
  17.     AdapterCommandGroup1: TAdapterCommandGroup;
  18.     CmdPrevPage: TAdapterActionButton;
  19.     CmdGotoPage: TAdapterActionButton;
  20.     CmdNextPage: TAdapterActionButton;
  21.     Number: TAdapterMultiValueField;
  22.     Square: TAdapterMultiValueField;
  23.     ColNumber: TAdapterDisplayColumn;
  24.     ColSquare: TAdapterDisplayColumn;
  25.     AdapterField: TAdapterField;
  26.     procedure WebPageModuleActivate(Sender: TObject);
  27.     procedure NumberGetValues(Sender: TObject;
  28.       Index: Integer; var Value: Variant);
  29.     procedure NumberGetValueCount(Sender: TObject;
  30.       var Count: Integer);
  31.     procedure SquareGetValues(Sender: TObject; Index: Integer;
  32.       var Value: Variant);
  33.     procedure PagedAdapter1GetRecordCount(Sender: TObject;
  34.       var Count: Integer);
  35.     procedure PagedAdapter1GetNextRecord(Sender: TObject;
  36.       var EOF: Boolean);
  37.     procedure PagedAdapter1GetFirstRecord(Sender: TObject;
  38.       var EOF: Boolean);
  39.     procedure PagedAdapter1GetEOF(Sender: TObject; var EOF: Boolean);
  40.     procedure PagedAdapter1GetRecordIndex(Sender: TObject;
  41.       var Index: Integer);
  42.     procedure AdapterFieldGetValue(Sender: TObject; var Value: Variant);
  43.   private
  44.     CurrentPos: Integer;
  45.   public
  46.     { Public declarations }
  47.   end;
  49.   function multiple: Tmultiple;
  51. implementation
  53. {$R *.dfm}  {*.html}
  55. uses WebReq, WebCntxt, WebFact, Variants;
  57. function multiple: Tmultiple;
  58. begin
  59.   Result := Tmultiple(WebContext.FindModuleClass(Tmultiple));
  60. end;
  62. procedure Tmultiple.WebPageModuleActivate(Sender: TObject);
  63. var
  64.   i: Integer;
  65. begin
  66.   for i := 1 to 100 do
  67.     NumbersList.Strings.Add(
  68.       IntToStr(i) + '=' + IntToStr (Sqr(i)));
  69. end;
  71. procedure Tmultiple.NumberGetValues(Sender: TObject;
  72.   Index: Integer; var Value: Variant);
  73. begin
  74.   Value := NumbersList.Strings.Names [Index];
  75. end;
  77. procedure Tmultiple.NumberGetValueCount(Sender: TObject;
  78.   var Count: Integer);
  79. begin
  80.   Count := NumbersList.Strings.Count;
  81. end;
  83. procedure Tmultiple.SquareGetValues(Sender: TObject; Index: Integer;
  84.   var Value: Variant);
  85. begin
  86.   with NumbersList.Strings do
  87.     Value := Values [Names [Index]];
  88. end;
  90. procedure Tmultiple.PagedAdapter1GetRecordCount(Sender: TObject;
  91.   var Count: Integer);
  92. begin
  93.   Count := NumbersList.Strings.Count;
  94. end;
  96. procedure Tmultiple.PagedAdapter1GetNextRecord(Sender: TObject;
  97.   var EOF: Boolean);
  98. begin
  99.   Inc (CurrentPos);
  100.   EOF := (CurrentPos = NumbersList.Strings.Count - 1);
  101. end;
  103. procedure Tmultiple.PagedAdapter1GetFirstRecord(Sender: TObject;
  104.   var EOF: Boolean);
  105. begin
  106.   CurrentPos := 0;
  107. end;
  109. procedure Tmultiple.PagedAdapter1GetEOF(Sender: TObject; var EOF: Boolean);
  110. begin
  111.   EOF := (CurrentPos = NumbersList.Strings.Count);
  112. end;
  114. procedure Tmultiple.PagedAdapter1GetRecordIndex(Sender: TObject;
  115.   var Index: Integer);
  116. begin
  117.   CurrentPos := Index;
  118. end;
  120. procedure Tmultiple.AdapterFieldGetValue(Sender: TObject;
  121.   var Value: Variant);
  122. begin
  123.   Value := NumbersList.Strings.Names [CurrentPos];
  124. end;
  126. initialization
  127.   if WebRequestHandler <> nil then
  128.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tmultiple, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
  130. end.