multiple_dm.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object multiple: Tmultiple
  2.   OldCreateOrder = False
  3.   OnActivate = WebPageModuleActivate
  4.   PageProducer = AdapterPageProducer
  5.   Left = 361
  6.   Top = 101
  7.   Height = 150
  8.   Width = 215
  9.   object AdapterPageProducer: TAdapterPageProducer
  10.     HTMLDoc.Strings = (
  11.       '<html>'
  12.       '<head>'
  13.       '</head>'
  14.       '<body>'
  15.       '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
  16.       '</body>'
  17.       '</html>')
  18.     Left = 48
  19.     Top = 8
  20.     object AdapterForm1: TAdapterForm
  21.       object AdapterGrid1: TAdapterGrid
  22.         TableAttributes.CellSpacing = 0
  23.         TableAttributes.CellPadding = 3
  24.         Adapter = PagedAdapter1
  25.         object ColNumber: TAdapterDisplayColumn
  26.           FieldName = 'Number'
  27.         end
  28.         object ColSquare: TAdapterDisplayColumn
  29.           FieldName = 'Square'
  30.         end
  31.       end
  32.       object AdapterCommandGroup1: TAdapterCommandGroup
  33.         DisplayComponent = AdapterGrid1
  34.         object CmdPrevPage: TAdapterActionButton
  35.           ActionName = 'PrevPage'
  36.         end
  37.         object CmdGotoPage: TAdapterActionButton
  38.           ActionName = 'GotoPage'
  39.           Caption = '1'
  40.         end
  41.         object CmdNextPage: TAdapterActionButton
  42.           ActionName = 'NextPage'
  43.         end
  44.       end
  45.     end
  46.   end
  47.   object PagedAdapter1: TPagedAdapter
  48.     OnGetRecordIndex = PagedAdapter1GetRecordIndex
  49.     OnGetRecordCount = PagedAdapter1GetRecordCount
  50.     OnGetEOF = PagedAdapter1GetEOF
  51.     OnGetFirstRecord = PagedAdapter1GetFirstRecord
  52.     OnGetNextRecord = PagedAdapter1GetNextRecord
  53.     PageSize = 20
  54.     Left = 48
  55.     Top = 64
  56.     object TAdapterDefaultActions
  57.     end
  58.     object TAdapterDefaultFields
  59.       object Number: TAdapterMultiValueField
  60.         OnGetValues = NumberGetValues
  61.         OnGetValueCount = NumberGetValueCount
  62.       end
  63.       object Square: TAdapterMultiValueField
  64.         OnGetValues = SquareGetValues
  65.         OnGetValueCount = NumberGetValueCount
  66.       end
  67.       object AdapterField: TAdapterField
  68.         OnGetValue = AdapterFieldGetValue
  69.       end
  70.     end
  71.   end
  72.   object NumbersList: TStringsValuesList
  73.     Left = 128
  74.     Top = 64
  75.     object TAdapterDefaultActions
  76.     end
  77.     object TAdapterDefaultFields
  78.     end
  79.   end
  80. end