⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 filter1.dfm

📁 该系统叫做客户预定系统
💻 DFM
字号:
object fmFilterFrm: TfmFilterFrm
  Left = 503
  Top = 122
  ActiveControl = Memo1
  BorderStyle = bsSingle
  Caption = #26597#35810#26465#20214
  ClientHeight = 298
  ClientWidth = 305
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 128
    Width = 36
    Height = 13
    Caption = #23383#27573'(&F)'
    FocusControl = ListBox1
  end
  object Label2: TLabel
    Left = 8
    Top = 44
    Width = 37
    Height = 13
    Caption = #26465#20214'(&C)'
  end
  object Label3: TLabel
    Left = 161
    Top = 128
    Width = 50
    Height = 13
    Caption = #25805#20316#31526'(&O)'
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 60
    Height = 13
    Caption = #31579#36873#21015#34920'(&L)'
    FocusControl = ComboBox1
  end
  object ListBox1: TListBox
    Left = 8
    Top = 144
    Width = 143
    Height = 73
    Hint = 'Doubleclick to add'
    TabStop = False
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    Sorted = True
    TabOrder = 2
    OnDblClick = AddFieldName
  end
  object ListBox2: TListBox
    Left = 161
    Top = 144
    Width = 53
    Height = 141
    Hint = 'Double-click to add'
    TabStop = False
    ItemHeight = 13
    Items.Strings = (
      '>'
      '<'
      '= '
      '>='
      '<='
      '<>'
      'AND'
      'OR'
      '('
      ')')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnDblClick = ListBox2DblClick
  end
  object Memo1: TMemo
    Left = 8
    Top = 60
    Width = 289
    Height = 65
    TabOrder = 1
    OnChange = Memo1Change
  end
  object GroupBox1: TGroupBox
    Left = 12
    Top = 224
    Width = 139
    Height = 61
    Caption = #31579#36873#36873#39033'(&I)'
    TabOrder = 4
    object cbCaseSensitive: TCheckBox
      Left = 8
      Top = 16
      Width = 97
      Height = 17
      Caption = #21306#20998#22823#23567#20889
      TabOrder = 0
      OnClick = cbCaseSensitiveClick
    end
    object cbNoPartialCompare: TCheckBox
      Left = 8
      Top = 36
      Width = 125
      Height = 17
      Hint = 'Disable partial string comparisons (strings ending with '#39'*'#39')'
      Caption = #23436#20840#21305#37197
      TabOrder = 1
      OnClick = cbNoPartialCompareClick
    end
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 24
    Width = 289
    Height = 21
    Cursor = crArrow
    ItemHeight = 13
    TabOrder = 0
    OnChange = ComboBox1Change
    Items.Strings = (
      'Company = '#39'S*'#39
      'Country <> '#39'US'#39
      'Country = '#39'US'#39)
  end
  object BtnApplyFilter: TButton
    Left = 224
    Top = 143
    Width = 75
    Height = 25
    Caption = #24212#29992'(&A)'
    TabOrder = 5
    OnClick = ApplyFilter
  end
  object BtnClear: TButton
    Left = 224
    Top = 173
    Width = 75
    Height = 25
    Caption = #28165#38500'(&L)'
    TabOrder = 6
    OnClick = SBtnClearClick
  end
  object BtnClose: TButton
    Left = 224
    Top = 256
    Width = 75
    Height = 25
    Caption = #20851#38381'(&O)'
    TabOrder = 7
    OnClick = SBtnCloseClick
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -