home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX21.ZIP / JOI_UNIT.DFM / JOI_UNIT.txt
Encoding:
Text File  |  1995-12-08  |  858 b   |  43 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 103
  4.   Width = 467
  5.   Height = 300
  6.   Caption = 'Form1'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 16
  13.   object DBGrid1: TDBGrid
  14.     Left = 0
  15.     Top = 0
  16.     Width = 459
  17.     Height = 269
  18.     Align = alClient
  19.     DataSource = DataSource1
  20.     TabOrder = 0
  21.     TitleFont.Color = clWindowText
  22.     TitleFont.Height = -13
  23.     TitleFont.Name = 'System'
  24.     TitleFont.Style = []
  25.   end
  26.   object Query1: TQuery
  27.     Active = True
  28.     DatabaseName = 'DBDEMOS'
  29.     SQL.Strings = (
  30.       'select '
  31.       '  O.CustNo, O.OrderNo, O.SaleDate, I.PartNo, I.Qty'
  32.       '  from Orders O, Items I'
  33.       '  where O.OrderNo = I.OrderNo')
  34.     Left = 8
  35.     Top = 40
  36.   end
  37.   object DataSource1: TDataSource
  38.     DataSet = Query1
  39.     Left = 8
  40.     Top = 72
  41.   end
  42. end
  43.