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

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

Delphi控件源码

开发平台：

Delphi

table_dm.pas：源码内容
  2. unit table_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
  8.   WebDisp, WebAdapt, WebComp, CompProd, PagItems, SiteProd, DBXpress,
  9.   FMTBcd, MidItems, WebForm, DB, SqlExpr, DBAdapt, Provider, DBClient;
  11. type
  12.   Ttable = class(TWebAppPageModule)
  13.     AdapterPageProducer: TAdapterPageProducer;
  14.     WebAppComponents: TWebAppComponents;
  15.     ApplicationAdapter: TApplicationAdapter;
  16.     PageDispatcher: TPageDispatcher;
  17.     AdapterDispatcher: TAdapterDispatcher;
  18.     DataSetAdapter1: TDataSetAdapter;
  19.     AdapterForm1: TAdapterForm;
  20.     AdapterGrid1: TAdapterGrid;
  21.     AdapterCommandGroup1: TAdapterCommandGroup;
  22.     CmdPrevPage: TAdapterActionButton;
  23.     CmdGotoPage: TAdapterActionButton;
  24.     CmdNextPage: TAdapterActionButton;
  25.     ColCUST_NO: TAdapterDisplayColumn;
  26.     ColCUSTOMER: TAdapterDisplayColumn;
  27.     ColADDRESS_LINE1: TAdapterDisplayColumn;
  28.     ColCITY: TAdapterDisplayColumn;
  29.     ColSTATE_PROVINCE: TAdapterDisplayColumn;
  30.     ColCOUNTRY: TAdapterDisplayColumn;
  31.     AdapterCommandColumn1: TAdapterCommandColumn;
  32.     CmdEditRow: TAdapterActionButton;
  33.     CmdDeleteRow: TAdapterActionButton;
  34.     AdapterCommandGroup2: TAdapterCommandGroup;
  35.     CmdNewRow: TAdapterActionButton;
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  42.   function table: Ttable;
  44. implementation
  46. {$R *.dfm}  {*.html}
  48. uses WebReq, WebCntxt, WebFact, Variants, wsnapdata;
  50. function table: Ttable;
  51. begin
  52.   Result := Ttable(WebContext.FindModuleClass(Ttable));
  53. end;
  55. initialization
  56.   if WebRequestHandler <> nil then
  57.     WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(Ttable, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), caCache));
  59. end.