home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DemoTableLookup.dfm / DemoTableLookup.txt
Encoding:
Text File  |  1996-04-06  |  2.8 KB  |  137 lines
  1. object FormTableLookup: TFormTableLookup
  2.   Left = 296
  3.   Top = 180
  4.   Width = 620
  5.   Height = 368
  6.   Caption = 'Table with fast Lookups'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   OnCreate = FormCreate
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Label1: TLabel
  15.     Left = 480
  16.     Top = 292
  17.     Width = 83
  18.     Height = 13
  19.     Caption = 'Sort-Order (Index)'
  20.   end
  21.   object DBGrid1: TDBGrid
  22.     Left = 8
  23.     Top = 8
  24.     Width = 465
  25.     Height = 321
  26.     DataSource = SrcMain
  27.     TabOrder = 0
  28.     TitleFont.Color = clWindowText
  29.     TitleFont.Height = -11
  30.     TitleFont.Name = 'MS Sans Serif'
  31.     TitleFont.Style = []
  32.   end
  33.   object Adr_PersID: TDBLookupListBox
  34.     Left = 480
  35.     Top = 8
  36.     Width = 129
  37.     Height = 134
  38.     DataField = 'Adr_PersID'
  39.     DataSource = SrcMain
  40.     KeyField = 'Pers_ID'
  41.     ListField = 'Pers_ID;Pers_LastName'
  42.     ListSource = SrcLook
  43.     TabOrder = 1
  44.   end
  45.   object DBLookupComboBox1: TDBLookupComboBox
  46.     Left = 480
  47.     Top = 172
  48.     Width = 129
  49.     Height = 21
  50.     DataField = 'Adr_PersID'
  51.     DataSource = SrcMain
  52.     KeyField = 'Pers_ID'
  53.     ListField = 'Pers_LastName'
  54.     ListSource = SrcTrans
  55.     TabOrder = 2
  56.   end
  57.   object DropIndexList: TComboBox
  58.     Left = 480
  59.     Top = 308
  60.     Width = 129
  61.     Height = 21
  62.     Style = csDropDownList
  63.     Ctl3D = False
  64.     ItemHeight = 13
  65.     ParentCtl3D = False
  66.     TabOrder = 3
  67.     OnClick = DropIndexListClick
  68.   end
  69.   object TblMain: TTable
  70.     DatabaseName = 'DBDemo'
  71.     SessionName = 'Demo'
  72.     IndexName = 'Adr_Street'
  73.     TableName = 'Address'
  74.     Left = 392
  75.     Top = 4
  76.     object TblMainAdr_ID: TAutoIncField
  77.       FieldName = 'Adr_ID'
  78.       Visible = False
  79.     end
  80.     object TblMainAdr_PersID: TIntegerField
  81.       DisplayWidth = 6
  82.       FieldName = 'Adr_PersID'
  83.     end
  84.     object TblMainAdr_Street: TStringField
  85.       DisplayWidth = 20
  86.       FieldName = 'Adr_Street'
  87.       Size = 50
  88.     end
  89.     object TblMainAdr_ZIP: TStringField
  90.       DisplayWidth = 7
  91.       FieldName = 'Adr_ZIP'
  92.       Size = 19
  93.     end
  94.     object TblMainAdr_Place: TStringField
  95.       DisplayWidth = 16
  96.       FieldName = 'Adr_Place'
  97.       Size = 50
  98.     end
  99.     object TblMainAdr_Country: TStringField
  100.       DisplayWidth = 16
  101.       FieldName = 'Adr_Country'
  102.       Size = 30
  103.     end
  104.   end
  105.   object SrcMain: TDataSource
  106.     DataSet = TblMain
  107.     Left = 424
  108.     Top = 4
  109.   end
  110.   object TblLookList: TTable
  111.     DatabaseName = 'DBDemo'
  112.     SessionName = 'Demo'
  113.     ReadOnly = True
  114.     TableName = 'Person'
  115.     Left = 520
  116.     Top = 4
  117.   end
  118.   object SrcLook: TDataSource
  119.     DataSet = TblLookList
  120.     Left = 552
  121.     Top = 4
  122.   end
  123.   object TblLookCombo: TTable
  124.     DatabaseName = 'DBDemo'
  125.     SessionName = 'Demo'
  126.     IndexName = 'Pers_LastName'
  127.     TableName = 'Person'
  128.     Left = 524
  129.     Top = 168
  130.   end
  131.   object SrcTrans: TDataSource
  132.     DataSet = TblLookCombo
  133.     Left = 556
  134.     Top = 168
  135.   end
  136. end
  137.