VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "家庭理財(cái)管理系統(tǒng)"
   ClientHeight    =   8790
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "FrmMain.frx":0000
   ScaleHeight     =   8790
   ScaleWidth      =   11880
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "家庭理財(cái)管理系統(tǒng)"
      BeginProperty Font 
         Name            =   "幼圓"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   840
      Left            =   3480
      TabIndex        =   0
      Top             =   3480
      Width           =   6840
   End
   Begin VB.Menu mn_1 
      Caption         =   "基本信息管理"
      Begin VB.Menu mn_Bank 
         Caption         =   "銀行信息管理"
      End
      Begin VB.Menu mn_TIn 
         Caption         =   "收入類(lèi)型管理"
      End
      Begin VB.Menu mn_TOut 
         Caption         =   "支出類(lèi)型管理"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系統(tǒng)"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "理財(cái)信息管理"
      Begin VB.Menu mn_List 
         Caption         =   "日常收支管理"
      End
      Begin VB.Menu mn_Oper 
         Caption         =   "銀行往來(lái)管理"
      End
      Begin VB.Menu mn_Account 
         Caption         =   "銀行帳戶管理"
      End
   End
   Begin VB.Menu mn_3 
      Caption         =   "數(shù)據(jù)統(tǒng)計(jì)管理"
      Begin VB.Menu mn_SS1 
         Caption         =   "日常收支統(tǒng)計(jì)"
      End
      Begin VB.Menu mn_SS2 
         Caption         =   "銀行交易統(tǒng)計(jì)"
      End
      Begin VB.Menu mn_SS3 
         Caption         =   "家庭資產(chǎn)統(tǒng)計(jì)"
      End
   End
   Begin VB.Menu mn_4 
      Caption         =   "用戶管理"
      Begin VB.Menu mn_Member 
         Caption         =   "家庭成員管理"
      End
      Begin VB.Menu mn_Users 
         Caption         =   "系統(tǒng)用戶管理"
      End
      Begin VB.Menu mn_PwdChange 
         Caption         =   "修改密碼"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub mn_Account_Click()
  FrmAccountMan.Show 1
End Sub

Private Sub mn_Bank_Click()
  FrmBankMan.Show 1
End Sub

Private Sub mn_Exit_Click()
  DBapi_Disconnect
  End
End Sub

Private Sub mn_List_Click()
  FrmListMan.Show 1
End Sub

Private Sub mn_Member_Click()
  FrmMemberMan.Show 1
End Sub

Private Sub mn_Oper_Click()
  FrmOperMan.Show 1
End Sub

Private Sub mn_PwdChange_Click()
  With FrmUserEdit
  .OriUser = CurUser.UserName
  .txtUserName = CurUser.UserName
  .Show 1
  End With
End Sub

Private Sub mn_SS1_Click()
  FrmSList.Show 1
End Sub

Private Sub mn_SS2_Click()
  FrmSBank.Show 1
End Sub

Private Sub mn_SS3_Click()
  FrmSFund.Show 1
End Sub

Private Sub mn_TIn_Click()
  FrmTypes.nFlag = 0
  FrmTypes.Caption = "收入類(lèi)型設(shè)置"
  FrmTypes.Show 1
End Sub

Private Sub mn_TOut_Click()
  FrmTypes.nFlag = 1
  FrmTypes.Caption = "支出類(lèi)型設(shè)置"
  FrmTypes.Show 1
End Sub

Private Sub mn_Users_Click()
  If CurUser.UserName = "Admin" Then
    FrmUserMan.Show 1
  Else
    MsgBox "沒(méi)有權(quán)限"
  End If
End Sub