home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap21 / qjoin / main.txt < prev    next >
Text File  |  1995-03-20  |  1KB  |  50 lines
  1. object AJoin: TAJoin
  2.   Left = 209
  3.   Top = 110
  4.   ActiveControl = DBGrid1
  5.   AutoScroll = False
  6.   Caption = 'AJoin'
  7.   ClientHeight = 273
  8.   ClientWidth = 427
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   WindowState = wsMaximized
  15.   OnCreate = FormCreate
  16.   TextHeight = 16
  17.   object DBGrid1: TDBGrid
  18.     Left = 0
  19.     Top = 0
  20.     Width = 427
  21.     Height = 273
  22.     Align = alClient
  23.     DataSource = DataSource1
  24.     TabOrder = 0
  25.     TitleFont.Color = clWindowText
  26.     TitleFont.Height = -13
  27.     TitleFont.Name = 'System'
  28.     TitleFont.Style = []
  29.   end
  30.   object Query1: TQuery
  31.     DatabaseName = 'DBDEMOS'
  32.     SQL.Strings = (
  33.       'select '
  34.       '  O."OrderNo" , O."CustNo" , '
  35.       '  O."SaleDate" , O."ShipDate" , '
  36.       '  I."PartNo" , I."Qty" ,  I."DisCount"'
  37.       'from '
  38.       '  Orders O , Items I'
  39.       'where '
  40.       '  O.OrderNo = I.OrderNo ')
  41.     Left = 96
  42.     Top = 8
  43.   end
  44.   object DataSource1: TDataSource
  45.     DataSet = Query1
  46.     Left = 128
  47.     Top = 8
  48.   end
  49. end
  50.