home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / search / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  1.2 KB  |  65 lines
  1. object SearchDemo: TSearchDemo
  2.   Left = 204
  3.   Top = 101
  4.   ActiveControl = Edit1
  5.   AutoScroll = False
  6.   Caption = 'Search Demo'
  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.   TextHeight = 16
  15.   object label1: TLabel
  16.     Left = 8
  17.     Top = 8
  18.     Width = 85
  19.     Height = 16
  20.     Caption = 'Enter CustNo'
  21.   end
  22.   object Edit1: TEdit
  23.     Left = 96
  24.     Top = 8
  25.     Width = 121
  26.     Height = 24
  27.     TabOrder = 0
  28.     Text = '1356'
  29.   end
  30.   object Search: TButton
  31.     Left = 232
  32.     Top = 8
  33.     Width = 89
  34.     Height = 33
  35.     Caption = 'Search'
  36.     TabOrder = 1
  37.     OnClick = SearchClick
  38.   end
  39.   object DBGrid1: TDBGrid
  40.     Left = 0
  41.     Top = 48
  42.     Width = 427
  43.     Height = 225
  44.     Align = alBottom
  45.     DataSource = DataSource1
  46.     TabOrder = 2
  47.     TitleFont.Color = clWindowText
  48.     TitleFont.Height = -13
  49.     TitleFont.Name = 'System'
  50.     TitleFont.Style = []
  51.   end
  52.   object Table1: TTable
  53.     Active = True
  54.     DatabaseName = 'dbdemos'
  55.     TableName = 'CUSTOMER'
  56.     Left = 328
  57.     Top = 8
  58.   end
  59.   object DataSource1: TDataSource
  60.     DataSet = Table1
  61.     Left = 360
  62.     Top = 8
  63.   end
  64. end
  65.