unit_querycapture.dfm

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

inherited FRM_QueryCapture: TFRM_QueryCapture
  Left = 191
  Top = 208
  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 = 511
              Height = 115
              object Label8: TLabel
                Left = 34
                Top = 97
                Width = 14
                Height = 14
                Caption = '至'
              end
              object Label9: TLabel
                Left = 34
                Top = 74
                Width = 14
                Height = 14
                Caption = '从'
              end
              object Label10: TLabel
                Left = 7
                Top = 26
                Width = 63
                Height = 14
                Caption = '销账状态:'
              end
              object Label11: TLabel
                Left = 7
                Top = 3
                Width = 63
                Height = 14
                Caption = '付款方式:'
              end
              object dtpGR_OutDateBegin: TDateTimePicker
                Left = 72
                Top = 71
                Width = 130
                Height = 22
                CalAlignment = dtaLeft
                Date = 37466.6513419676
                Time = 37466.6513419676
                Color = clActiveBorder
                DateFormat = dfShort
                DateMode = dmComboBox
                Enabled = False
                Kind = dtkDate
                ParseInput = False
                TabOrder = 0
              end
              object dtpGR_OutDateEnd: TDateTimePicker
                Left = 72
                Top = 95
                Width = 130
                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 cbGR_OutDate: TFlatCheckBox
                Left = 7
                Top = 50
                Width = 135
                Height = 16
                Caption = '出帐时间段'
                Font.Charset = GB2312_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
                TabOrder = 2
                TabStop = True
                OnClick = cbGR_OutDateClick
              end
              object coGR_WriteOffType: TFlatComboBox
                Left = 71
                Top = 24
                Width = 130
                Height = 22
                Style = csDropDownList
                Color = clBtnFace
                ItemHeight = 14
                TabOrder = 3
                ItemIndex = -1
                OnKeyPress = coGR_citynoKeyPress
              end
              object coGR_USER_FKFS: TFlatComboBox
                Left = 71
                Top = 0
                Width = 130
                Height = 22
                Style = csDropDownList
                Color = clBtnFace
                ItemHeight = 14
                TabOrder = 4
                ItemIndex = -1
                OnKeyPress = coGR_citynoKeyPress
              end
            end
            inherited PanelGR_base: TPanel
              Top = 390
            end
            inherited PanelGR_Stuff: TPanel
              Top = 312
            end
            inherited PanelGRBTN_highlevel: TPanel
              Top = 466
            end
            inherited PanelGR_highlevel2: TPanel
              Top = 795
            end
            inherited PanelGR_highlevel: TPanel
              Top = 897
            end
            inherited PanelGR_highlevel1: TPanel
              Top = 626
            end
            inherited PanelGR_SelectOrder: TPanel
              Top = 45
            end
            inherited PanelGRBTN_SelectOrder: TPanel
              Top = 0
            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 = '序号'
          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 = 'OUTDATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出帐日期'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BASICFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '基本费'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADDFUNFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '附加功能费'
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'USEFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '频占费'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CITYFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '市话费'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'COUNTRYFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '农话费'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LONGFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '长途费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADDFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '附加费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'INTERFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '国际附加费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PICITYFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省内市话费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PICOUNTRYFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省内农话费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PILONGFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省内长途费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PIADDFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省内附加费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PIINTERFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省内国际费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POCITYFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省际市话费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POCOUNTRYFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省际农话费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POLONGFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省际长途费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POADDFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省际附加费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POINTERFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '省际国际费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'INTERRAMBLEFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '国际漫游通话费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'INTERRAMBLELONGFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '国际漫游长途费'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TOTALFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '总消费金额'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEGREETOTAL'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '总通话次数'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TIMETOTAL'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '总通话时长'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'THRIFTFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '总优惠金额'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'COUNFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '抵扣金额'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WRITEOFFFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销账金额'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WRITEOFFSTATUS'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销账标志'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AMERCEFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '滞纳金'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AMERCEWRITEOFFFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '滞纳金抵扣'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'COPEFEE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '帐单金额'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WRITEOFFTYPE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销账类型'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WRITEOFFDATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销账时间'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DJDM_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '消费层次'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SXDM_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户属性'
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'USER_ZJBS_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '品牌类型'
          Width = 66
          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 = 'CITYNO_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '地市'
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OFF_NO_HOME_DESC'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '局向'
          Width = 39
          Visible = True
        end>
    end
  end
  inherited browse_normal: TQuery
    SQL.Strings = (
      'SELECT * FROM T_V_GR_QueryCapture')
  end
end