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