coutallywform.~dfm

一个电力企业的后台管理程序

object Frm_AllBusi: TFrm_AllBusi
  Left = 301
  Top = 133
  Width = 385
  Height = 273
  Caption = '业务处理情况统计分析'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object PC_Content: TPageControl
    Left = 0
    Top = 0
    Width = 377
    Height = 246
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '业务处理情况统计分析'
      object DsFancyButton1: TDsFancyButton
        Left = 144
        Top = 77
        Width = 87
        Height = 23
        ButtonColor = 12246235
        Caption = '确   定'
        FrameColor = 8306365
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton2: TDsFancyButton
        Left = 266
        Top = 75
        Width = 97
        Height = 25
        ButtonColor = 16773861
        Caption = '取   消'
        FrameColor = 16762766
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton3: TDsFancyButton
        Left = 152
        Top = 85
        Width = 87
        Height = 23
        ButtonColor = 12246235
        Caption = '确   定'
        FrameColor = 8306365
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton4: TDsFancyButton
        Left = 273
        Top = 83
        Width = 97
        Height = 25
        ButtonColor = 16773861
        Caption = '取   消'
        FrameColor = 16762766
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton7: TDsFancyButton
        Left = 144
        Top = 2
        Width = 87
        Height = 23
        ButtonColor = 12246235
        Caption = '确   定'
        FrameColor = 8306365
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton8: TDsFancyButton
        Left = 256
        Top = 0
        Width = 97
        Height = 25
        ButtonColor = 16773861
        Caption = '取   消'
        FrameColor = 16762766
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 369
        Height = 107
        Align = alTop
        BevelOuter = bvNone
        Color = 16775408
        TabOrder = 0
        object Label1: TLabel
          Left = 224
          Top = 49
          Width = 15
          Height = 15
          Caption = '年'
        end
        object Label2: TLabel
          Left = 223
          Top = 79
          Width = 15
          Height = 15
          Caption = '年'
        end
        object Label3: TLabel
          Left = 295
          Top = 50
          Width = 15
          Height = 15
          Caption = '月'
        end
        object Label4: TLabel
          Left = 294
          Top = 80
          Width = 15
          Height = 15
          Caption = '月'
        end
        object Label6: TLabel
          Left = 48
          Top = 50
          Width = 60
          Height = 15
          Caption = '统计月份'
        end
        object Label7: TLabel
          Left = 48
          Top = 83
          Width = 90
          Height = 15
          Caption = '累计起始月份'
        end
        object Label8: TLabel
          Left = 48
          Top = 15
          Width = 60
          Height = 15
          Caption = '业务类型'
        end
        object SE_CurrYear: TSpinEdit
          Left = 144
          Top = 45
          Width = 69
          Height = 24
          MaxValue = 2050
          MinValue = 1999
          TabOrder = 0
          Value = 1999
        end
        object SE_AddUpYear: TSpinEdit
          Left = 144
          Top = 77
          Width = 69
          Height = 24
          MaxValue = 2050
          MinValue = 1999
          TabOrder = 1
          Value = 1999
        end
        object SE_CurrMon: TSpinEdit
          Left = 248
          Top = 45
          Width = 41
          Height = 24
          MaxLength = 2
          MaxValue = 12
          MinValue = 1
          TabOrder = 2
          Value = 1
        end
        object SE_AddUpMon: TSpinEdit
          Left = 248
          Top = 77
          Width = 41
          Height = 24
          MaxValue = 12
          MinValue = 1
          TabOrder = 3
          Value = 1
        end
        object Cb_BusType: TComboBox
          Left = 144
          Top = 10
          Width = 142
          Height = 23
          Style = csDropDownList
          ImeName = '中文 (简体) - 郑码'
          ItemHeight = 15
          TabOrder = 4
          Items.Strings = (
            '故障报修'
            '用电申请'
            '投诉举报'
            '咨询查询')
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 107
        Width = 369
        Height = 108
        Align = alTop
        BevelOuter = bvLowered
        Color = 16775408
        TabOrder = 1
        object Label5: TLabel
          Left = 18
          Top = 13
          Width = 60
          Height = 15
          Caption = '报表模式'
          Font.Charset = ANSI_CHARSET
          Font.Color = 4194304
          Font.Height = -15
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Bevel1: TBevel
          Left = 211
          Top = 0
          Width = 1
          Height = 79
          Shape = bsLeftLine
        end
        object RB_Normal: TRadioButton
          Left = 17
          Top = 41
          Width = 81
          Height = 17
          Caption = '一般报表'
          Checked = True
          Font.Charset = ANSI_CHARSET
          Font.Color = 4194304
          Font.Height = -15
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object RB_Word: TRadioButton
          Left = 109
          Top = 41
          Width = 82
          Height = 17
          Caption = 'WORD报表'
          Font.Charset = ANSI_CHARSET
          Font.Color = 4194304
          Font.Height = -15
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object Panel4: TPanel
          Left = -1
          Top = 72
          Width = 371
          Height = 41
          Color = 12422417
          TabOrder = 2
          object fcShapeBtn2: TfcShapeBtn
            Left = 180
            Top = 8
            Width = 76
            Height = 25
            Caption = '确定'
            Color = clBtnFace
            DitherColor = clWhite
            NumGlyphs = 0
            ParentClipping = True
            RoundRectBias = 25
            ShadeStyle = fbsHighlight
            Shape = bsRoundRect
            TabOrder = 0
            TextOptions.Alignment = taCenter
            TextOptions.VAlignment = vaVCenter
            OnClick = fcShapeBtn2Click
          end
          object fcShapeBtn3: TfcShapeBtn
            Left = 273
            Top = 8
            Width = 75
            Height = 25
            Caption = '取消'
            Color = clBtnFace
            DitherColor = clWhite
            NumGlyphs = 0
            ParentClipping = True
            RoundRectBias = 25
            ShadeStyle = fbsHighlight
            Shape = bsRoundRect
            TabOrder = 1
            TextOptions.Alignment = taCenter
            TextOptions.VAlignment = vaVCenter
            OnClick = fcShapeBtn3Click
          end
        end
        object fcShapeBtn1: TfcShapeBtn
          Left = 240
          Top = 24
          Width = 88
          Height = 25
          Caption = '自定义报表'
          Color = clBtnFace
          DitherColor = clWhite
          NumGlyphs = 0
          ParentClipping = True
          RoundRectBias = 25
          ShadeStyle = fbsHighlight
          Shape = bsRoundRect
          TabOrder = 3
          TextOptions.Alignment = taCenter
          TextOptions.VAlignment = vaVCenter
          OnClick = fcShapeBtn1Click
        end
      end
    end
  end
end