form1.frm

财务管理系统！自己看看挺好的！应该有用的！

VERSION 5.00
Begin VB.Form form1 
   Caption         =   "Form1"
   ClientHeight    =   5235
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10170
   LinkTopic       =   "Form1"
   ScaleHeight     =   5235
   ScaleWidth      =   10170
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Andycat财务管理系统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   615
      Left            =   2640
      TabIndex        =   0
      Top             =   1560
      Width           =   5415
   End
   Begin VB.Menu day 
      Caption         =   "日常记录"
   End
   Begin VB.Menu month 
      Caption         =   "月度总结"
   End
   Begin VB.Menu year 
      Caption         =   "年度总结"
   End
   Begin VB.Menu manage 
      Caption         =   "财务管理"
   End
   Begin VB.Menu exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub day_Click()
Load formday
formday.Show

Unload formmonth
Unload Formyear
Unload Formymanage

End Sub

Private Sub exit_Click()
End

End Sub

Private Sub Form_Load()
Load Form1
Form1.Show

End Sub

Private Sub manage_Click()
Load Formymanage
Unload formday
Formymanage.Show

Unload formmonth
Unload Formyear

End Sub

Private Sub month_Click()
Unload formday
formmonth.Show

Load formmonth
Unload Formyear
Unload Formymanage
End Sub

Private Sub year_Click()
Unload formday
Formyear.Show

Unload formmonth
Load Formyear
Unload Formymanage
End Sub