home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX21.ZIP / LIN_UNIT.DFM / LIN_UNIT.txt
Encoding:
Text File  |  1996-03-22  |  1.5 KB  |  73 lines
  1. object Form1: TForm1
  2.   Left = 232
  3.   Top = 95
  4.   ActiveControl = CustGrid
  5.   AutoScroll = False
  6.   Caption = 'Linked Query'
  7.   ClientHeight = 331
  8.   ClientWidth = 526
  9.   Font.Color = clBlack
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 120
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object OrdersGrid: TDBGrid
  17.     Left = 0
  18.     Top = 127
  19.     Width = 526
  20.     Height = 204
  21.     Align = alClient
  22.     BorderStyle = bsNone
  23.     DataSource = DataSource2
  24.     TabOrder = 1
  25.     TitleFont.Color = clBlack
  26.     TitleFont.Height = -14
  27.     TitleFont.Name = 'MS Sans Serif'
  28.     TitleFont.Style = []
  29.   end
  30.   object CustGrid: TDBGrid
  31.     Left = 0
  32.     Top = 0
  33.     Width = 526
  34.     Height = 127
  35.     Align = alTop
  36.     BorderStyle = bsNone
  37.     DataSource = DataSource1
  38.     TabOrder = 0
  39.     TitleFont.Color = clBlack
  40.     TitleFont.Height = -14
  41.     TitleFont.Name = 'MS Sans Serif'
  42.     TitleFont.Style = []
  43.   end
  44.   object Cust: TTable
  45.     DatabaseName = 'DBDEMOS'
  46.     TableName = 'CUSTOMER'
  47.     Left = 26
  48.     Top = 30
  49.   end
  50.   object Orders: TQuery
  51.     DatabaseName = 'DBDEMOS'
  52.     SQL.Strings = (
  53.       'select Orders.CustNo, Orders.OrderNo, Orders.SaleDate'
  54.       '   from Orders'
  55.       '   where  Orders.CustNo = :CustNo'
  56.       '')
  57.     DataSource = DataSource1
  58.     Params.Data = {0100010006437573744E6F0006080000000000001493400000}
  59.     Left = 24
  60.     Top = 150
  61.   end
  62.   object DataSource1: TDataSource
  63.     DataSet = Cust
  64.     Left = 56
  65.     Top = 150
  66.   end
  67.   object DataSource2: TDataSource
  68.     DataSet = Orders
  69.     Left = 58
  70.     Top = 30
  71.   end
  72. end
  73.