frmdefault.frm

School Library system to manage students borrowing and returning books

VERSION 5.00
Begin VB.Form frmDefault 
   ClientHeight    =   5835
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9435
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmDefault.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5835
   ScaleWidth      =   9435
   Begin VB.Frame Frame1 
      Caption         =   "Select Operation"
      Height          =   3015
      Left            =   3720
      TabIndex        =   0
      Top             =   1680
      Width           =   5055
      Begin VB.CommandButton cmdOk 
         Caption         =   "&Open"
         Height          =   495
         Left            =   1680
         TabIndex        =   7
         Top             =   2280
         Width           =   1695
      End
      Begin VB.OptionButton optmy 
         Caption         =   "Form Report"
         Height          =   375
         Index           =   5
         Left            =   2760
         TabIndex        =   6
         Top             =   1680
         Width           =   1935
      End
      Begin VB.OptionButton optmy 
         Caption         =   "Form Book Returning"
         Height          =   375
         Index           =   4
         Left            =   240
         TabIndex        =   5
         Top             =   1680
         Width           =   2295
      End
      Begin VB.OptionButton optmy 
         Caption         =   "Form Borrowed Books"
         Height          =   375
         Index           =   3
         Left            =   2760
         TabIndex        =   4
         Top             =   1080
         Width           =   1935
      End
      Begin VB.OptionButton optmy 
         Caption         =   "Digital Catalogue"
         Height          =   375
         Index           =   2
         Left            =   240
         TabIndex        =   3
         Top             =   1080
         Width           =   2295
      End
      Begin VB.OptionButton optmy 
         Caption         =   "Form Book Borrowing"
         Height          =   375
         Index           =   1
         Left            =   2760
         TabIndex        =   2
         Top             =   480
         Width           =   1935
      End
      Begin VB.OptionButton optmy 
         Caption         =   "Form User Details"
         Height          =   375
         Index           =   0
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   2295
      End
   End
End
Attribute VB_Name = "frmDefault"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim k As String
Private Sub cmdok_Click()
Dim myne
'myne is for holding the values of k of which k contains the
'selected parameters
myne = k
'getting what myne contains and oprning the specific form
If myne = "frmuserparticulars" Then
Load frmuserparticulars
frmuserparticulars.Show
ElseIf myne = "frmborrowing" Then
Load frmborrowing
frmborrowing.Show
ElseIf myne = "frmBookinfo" Then
Load frmBookinfo
frmBookinfo.Show
ElseIf myne = "frmbookborrowing_return" Then
Load frmbookborrowing_return
frmbookborrowing_return.Show
ElseIf myne = "frmreturning" Then
Load frmreturning
frmreturning.Show
ElseIf myne = "frmReport" Then
Load frmReport
frmReport.Show
End If

End Sub

Private Sub Form_Load()
'these is the default form that allows the user to acces the variuos
'that are in the application
optmy(0).Value = True
End Sub

'Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'used to display apopup menu when the userright clicks on the form
'popup menu for also accessin the different forms
'Select Case Button
'Case 2
'PopupMenu mdilibrary.mnulibrary
'Case 1
'End Select
'End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'used to display apopup menu when the user right clicks on the frame
'popup menu for also accessin the different forms
Select Case Button
Case 2
PopupMenu mdilibrary.mnulibrary
Case 1
End Select
End Sub

Private Sub optmy_Click(Index As Integer)
'getting what option button was clicked and saving the valus
'to avariable so that when one clicks the ok button than the
'specific form is opened
Select Case Index
Case 0
k = "frmuserparticulars"
Case 1
k = "frmborrowing"
Case 2
k = "frmBookinfo"
Case 3
k = "frmbookborrowing_return"
Case 4
k = "frmreturning"
Case 5
k = "frmReport"
End Select
End Sub