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

📄 unit_serverlog.dfm

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 DFM
📖 第 1 页 / 共 4 页
字号:
          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 = '服务序号'
          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 Label37: TLabel
          Left = 10
          Top = 256
          Width = 56
          Height = 14
          Caption = '对象名称'
        end
        object Label38: TLabel
          Left = 10
          Top = 13
          Width = 28
          Height = 14
          Caption = '地市'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label55: TLabel
          Left = 10
          Top = 40
          Width = 28
          Height = 14
          Caption = '局向'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label92: TLabel
          Left = 10
          Top = 68
          Width = 28
          Height = 14
          Caption = '工号'
        end
        object Label39: TLabel
          Left = 24
          Top = 156
          Width = 14
          Height = 14
          Caption = '从'
        end
        object FlatComboBoxObj2Q: TFlatComboBox
          Left = 41
          Top = 107
          Width = 110
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          Items.Strings = (
            ''
            '个人服务'
            '集团服务')
          TabOrder = 0
          ItemIndex = -1
        end
        object FlatCheckBoxVIP1Q: TFlatCheckBox
          Left = 10
          Top = 305
          Width = 81
          Height = 17
          Caption = '大户标志'
          TabOrder = 1
          TabStop = True
        end
        object FlatMaskEditBeginDate2Q: TFlatMaskEdit
          Left = 41
          Top = 150
          Width = 110
          Height = 22
          Hint = '格式:YYYY-MM-DD'
          ColorFlat = clWindow
          AutoSize = False
          BorderStyle = bsNone
          EditMask = '0000-00-00;1;_'
          MaxLength = 10
          TabOrder = 2
          Text = '    -  -  '
          ImeName = '中文 (简体) - 郑码'
        end
        object FlatMaskEditEndDate2Q: TFlatMaskEdit
          Left = 41
          Top = 181
          Width = 110
          Height = 22
          Hint = '格式:YYYY-MM-DD'
          ColorFlat = clWindow
          AutoSize = False
          BorderStyle = bsNone
          EditMask = '0000-00-00;1;_'
          MaxLength = 10
          TabOrder = 3
          Text = '    -  -  '
          ImeName = '中文 (简体) - 郑码'
        end
        object FlatComboBoxServKind2Q: TFlatComboBox
          Left = 41
          Top = 229
          Width = 110
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          Items.Strings = (
            ''
            '主动服务'
            '被动服务')
          TabOrder = 4
          ItemIndex = -1
        end
        object FlatCheckBoxFinish2Q: TFlatCheckBox
          Left = 10
          Top = 331
          Width = 87
          Height = 17
          Caption = '未完成标志'
          TabOrder = 5
          TabStop = True
        end
        object FlatButton9: TFlatButton
          Left = 43
          Top = 353
          Width = 79
          Height = 25
          Caption = '查询'
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333FF3FF3333333333CC30003333333333773777333333333C33
            3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
            33003377333337F33377333333333C333300333F333337F33377339333333C33
            3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
            330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
            330077F377F337F33377993399333C33330077FF773337F33377399993333C33
            33333777733337F333FF333333333C33300033333333373FF7773333333333CC
            3000333333333377377733333333333333333333333333333333}
          Layout = blGlyphLeft
          NumGlyphs = 2
          TabOrder = 6
          OnClick = FlatButton9Click
        end
        object DBGrid1: TDBGrid
          Left = 165
          Top = 6
          Width = 567
          Height = 134
          DataSource = DataSourceServeLog2
          ImeName = '中文 (简体) - 郑码'
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 7
          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 TreeView1: TTreeView
          Left = 320
          Top = 254
          Width = 39
          Height = 16
          Hint = '双击关系室,选择客户经理'
          HideSelection = False
          Indent = 19
          ReadOnly = True
          TabOrder = 8
          OnChange = TreeView1Change
        end
        object FlatCheckBoxVIP2: TFlatCheckBox
          Left = 161
          Top = 150
          Width = 81
          Height = 17
          Caption = '大户标志'
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          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 = 10
          TabStop = True
          OnClick = FlatCheckBoxFinish2Click
        end
        object FlatComboBoxServType2: TFlatComboBox
          Tag = 40
          Left = 412
          Top = 147
          Width = 125
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          TabOrder = 11
          ItemIndex = -1
        end
        object FlatComboBoxServMode2: TFlatComboBox
          Tag = 41
          Left = 610
          Top = 147
          Width = 125
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          TabOrder = 12
          ItemIndex = -1
        end
        object FlatComboBoxServKind2: TFlatComboBox
          Left = 227
          Top = 174
          Width = 115
          Height = 22
          Style = csDropDownList
          Color = clWindow
          ItemHeight = 14
          Items.Strings = (
            '主动服务'
            '被叫服务')
          TabOrder = 13
          Text = '主动服务'
          ItemIndex = 0
        end
        object FlatMaskEditBeginDate2: TFlatMaskEdit
          Left = 413
          Top = 175
          Width = 81
          Height = 20
          Hint = '格式:YYYY-MM-DD'
          ColorFlat = clWindow
          AutoSize = False
          BorderStyle = bsNone
          EditMask = '0000-00-00;1;_'
          MaxLength = 10
          TabOrder = 14
          Text = '    -  -  '
          ImeName = '中文 (简体) - 郑码'
        end
        object FlatMaskEditBeginTime2: TFlatMaskEdit
          Left = 498
          Top = 175
          Width = 42
          Height = 20
          Hint = '格式:HI24(24小时制)'
          ColorFlat = clWindow
          AutoSize = False
          BorderStyle = bsNone
          EditMask = '00:00;1;_'
          MaxLength = 5
          TabOrder = 15
          Text = '00:00'
          ImeName = '中文 (简体) - 郑码'
        end
        object FlatMaskEditEndDate2: TFlatMaskEdit
          Left = 611
          Top = 175
          Width = 81
          Height = 20
          Hint = ':YYYY-MM-DD'
          ColorFlat = clWhite
          AutoSize = False
          BorderStyle = bsNone
          Color = clWhite
          Enabled = False
          TabOrder = 16
          ImeName = '中文 (简体) - 郑码'
        end
        object FlatMaskEditEndTime2: TFlatMaskEdit
          Left = 693
          Top = 175
          Width = 42
          Height = 20
          ColorFlat = clWhite
          AutoSize = False
          BorderStyle = bsNone
          Color = clWhite

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -