home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / auto32d3.exe / rar / AUTO32D3 / DEMOS / DELPHI3.0 / FIND / FINDCUST.DFM / FINDCUST.txt
Text File  |  1996-12-25  |  3KB  |  116 lines
  1. object fmFindCust: TfmFindCust
  2.   Left = 232
  3.   Top = 118
  4.   BorderStyle = bsDialog
  5.   Caption = 'Locate Customer'
  6.   ClientHeight = 228
  7.   ClientWidth = 375
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Bevel1: TBevel
  15.     Left = 4
  16.     Top = 4
  17.     Width = 285
  18.     Height = 61
  19.     Shape = bsFrame
  20.   end
  21.   object Label1: TLabel
  22.     Left = 88
  23.     Top = 28
  24.     Width = 22
  25.     Height = 17
  26.     Caption = '&Field'
  27.     FocusControl = ComboBox1
  28.   end
  29.   object DBGrid1: TDBGrid
  30.     Left = 4
  31.     Top = 85
  32.     Width = 365
  33.     Height = 127
  34.     DataSource = DM2.CustLookupSource
  35.     Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  36.     TabOrder = 4
  37.     TitleFont.Color = clWindowText
  38.     TitleFont.Height = -11
  39.     TitleFont.Name = 'MS Sans Serif'
  40.     TitleFont.Style = []
  41.   end
  42.   object ComboBox1: TComboBox
  43.     Left = 115
  44.     Top = 24
  45.     Width = 166
  46.     Height = 21
  47.     ItemHeight = 13
  48.     Items.Strings = (
  49.       'Company'
  50.       'CustNo'
  51.       'Addr1'
  52.       'Addr2'
  53.       'City'
  54.       'State'
  55.       'Zip'
  56.       'Country'
  57.       'Phone'
  58.       'FAX'
  59.       'TaxRate'
  60.       'Contact'
  61.       'LastInvoiceDate')
  62.     TabOrder = 1
  63.     Text = 'Company'
  64.     OnChange = ComboBox1Change
  65.   end
  66.   object BitBtn2: TBitBtn
  67.     Left = 10
  68.     Top = 23
  69.     Width = 72
  70.     Height = 25
  71.     Caption = 'Find'
  72.     TabOrder = 0
  73.     OnClick = BitBtn2Click
  74.     Glyph.Data = {
  75.       76010000424D7601000000000000760000002800000020000000100000000100
  76.       04000000000000010000130B0000130B00000000000000000000000000000000
  77.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  78.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  79.       333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
  80.       300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
  81.       330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
  82.       333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
  83.       339977FF777777773377000BFB03333333337773FF733333333F333000333333
  84.       3300333777333333337733333333333333003333333333333377333333333333
  85.       333333333333333333FF33333333333330003333333333333777333333333333
  86.       3000333333333333377733333333333333333333333333333333}
  87.     NumGlyphs = 2
  88.   end
  89.   object Button1: TButton
  90.     Left = 296
  91.     Top = 8
  92.     Width = 75
  93.     Height = 25
  94.     Caption = 'OK'
  95.     ModalResult = 1
  96.     TabOrder = 2
  97.   end
  98.   object Button2: TButton
  99.     Left = 296
  100.     Top = 40
  101.     Width = 75
  102.     Height = 25
  103.     Cancel = True
  104.     Caption = 'Cancel'
  105.     ModalResult = 2
  106.     TabOrder = 3
  107.   end
  108.   object AutoFind1: TAutoFind
  109.     Active = False
  110.     DataSet = DM2.CustLookup
  111.     DataField = 'Company'
  112.     Left = 224
  113.     Top = 32
  114.   end
  115. end
  116.