frmmain.dfm

里面有个人一天消费管理

object MainFm: TMainFm
  Left = 0
  Top = 0
  Caption = 'TslMoney'
  ClientHeight = 701
  ClientWidth = 750
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object St_bar: TRzStatusBar
    Left = 0
    Top = 682
    Width = 750
    Height = 19
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    GradientColorStyle = gcsMSOffice
    TabOrder = 0
    VisualStyle = vsGradient
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 161
      Height = 19
      Align = alLeft
      Caption = #23601#32490
      ExplicitLeft = -6
      ExplicitTop = 6
    end
    object RzStatusPane2: TRzStatusPane
      Left = 161
      Top = 0
      Width = 354
      Height = 19
      Align = alClient
      ExplicitLeft = 105
      ExplicitWidth = 376
    end
    object RzKeyStatus1: TRzKeyStatus
      Left = 615
      Top = 0
      Height = 19
      Align = alRight
      Key = tkNumLock
      Alignment = taCenter
      ExplicitLeft = 750
      ExplicitHeight = 20
    end
    object RzKeyStatus2: TRzKeyStatus
      Left = 705
      Top = 0
      Height = 19
      Align = alRight
      Alignment = taCenter
      ExplicitLeft = 750
      ExplicitHeight = 20
    end
    object RzKeyStatus3: TRzKeyStatus
      Left = 660
      Top = 0
      Height = 19
      Align = alRight
      Key = tkScrollLock
      Alignment = taCenter
      ExplicitLeft = 750
      ExplicitHeight = 20
    end
    object RzProgressStatus1: TRzProgressStatus
      Left = 515
      Top = 0
      Height = 19
      FrameStyle = fsStatus
      Align = alRight
      ParentShowHint = False
      BarStyle = bsLED
      PartsComplete = 0
      Percent = 0
      TotalParts = 0
      ExplicitLeft = 750
      ExplicitHeight = 20
    end
  end
  object Tl_bar: TRzToolbar
    Left = 0
    Top = 0
    Width = 750
    Height = 35
    AutoStyle = False
    Images = ImgLst_32
    ButtonWidth = 60
    ShowButtonCaptions = True
    TextOptions = ttoCustom
    AutoSize = True
    BorderInner = fsNone
    BorderOuter = fsStatus
    BorderSides = [sdTop]
    BorderWidth = 0
    GradientColorStyle = gcsMSOffice
    TabOrder = 1
    VisualStyle = vsGradient
    ToolbarControls = (
      Tl_Btn_homepage
      Tl_Btn_Income
      Tl_Btn_Payout
      Tl_Btn_bank
      Tl_Btn_About)
    object Tl_Btn_homepage: TRzToolButton
      Left = 4
      Top = 0
      Width = 64
      Height = 35
      ImageIndex = 4
      Images = ImgLst_32
      ShowCaption = True
      UseToolbarButtonSize = False
      UseToolbarShowCaption = False
      Caption = #20027#39029
      OnClick = Tl_Btn_homepageClick
    end
    object Tl_Btn_Income: TRzToolButton
      Left = 68
      Top = 0
      Width = 64
      Height = 35
      ImageIndex = 5
      UseToolbarButtonSize = False
      Caption = #25910#20837
      OnClick = Tl_Btn_IncomeClick
    end
    object Tl_Btn_Payout: TRzToolButton
      Left = 132
      Top = 0
      Width = 64
      Height = 35
      ImageIndex = 7
      UseToolbarButtonSize = False
      Caption = #25903#20986
      OnClick = Tl_Btn_PayoutClick
    end
    object Tl_Btn_bank: TRzToolButton
      Left = 196
      Top = 0
      Width = 100
      Height = 35
      ImageIndex = 2
      UseToolbarButtonSize = False
      Caption = #38134#34892#36134#25143
      OnClick = Tl_Btn_bankClick
    end
    object Tl_Btn_About: TRzToolButton
      Left = 296
      Top = 0
      Width = 64
      Height = 35
      ImageIndex = 1
      UseToolbarButtonSize = False
      Caption = #20851#20110
      OnClick = Tl_Btn_AboutClick
    end
  end
  object PanWorkArea: TRzPanel
    Left = 0
    Top = 35
    Width = 750
    Height = 647
    Align = alClient
    BorderOuter = fsLowered
    TabOrder = 2
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    Images = ImgLst_16
    OwnerDraw = True
    Left = 288
    Top = 280
    object N1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N2: TMenuItem
        Caption = #36864#20986
        ImageIndex = 8
        OnClick = N2Click
      end
    end
    object Edit1: TMenuItem
      Caption = #32534#36753' (&E)'
      object Cut1: TMenuItem
        Caption = #21098#20999
        ImageIndex = 18
        ShortCut = 16472
      end
      object Copy1: TMenuItem
        Caption = #22797#21046
        ImageIndex = 20
        ShortCut = 16451
      end
      object Paste1: TMenuItem
        Caption = #31896#36148
        ImageIndex = 22
        ShortCut = 16470
      end
    end
    object A1: TMenuItem
      Caption = #24212#29992'(&A)'
      object N5: TMenuItem
        Caption = #20027#39029
        ImageIndex = 4
        OnClick = Tl_Btn_homepageClick
      end
      object N10: TMenuItem