home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Midas / InternetExpress / InetXCenter / rdminetxcentermodule.dfm / rdminetxcentermodule.txt
Text File  |  1999-08-11  |  3KB  |  113 lines
  1. object INetXCenterData: TINetXCenterData
  2.   OldCreateOrder = False
  3.   Left = 219
  4.   Top = 170
  5.   Height = 439
  6.   Width = 606
  7.   object Session1: TSession
  8.     Active = True
  9.     AutoSessionName = True
  10.     Left = 32
  11.     Top = 24
  12.   end
  13.   object SelectCustNames: TQuery
  14.     DatabaseName = 'DBDEMOS'
  15.     SessionName = 'Session1_1'
  16.     SQL.Strings = (
  17.       'Select CustNo, Company from Customer order by Company')
  18.     Left = 120
  19.     Top = 16
  20.   end
  21.   object OrderItems: TTable
  22.     DatabaseName = 'DBDEMOS'
  23.     SessionName = 'Session1_1'
  24.     IndexName = 'ByOrderNo'
  25.     MasterFields = 'OrderNo'
  26.     MasterSource = SelectCustOrderSrc
  27.     TableName = 'items.db'
  28.     Left = 112
  29.     Top = 80
  30.   end
  31.   object SelectCustOrders: TQuery
  32.     DatabaseName = 'DBDEMOS'
  33.     SessionName = 'Session1_1'
  34.     SQL.Strings = (
  35.       'Select * from orders where CustNo = :CustNo')
  36.     Left = 32
  37.     Top = 80
  38.     ParamData = <
  39.       item
  40.         DataType = ftInteger
  41.         Name = 'CustNo'
  42.         ParamType = ptUnknown
  43.         Value = '1221'
  44.       end>
  45.   end
  46.   object SelectCustOrderSrc: TDataSource
  47.     DataSet = SelectCustOrders
  48.     Left = 32
  49.     Top = 144
  50.   end
  51.   object CustOrders: TDataSetProvider
  52.     DataSet = SelectCustOrders
  53.     Constraints = True
  54.     Left = 128
  55.     Top = 144
  56.   end
  57.   object CustNames: TDataSetProvider
  58.     DataSet = SelectCustNames
  59.     Constraints = True
  60.     Left = 192
  61.     Top = 72
  62.   end
  63.   object SelectAllCustomers: TQuery
  64.     DatabaseName = 'DBDEMOS'
  65.     SessionName = 'Session1_1'
  66.     SQL.Strings = (
  67.       'Select * from Customer')
  68.     Left = 32
  69.     Top = 208
  70.   end
  71.   object AllCustomers: TDataSetProvider
  72.     DataSet = SelectAllCustomers
  73.     Constraints = True
  74.     Left = 136
  75.     Top = 208
  76.   end
  77.   object SelectAllCountries: TQuery
  78.     DatabaseName = 'DBDEMOS'
  79.     SessionName = 'Session1_1'
  80.     SQL.Strings = (
  81.       'Select * from Country')
  82.     Left = 216
  83.     Top = 144
  84.   end
  85.   object AllCountries: TDataSetProvider
  86.     DataSet = SelectAllCountries
  87.     Constraints = True
  88.     Left = 232
  89.     Top = 208
  90.   end
  91.   object AllCustOrders: TDataSetProvider
  92.     DataSet = SelectAllCustomers
  93.     Constraints = True
  94.     Left = 240
  95.     Top = 264
  96.   end
  97.   object SelectAllCustomersSrc: TDataSource
  98.     DataSet = SelectAllCustomers
  99.     Left = 40
  100.     Top = 272
  101.   end
  102.   object CustOrderTable: TTable
  103.     DatabaseName = 'DBDEMOS'
  104.     SessionName = 'Session1_1'
  105.     IndexName = 'CustNo'
  106.     MasterFields = 'CustNo'
  107.     MasterSource = SelectAllCustomersSrc
  108.     TableName = 'orders.db'
  109.     Left = 144
  110.     Top = 264
  111.   end
  112. end
  113.