📄 unit_custindiserv.dfm
字号:
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 354
Top = 206
Width = 56
Height = 14
Caption = '对象名称'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 564
Top = 206
Width = 56
Height = 14
Caption = '服务质量'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 161
Top = 233
Width = 56
Height = 14
Caption = '服务金额'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 354
Top = 233
Width = 56
Height = 14
Caption = '耗费金额'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 304
Top = 233
Width = 14
Height = 14
Caption = '元'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 495
Top = 233
Width = 14
Height = 14
Caption = '元'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 564
Top = 233
Width = 56
Height = 14
Caption = '实际金额'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label36: TLabel
Left = 718
Top = 233
Width = 14
Height = 14
Caption = '元'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 161
Top = 260
Width = 56
Height = 14
Caption = '服务内容'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelServiceCode2: TLabel
Left = 525
Top = 260
Width = 56
Height = 14
Caption = '服务序号'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Visible = False
end
object Label27: TLabel
Left = 160
Top = 325
Width = 56
Height = 14
Caption = '获得信息'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 456
Top = 325
Width = 56
Height = 14
Caption = '用户意见'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 556
Top = 178
Width = 56
Height = 14
Caption = '个性标题'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 164
Top = 8
Width = 569
Height = 134
DataSource = DataSourceServeLog2
ImeName = '中文 (简体) - 郑码'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'SERVICECODE'
Title.Caption = '序号'
Visible = False
end
item
Expanded = False
FieldName = 'Beg_Date'
Title.Caption = '开始日期'
Width = 83
Visible = True
end
item
Expanded = False
FieldName = 'End_Date'
Title.Caption = '结束日期'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'ObjFlag'
Title.Caption = '大户标志'
Visible = True
end
item
Expanded = False
FieldName = 'ServObj'
Title.Caption = '服务对象'
Width = 94
Visible = True
end
item
Expanded = False
FieldName = 'ObjName'
Title.Caption = '对象名称'
Width = 136
Visible = True
end
item
Expanded = False
FieldName = 'Finish'
Title.Caption = '完成标志'
Width = 145
Visible = True
end>
end
object FlatCheckBoxVIP2: TFlatCheckBox
Left = 161
Top = 150
Width = 81
Height = 17
Caption = '大户标志'
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
TabStop = True
end
object FlatCheckBoxFinish2: TFlatCheckBox
Left = 253
Top = 150
Width = 90
Height = 17
Caption = '未完成标志'
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
TabStop = True
OnClick = FlatCheckBoxFinish2Click
end
object FlatComboBoxServMode2: TFlatComboBox
Tag = 41
Left = 414
Top = 147
Width = 125
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 3
ItemIndex = -1
OnChange = FlatComboBoxServMode2Change
end
object FlatComboBoxServKind2: TFlatComboBox
Left = 619
Top = 147
Width = 115
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
Items.Strings = (
'主动服务'
'被叫服务')
TabOrder = 4
Text = '主动服务'
ItemIndex = 0
end
object FlatMaskEditBeginDate2: TFlatMaskEdit
Left = 223
Top = 175
Width = 81
Height = 20
Hint = '格式:YYYY-MM-DD'
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
EditMask = '0000-00-00;1;_'
MaxLength = 10
TabOrder = 5
Text = ' - - '
OnExit = FlatMaskEditBeginDate1Exit
ImeName = '中文 (简体) - 郑码'
end
object FlatMaskEditBeginTime2: TFlatMaskEdit
Left = 308
Top = 175
Width = 42
Height = 20
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
EditMask = '00:00;1;_'
MaxLength = 5
TabOrder = 6
Text = '00:00'
ImeName = '中文 (简体) - 郑码'
end
object FlatMaskEditEndDate2: TFlatMaskEdit
Left = 420
Top = 175
Width = 81
Height = 20
Hint = '格式:YYYY-MM-DD'
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
Enabled = False
TabOrder = 7
OnExit = FlatMaskEditEndDate1Exit
ImeName = '中文 (简体) - 郑码'
end
object FlatMaskEditEndTime2: TFlatMaskEdit
Left = 502
Top = 175
Width = 42
Height = 20
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
Enabled = False
TabOrder = 8
ImeName = '中文 (简体) - 郑码'
end
object FlatEditObject2Value: TFlatEdit
Left = 221
Top = 203
Width = 121
Height = 20
ColorFlat = clWhite
MaxLength = 20
TabOrder = 9
OnKeyPress = FlatEditObject1ValueKeyPress
end
object FlatEditObjectName2: TFlatEdit
Left = 410
Top = 204
Width = 147
Height = 19
ColorFlat = clWhite
MaxLength = 60
TabOrder = 10
end
object FlatComboBoxServQuality2: TFlatComboBox
Tag = 42
Left = 623
Top = 202
Width = 112
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 11
ItemIndex = -1
OnChange = FlatComboBoxServQuality2Change
end
object FlatEditServMoney2: TFlatEdit
Left = 220
Top = 230
Width = 81
Height = 20
ColorFlat = clWhite
MaxLength = 7
TabOrder = 12
OnChange = FlatEditServMoney2Change
OnKeyPress = FlatEditServMoney1KeyPress
end
object FlatEditUseMoney2: TFlatEdit
Left = 410
Top ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -