mdiform1.frm

个人理财系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm 主界面 
   BackColor       =   &H8000000C&
   Caption         =   "个人理财助手软件"
   ClientHeight    =   7005
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10890
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   6630
      Width           =   10890
      _ExtentX        =   19209
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2469
            MinWidth        =   2469
            Text            =   "欢迎使用"
            TextSave        =   "欢迎使用"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   22049
            MinWidth        =   22049
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "1.0版本"
            TextSave        =   "1.0版本"
         EndProperty
      EndProperty
   End
   Begin VB.Menu System 
      Caption         =   "系统"
      Begin VB.Menu Client_Edit 
         Caption         =   "用户管理"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu FINANCE 
      Caption         =   "理财项目"
      Begin VB.Menu SHOUZHIMENU 
         Caption         =   "收支项目"
      End
      Begin VB.Menu BANKNAME 
         Caption         =   "开户银行"
      End
   End
   Begin VB.Menu MANAGE 
      Caption         =   "日常管理"
      Begin VB.Menu DAILY_INCOME 
         Caption         =   "日常收入"
      End
      Begin VB.Menu DAILY_EXPENSE 
         Caption         =   "日常支出"
      End
      Begin VB.Menu symbol1 
         Caption         =   "-"
      End
      Begin VB.Menu LIVE_ACCOUNT 
         Caption         =   "活期帐户结余"
      End
      Begin VB.Menu FIXED 
         Caption         =   "定期帐户结余"
      End
      Begin VB.Menu symbol2 
         Caption         =   "-"
      End
      Begin VB.Menu BORROW 
         Caption         =   "借入款"
      End
      Begin VB.Menu LEND 
         Caption         =   "借出款"
      End
   End
   Begin VB.Menu HELP 
      Caption         =   "帮助"
      Begin VB.Menu ABOUT 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ABOUT_Click()
Form_About.Show
End Sub

Private Sub BANKNAME_Click()
Form_bank.Show
End Sub

Private Sub BORROW_Click()
Form_Jieru.Show
End Sub

Private Sub Client_Edit_Click()
Form_Consumer.Show
End Sub

Private Sub DAILY_EXPENSE_Click()
Form_Output.Show
End Sub

Private Sub DAILY_INCOME_Click()
Form_Income.Show
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub FIXED_Click()
Form_Ding.Show
End Sub

Private Sub INCOME_EXPENSE_Click()
Form_Tong.Show
End Sub

Private Sub LEND_Click()
Form_JIECHU.Show
End Sub

Private Sub LIVE_ACCOUNT_Click()
Form_Live.Show
End Sub

Private Sub MONTH_LIST_Click()
Form_Month.Show
End Sub

Private Sub SHOUZHIMENU_Click()
Form_Type.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) '工具条的操作
Select Case Button.Key
    Case Is = "Consumer"    '用户管理
        Client_Edit_Click
    Case Is = "exitsystem"  '退出
        Exit_Click
    Case Is = "type"        '收支项目
        SHOUZHIMENU_Click
    Case Is = "bank"        '开户银行
        BANKNAME_Click
    Case Is = "income"      '日常收入
        DAILY_INCOME_Click
    Case Is = "output"      '日常支出
        DAILY_EXPENSE_Click
    Case Is = "jiechu"      '借出款
        Form_JIECHU.Show
    Case Is = "jieru"       '借入款
        Form_Jieru.Show
    Case Is = "live"        '活期帐户结余
        LIVE_ACCOUNT_Click
    Case Is = "ding"        '定期帐户结余
        FIXED_Click
    Case Is = "about"       '关于
        Form_About.Show
End Select
End Sub