mainform.frm

。简易银行卡管理系统为银行管理层提供全面的银行卡客户分析

VERSION 5.00
Begin VB.MDIForm Mainform 
   BackColor       =   &H8000000C&
   Caption         =   "简易银行卡管理系统"
   ClientHeight    =   7305
   ClientLeft      =   165
   ClientTop       =   915
   ClientWidth     =   10245
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu BCManage 
      Caption         =   "简易银行卡管理系统"
      Begin VB.Menu BCNewUser 
         Caption         =   "开户"
      End
      Begin VB.Menu BCAccural 
         Caption         =   "利息"
      End
      Begin VB.Menu BCDeposit 
         Caption         =   "存款"
      End
      Begin VB.Menu BCFetch 
         Caption         =   "取款"
      End
      Begin VB.Menu BCLoss 
         Caption         =   "挂失"
      End
      Begin VB.Menu BCDeleteUser 
         Caption         =   "消户"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "Mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BCAccural_Click()
BCAccuralform.Show
End Sub

Private Sub BCDeleteUser_Click()
BCDeleteUserform.Show
End Sub

Private Sub BCDeposit_Click()
BCDepositform.Show
End Sub

Private Sub BCFetch_Click()
BCFetchform.Show
End Sub

Private Sub BCLoss_Click()
BCLossform.Show
End Sub

Private Sub BCNewUser_Click()
BCNewUserform.Show
End Sub

Private Sub Exit_Click()
 Unload Me
    End
End Sub

Private Sub MDIForm_Load()
 gFile = App.Path & "\简易银行卡管理系统.mdb"
End Sub

'关闭所有窗口
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    Unload Addform
    Unload Deposit
    Unload Fetch
    Unload Loss
    Unload Update
End Sub