home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / lkupcomb / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  2.0 KB  |  95 lines
  1. object LookUp: TLookUp
  2.   Left = 314
  3.   Top = 84
  4.   AutoScroll = False
  5.   Caption = 'dbListBoxLookUp Example'
  6.   ClientHeight = 366
  7.   ClientWidth = 389
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 14
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 389
  20.     Height = 161
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Panel2: TPanel
  24.       Left = 195
  25.       Top = 1
  26.       Width = 193
  27.       Height = 159
  28.       Align = alRight
  29.       BevelOuter = bvNone
  30.       Caption = 'Panel2'
  31.       TabOrder = 0
  32.       object DBNavigator: TDBNavigator
  33.         Left = 18
  34.         Top = 2
  35.         Width = 169
  36.         Height = 33
  37.         DataSource = DataSource2
  38.         VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  39.         TabOrder = 0
  40.       end
  41.     end
  42.     object DBLookupList1: TDBLookupList
  43.       Left = 32
  44.       Top = 56
  45.       Width = 313
  46.       Height = 89
  47.       DataField = 'CustNo'
  48.       DataSource = DataSource2
  49.       LookupSource = DataSource1
  50.       LookupDisplay = 'Company'
  51.       LookupField = 'CustNo'
  52.       Align = alRight
  53.       TabOrder = 1
  54.     end
  55.   end
  56.   object DBGrid1: TDBGrid
  57.     Left = 0
  58.     Top = 161
  59.     Width = 389
  60.     Height = 205
  61.     Align = alClient
  62.     DataSource = DataSource2
  63.     TabOrder = 1
  64.     TitleFont.Color = clBlack
  65.     TitleFont.Height = -11
  66.     TitleFont.Name = 'Arial'
  67.     TitleFont.Style = []
  68.   end
  69.   object DataSource1: TDataSource
  70.     DataSet = Table1
  71.     Left = 29
  72.     Top = 5
  73.   end
  74.   object DataSource2: TDataSource
  75.     DataSet = Table2
  76.     Left = 83
  77.     Top = 5
  78.   end
  79.   object Table1: TTable
  80.     Active = True
  81.     DatabaseName = 'DBDEMOS'
  82.     TableName = 'customer.db'
  83.     Left = 2
  84.     Top = 5
  85.   end
  86.   object Table2: TTable
  87.     Active = True
  88.     DatabaseName = 'DBDEMOS'
  89.     IndexFieldNames = 'CustNo'
  90.     TableName = 'orders.db'
  91.     Left = 56
  92.     Top = 5
  93.   end
  94. end
  95.