MDIForm1.frm

 VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
   BackColor       =   &H8000000C&
   Caption         =   "Student Record"
   ClientHeight    =   9795
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   13110
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   9420
      Width           =   13110
      _ExtentX        =   23125
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Alignment       =   1
            AutoSize        =   2
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Style           =   1
            Alignment       =   1
            Enabled         =   0   'False
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Style           =   2
            Alignment       =   1
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Style           =   4
            Alignment       =   1
            Enabled         =   0   'False
            TextSave        =   "SCRL"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Style           =   5
            Alignment       =   1
            TextSave        =   "9:21 PM"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Style           =   6
            Alignment       =   1
            TextSave        =   "2/6/2010"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1
      Left            =   840
      Top             =   4080
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   36
      ImageHeight     =   37
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
         NumListImages   =   7
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":0507
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":0924
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":0D59
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":11FD
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":170C
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "MDIForm1.frx":1B92
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1
      Align           =   3  'Align Left
      Height          =   9420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   675
      _ExtentX        =   1191
      _ExtentY        =   16616
      ButtonWidth     =   2196
      ButtonHeight    =   1138
      Appearance      =   1
      TextAlignment   =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
         NumButtons      =   8
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Description     =   "Add"
            Object.ToolTipText     =   "Add New Record"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Description     =   "Edit"
            Object.ToolTipText     =   "Edit Record"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Description     =   "Search"
            Object.ToolTipText     =   "Search Record"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Description     =   "View"
            Object.ToolTipText     =   "View Records"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Description     =   "Delete"
            Object.ToolTipText     =   "Delete Record"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Description     =   "exit"
            Object.ToolTipText     =   "Exit"
            ImageIndex      =   4
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Menu mnuFile
      Caption         =   "&File"
      Begin VB.Menu mnuSet
         Caption         =   "S&ettings"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuSep
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit
         Caption         =   "&Exit"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mnuMenu
      Caption         =   "&Menu"
      Begin VB.Menu mnuAdd
         Caption         =   "&New Blank Entry"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuEdit
         Caption         =   "&Edit Record"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuDelete
         Caption         =   "&Delete Record"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuSearch
         Caption         =   "S&earch Record"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuView
         Caption         =   "Vie&w Records"
         Shortcut        =   ^W
      End
   End
   Begin VB.Menu mnuWindows
      Caption         =   "&Windows"
      Begin VB.Menu mnuArrange
         Caption         =   "Arr&ange Icons"
      End
      Begin VB.Menu mnuCascade
         Caption         =   "&Cascade"
         WindowList      =   -1  'True
      End
      Begin VB.Menu mnuHor
         Caption         =   "Til&e Horizontally"
         Shortcut        =   ^H
      End
      Begin VB.Menu mnVer
         Caption         =   "&Tile Vertcally"
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu mnuHelp
      Caption         =   "&Help"
      Begin VB.Menu mnuCon
         Caption         =   "C&ontents"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuSep2
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout
         Caption         =   "&About"
         Shortcut        =   {F2}
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Unload(Cancel As Integer)
Dim confirm
confirm = MsgBox("Are you sure, you want to exit??", vbYesNo, "Database Management")
    If confirm = vbYes Then
End
End If
errHandler:
    Cancel = -1
End Sub

Private Sub mnuAbout_Click()
frmAbout.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index

Case 1
mnuAdd_Click

Case 3
mnuEdit_Click
Case 4
mnuSearch_Click
Case 5
mnuView_Click
Case 6
mnuDelete_Click
Case 8
mnuExit_Click
End Select

End Sub
Private Sub mnuExit_Click()
Dim A
A = MsgBox("Are you sure, you want to Exit?", vbQuestion + vbYesNo, "Student Record")
If A = vbYes Then
Unload Me
Unload frmAbout
Unload frmAdd
Unload frmDelete
Unload frmEdit
Unload frmSearch
Unload frmView
End If
End Sub
Private Sub mnuAdd_Click()
frmAdd.Show
End Sub
Private Sub mnuSearch_Click()
frmSearch.Show
End Sub
Private Sub mnuView_Click()
frmView.Show
End Sub
Private Sub mnuEdit_Click()
frmEdit.Show
End Sub
Private Sub mnuDelete_Click()
frmDelete.Show
End Sub

Project Homepage: