home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / qjoin.pak / MAIN.DFM / MAIN.txt
Encoding:
Text File  |  1995-08-24  |  941 b   |  45 lines
  1. object Form1: TForm1
  2.   Left = 229
  3.   Top = 94
  4.   AutoScroll = False
  5.   Width = 435
  6.   Height = 300
  7.   ActiveControl = DBGrid1
  8.   Caption = 'Join Example'
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object DBGrid1: TDBGrid
  16.     Left = 0
  17.     Top = 0
  18.     Width = 427
  19.     Height = 273
  20.     Align = alClient
  21.     BorderStyle = bsNone
  22.     DataSource = DataSource1
  23.     TabOrder = 0
  24.     TitleFont.Color = clBlack
  25.     TitleFont.Height = -11
  26.     TitleFont.Name = 'MS Sans Serif'
  27.     TitleFont.Style = []
  28.   end
  29.   object Query1: TQuery
  30.     Active = True
  31.     DatabaseName = 'DBDEMOS'
  32.     SQL.Strings = (
  33.       'select Customer.Company, Orders.OrderNo, Orders.SaleDate '
  34.       '  from Customer, Orders'
  35.       '  where Customer.CustNo = Orders.CustNo')
  36.     Left = 8
  37.     Top = 44
  38.   end
  39.   object DataSource1: TDataSource
  40.     DataSet = Query1
  41.     Left = 46
  42.     Top = 44
  43.   end
  44. end
  45.