【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“ItemsTableU.pas”一文，供大家参考学习

    
    unit ItemsTableU;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,
      WebForm, MidItems, WebComp, CompProd, PagItems, SiteProd, DispActnFld;
    
    type
      TItemsTable = class(TWebPageModule)
        AdapterPageProducer: TAdapterPageProducer;
        AdapterForm1: TAdapterForm;
        AdapterFieldGroup1: TAdapterFieldGroup;
        AdapterCommandGroup1: TAdapterCommandGroup;
        AdapterGrid1: TAdapterGrid;
        ColEdit: TAdapterEditColumn;
        AdapterCommandColumn1: TAdapterCommandColumn;
        ColItemNo: TAdapterDisplayColumn;
        ColPartNo: TAdapterDisplayColumn;
        ColDiscount: TAdapterDisplayColumn;
        AdapterDisplayActionField1: TAdapterDisplayActionField;
        CmdFirstRow: TAdapterActionButton;
        CmdPrevRow: TAdapterActionButton;
        CmdNextRow: TAdapterActionButton;
        CmdLastRow: TAdapterActionButton;
        CmdRefreshRow2: TAdapterActionButton;
        FldOrderNo: TAdapterDisplayField;
        FldCustNo: TAdapterDisplayField;
        CmdApply2: TAdapterActionButton;
        AdapterErrorList1: TAdapterErrorList;
        LayoutGroup1: TLayoutGroup;
        AdapterCommandGroup2: TAdapterCommandGroup;
        CmdNewRow: TAdapterActionButton;
        LayoutGroup2: TLayoutGroup;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
      function ItemsTable: TItemsTable;
    
    implementation
    
    {$R *.DFM}  {*.html}
    
    uses WebReq, WebCntxt, WebFact, Variants, DMU;
    
    function ItemsTable: TItemsTable;
    begin
      Result := TItemsTable(WebContext.FindModuleClass(TItemsTable));
    end;
    
    initialization
      if WebRequestHandler <> nil then
        WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TItemsTable, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
    
    end.
    

上一篇：ItemControl.pas
下一篇：致享和威驰哪个好点?冲着安全和空间 推荐致享