form2.frm

个人理财的VB代码

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "ACTSKN43.OCX"
Begin VB.Form Form2 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "收支填写"
   ClientHeight    =   6405
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4620
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6405
   ScaleWidth      =   4620
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "收支情况"
      Height          =   3015
      Left            =   240
      TabIndex        =   11
      Top             =   3240
      Width           =   4095
      Begin VB.PictureBox Picture2 
         Height          =   2295
         Left            =   120
         ScaleHeight     =   2235
         ScaleWidth      =   1755
         TabIndex        =   25
         Top             =   600
         Width           =   1815
         Begin VB.Label Label2 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label2"
            DataField       =   "工资"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   600
            TabIndex        =   28
            Top             =   360
            Width           =   855
         End
         Begin VB.Label Label3 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label3"
            DataField       =   "经商"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   600
            TabIndex        =   27
            Top             =   960
            Width           =   855
         End
         Begin VB.Label Label4 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label4"
            DataField       =   "其它"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   600
            TabIndex        =   26
            Top             =   1560
            Width           =   855
         End
         Begin VB.Label Label1 
            Caption         =   "经商"
            Height          =   255
            Index           =   4
            Left            =   120
            TabIndex        =   31
            Top             =   1080
            Width           =   615
         End
         Begin VB.Label Label1 
            Caption         =   "工资"
            Height          =   255
            Index           =   5
            Left            =   120
            TabIndex        =   30
            Top             =   480
            Width           =   615
         End
         Begin VB.Label Label1 
            Caption         =   "其它"
            Height          =   255
            Index           =   6
            Left            =   120
            TabIndex        =   29
            Top             =   1680
            Width           =   615
         End
      End
      Begin VB.PictureBox Picture3 
         Height          =   2295
         Left            =   2040
         ScaleHeight     =   2235
         ScaleWidth      =   1875
         TabIndex        =   14
         Top             =   600
         Width           =   1935
         Begin VB.Label Label5 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label5"
            DataField       =   "生活"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   600
            TabIndex        =   19
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label6 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label6"
            DataField       =   "学习"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   600
            TabIndex        =   18
            Top             =   600
            Width           =   855
         End
         Begin VB.Label Label7 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label7"
            DataField       =   "娱乐"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   600
            TabIndex        =   17
            Top             =   960
            Width           =   855
         End
         Begin VB.Label Label8 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label8"
            DataField       =   "投资"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   600
            TabIndex        =   16
            Top             =   1320
            Width           =   855
         End
         Begin VB.Label Label9 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Label9"
            DataField       =   "其它2"
            DataSource      =   "Data2"
            ForeColor       =   &H80000008&
            Height          =   255
            Left            =   600
            TabIndex        =   15
            Top             =   1680
            Width           =   855
         End
         Begin VB.Label Label1 
            Caption         =   "生活"
            Height          =   255
            Index           =   7
            Left            =   120
            TabIndex        =   24
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label1 
            Caption         =   "学习"
            Height          =   255
            Index           =   8
            Left            =   120
            TabIndex        =   23
            Top             =   600
            Width           =   615
         End
         Begin VB.Label Label1 
            Caption         =   "娱乐"
            Height          =   255
            Index           =   9
            Left            =   120
            TabIndex        =   22
            Top             =   960
            Width           =   615
         End
         Begin VB.Label Label1 
            Caption         =   "投资"
            Height          =   255
            Index           =   10
            Left            =   120
            TabIndex        =   21
            Top             =   1320
            Width           =   615
         End
         Begin VB.Label Label1 
            Caption         =   "其它"
            Height          =   255
            Index           =   11
            Left            =   120
            TabIndex        =   20
            Top             =   1680
            Width           =   615
         End
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5 
         Height          =   255
         Left            =   2640
         OleObjectBlob   =   "Form2.frx":0000
         TabIndex        =   12
         Top             =   330
         Width           =   735
      End
      Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6 
         Height          =   255
         Left            =   600
         OleObjectBlob   =   "Form2.frx":0062
         TabIndex        =   13
         Top             =   330
         Width           =   975
      End
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   1440
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   0
      Visible         =   0   'False
      Width           =   1260
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End