bakingsystem.frm

bank using vc++ , used com app

VERSION 5.00
Begin VB.MDIForm Bakingsystem 
   BackColor       =   &H8000000C&
   Caption         =   "Banking System"
   ClientHeight    =   8190
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11880
   LinkTopic       =   "MDIForm1"
   Picture         =   "Bakingsystem.frx":0000
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnufile 
      Caption         =   "&file"
      Begin VB.Menu mnuexit 
         Caption         =   "&exit"
      End
   End
   Begin VB.Menu mnuform 
      Caption         =   "&forms"
      Begin VB.Menu mnudeposit 
         Caption         =   "&Deposit Form"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnucustomer 
         Caption         =   "&Customer"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuwithdrawal 
         Caption         =   "&Withdrawal"
      End
   End
   Begin VB.Menu mnuabout 
      Caption         =   "&About"
   End
   Begin VB.Menu mnureports 
      Caption         =   "&Reports"
      Begin VB.Menu mnucus 
         Caption         =   "Customerreport"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnrdep 
         Caption         =   "&Deposit Report"
         Shortcut        =   {F2}
      End
   End
   Begin VB.Menu mnuservice 
      Caption         =   "&Service"
      Begin VB.Menu mnucal 
         Caption         =   "&Calculator"
      End
   End
End
Attribute VB_Name = "Bakingsystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
frmloginn.Show
Bakingsystem.Hide

End Sub

Private Sub mnuacount_Click()
frmAccount.Show
End Sub

Private Sub mnuadd_Click()
frmuser.Show
End Sub

Private Sub mnubalance_Click()
Form1.Show
End Sub

Private Sub mnrdep_Click()
DataReport2.Show
End Sub

Private Sub mnuabout_Click()
About.Show
End Sub

Private Sub mnucal_Click()
Calculator.Show
End Sub

Private Sub mnucus_Click()
DataReport1.Show
End Sub

Private Sub mnucustomer_Click()
frmcustomer.Show
End Sub

Private Sub mnudeposit_Click()
frmDeposit.Show

End Sub

Private Sub mnusecurity_Click()

End Sub

Private Sub mnuexit_Click()
If MsgBox("are you sure to end Application", vbCritical + vbYesNo) = vbYes Then
End
End If


End Sub

Private Sub mnuwithdrawal_Click()
frmwithdrawal.Show
End Sub