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

📄 unit_queryappeal.dfm

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 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 + -