report.dfm

家庭收支管理

object ReportForm: TReportForm
  Left = 11
  Top = 13
  BorderStyle = bsSingle
  Caption = #25910#25903#25253#21578
  ClientHeight = 538
  ClientWidth = 791
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Shape1: TShape
    Left = 0
    Top = 80
    Width = 25
    Height = 33
    Brush.Color = clBtnFace
    Pen.Style = psClear
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 777
    Height = 105
    Caption = #26465#20214#35774#23450
    TabOrder = 0
    object Label2: TLabel
      Left = 25
      Top = 66
      Width = 48
      Height = 12
      Caption = #36215#22987#26085#26399
    end
    object Label3: TLabel
      Left = 238
      Top = 66
      Width = 48
      Height = 12
      Caption = #32456#27490#26085#26399
    end
    object Button1: TButton
      Left = 436
      Top = 59
      Width = 100
      Height = 25
      Caption = #32479#35745
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button: TButton
      Left = 643
      Top = 59
      Width = 100
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = ButtonClick
    end
    object Button2: TButton
      Left = 540
      Top = 59
      Width = 100
      Height = 25
      Caption = #26174#31034#27169#24335#20999#25442
      TabOrder = 2
      OnClick = Button2Click
    end
    object cbx_account: TDBCheckBoxEh
      Left = 24
      Top = 26
      Width = 83
      Height = 17
      AlwaysShowBorder = True
      Caption = #25353#36134#25143#32479#35745
      Flat = True
      TabOrder = 3
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbx_accountClick
    end
    object cbx_code: TDBCheckBoxEh
      Left = 388
      Top = 26
      Width = 82
      Height = 17
      AlwaysShowBorder = True
      Caption = #25353#39033#30446#32479#35745
      Flat = True
      TabOrder = 4
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      OnClick = cbx_codeClick
    end
    object cmb_account: TDBComboBoxEh
      Left = 106
      Top = 24
      Width = 270
      Height = 21
      AlwaysShowBorder = True
      Enabled = False
      EditButtons = <>
      Flat = True
      TabOrder = 5
      Visible = True
    end
    object cmb_code: TDBComboBoxEh
      Left = 472
      Top = 24
      Width = 270
      Height = 21
      AlwaysShowBorder = True
      Enabled = False
      EditButtons = <>
      Flat = True
      TabOrder = 6
      Visible = True
    end
    object First_date: TDBDateTimeEditEh
      Left = 80
      Top = 62
      Width = 121
      Height = 21
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 7
      Visible = True
    end
    object Last_date: TDBDateTimeEditEh
      Left = 296
      Top = 62
      Width = 121
      Height = 21
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 8
      Visible = True
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 114
    Width = 791
    Height = 399
    ActivePage = TabSheet1
    Align = alBottom
    Style = tsFlatButtons
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      TabVisible = False
      object Chart1: TChart
        Left = 604
        Top = 5
        Width = 176
        Height = 186
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          #25910#20837#27604#20363#26500#25104#22270)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        Legend.TextStyle = ltsRightValue
        Legend.Visible = False
        View3D = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        BevelOuter = bvSpace
        TabOrder = 1
        OnMouseMove = Chart1MouseMove
        object Series1: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsValue
          Marks.Visible = False
          PercentFormat = '##0.00 %'
          SeriesColor = clRed
          ValueFormat = '#,##0.00'
          Circled = True
          Dark3D = False
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
        end
      end
      object Chart2: TChart
        Left = 604
        Top = 197
        Width = 176
        Height = 186
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          #25903#20986#27604#20363#26500#25104#22270)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        Legend.TextStyle = ltsRightValue
        Legend.Visible = False
        View3D = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        BevelOuter = bvSpace
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnMouseMove = Chart2MouseMove
        object Series2: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsLabelPercent
          Marks.Visible = False
          PercentFormat = '##0.00 %'
          SeriesColor = clRed
          ValueFormat = '#,##0.00'
          Circled = True
          Dark3D = False
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
        end
      end
      object DBGridEh: TDBGridEh
        Left = 4
        Top = 6
        Width = 588
        Height = 377
        AutoFitColWidths = True
        Flat = True
        FooterColor = clMoneyGreen
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        RowHeight = 3
        RowLines = 1
        SumList.Active = True
        TabOrder = 2
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleLines = 2
        UseMultiTitle = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'szName'
            Footers = <
              item
                DisplayFormat = '#,##0.00'
                FieldName = 'chae'
                ValueType = fvtSum
              end>
            Layout = tlCenter
            Title.Caption = #39033#30446#21517#31216
            Width = 155
          end
          item
            DisplayFormat = '#,##0.00'
            EditButtons = <>
            FieldName = 'Income'
            Footers = <
              item
                DisplayFormat = '#,##0.00'
                FieldName = 'Income'
                ValueType = fvtSum
              end>
            Layout = tlCenter
            Title.Caption = #25910#20837'|'#37329#39069
            Width = 128
          end
          item
            DisplayFormat = '#,##0.00'
            EditButtons = <>
            FieldName = 'I_Percent'
            Footers = <
              item
                DisplayFormat = '#,##0.00'
                FieldName = 'I_Percent'
                ValueType = fvtSum
              end>
            Layout = tlCenter
            Title.Caption = #25910#20837'|'#30334#20998#27604
            Width = 69
          end
          item
            DisplayFormat = '#,##0.00'
            EditButtons = <>
            FieldName = 'Payout'
            Footers = <
              item
                DisplayFormat = '#,##0.00'
                FieldName = 'Payout'
                ValueType = fvtSum
              end>
            Layout = tlCenter
            Title.Caption = #25903#20986'|'#37329#39069
            Width = 127
          end
          item
            DisplayFormat = '#,##0.00'
            EditButtons = <>
            FieldName = 'P_Percent'
            Footers = <
              item
                DisplayFormat = '#,##0.00'
                FieldName = 'P_Percent'
                ValueType = fvtSum
              end>
            Layout = tlCenter
            Title.Caption = #25903#20986'|'#30334#20998#27604
            Width = 73
          end
          item
            EditButtons = <>
            FieldName = 'chae'
            Footers = <>
            Layout = tlCenter
            Visible = False
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 2
      TabVisible = False
      object Chart3: TChart
        Left = 4
        Top = 5
        Width = 777
        Height = 186
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          #25910#20837#27604#20363#26500#25104#22270)
        Legend.TextStyle = ltsRightValue
        Legend.Visible = False
        TabOrder = 0
        object Series3: TBarSeries
          ColorEachPoint = True
          Marks.ArrowLength = 20
          Marks.Style = smsLabelValue
          Marks.Visible = True
          SeriesColor = clRed
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
      end
      object Chart4: TChart
        Left = 4
        Top = 198
        Width = 777
        Height = 186
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          #25903#20986#27604#20363#26500#25104#22270)
        Legend.TextStyle = ltsRightValue
        Legend.Visible = False
        TabOrder = 1
        object Series4: TBarSeries
          ColorEachPoint = True
          Marks.ArrowLength = 20
          Marks.Style = smsLabelValue
          Marks.Visible = True
          SeriesColor = clRed
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 513
    Width = 791
    Height = 25
    Panels = <
      item
        Alignment = taCenter
        Text = #20449#24687#26174#31034
        Width = 100
      end
      item
        Style = psOwnerDraw
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
    OnDrawPanel = StatusBar1DrawPanel
  end
end