unit_tj.dfm

这是一套小型家庭理财软件delphi源代码

        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton_type3_tj: TSpeedButton
        Left = 131
        Top = 162
        Width = 21
        Height = 19
        Caption = '...'
        Flat = True
        OnClick = SpeedButton_type3_tjClick
      end
      object SpeedButton_type2_tj: TSpeedButton
        Left = 131
        Top = 107
        Width = 21
        Height = 19
        Caption = '...'
        Flat = True
        OnClick = SpeedButton_type2_tjClick
      end
      object SpeedButton_type1_tj: TSpeedButton
        Left = 131
        Top = 43
        Width = 21
        Height = 19
        Caption = '...'
        Flat = True
        OnClick = SpeedButton_type1_tjClick
      end
      object ComboBox_type1_tj: TComboBox
        Left = 15
        Top = 42
        Width = 113
        Height = 21
        BevelInner = bvLowered
        Style = csDropDownList
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnClick = ComboBox_type1_tjClick
        OnKeyPress = ComboBox_type1_tjKeyPress
      end
      object ComboBox_type2_tj: TComboBox
        Left = 15
        Top = 106
        Width = 113
        Height = 21
        BevelInner = bvLowered
        Style = csDropDownList
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        OnClick = ComboBox_type2_tjClick
        OnKeyPress = ComboBox_type2_tjKeyPress
        Items.Strings = (
          #31918#39135
          #33756
          #38646#39135
          #23478#24237#29992#21697)
      end
      object ComboBox_type3_tj: TComboBox
        Left = 15
        Top = 160
        Width = 113
        Height = 21
        BevelInner = bvLowered
        Style = csDropDownList
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
        OnKeyPress = ComboBox_type3_tjKeyPress
        Items.Strings = (
          #19996#21271#22823#31859
          #33590#21494
          #36771#26898)
      end
    end
    object Panel_money_tj: TPanel
      Left = 178
      Top = 142
      Width = 145
      Height = 131
      BevelOuter = bvNone
      Color = clBlack
      TabOrder = 7
      Visible = False
      object Panel_JiSuanQi: TPanel
        Left = 2
        Top = 1
        Width = 145
        Height = 128
        BevelOuter = bvNone
        Color = clBtnText
        TabOrder = 0
        object SpeedButton_7: TSpeedButton
          Left = 1
          Top = 28
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '7'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_7Click
          OnMouseUp = SpeedButton_7MouseUp
        end
        object SpeedButton_8: TSpeedButton
          Left = 28
          Top = 28
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '8'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_8Click
          OnMouseUp = SpeedButton_8MouseUp
        end
        object SpeedButton_9: TSpeedButton
          Left = 55
          Top = 28
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '9'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_9Click
          OnMouseUp = SpeedButton_9MouseUp
        end
        object SpeedButton_11: TSpeedButton
          Left = 83
          Top = 28
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = '+'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = SpeedButton_11Click
          OnMouseUp = SpeedButton_11MouseUp
        end
        object SpeedButton_c: TSpeedButton
          Left = 112
          Top = 28
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = 'C'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_cClick
          OnMouseUp = SpeedButton_cMouseUp
        end
        object SpeedButton_4: TSpeedButton
          Left = 1
          Top = 53
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '4'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_4Click
          OnMouseUp = SpeedButton_4MouseUp
        end
        object SpeedButton_5: TSpeedButton
          Left = 28
          Top = 53
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '5'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_5Click
          OnMouseUp = SpeedButton_5MouseUp
        end
        object SpeedButton_6: TSpeedButton
          Left = 55
          Top = 53
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '6'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_6Click
          OnMouseUp = SpeedButton_6MouseUp
        end
        object SpeedButton_12: TSpeedButton
          Left = 83
          Top = 53
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = '-'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = SpeedButton_12Click
          OnMouseUp = SpeedButton_12MouseUp
        end
        object SpeedButton_ce: TSpeedButton
          Left = 112
          Top = 53
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = 'CE'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_ceClick
          OnMouseUp = SpeedButton_ceMouseUp
        end
        object SpeedButton_1: TSpeedButton
          Left = 1
          Top = 78
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '1'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_1Click
          OnMouseUp = SpeedButton_1MouseUp
        end
        object SpeedButton_2: TSpeedButton
          Left = 28
          Top = 78
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '2'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_2Click
          OnMouseUp = SpeedButton_2MouseUp
        end
        object SpeedButton_3: TSpeedButton
          Left = 55
          Top = 78
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '3'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_3Click
          OnMouseUp = SpeedButton_3MouseUp
        end
        object SpeedButton_13: TSpeedButton
          Left = 83
          Top = 78
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = '*'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = SpeedButton_13Click
          OnMouseUp = SpeedButton_13MouseUp
        end
        object SpeedButton_San: TSpeedButton
          Left = 112
          Top = 78
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = 'San'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_SanClick
          OnMouseUp = SpeedButton_SanMouseUp
        end
        object SpeedButton_ZF: TSpeedButton
          Left = 1
          Top = 103
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '+/-'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_ZFClick
          OnMouseUp = SpeedButton_ZFMouseUp
        end
        object SpeedButton_0: TSpeedButton
          Left = 28
          Top = 103
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '0'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_0Click
          OnMouseUp = SpeedButton_0MouseUp
        end
        object SpeedButton_10: TSpeedButton
          Left = 55
          Top = 103
          Width = 26
          Height = 24
          AllowAllUp = True
          Caption = '.'
          Flat = True
          Transparent = False
          OnClick = SpeedButton_10Click
          OnMouseUp = SpeedButton_10MouseUp
        end
        object SpeedButton_14: TSpeedButton
          Left = 83
          Top = 103
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = '/'
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = SpeedButton_14Click
          OnMouseUp = SpeedButton_14MouseUp
        end
        object SpeedButton_Deng: TSpeedButton
          Left = 112
          Top = 103
          Width = 28
          Height = 24
          AllowAllUp = True
          Caption = '='
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = False
          OnClick = SpeedButton_DengClick
          OnMouseUp = SpeedButton_DengMouseUp
        end
        object Edit_See: TEdit
          Left = 1
          Top = 3
          Width = 139
          Height = 21
          AutoSelect = False
          AutoSize = False
          BevelInner = bvSpace
          BevelKind = bkSoft
          BevelOuter = bvNone
          BorderStyle = bsNone
          CharCase = ecUpperCase
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Text = 'EDIT_SEE'
          OnKeyDown = Edit_SeeKeyDown
          OnKeyUp = Edit_SeeKeyUp
        end
      end
    end
  end
end