📄 query.dfm
字号:
object QueryFrm: TQueryFrm
Left = 163
Top = 137
BorderStyle = bsDialog
Caption = '构造查询条件'
ClientHeight = 227
ClientWidth = 446
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 7
Top = 87
Width = 72
Height = 12
Caption = '查询条件: '
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 2
Top = 8
Width = 367
Height = 65
Caption = '条件构造'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object CB_Field: TComboBox
Left = 56
Top = 24
Width = 97
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = CB_FieldChange
end
object RB_and: TRadioButton
Left = 8
Top = 16
Width = 44
Height = 17
Caption = '并且'
Enabled = False
TabOrder = 1
end
object RB_or: TRadioButton
Left = 8
Top = 39
Width = 43
Height = 16
Caption = '或者'
Enabled = False
TabOrder = 2
end
object CB_Logical: TComboBox
Left = 156
Top = 24
Width = 72
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
OnChange = CB_LogicalChange
Items.Strings = (
'等于'
'大于'
'小于'
'大于等于'
'小于等于'
'不等于'
'包含')
end
object CB_Values: TComboBox
Left = 231
Top = 24
Width = 130
Height = 20
ItemHeight = 12
TabOrder = 4
OnChange = CB_ValuesChange
end
end
object Btn_Vert: TButton
Left = 164
Top = 80
Width = 100
Height = 25
Caption = '垂直查询条件(&V)'
TabOrder = 1
OnClick = Btn_VertClick
end
object Btn_Add: TButton
Left = 377
Top = 16
Width = 64
Height = 25
Caption = '增加(&A)'
Enabled = False
TabOrder = 2
OnClick = Btn_AddClick
end
object Btn_Delete: TButton
Left = 377
Top = 72
Width = 64
Height = 25
Caption = '删除(&D)'
Enabled = False
TabOrder = 3
OnClick = Btn_DeleteClick
end
object Btn_Query: TButton
Left = 377
Top = 129
Width = 64
Height = 25
Caption = '查询(&Q)'
Enabled = False
TabOrder = 4
OnClick = Btn_QueryClick
end
object ListBox1: TListBox
Left = 1
Top = 112
Width = 368
Height = 113
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
MultiSelect = True
ParentFont = False
TabOrder = 5
OnClick = ListBox1Click
end
object Btn_Close: TButton
Left = 377
Top = 185
Width = 64
Height = 25
Caption = '取消(&C)'
TabOrder = 6
OnClick = Btn_CloseClick
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -