📄 unit_queryappeal.dfm
字号:
inherited frm_QueryAppeal: Tfrm_QueryAppeal
Left = 196
Top = 214
Width = 721
Caption = '大客户投诉查询'
PixelsPerInch = 96
TextHeight = 14
inherited Panel1: TPanel
inherited PageControl1: TPageControl
inherited TabSheet1: TTabSheet
inherited Panel6: TPanel
inherited ScrollBox_GR: TScrollBox
inherited PanelGR_base1: TPanel
Top = 466
Height = 171
object Label8: TLabel
Left = 8
Top = 31
Width = 63
Height = 14
Caption = '投诉类型:'
end
object Label9: TLabel
Left = 37
Top = 105
Width = 14
Height = 14
Caption = '至'
end
object Label10: TLabel
Left = 37
Top = 81
Width = 14
Height = 14
Caption = '从'
end
object Label6: TLabel
Left = 8
Top = 4
Width = 63
Height = 14
Caption = '投诉级别:'
end
object coGR_Subject_No: TFlatComboBox
Tag = 47
Left = 76
Top = 27
Width = 140
Height = 22
Style = csDropDownList
Color = clBtnFace
ItemHeight = 14
TabOrder = 0
ItemIndex = -1
OnKeyPress = coGR_citynoKeyPress
end
object dtpGR_AppTimeBegin: TDateTimePicker
Left = 78
Top = 77
Width = 140
Height = 22
CalAlignment = dtaLeft
Date = 37466.6513419676
Time = 37466.6513419676
Color = clActiveBorder
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object dtpGR_AppTimeEnd: TDateTimePicker
Left = 78
Top = 103
Width = 140
Height = 22
CalAlignment = dtaLeft
Date = 37466.6513419676
Time = 37466.6513419676
Color = clActiveBorder
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object cbGR_Apptime: TFlatCheckBox
Left = 8
Top = 55
Width = 97
Height = 17
Caption = '投诉时间段'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
TabStop = True
OnClick = cbGR_ApptimeClick
end
object cbGR_Done: TFlatCheckBox
Left = 8
Top = 139
Width = 89
Height = 17
Caption = '是否已处理'
TabOrder = 4
TabStop = True
OnClick = cbGR_DoneClick
end
object rbGR_DoneYes: TFlatRadioButton
Left = 104
Top = 139
Width = 49
Height = 17
Caption = '是'
Checked = True
Enabled = False
TabOrder = 5
TabStop = True
end
object rbGR_DoneNo: TFlatRadioButton
Left = 144
Top = 139
Width = 41
Height = 17
Caption = '否'
Enabled = False
TabOrder = 6
end
object coGR_Applevel: TFlatComboBox
Tag = 46
Left = 76
Top = 0
Width = 140
Height = 22
Style = csDropDownList
Color = clBtnFace
ItemHeight = 14
TabOrder = 7
ItemIndex = -1
OnKeyPress = coGR_citynoKeyPress
end
end
inherited PanelGR_base: TPanel
Top = 312
end
inherited PanelGR_Stuff: TPanel
Top = 388
end
inherited PanelGRBTN_highlevel: TPanel
Top = 637
end
inherited PanelGR_highlevel2: TPanel
Top = 851
end
inherited PanelGR_highlevel: TPanel
Top = 953
Height = 38
end
inherited PanelGR_highlevel1: TPanel
Top = 682
end
inherited PanelGR_SelectOrder: TPanel
Top = 45
end
inherited PanelGRBTN_SelectOrder: TPanel
Top = 0
end
end
end
end
end
end
inherited Panel2: TPanel
Width = 472
inherited Panel3: TPanel
Width = 472
inherited Panel4: TPanel
Left = 137
Width = 334
inherited FlatButton3: TFlatButton
Left = 189
OnClick = FlatButton3Click
end
inherited FlatButton2: TFlatButton
OnClick = FlatButton2Click
end
end
end
inherited dbgGR: TDBGrid
Width = 472
Columns = <
item
Expanded = False
FieldName = 'row_num'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '序号'
Width = 42
Visible = True
end
item
Expanded = False
FieldName = 'SID_C'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '手机号码'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'NAME'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户姓名'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'SUBJECT_NO_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '投诉类别'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'APPCONTENT'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '投诉内容'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'APPLEVEL_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '投诉级别'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'APPTIME'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '投诉时间'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'REPMARK_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '完成标志'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'DJDM_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '消费层次'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'SXDM_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户属性'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'USER_ZJBS_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '品牌类型'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'STAT_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '手机状态'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'GH_C'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '工号'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'CITYNO_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '地市'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'OFF_NO_HOME_DESC'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '局向'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'zwsj'
PickList.Strings = ()
Title.Caption = '在网时间'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'ADDR'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '联系地址'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'rln_name'
PickList.Strings = ()
Title.Caption = '联系人'
Width = 44
Visible = True
end
item
Expanded = False
FieldName = 'lxdh'
PickList.Strings = ()
Title.Caption = '联系电话'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'VIP_NO_C'
PickList.Strings = ()
Title.Caption = 'VIP卡号'
Width = 92
Visible = True
end>
end
end
inherited StatusBar1: TStatusBar
Width = 713
end
inherited browse_normal: TQuery
SQL.Strings = (
'select * from T_V_GR_QueryAppeal')
end
inherited PopupMenu1: TPopupMenu
object pmi_reply: TMenuItem [0]
Caption = '投诉反馈信息'
OnClick = pmi_replyClick
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -