frm_sjtj.dfm

用于家庭养殖的财务进出

object Frm_TJ: TFrm_TJ
  Left = 214
  Top = 145
  Width = 699
  Height = 337
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25968#25454#32479#35745
  Color = clBtnFace
  Constraints.MaxHeight = 337
  Constraints.MaxWidth = 699
  Constraints.MinHeight = 337
  Constraints.MinWidth = 699
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 111
    Height = 13
    Caption = #21021#22987#21270#32479#35745#25968#25454#36827#24230':'
  end
  object B_Start: TButton
    Left = 56
    Top = 276
    Width = 105
    Height = 25
    Caption = #24320#22987#32479#35745
    TabOrder = 0
    OnClick = B_StartClick
  end
  object RG_Goal: TRadioGroup
    Left = 8
    Top = 48
    Width = 153
    Height = 225
    Caption = #23545#35937
    TabOrder = 1
    OnClick = RG_GoalClick
  end
  object PB1: TProgressBar
    Left = 8
    Top = 24
    Width = 150
    Height = 16
    Max = 500
    Step = 1
    TabOrder = 2
  end
  object Chart1: TChart
    Left = 168
    Top = 24
    Width = 521
    Height = 274
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #32479#35745#32467#26524)
    TabOrder = 3
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      SeriesColor = clRed
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
end