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

📄 unit_queryoperationuse.dfm

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 DFM
字号:
inherited FRM_QueryOperationUse: TFRM_QueryOperationUse
  Left = 112
  Top = 245
  ActiveControl = cbGR_Fun
  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
              Height = 187
              BorderWidth = 2
              object cbGR_Fun: TFlatCheckBox
                Left = 8
                Top = 2
                Width = 73
                Height = 17
                Caption = '各功能项'
                Checked = True
                TabOrder = 0
                TabStop = True
                OnClick = cbGR_FunClick
              end
              object btnGR_FunFull: TFlatButton
                Left = 96
                Top = 2
                Width = 49
                Height = 20
                Caption = '全选'
                TabOrder = 1
                OnClick = btnGR_FunFullClick
              end
              object BtnGR_FunNone: TFlatButton
                Left = 152
                Top = 0
                Width = 49
                Height = 22
                Caption = '非选'
                TabOrder = 2
                OnClick = BtnGR_FunNoneClick
              end
              object clbGR_Fun: TCheckListBox
                Left = 2
                Top = 24
                Width = 209
                Height = 161
                Align = alBottom
                Columns = 2
                ItemHeight = 14
                TabOrder = 3
              end
            end
            inherited PanelGR_Stuff: TPanel
              Top = 575
            end
            inherited PanelGRBTN_highlevel: TPanel
              Top = 653
            end
            inherited PanelGR_highlevel2: TPanel
              Top = 867
            end
            inherited PanelGR_highlevel: TPanel
              Top = 969
            end
            inherited PanelGR_highlevel1: TPanel
              Top = 698
            end
            inherited PanelGR_SelectOrder: TPanel
              Top = 308
            end
            inherited PanelGRBTN_SelectOrder: TPanel
              Top = 263
            end
          end
        end
      end
    end
  end
  inherited Panel2: TPanel
    inherited Panel3: TPanel
      inherited FlatButton2: TFlatButton
        OnClick = FlatButton2Click
      end
    end
    inherited dbgGR: TDBGrid
      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 = 'FUN1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN2'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN3'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN4'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN5'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN6'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN7'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN8'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN9'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN10'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN11'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN12'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN13'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN14'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN15'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN16'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN17'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN18'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN19'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FUN20'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DJDM_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '消费层次'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SXDM_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户属性'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'USER_ZJBS_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '品牌类型'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STAT_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '手机状态'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Zwsj'
          PickList.Strings = ()
          Title.Caption = '在网时长'
          Width = 60
          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 = 'BE_DH_T'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '成为大客户'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XB_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '性别'
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AGE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '年龄'
          Width = 31
          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 = 'VIP_NO_C'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = 'VIP卡号'
          Width = 92
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lxdh'
          PickList.Strings = ()
          Title.Caption = '联系电话'
          Width = 60
          Visible = True
        end>
    end
  end
  inherited browse_normal: TQuery
    SQL.Strings = (
      'select * from t_V_GR_QueryOperationUse')
  end
end

⌨️ 快捷键说明

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