form4.frm

个人理财的VB代码

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "ACTSKN43.OCX"
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text4 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   960
      Locked          =   -1  'True
      TabIndex        =   10
      Text            =   "Text4"
      Top             =   1440
      Width           =   975
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   0
      OleObjectBlob   =   "Form4.frx":0000
      Top             =   0
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   960
      TabIndex        =   5
      Text            =   "Text1"
      Top             =   360
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      Height          =   270
      Left            =   960
      TabIndex        =   4
      Text            =   "Text2"
      Top             =   840
      Width           =   975
   End
   Begin VB.TextBox Text3 
      Appearance      =   0  'Flat
      Height          =   1335
      Left            =   2520
      MultiLine       =   -1  'True
      TabIndex        =   3
      Text            =   "Form4.frx":0234
      Top             =   480
      Width           =   1575
   End
   Begin VB.PictureBox Picture1 
      Height          =   855
      Left            =   240
      ScaleHeight     =   795
      ScaleWidth      =   4035
      TabIndex        =   0
      Top             =   2040
      Width           =   4095
      Begin VB.CommandButton Command1 
         Caption         =   "保存(&D)"
         Height          =   375
         Left            =   360
         TabIndex        =   2
         Top             =   240
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "放弃(&X)"
         Height          =   375
         Left            =   2400
         TabIndex        =   1
         Top             =   240
         Width           =   1215
      End
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4 
      Height          =   255
      Left            =   3000
      OleObjectBlob   =   "Form4.frx":023A
      TabIndex        =   6
      Top             =   120
      Width           =   735
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
      Height          =   255
      Left            =   360
      OleObjectBlob   =   "Form4.frx":029C
      TabIndex        =   7
      Top             =   1440
      Width           =   735
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2 
      Height          =   255
      Left            =   360
      OleObjectBlob   =   "Form4.frx":02FE
      TabIndex        =   8
      Top             =   840
      Width           =   615
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
      Height          =   255
      Left            =   360
      OleObjectBlob   =   "Form4.frx":0360
      TabIndex        =   9
      Top             =   360
      Width           =   615
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_LostFocus()
End Sub

Private Sub Command1_Click()
Select Case Text4.Text
Case "工资收入"
Form1!Label2.Caption = Val(Form1!Label2.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "经商收入"
Form1!Label3.Caption = Val(Form1!Label3.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "其它收入"
Form1!Label4.Caption = Val(Form1!Label4.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "生活支出"
Form1!Label5.Caption = Val(Form1!Label5.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "学习支出"
Form1!Label6.Caption = Val(Form1!Label6.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "娱乐支出"
Form1!Label7.Caption = Val(Form1!Label7.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "投资支出"
Form1!Label8.Caption = Val(Form1!Label8.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
Case "其它支出"
Form1!Label9.Caption = Val(Form1!Label9.Caption) - Val(Form1!Label11.Caption) + Val(Text2.Text)
End Select
'--------------------------------------------------------------------------------
'传遗数据给主窗体
Form1!Label10.Caption = Text1.Text '日期
Form1!Label11.Caption = Text2.Text '钱额
Form1!Text1.Text = Text3.Text '说明
Form1!Label12.Caption = Text4.Text '类型
'------------------------------------------------------------------------------
Unload Me '关闭修改窗体
End Sub

Private Sub Command2_Click()
Unload Me '关闭修改窗体
End Sub

Private Sub Form_Load()
'-----------------------------------------------------------------------------
'为界面添加皮肤
Skin1.LoadSkin App.Path & "\chizh.skn"
Skin1.ApplySkin Me.hwnd
'-----------------------------------------------------------------------------

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'限定在日期写入的必须数字和“—”
If KeyAscii >= 48 And KeyAscii <= 57 Then
ElseIf KeyAscii = 8 Then
ElseIf KeyAscii = Asc("-") Then
Else
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'限定在金额写入的必须数字
If KeyAscii >= 48 And KeyAscii <= 57 Then
ElseIf KeyAscii = 8 Then
ElseIf KeyAscii = Asc(".") Then
Else
KeyAscii = 0
End If
End Sub