home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Midas / InternetExpress / CustomerList / rdmcustomerdatamodule.dfm < prev    next >
Text File  |  1999-08-11  |  1KB  |  64 lines
  1. object CustomerData: TCustomerData
  2.   OldCreateOrder = False
  3.   Left = 124
  4.   Top = 155
  5.   Height = 300
  6.   Width = 463
  7.   object Session1: TSession
  8.     Active = True
  9.     AutoSessionName = True
  10.     Left = 32
  11.     Top = 24
  12.   end
  13.   object SelectCustOrders: TQuery
  14.     DatabaseName = 'DBDEMOS'
  15.     SessionName = 'Session1_2'
  16.     SQL.Strings = (
  17.       'Select * from orders where CustNo = :CustNo')
  18.     Left = 32
  19.     Top = 80
  20.     ParamData = <
  21.       item
  22.         DataType = ftSmallint
  23.         Name = 'CustNo'
  24.         ParamType = ptUnknown
  25.         Value = 1221
  26.       end>
  27.   end
  28.   object OrderItems: TTable
  29.     DatabaseName = 'DBDEMOS'
  30.     SessionName = 'Session1_2'
  31.     IndexName = 'ByOrderNo'
  32.     MasterFields = 'OrderNo'
  33.     MasterSource = SelectCustOrderSrc
  34.     TableName = 'items.db'
  35.     Left = 112
  36.     Top = 80
  37.   end
  38.   object SelectCustOrderSrc: TDataSource
  39.     DataSet = SelectCustOrders
  40.     Left = 32
  41.     Top = 144
  42.   end
  43.   object CustOrders: TDataSetProvider
  44.     DataSet = SelectCustOrders
  45.     Constraints = True
  46.     Left = 128
  47.     Top = 144
  48.   end
  49.   object SelectCustNames: TQuery
  50.     DatabaseName = 'DBDEMOS'
  51.     SessionName = 'Session1_2'
  52.     SQL.Strings = (
  53.       'Select CustNo, Company from Customer order by Company')
  54.     Left = 120
  55.     Top = 16
  56.   end
  57.   object CustNames: TDataSetProvider
  58.     DataSet = SelectCustNames
  59.     Constraints = True
  60.     Left = 192
  61.     Top = 72
  62.   end
  63. end
  64.