frmmain.frm

家庭理财系统,使用VB6.0编写,相当不错,可以用于课程设计

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "家庭理财管理系统"
   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         =   "家庭理财管理系统"
      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         =   "收入类型管理"
      End
      Begin VB.Menu mn_TOut 
         Caption         =   "支出类型管理"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "理财信息管理"
      Begin VB.Menu mn_List 
         Caption         =   "日常收支管理"
      End
      Begin VB.Menu mn_Oper 
         Caption         =   "银行往来管理"
      End
      Begin VB.Menu mn_Account 
         Caption         =   "银行帐户管理"
      End
   End
   Begin VB.Menu mn_3 
      Caption         =   "数据统计管理"
      Begin VB.Menu mn_SS1 
         Caption         =   "日常收支统计"
      End
      Begin VB.Menu mn_SS2 
         Caption         =   "银行交易统计"
      End
      Begin VB.Menu mn_SS3 
         Caption         =   "家庭资产统计"
      End
   End
   Begin VB.Menu mn_4 
      Caption         =   "用户管理"
      Begin VB.Menu mn_Member 
         Caption         =   "家庭成员管理"
      End
      Begin VB.Menu mn_Users 
         Caption         =   "系统用户管理"
      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 = "收入类型设置"
  FrmTypes.Show 1
End Sub

Private Sub mn_TOut_Click()
  FrmTypes.nFlag = 1
  FrmTypes.Caption = "支出类型设置"
  FrmTypes.Show 1
End Sub

Private Sub mn_Users_Click()
  If CurUser.UserName = "Admin" Then
    FrmUserMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub