mdi_start.frm

library management system that help in runnning a file

         Caption         =   "&Issue"
         Shortcut        =   ^I
      End
      Begin VB.Menu sm_return 
         Caption         =   "&Return"
         Shortcut        =   ^R
      End
      Begin VB.Menu sm_fine 
         Caption         =   "&Fine Informations"
         Shortcut        =   ^F
      End
      Begin VB.Menu secondbarfirst 
         Caption         =   "-"
      End
      Begin VB.Menu sm_search 
         Caption         =   "&Search.."
         Shortcut        =   ^S
      End
      Begin VB.Menu line 
         Caption         =   "-"
      End
      Begin VB.Menu sm_global 
         Caption         =   "&Global"
         Shortcut        =   ^G
      End
   End
   Begin VB.Menu mnu_administer 
      Caption         =   "&Administrator"
      Begin VB.Menu sm_employees 
         Caption         =   "&Employees"
         Shortcut        =   ^E
      End
      Begin VB.Menu thirdbarfirst 
         Caption         =   "-"
      End
      Begin VB.Menu sm_backup 
         Caption         =   "Back up"
         Shortcut        =   ^U
      End
      Begin VB.Menu temp 
         Caption         =   "-"
      End
      Begin VB.Menu sm_settings 
         Caption         =   "Se&ttings"
         Shortcut        =   ^T
      End
   End
   Begin VB.Menu Mnu_rep 
      Caption         =   "&Reports"
      Begin VB.Menu sm_bookrpt 
         Caption         =   "Book Report"
      End
      Begin VB.Menu sm_member 
         Caption         =   "Member Report"
      End
      Begin VB.Menu sm_issret 
         Caption         =   "Issue return Report"
      End
   End
   Begin VB.Menu mnu_tools 
      Caption         =   "&Tools"
      Begin VB.Menu sm_notepad 
         Caption         =   "Notepad"
         Shortcut        =   ^N
      End
      Begin VB.Menu sm_calculator 
         Caption         =   "Calculator"
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu mnu_help 
      Caption         =   "&Help"
      Begin VB.Menu sm_help 
         Caption         =   "Context"
         Shortcut        =   ^O
      End
      Begin VB.Menu sm_hsearch 
         Caption         =   "Search for help topic"
         Shortcut        =   ^H
      End
      Begin VB.Menu helpbar 
         Caption         =   "-"
      End
      Begin VB.Menu smnu_keyboard 
         Caption         =   "Keyboard"
         Shortcut        =   ^K
      End
      Begin VB.Menu nwlne 
         Caption         =   "-"
      End
      Begin VB.Menu sm_about 
         Caption         =   "About"
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "mdi_start"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OSWinHelp% Lib "User32" Alias "WinHelpA" (ByVal hWnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub MDIForm_Load()
Me.Show
Me.Enabled = False
'setting toolbar images
With Toolbar2
Set .ImageList = ImageList1
.Buttons(2).Image = 1
.Buttons(3).Image = 7
.Buttons(5).Image = 5
.Buttons(6).Image = 6
.Buttons(7).Image = 14
.Buttons(8).Image = 2
.Buttons(9).Image = 3
.Buttons(11).Image = 10
.Buttons(13).Image = 8
.Buttons(14).Image = 9
.Buttons(16).Image = 12
.Buttons(17).Image = 13
.Buttons(19).Image = 4
.Buttons(20).Image = 11
End With
sbStatusBar.Panels(3).Text = "Login"
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
On Error Resume Next
If MsgBox("Are You Sure you want to Quit ?", vbExclamation + vbOKCancel, "Library Management System") = vbOK Then
Unload frmLogin
Else
Cancel = True
End If
End Sub
Private Sub sbStatusBar_PanelClick(ByVal Panel As MSComctlLib.Panel)
ShellExecute Me.hWnd, vbNullString, "http://geocities.com/priyank_modi/", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Private Sub sm_about_Click()
Load frmAbout
frmAbout.Show
End Sub
Private Sub sm_backup_Click()
Load Frm_backup
Frm_backup.Show
End Sub

Private Sub sm_bookrpt_Click()
Load Frm_bookrpt
Frm_bookrpt.Show
End Sub

Private Sub sm_books_Click()
Load Frm_books
Frm_books.Show
End Sub
Private Sub sm_calculator_Click()
On Error GoTo errHandle
    Dim a As Double
    a = Shell("C:\WINDOWS\System32\calc.exe", vbNormalFocus)
    Exit Sub
errHandle:
    MsgBox "Unable to run Calculator Utility on your computer", vbInformation, "Error in opening!!!"
    Resume Next
End Sub
Private Sub sm_employees_Click()
Load Frm_Employees
Frm_Employees.Show
End Sub
Private Sub sm_exit_Click()
Unload Me
End Sub

Private Sub sm_fine_Click()
Load Frm_Fine
Frm_Fine.Show
End Sub

Private Sub sm_global_Click()
Load Frm_global
Frm_global.Show
End Sub
Private Sub sm_help_Click()
 Dim nRet As Integer
    If Len(App.HelpFile) = 0 Then
        MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
    Else
        On Error Resume Next
        nRet = OSWinHelp(Me.hWnd, App.HelpFile, 3, 0)
        If Err Then
            MsgBox Err.Description
        End If
    End If

End Sub
Private Sub sm_hsearch_Click()
    Dim nRet As Integer
    'if there is no helpfile for this project display a message to the user
    'you can set the HelpFile for your application in the
    'Project Properties dialog
    If Len(App.HelpFile) = 0 Then
        MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vbInformation, Me.Caption
    Else
        On Error Resume Next
        nRet = OSWinHelp(Me.hWnd, App.HelpFile, 261, 0)
        If Err Then
            MsgBox Err.Description
        End If
    End If
End Sub

Private Sub sm_issret_Click()
Load Frm_issretrpt
Frm_issretrpt.Show
End Sub
Private Sub sm_issue_Click()
Load Frm_issue
Frm_issue.Show
End Sub
Private Sub sm_logoff_Click()
If MsgBox("Are You Sure you want to logoff ?", vbExclamation + vbOKCancel, "Library Management System") = vbOK Then
Call logoff
DoEvents
End If
End Sub

Private Sub sm_member_Click()
Load Frm_memrpt
Frm_memrpt.Show
End Sub
Private Sub sm_members_Click()
Load Frm_members
Frm_members.Show
End Sub
Private Sub sm_notepad_Click()
On Error GoTo errcode
    Dim a As Double
    a = Shell("C:\WINDOWS\System32\notepad.exe", vbNormalFocus)
    Exit Sub
errcode:
    MsgBox "Unable to run Notepad Utility on your computer", vbInformation, "Error in opening!!!"
    Resume Next
End Sub
Private Sub sm_return_Click()
Load Frm_return
Frm_return.Show
End Sub
Private Sub sm_search_Click()
Load Frm_search
Frm_search.Show
End Sub
Private Sub sm_settings_Click()
Load Frm_settings
Frm_settings.Show
End Sub
Private Sub smnu_keyboard_Click()
Load Frm_keyboard
Frm_keyboard.Show
End Sub
Private Sub Toolbar2_ButtonClick(ByVal button As MSComctlLib.button)
Select Case button.Index
    Case 2: Call sm_books_Click
    Case 3: Call sm_members_Click
    Case 5: Call sm_issue_Click
    Case 6: Call sm_return_Click
    Case 7: Call sm_fine_Click
    Case 8: Call sm_search_Click
    Case 9: Call sm_global_Click
    Case 11: 'add report
    Case 13: Call sm_calculator_Click
    Case 14: Call sm_notepad_Click
    Case 16: Call smnu_keyboard_Click
    Case 17: Call sm_about_Click
    Case 19: Call sm_logoff_Click
    Case 20: Call sm_exit_Click
End Select
End Sub
Private Sub Toolbar2_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
    Case 1:
         Call sm_bookrpt_Click
    Case 2:
         Call sm_member_Click
    Case 3:
         Call sm_issret_Click
End Select
End Sub