📄 unit33.~dfm
字号:
item
Expanded = False
FieldName = 'loadpr'
Title.Caption = '车辆装修费用'
Visible = True
end
item
Expanded = False
FieldName = 'otherpr'
Title.Caption = '其它费用'
Visible = True
end
item
Expanded = False
FieldName = 'passmon'
Title.Caption = '汇款金额'
Visible = True
end
item
Expanded = False
FieldName = 'salemon'
Title.Caption = '销售利润'
Visible = True
end>
end
object GroupBox1: TGroupBox
Left = 0
Top = 472
Width = 817
Height = 57
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '楷体_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 24
Width = 60
Height = 19
Caption = '合计:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '楷体_GB2312'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 64
Top = 24
Width = 40
Height = 19
Caption = '数量'
end
object Label3: TLabel
Left = 248
Top = 24
Width = 60
Height = 19
Caption = '总价格'
end
object Label6: TLabel
Left = 448
Top = 24
Width = 40
Height = 19
Caption = '其它'
end
object Label4: TLabel
Left = 632
Top = 24
Width = 40
Height = 19
Caption = '利润'
end
object sncCurrencyEdit1: TsncCurrencyEdit
Left = 312
Top = 24
Width = 129
Height = 25
CurrencySymbol = '¥'
NegativeFont.Charset = DEFAULT_CHARSET
NegativeFont.Color = clWindowText
NegativeFont.Height = -11
NegativeFont.Name = 'MS Sans Serif'
NegativeFont.Style = []
ParentColor = False
ReadOnly = True
TabOrder = 0
TabStop = True
OnKeyDown = FormKeyDown
end
object sncCurrencyEdit2: TsncCurrencyEdit
Left = 496
Top = 24
Width = 129
Height = 25
CurrencySymbol = '¥'
NegativeFont.Charset = DEFAULT_CHARSET
NegativeFont.Color = clWindowText
NegativeFont.Height = -11
NegativeFont.Name = 'MS Sans Serif'
NegativeFont.Style = []
ParentColor = False
ReadOnly = True
TabOrder = 1
TabStop = True
OnKeyDown = FormKeyDown
end
object sncCurrencyEdit3: TsncCurrencyEdit
Left = 680
Top = 24
Width = 129
Height = 25
CurrencySymbol = '¥'
NegativeFont.Charset = DEFAULT_CHARSET
NegativeFont.Color = clWindowText
NegativeFont.Height = -11
NegativeFont.Name = 'MS Sans Serif'
NegativeFont.Style = []
ParentColor = False
ReadOnly = True
TabOrder = 2
TabStop = True
OnKeyDown = FormKeyDown
end
object FlatEdit1: TFlatEdit
Left = 112
Top = 24
Width = 129
Height = 25
ColorFocused = clYellow
ColorFlat = clHighlightText
ReadOnly = True
TabOrder = 3
Text = 'FlatEdit1'
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 480
Width = 817
Height = 81
Caption = '查询'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '楷体_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 2
object Label5: TLabel
Left = 40
Top = 16
Width = 80
Height = 16
Caption = '查询项目:'
end
object Label7: TLabel
Left = 40
Top = 48
Width = 80
Height = 16
Caption = '查询内容:'
end
object Label8: TLabel
Left = 272
Top = 48
Width = 16
Height = 16
Caption = '到'
end
object epEfTrBtn4: TepEfTrBtn
Left = 704
Top = 48
Width = 75
Height = 25
Transparent = True
ActiveTextColor = clBackground
OnClick = epEfTrBtn4Click
Spacing = 0
Noise = False
FrameWidth = 2
Caption = '返回'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object epEfTrBtn5: TepEfTrBtn
Left = 616
Top = 48
Width = 75
Height = 25
Transparent = True
ActiveTextColor = clBackground
OnClick = epEfTrBtn5Click
Spacing = 0
Noise = False
FrameWidth = 2
Caption = '确认'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object FlatComboBox1: TFlatComboBox
Left = 120
Top = 16
Width = 145
Height = 24
Style = csDropDownList
Color = clWindow
ItemHeight = 16
Items.Strings = (
'请选择'
'车型'
'颜色'
'底盘号'
'车牌号'
'发动机号'
'车辆来源'
'车主姓名'
'联系电话'
'车辆序列号'
'合同序列号'
'到车日期段'
'销售时间段'
'车主身份证号'
'销售总价格段'
'入户费用段'
'车辆装修费用段'
'其它费用段'
'汇款金额费'
'销售利润段')
TabOrder = 0
ItemIndex = -1
OnChange = FlatComboBox1Change
OnKeyDown = FormKeyDown
end
object FlatComboBox2: TFlatComboBox
Left = 120
Top = 48
Width = 145
Height = 24
Color = clWindow
ItemHeight = 16
TabOrder = 1
Text = 'FlatComboBox2'
ItemIndex = -1
OnEnter = FlatComboBox2Enter
end
object FlatEdit2: TFlatEdit
Left = 120
Top = 48
Width = 145
Height = 22
ColorFlat = clBtnFace
ParentColor = True
TabOrder = 2
Text = 'FlatEdit2'
end
object DateTimePicker1: TDateTimePicker
Left = 120
Top = 48
Width = 145
Height = 24
CalAlignment = dtaLeft
Date = 37347
Time = 37347
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object DateTimePicker2: TDateTimePicker
Left = 296
Top = 48
Width = 145
Height = 24
CalAlignment = dtaLeft
Date = 37347
Time = 37347
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object sncCurrencyEdit4: TsncCurrencyEdit
Left = 120
Top = 48
Width = 145
Height = 25
CurrencySymbol = '¥'
NegativeFont.Charset = DEFAULT_CHARSET
NegativeFont.Color = clWindowText
NegativeFont.Height = -11
NegativeFont.Name = 'MS Sans Serif'
NegativeFont.Style = []
ParentColor = False
TabOrder = 5
TabStop = True
OnKeyDown = FormKeyDown
end
object sncCurrencyEdit5: TsncCurrencyEdit
Left = 296
Top = 48
Width = 145
Height = 25
CurrencySymbol = '¥'
NegativeFont.Charset = DEFAULT_CHARSET
NegativeFont.Color = clWindowText
NegativeFont.Height = -11
NegativeFont.Name = 'MS Sans Serif'
NegativeFont.Style = []
ParentColor = False
TabOrder = 6
TabStop = True
OnKeyDown = FormKeyDown
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -