unit_tj.dfm

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

object Form_TJ: TForm_TJ
  Left = 197
  Top = 112
  ActiveControl = DateTimePicker1
  BorderIcons = [biSystemMenu, biMaximize]
  BorderStyle = bsToolWindow
  Caption = #28155#21152#35760#24405
  ClientHeight = 378
  ClientWidth = 340
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA6003232320056565600AAAAAA00B6B6B600CECECE00E6E6E600F0D4
    FF00F0FBFF00FFFFFF0000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000B0B000000000000000000
    00000000000000000000121212120F0E0F0C0E0C0E00000B0B00000000000000
    0000000000101000001212121212121212120F0E0C0B0B000B0B0B0000000000
    0000000000110E0012121212121212121212120F0E0C0B0B000B0B0B0B000000
    00000000000011001212121212121212121212120F0C000B0B000B0B0B000000
    0000000000000012121212121212121212121212120F000B0B0B000B0B0B0000
    0000000000000012121212121212121212121212120E0E000B0B000B0B0B0000
    0000000000000012121212121212121212121212120F0C000B0B0B000B0B0000
    00000000000000121212121212121212121212120F0E0C00000B0B000B000000
    00000000000000121212121212121212121212120F0C0000000B0B0000000000
    000000000000001212121212121212121212120E0C000000000B0B0000000000
    0000000000000012121212121212121212120F0C00000000000B0B0000000000
    000000000000001212120E120E120E0E0E0E0C0000000000000B0B0000000000
    000000000000000000000000000000000E0C000000000000000B0B0000000000
    000000121212121212120E0F0E0F0E0C0000000000000000000B0B0000000000
    001212121212121200121212120F0E0E0C000000000000000000000000000000
    12121212120012001212121212120F120E0C0000000000000000000000000012
    121212121212000012121212121212120D0E0000000000000000000000000012
    1212121212121212121212121212120F120D0000000000000000000000000012
    121212121212121212121212001212120F0C0000000000000000000000000012
    12121200121212121212121200121212120D0000000000000000000000000012
    12121200121212121212121200121212120E0000000000000000000000000012
    121212001212121212121212000B0B12120D0000000000000000000000000000
    121212000A0A0B121212120B0A0A0A1212000000000000000000000000000000
    121212120A0A0A0B12120A0A0A0A0A1210000000000000000000000000000000
    001212120A0A0A0A0B0B0A0A0A0A121210000000000000000000000000000000
    0010101200000000000000000000001210000000000000000000000000000000
    0000101200000000000000000000000012000000000000000000000000000000
    0000120000000000000000000000000000000000000000000000000000000000
    0000120000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFF0
    007FFE60001FFC000007FC000001FE000001FF000000FF000000FF000000FF00
    0001FF000043FF0000C3FF0001C3FF0003C3F00007C3E0000FC3C0000FE78000
    07FF000007FF000007FF000007FF000007FF000007FF000007FF80000FFF8000
    0FFFC0000FFFC0000FFFE1FF8FFFE3FFCFFFE3FFEFFFE7FFFFFFEFFFFFFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel_tj: TPanel
    Left = 0
    Top = 0
    Width = 340
    Height = 378
    Align = alClient
    BevelInner = bvLowered
    Color = cl3DLight
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clTeal
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 11
      Top = 19
      Width = 37
      Height = 16
      AutoSize = False
      Caption = #26085#26399':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 168
      Top = 18
      Width = 41
      Height = 16
      AutoSize = False
      Caption = #22995#21517':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 10
      Top = 292
      Width = 40
      Height = 16
      AutoSize = False
      Caption = #37329#39069':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 11
      Top = 270
      Width = 40
      Height = 16
      AutoSize = False
      Caption = #22320#28857':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 10
      Top = 316
      Width = 31
      Height = 16
      AutoSize = False
      Caption = #25551#36848':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton_ok_tj: TSpeedButton
      Left = 176
      Top = 344
      Width = 73
      Height = 22
      Caption = #30830#23450
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton_ok_tjClick
    end
    object SpeedButton_no: TSpeedButton
      Left = 256
      Top = 344
      Width = 73
      Height = 22
      Caption = #20851#38381
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton_noClick
    end
    object SpeedButton_spot_tj: TSpeedButton
      Left = 142
      Top = 267
      Width = 21
      Height = 19
      Caption = '...'
      Flat = True
      OnClick = SpeedButton_spot_tjClick
    end
    object SpeedButton_money_tj: TSpeedButton
      Left = 249
      Top = 288
      Width = 78
      Height = 23
      Caption = #35745#31639
      OnClick = SpeedButton_money_tjClick
    end
    object SpeedButton_del: TSpeedButton
      Left = 96
      Top = 344
      Width = 73
      Height = 22
      Caption = #21024#38500
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton_delClick
    end
    object ComboBox_name_tj: TComboBox
      Left = 208
      Top = 14
      Width = 121
      Height = 19
      BevelInner = bvLowered
      Style = csOwnerDrawFixed
      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
      OnKeyPress = ComboBox_name_tjKeyPress
      Items.Strings = (
        #20911#20122#36745
        #23385#20142#20142)
    end
    object Edit_memo_tj: TEdit
      Left = 48
      Top = 312
      Width = 281
      Height = 21
      BevelInner = bvLowered
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      OnKeyPress = Edit_memo_tjKeyPress
    end
    object ComboBox_spot_tj: TComboBox
      Left = 48
      Top = 267
      Width = 92
      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 = 3
      OnKeyPress = ComboBox_spot_tjKeyPress
      Items.Strings = (
        #27779#23572#29595
        #20844#20132#36710
        #20844#21496)
    end
    object Edit_money_tj: TEdit
      Left = 48
      Top = 288
      Width = 197
      Height = 21
      BevelInner = bvLowered
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      Text = '0'
      OnKeyPress = Edit_money_tjKeyPress
      OnMouseDown = Edit_money_tjMouseDown
    end
    object DateTimePicker1: TDateTimePicker
      Left = 48
      Top = 14
      Width = 105
      Height = 21
      CalAlignment = dtaLeft
      Date = 38371.6188282407
      Time = 38371.6188282407
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 0
      OnKeyPress = DateTimePicker1KeyPress
    end
    object TreeView1: TTreeView
      Left = 170
      Top = 42
      Width = 157
      Height = 239
      AutoExpand = True
      BiDiMode = bdLeftToRight
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Images = Form1.ImageList1
      Indent = 19
      MultiSelectStyle = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      ShowButtons = False
      SortType = stData
      StateImages = Form1.ImageList1
      TabOrder = 2
      ToolTips = False
      OnClick = TreeView1Click
      OnKeyPress = TreeView1KeyPress
      Items.Data = {
        01000000190000000100000000000000FFFFFFFFFFFFFFFF0000000000000000
        00}
    end
    object Panel1: TPanel
      Left = 14
      Top = 42
      Width = 157
      Height = 221
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 6
      TabStop = True
      object Label3: TLabel
        Left = 16
        Top = 21
        Width = 37
        Height = 16
        AutoSize = False
        Caption = #20998#21306':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 17
        Top = 85
        Width = 37
        Height = 16
        AutoSize = False
        Caption = #20998#31867':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 17
        Top = 141
        Width = 37
        Height = 16
        AutoSize = False
        Caption = #39033#30446':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal