utotal.dfm

是个办公系统,可以实现财务上的管理和人员的流动

object frmTotal: TfrmTotal
  Left = 241
  Top = 209
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #24037#36164#21457#25918#19982#26085#24120#24320#38144#32479#35745
  ClientHeight = 349
  ClientWidth = 623
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 194
    Height = 349
    Align = alLeft
    Caption = #36130#21153#36164#37329#32479#35745
    TabOrder = 0
    object Panel1: TPanel
      Left = 2
      Top = 321
      Width = 190
      Height = 26
      Align = alBottom
      TabOrder = 0
      object RadioGroup1: TRadioGroup
        Left = 1
        Top = -6
        Width = 188
        Height = 31
        Align = alBottom
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          #24037#36164#21457#25918
          #26085#24120#24320#38144)
        TabOrder = 0
        OnClick = RadioGroup1Click
      end
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 190
      Height = 306
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'department'
          Title.Caption = #37096#38376#21517#31216
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sumsal'
          Title.Caption = #24037#36164#24635#21644
          Width = 70
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 194
    Top = 0
    Width = 429
    Height = 349
    Align = alClient
    TabOrder = 1
    object DBChart1: TDBChart
      Left = 0
      Top = 6
      Width = 436
      Height = 344
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      Title.Text.Strings = (
        #21508#20010#37096#38376#21592#24037#24037#36164#30340#32479#35745)
      TabOrder = 0
      object Series1: TBarSeries
        Marks.ArrowLength = 20
        Marks.Visible = True
        SeriesColor = clRed
        XLabelsSource = 'department'
        XValues.DateTime = False
        XValues.Name = 'X'
        XValues.Multiplier = 1.000000000000000000
        XValues.Order = loAscending
        XValues.ValueSource = 'sumsal'
        YValues.DateTime = False
        YValues.Name = 'Bar'
        YValues.Multiplier = 1.000000000000000000
        YValues.Order = loNone
        YValues.ValueSource = 'sumsal'
      end
    end
  end
end