unit_serverlog.dfm

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

          Enabled = False
          TabOrder = 17
          ImeName = '中文 (简体) - 郑码'
        end
        object FlatEditObject2Value: TFlatEdit
          Left = 221
          Top = 203
          Width = 121
          Height = 20
          ColorFlat = clWindow
          MaxLength = 20
          TabOrder = 18
          OnKeyPress = FlatEditObject1ValueKeyPress
        end
        object FlatEditObjectName2: TFlatEdit
          Left = 410
          Top = 204
          Width = 147
          Height = 19
          ColorFlat = clWindow
          MaxLength = 60
          TabOrder = 19
        end
        object FlatComboBoxServQuality2: TFlatComboBox
          Tag = 42
          Left = 623
          Top = 202
          Width = 112
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          TabOrder = 20
          ItemIndex = -1
        end
        object FlatEditServMoney2: TFlatEdit
          Left = 222
          Top = 230
          Width = 81
          Height = 20
          ColorFlat = clWindow
          MaxLength = 7
          TabOrder = 21
          OnChange = FlatEditServMoney2Change
          OnKeyPress = FlatEditServMoney1KeyPress
        end
        object FlatEditUseMoney2: TFlatEdit
          Left = 410
          Top = 230
          Width = 81
          Height = 20
          ColorFlat = clWindow
          MaxLength = 7
          TabOrder = 22
          OnChange = FlatEditUseMoney2Change
          OnKeyPress = FlatEditUseMoney1KeyPress
        end
        object FlatSpinEditFloat1: TFlatSpinEditFloat
          Tag = 1
          Left = 626
          Top = 230
          Width = 89
          Height = 21
          ColorFlat = clWhite
          AutoSize = False
          Digits = 2
          Precision = 9
          FloatFormat = ffGeneral
          Enabled = False
          Increment = 0.5
          TabOrder = 23
        end
        object FlatMemo1: TFlatMemo
          Left = 163
          Top = 280
          Width = 572
          Height = 39
          ColorFlat = clWindow
          MaxLength = 200
          ScrollBars = ssVertical
          TabOrder = 24
          Lines.Strings = (
            '')
        end
        object FlatMemoObjInfo2: TFlatMemo
          Left = 162
          Top = 344
          Width = 278
          Height = 38
          ColorFlat = clWindow
          MaxLength = 200
          ScrollBars = ssVertical
          TabOrder = 25
        end
        object FlatMemoObjAdvice2: TFlatMemo
          Left = 458
          Top = 344
          Width = 278
          Height = 38
          ColorFlat = clWindow
          MaxLength = 200
          ScrollBars = ssVertical
          TabOrder = 26
        end
        object FlatEditServObj: TFlatEdit
          Left = 41
          Top = 274
          Width = 110
          Height = 20
          ColorFlat = clWhite
          TabOrder = 27
        end
        object FlatComboBoxCity: TFlatComboBox
          Left = 41
          Top = 9
          Width = 110
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          TabOrder = 28
          ItemIndex = -1
          OnChange = FlatComboBoxCityChange
        end
        object FlatComboBoxCounty: TFlatComboBox
          Left = 41
          Top = 36
          Width = 110
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          TabOrder = 29
          ItemIndex = -1
        end
        object FlatComboBox_ManagerNo: TFlatComboBox
          Left = 41
          Top = 64
          Width = 110
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          TabOrder = 30
          ItemIndex = -1
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '查询修改记录'
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Panel3: TPanel
        Left = 2
        Top = 2
        Width = 742
        Height = 387
        BevelOuter = bvLowered
        TabOrder = 0
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 742
          Height = 387
          BevelOuter = bvLowered
          TabOrder = 0
          object Label40: TLabel
            Left = 10
            Top = 10
            Width = 56
            Height = 14
            Caption = '修改日期'
          end
          object Label41: TLabel
            Left = 157
            Top = 10
            Width = 14
            Height = 14
            Caption = '至'
          end
          object Label42: TLabel
            Left = 10
            Top = 205
            Width = 56
            Height = 14
            Caption = '修改内容'
          end
          object FlatMaskEditModiBgnDate: TFlatMaskEdit
            Left = 71
            Top = 7
            Width = 81
            Height = 20
            Hint = '格式:YYYY-MM-DD'
            ColorFlat = clWhite
            AutoSize = False
            BorderStyle = bsNone
            Color = clWhite
            EditMask = '0000-00-00;1;_'
            MaxLength = 10
            TabOrder = 0
            Text = '    -  -  '
            ImeName = '中文 (简体) - 郑码'
          end
          object FlatMaskEditModiEndDate: TFlatMaskEdit
            Left = 174
            Top = 7
            Width = 81
            Height = 20
            Hint = '格式:YYYY-MM-DD'
            ColorFlat = clWhite
            AutoSize = False
            BorderStyle = bsNone
            Color = clWhite
            EditMask = '0000-00-00;1;_'
            MaxLength = 10
            TabOrder = 1
            Text = '    -  -  '
            ImeName = '中文 (简体) - 郑码'
          end
          object FlatButton2: TFlatButton
            Left = 266
            Top = 5
            Width = 81
            Height = 23
            Caption = '查询'
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              333333333333333FF3FF3333333333CC30003333333333773777333333333C33
              3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
              33003377333337F33377333333333C333300333F333337F33377339333333C33
              3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
              330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
              330077F377F337F33377993399333C33330077FF773337F33377399993333C33
              33333777733337F333FF333333333C33300033333333373FF7773333333333CC
              3000333333333377377733333333333333333333333333333333}
            Layout = blGlyphLeft
            NumGlyphs = 2
            TabOrder = 2
            OnClick = FlatButton1Click
          end
          object DBGrid3: TDBGrid
            Left = 7
            Top = 31
            Width = 729
            Height = 169
            DataSource = DataSourceServModi
            ImeName = '中文 (简体) - 郑码'
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 3
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -14
            TitleFont.Name = '宋体'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'BeginTime'
                Title.Caption = '服务开始时间'
                Width = 102
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EndTime'
                Title.Caption = '服务结束时间'
                Width = 100
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ServObj'
                Title.Caption = '服务对象'
                Width = 88
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ObjName'
                Title.Caption = '对象名称'
                Width = 106
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ModiTime'
                Title.Caption = '修改时间'
                Width = 96
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ModiGH'
                Title.Caption = '修改工号'
                Width = 81
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ModiContent'
                Title.Caption = '修改内容'
                Width = 121
                Visible = True
              end>
          end
          object MemoModiContent: TMemo
            Left = 7
            Top = 225
            Width = 729
            Height = 158
            ImeName = '中文 (简体) - 郑码'
            TabOrder = 4
          end
        end
      end
    end
  end
  object QueryInitValues: TQuery
    DatabaseName = 'db_vipdl'
    Left = 71
    Top = 388
  end
  object QueryTemp: TQuery
    DatabaseName = 'db_vipdl'
    Left = 103
    Top = 388
  end
  object ImageList1: TImageList
    Left = 260
    Top = 271
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000001002
      100210020000000000000000000000000000007C000000000000007C00000000
      00000000007C0000000000000000EF3D00000000000000000000000000000000
      0000000000000000000000000000000000000000104210421042104210421042
      10421042104210421042104200000000000000000000000010021002FF03FF03
      FF03FF03FF031002100200000000000000000000007C00000000007C00000000
      000000000000007C00000000EF3D007C00000000000000000000000000000000
      0000000000000000000000000000000000000000104200001863E07F1863E07F
      18631863E07F1863E07F1042000000000000000000000000FF03FF03FF031002
      10021002FF03FF03FF0310020000000000000000EF3D007CEF3D007C00000000
      000000000000EF3D007CEF3D007C000000000000000000000000000000000000
      000000000000000000000000000000000000000010420000E07F1863E07F1863
      E07FE07F1863E07F18631042000000000000000000000000000010021002FF03
      FF03FF03100210020000000000000000000000000000007C007C000000000000
      0000000000000000007C007C0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000104200001863E07F1863E07F
      18631863E07F1863E07F10420000000000000000000000001002FF03FF03FF03
      FF03FF03FF03FF031002000000000000000000000000007C007C0000007C0000
      00000000007C0000007C007C0000000000000000000000000000000000000000
      000000000000000000000000000000000000000010420000E07F1863E07F1863
      E07FE07F1863E07F18631042000000000000000000000000FF03FF0300000000
      000000000000FF03FF0310020000000000000000007C007C007C007C00000000
      000000000000007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000104200001863E07F1863E07F
      18631863E07F1863E07F10420000000000000000000000001002000000001002
      100210020000000010021002000000000000007C0000007C007C000000000000
      00000000000000000000007C0000000000000000000000000000000000000000
      000000000000000000000000000000000000000010420000E07F1863E07F1863
      E07FE07F1863E07F18631042000000000000000000000000FF03FF03FF03FF03
      FF03FF03FF03FF03FF031002000000000000000000000000007C007C00000000
      00000000000000000000007C007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000104200001863E07F1863E07F
      18631863E07F1863E07F1042000000000000000000000000FF03FF03FF03FF03
      FF03FF03FF03FF03FF03FF03000000000000000000000000007C007C00000000
      00000000000000000000007C007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000104218631863E07F1863E07F
      186310421042104210421042000000000000000000000000FF03FF03FF03FF03
      FF03FF03FF03FF03FF0310020000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000001042E07F1863E07F1863
      10420000000000000000000000000000000000000000000010021002FF03FF03
      FF03FF03FF031002100200000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001042104210421042
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFF80000000FFFFFFFF55550000
      FFFFF01F00000000FFFFE00776BC00008007C007B6D80000A007C00786C20000
      A007C007CEE60000A007C007CAA60000A007C00786C00000A007C0074EF60000
      A007C007E6F20000A007C007E6F200008007C007FEFE0000C0FFC00700000000
      E1FFF01F55550000FFFFFFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object QueryTmp2: TQuery
    DatabaseName = 'db_vipdl'
    Left = 145
    Top = 387
  end
  object QueryServeLog2: TQuery
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      
        'Select SERVICECODE,decode(L.OBJTYPE,0,'#39'个人'#39',1,'#39'集团'#39') ObjType,d' +
        'ecode(L.ObjFlag,'#39'0'#39','#39'大户'#39','#39'1'#39','#39'非大户'#39','#39'2'#39','#39'亲属伙伴'#39') ObjFlag,'
      
        'ServObj,ObjName,SERVTYPE,SERVMODE,decode(L.ServKind,0,'#39'主动服务'#39 +
        ',1,'#39'被动服务'#39') ServKind,SERVQUALITY,Decode(L.Finish,0,'#39'未完成'#39',1' +
        ','#39'完成'#39') Finish,'
      
        'L.Wk_No Wk_No,To_Char(L.BeginTime,'#39'YYYY-MM-DD'#39') Beg_Date,To_Char' +
        '(L.BeginTime,'#39'HH24:MI'#39') Beg_time,'
      
        'To_Char(L.EndTime,'#39'YYYY-MM-DD'#39') End_Date,To_Char(L.EndTime,'#39'HH24' +
        ':MI'#39') End_Time,ServCont,ObjAdvice Advice,ObjInfo,'
      'ServMoney,UseMoney,TotalMoney'
      
        'From T_F_ServiceLog L,T_F_ServMode M,T_F_ServType T,T_F_ServQual' +
        'ity Q'
      
        'Where L.TypeCode=T.TYPECODE And L.ModeCode=M.MODECODE And L.Qual' +
        'ityCode=Q.QUALITYCODE And L.TYPECODE>4 And wk_no=:PS_Wk_NO')
    Left = 186
    Top = 387
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PS_Wk_NO'
        ParamType = ptUnknown
      end>
  end
  object DataSourceServeLog2: TDataSource
    DataSet = QueryServeLog2
    OnDataChange = DataSourceServeLog2DataChange
    Left = 217
    Top = 387
  end
  object QueryServModi: TQuery
    DatabaseName = 'db_vipdl'
    Left = 260
    Top = 388
  end
  object DataSourceServModi: TDataSource
    DataSet = QueryServModi
    OnDataChange = DataSourceServModiDataChange
    Left = 292
    Top = 388
  end
  object QueryGroupInfoT: TQuery
    DatabaseName = 'db_vipdl'
    Left = 358
    Top = 342
  end
end