findpopular.dfm

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

object frmFindPopular: TfrmFindPopular
  Left = 174
  Top = 129
  BorderStyle = bsToolWindow
  ClientHeight = 136
  ClientWidth = 570
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 371
    Top = 25
    Width = 24
    Height = 22
    Hint = #22686#21152#26597#35810#26465#20214
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 372
    Top = 61
    Width = 24
    Height = 22
    Hint = #31227#36208#36873#20013#30340#26597#35810#26465#20214
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 371
    Height = 99
    Caption = #24405#20837#26597#35810#26465#20214'(&L)'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 45
      Width = 24
      Height = 13
      Caption = #26465#20214
    end
    object Label2: TLabel
      Left = 173
      Top = 45
      Width = 36
      Height = 13
      Caption = #36816#31639#31526
    end
    object Label3: TLabel
      Left = 256
      Top = 45
      Width = 12
      Height = 13
      Caption = #20540
    end
    object cmbIndex: TComboBox
      Left = 40
      Top = 41
      Width = 129
      Height = 21
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 0
      OnChange = cmbIndexChange
      OnKeyDown = FormKeyDown
    end
    object edtValue: TEdit
      Left = 276
      Top = 41
      Width = 90
      Height = 21
      TabOrder = 1
      OnKeyDown = edtValueKeyDown
    end
    object dtpTime: TDateTimePicker
      Left = 276
      Top = 41
      Width = 90
      Height = 21
      CalAlignment = dtaLeft
      Date = 37040
      Time = 37040
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
      Visible = False
      OnKeyDown = dtpTimeKeyDown
    end
    object lbYSF: TCheckListBox
      Left = 212
      Top = 29
      Width = 41
      Height = 41
      Ctl3D = False
      ItemHeight = 13
      Items.Strings = (
        '>'
        '='
        '<')
      ParentCtl3D = False
      TabOrder = 3
      OnMouseDown = lbYSFMouseDown
    end
  end
  object Button2: TButton
    Left = 479
    Top = 108
    Width = 74
    Height = 23
    Caption = #21462#28040'(&X)'
    TabOrder = 1
    OnClick = Button2Click
    OnKeyDown = FormKeyDown
  end
  object Button1: TButton
    Left = 399
    Top = 108
    Width = 74
    Height = 23
    Caption = #28165#31354'(&D)'
    TabOrder = 2
    OnClick = Button1Click
    OnKeyDown = FormKeyDown
  end
  object btnFind: TButton
    Left = 318
    Top = 108
    Width = 74
    Height = 23
    Caption = #26597#35810'(&F)'
    TabOrder = 3
    OnClick = btnFindClick
    OnKeyDown = FormKeyDown
  end
  object GroupBox1: TGroupBox
    Left = 394
    Top = 0
    Width = 174
    Height = 99
    Caption = #36873#25321#26597#35810#26465#20214
    TabOrder = 4
    object lbAnd: TCheckListBox
      Left = 4
      Top = 15
      Width = 165
      Height = 79
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 0
      OnKeyDown = FormKeyDown
    end
  end
  object cb: TCheckBox
    Left = 12
    Top = 112
    Width = 177
    Height = 17
    Caption = #26597#35810#23436#27605#33258#21160#28165#31354#26597#35810#26465#20214
    TabOrder = 5
  end
end