coutallywform.dfm

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

object Frm_AllBusi: TFrm_AllBusi
  Left = 301
  Top = 133
  BorderStyle = bsSingle
  Caption = '业务处理情况统计分析'
  ClientHeight = 274
  ClientWidth = 407
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 17
  object PC_Content: TPageControl
    Left = 0
    Top = 0
    Width = 407
    Height = 274
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '业务处理情况统计分析'
      object DsFancyButton1: TDsFancyButton
        Left = 163
        Top = 87
        Width = 99
        Height = 26
        ButtonColor = 12246235
        Caption = '确   定'
        FrameColor = 8306365
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton2: TDsFancyButton
        Left = 301
        Top = 85
        Width = 110
        Height = 28
        ButtonColor = 16773861
        Caption = '取   消'
        FrameColor = 16762766
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton3: TDsFancyButton
        Left = 172
        Top = 96
        Width = 99
        Height = 26
        ButtonColor = 12246235
        Caption = '确   定'
        FrameColor = 8306365
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton4: TDsFancyButton
        Left = 309
        Top = 94
        Width = 110
        Height = 28
        ButtonColor = 16773861
        Caption = '取   消'
        FrameColor = 16762766
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton7: TDsFancyButton
        Left = 163
        Top = 2
        Width = 99
        Height = 26
        ButtonColor = 12246235
        Caption = '确   定'
        FrameColor = 8306365
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object DsFancyButton8: TDsFancyButton
        Left = 290
        Top = 0
        Width = 110
        Height = 28
        ButtonColor = 16773861
        Caption = '取   消'
        FrameColor = 16762766
        FrameWidth = 4
        CornerRadius = 10
        Shape = shCapsule
        TextStyle = txRaised
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 399
        Height = 121
        Align = alTop
        BevelOuter = bvNone
        Color = 16775408
        TabOrder = 0
        object Label1: TLabel
          Left = 254
          Top = 56
          Width = 15
          Height = 17
          Caption = '年'
        end
        object Label2: TLabel
          Left = 253
          Top = 90
          Width = 15
          Height = 17
          Caption = '年'
        end
        object Label3: TLabel
          Left = 334
          Top = 57
          Width = 15
          Height = 17
          Caption = '月'
        end
        object Label4: TLabel
          Left = 333
          Top = 91
          Width = 15
          Height = 17
          Caption = '月'
        end
        object Label6: TLabel
          Left = 54
          Top = 57
          Width = 60
          Height = 17
          Caption = '统计月份'
        end
        object Label7: TLabel
          Left = 54
          Top = 94
          Width = 90
          Height = 17
          Caption = '累计起始月份'
        end
        object Label8: TLabel
          Left = 54
          Top = 17
          Width = 60
          Height = 17
          Caption = '业务类型'
        end
        object SE_CurrYear: TSpinEdit
          Left = 163
          Top = 51
          Width = 78
          Height = 27
          MaxValue = 2050
          MinValue = 1999
          TabOrder = 0
          Value = 1999
        end
        object SE_AddUpYear: TSpinEdit
          Left = 163
          Top = 87
          Width = 78
          Height = 27
          MaxValue = 2050
          MinValue = 1999
          TabOrder = 1
          Value = 1999
        end
        object SE_CurrMon: TSpinEdit
          Left = 281
          Top = 51
          Width = 47
          Height = 27
          MaxLength = 2
          MaxValue = 12
          MinValue = 1
          TabOrder = 2
          Value = 1
        end
        object SE_AddUpMon: TSpinEdit
          Left = 281
          Top = 87
          Width = 47
          Height = 27
          MaxValue = 12
          MinValue = 1
          TabOrder = 3
          Value = 1
        end
        object Cb_BusType: TComboBox
          Left = 163
          Top = 11
          Width = 161
          Height = 25
          Style = csDropDownList
          ImeName = '中文 (简体) - 郑码'
          ItemHeight = 17
          TabOrder = 4
          Items.Strings = (
            '故障报修'
            '用电申请'
            '投诉举报'
            '咨询查询')
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 121
        Width = 399
        Height = 123
        Align = alTop
        BevelOuter = bvLowered
        Color = 16775408
        TabOrder = 1
        object Label5: TLabel
          Left = 20
          Top = 15
          Width = 64
          Height = 19
          Caption = '报表模式'
          Font.Charset = ANSI_CHARSET
          Font.Color = 4194304
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Bevel1: TBevel
          Left = 239
          Top = 0
          Width = 1
          Height = 90
          Shape = bsLeftLine
        end
        object RB_Normal: TRadioButton
          Left = 19
          Top = 46
          Width = 92
          Height = 20
          Caption = '一般报表'
          Checked = True
          Font.Charset = ANSI_CHARSET
          Font.Color = 4194304
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
        end
        object RB_Word: TRadioButton
          Left = 124
          Top = 46
          Width = 106
          Height = 20
          Caption = 'WORD报表'
          Font.Charset = ANSI_CHARSET
          Font.Color = 4194304
          Font.Height = -16
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object Panel4: TPanel
          Left = -1
          Top = 82
          Width = 420
          Height = 46
          Color = 12422417
          TabOrder = 2
          object fcShapeBtn2: TfcShapeBtn
            Left = 204
            Top = 9
            Width = 86
            Height = 28
            Caption = '确定'
            Color = clBtnFace
            DitherColor = clWhite
            ParentClipping = True
            RoundRectBias = 25
            ShadeStyle = fbsHighlight
            Shape = bsRoundRect
            TabOrder = 0
            TextOptions.Alignment = taCenter
            TextOptions.VAlignment = vaVCenter
            OnClick = fcShapeBtn2Click
          end
          object fcShapeBtn3: TfcShapeBtn
            Left = 309
            Top = 9
            Width = 85
            Height = 28
            Caption = '取消'
            Color = clBtnFace
            DitherColor = clWhite
            ParentClipping = True
            RoundRectBias = 25
            ShadeStyle = fbsHighlight
            Shape = bsRoundRect
            TabOrder = 1
            TextOptions.Alignment = taCenter
            TextOptions.VAlignment = vaVCenter
            OnClick = fcShapeBtn3Click
          end
        end
        object fcShapeBtn1: TfcShapeBtn
          Left = 272
          Top = 27
          Width = 100
          Height = 29
          Caption = '自定义报表'
          Color = clBtnFace
          DitherColor = clWhite
          ParentClipping = True
          RoundRectBias = 25
          ShadeStyle = fbsHighlight
          Shape = bsRoundRect
          TabOrder = 3
          TextOptions.Alignment = taCenter
          TextOptions.VAlignment = vaVCenter
          Visible = False
          OnClick = fcShapeBtn1Click
        end
      end
    end
  end
end