unit_serviceappeal.dfm

delphi开发的中国移动大客户管理系统,后台数据库为oracle

                Style = csDropDownList
                Color = clWindow
                ItemHeight = 14
                TabOrder = 2
                ItemIndex = -1
              end
              object meEDCL_CUSTOPIN: TFlatMemo
                Tag = 1
                Left = 76
                Top = 105
                Width = 388
                Height = 41
                ColorFlat = clWindow
                MaxLength = 300
                ScrollBars = ssVertical
                TabOrder = 3
                Lines.Strings = (
                  '')
              end
              object meEDCL_DEALCONTENT: TFlatMemo
                Tag = 1
                Left = 76
                Top = 58
                Width = 388
                Height = 44
                ColorFlat = clWindow
                MaxLength = 300
                ScrollBars = ssVertical
                TabOrder = 4
                Lines.Strings = (
                  '')
              end
            end
            object DBGrid3: TDBGrid
              Left = 1
              Top = 1
              Width = 479
              Height = 101
              Align = alTop
              DataSource = DsReg
              ImeName = '中文 (简体) - 智能 ABC'
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              TabOrder = 2
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -14
              TitleFont.Name = '宋体'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'SID'
                  Title.Caption = '手机号码'
                  Width = 90
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'appealsource'
                  Title.Caption = '投诉来源'
                  Width = 80
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'APPEALSUBJECT'
                  Title.Caption = '投诉类型'
                  Width = 80
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'appealgrade'
                  Title.Caption = '投诉级别'
                  Width = 80
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'APPTIME'
                  Title.Caption = '投诉时间'
                  Width = 90
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'REPLYTIME'
                  Title.Caption = '希望回复时间'
                  Width = 90
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'MarkName'
                  Title.Caption = '处理标志'
                  Width = 60
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'WK_NO'
                  Title.Caption = '客户经理'
                  Width = 60
                  Visible = True
                end>
            end
          end
        end
      end
    end
    object Panel_control: TPanel
      Left = 0
      Top = 406
      Width = 489
      Height = 40
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object Btn_Exit: TFlatButton
        Left = 416
        Top = 8
        Width = 61
        Height = 25
        Caption = '关闭'
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        Layout = blGlyphLeft
        NumGlyphs = 2
        TabOrder = 0
        OnClick = Btn_ExitClick
      end
      object Btn_Print: TFlatButton
        Tag = 6
        Left = 348
        Top = 8
        Width = 66
        Height = 25
        Caption = '打印'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          888F8800000000000888808888888880808800000000000008080888888BBB88
          0008088888877788080800000000000008800888888888808080800000000008
          0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
          088888880FFFFFFFF08888888000000000888888888888888888}
        Layout = blGlyphLeft
        TabOrder = 1
      end
      object Btn_Cancel: TFlatButton
        Tag = 5
        Left = 279
        Top = 8
        Width = 66
        Height = 25
        Caption = '取消'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          3333333777333777FF33339993707399933333773337F3777FF3399933000339
          9933377333777F3377F3399333707333993337733337333337FF993333333333
          399377F33333F333377F993333303333399377F33337FF333373993333707333
          333377F333777F333333993333101333333377F333777F3FFFFF993333000399
          999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
          99933773FF777F3F777F339993707399999333773F373F77777F333999999999
          3393333777333777337333333999993333333333377777333333}
        Layout = blGlyphLeft
        NumGlyphs = 2
        TabOrder = 2
        OnClick = Btn_CancelClick
      end
      object Btn_Save: TFlatButton
        Tag = 4
        Left = 210
        Top = 8
        Width = 67
        Height = 25
        Caption = '保存'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
          00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
          00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
          00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
          0003737FFFFFFFFF7F7330099999999900333777777777777733}
        Layout = blGlyphLeft
        NumGlyphs = 2
        TabOrder = 3
        OnClick = Btn_SaveClick
      end
      object Btn_Delete: TFlatButton
        Tag = 3
        Left = 141
        Top = 8
        Width = 66
        Height = 25
        Caption = '删除'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF33333333333330003333333333333777333333333333
          300033FFFFFF3333377739999993333333333777777F3333333F399999933333
          3300377777733333337733333333333333003333333333333377333333333333
          3333333333333333333F333333333333330033333F33333333773333C3333333
          330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
          333333377F33333333FF3333C333333330003333733333333777333333333333
          3000333333333333377733333333333333333333333333333333}
        Layout = blGlyphLeft
        NumGlyphs = 2
        TabOrder = 4
        OnClick = Btn_DeleteClick
      end
      object Btn_Modify: TFlatButton
        Tag = 2
        Left = 72
        Top = 8
        Width = 66
        Height = 25
        Caption = '修改'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        Layout = blGlyphLeft
        NumGlyphs = 2
        TabOrder = 5
        OnClick = Btn_ModifyClick
      end
      object Btn_Add: TFlatButton
        Tag = 1
        Left = 3
        Top = 8
        Width = 66
        Height = 25
        Caption = '新增'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333FF33333333FF333993333333300033377F3333333777333993333333
          300033F77FFF3333377739999993333333333777777F3333333F399999933333
          33003777777333333377333993333333330033377F3333333377333993333333
          3333333773333333333F333333333333330033333333F33333773333333C3333
          330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
          993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
          333333333337733333FF3333333C333330003333333733333777333333333333
          3000333333333333377733333333333333333333333333333333}
        Layout = blGlyphLeft
        NumGlyphs = 2
        TabOrder = 6
        OnClick = Btn_AddClick
      end
    end
  end
  object QueryCustInfo: TQuery
    AfterScroll = QueryCustInfoAfterScroll
    DatabaseName = 'db_vipdl'
    Left = 64
    Top = 324
  end
  object DsCustInfo: TDataSource
    DataSet = QueryCustInfo
    Left = 100
    Top = 324
  end
  object QueryReg: TQuery
    AfterScroll = QueryRegAfterScroll
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      
        'Select a.*,Decode(a.repmark,0,'#39'未完成'#39','#39'完成'#39') MarkName,b.APPEAL' +
        'SUBJECT ,c.appealgrade,d.appealsource From t_f_appeal a,'
      't_d_appealsubject b,'
      
        '(select par_Values,par_desc appealgrade from t_d_Config where Up' +
        'per(par_name)='#39'APPEALGRADE'#39') c, '
      
        '(Select Par_Values,Par_Desc appealsource From t_d_config where U' +
        'pper(Par_Name)='#39'APPEALSOURCE'#39') D'
      
        'Where a.SUBJECT_NO=b.SUBJECT_NO And a.applevel=c.par_Values and ' +
        'a.APPFROM=d.par_values  And Sid=:Sid'
      'Order by REPMARK,APPTIME Desc')
    Left = 64
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Sid'
        ParamType = ptUnknown
      end>
  end
  object DsReg: TDataSource
    DataSet = QueryReg
    Left = 100
    Top = 360
  end
  object QueryOper: TQuery
    AfterScroll = QueryOperAfterScroll
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      
        'Select a.*,b.SERVQUALITY From t_f_appealdeal a,T_D_ServQuality b' +
        ' where a.qualitycode=b.qualitycode And a.APP_ID=:APP_ID')
    Left = 68
    Top = 396
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'APP_ID'
        ParamType = ptUnknown
      end>
  end
  object DsOper: TDataSource
    DataSet = QueryOper
    Left = 104
    Top = 396
  end
  object QueryAnalyze: TQuery
    DatabaseName = 'db_vipdl'
    Left = 156
    Top = 396
  end
end