findform.dfm

一个很好用的万能查询控件。部分代码经过更改。

object frmFind: TfrmFind
  Left = 175
  Top = 144
  BorderStyle = bsDialog
  Caption = #26597#35810
  ClientHeight = 391
  ClientWidth = 605
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 605
    Height = 100
    Align = alTop
    Caption = #24405#20837#26597#35810#26465#20214'(&L)'
    TabOrder = 0
    object Label1: TLabel
      Left = 20
      Top = 32
      Width = 24
      Height = 12
      Caption = #26465#20214
    end
    object Label2: TLabel
      Left = 218
      Top = 32
      Width = 36
      Height = 12
      Caption = #36816#31639#31526
    end
    object Label3: TLabel
      Left = 380
      Top = 32
      Width = 12
      Height = 12
      Caption = #20540
    end
    object cmbIndex: TComboBox
      Left = 52
      Top = 28
      Width = 145
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbIndexChange
      OnKeyDown = cmbIndexKeyDown
    end
    object cmbYSF: TComboBox
      Left = 266
      Top = 28
      Width = 97
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnKeyDown = cmbYSFKeyDown
      Items.Strings = (
        #31561#20110
        #22823#20110
        #23567#20110
        #22823#20110#31561#20110
        #23567#20110#31561#20110
        #19981#31561#20110)
    end
    object edtValue: TEdit
      Left = 404
      Top = 28
      Width = 185
      Height = 20
      TabOrder = 2
      OnKeyDown = edtValueKeyDown
    end
    object btnAdd: TButton
      Left = 515
      Top = 60
      Width = 75
      Height = 23
      Caption = #22686#21152
      TabOrder = 3
      OnClick = btnAddClick
    end
    object dtpTime: TDateTimePicker
      Left = 404
      Top = 28
      Width = 185
      Height = 20
      CalAlignment = dtaLeft
      Date = 37040
      Time = 37040
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 4
      Visible = False
      OnKeyDown = dtpTimeKeyDown
    end
  end
  object Button1: TButton
    Left = 350
    Top = 362
    Width = 75
    Height = 23
    Caption = #26597#35810'(&C)'
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 100
    Width = 605
    Height = 252
    Align = alTop
    Caption = #26597#35810#26465#20214#21015#34920
    TabOrder = 2
    object GroupBox2: TGroupBox
      Left = 8
      Top = 27
      Width = 257
      Height = 205
      Caption = #20132#38598#26465#20214'(&J)'
      TabOrder = 0
      object rbtJJ: TRadioButton
        Left = 103
        Top = 24
        Width = 81
        Height = 17
        Caption = #24182#19988'(&B)'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = rbtJJClick
      end
      object lbAnd: TListBox
        Left = 9
        Top = 56
        Width = 240
        Height = 141
        ItemHeight = 12
        TabOrder = 1
      end
    end
    object rbtAnd: TRadioButton
      Left = 284
      Top = 100
      Width = 65
      Height = 17
      Caption = #24182#19988#13#10
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object rbtOR: TRadioButton
      Left = 284
      Top = 140
      Width = 69
      Height = 17
      Caption = #25110#32773
      TabOrder = 2
    end
    object GroupBox4: TGroupBox
      Left = 360
      Top = 27
      Width = 237
      Height = 205
      Caption = #24182#38598#26465#20214'(&B)'
      TabOrder = 3
      object rbtBJ: TRadioButton
        Left = 99
        Top = 25
        Width = 69
        Height = 17
        Caption = #25110#32773'(&H)'
        TabOrder = 0
        OnClick = rbtBJClick
      end
      object lbOR: TListBox
        Left = 9
        Top = 56
        Width = 220
        Height = 141
        ItemHeight = 12
        TabOrder = 1
      end
    end
  end
  object Button2: TButton
    Left = 512
    Top = 362
    Width = 75
    Height = 23
    Caption = #21462#28040'(&X)'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 431
    Top = 362
    Width = 75
    Height = 23
    Caption = #28165#31354'(&K)'
    TabOrder = 4
    OnClick = Button3Click
  end
end