main.frm

simple supermarket for beginners

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.MDIForm frmmain 
   BackColor       =   &H80000013&
   Caption         =   " Transport Automation System"
   ClientHeight    =   8085
   ClientLeft      =   210
   ClientTop       =   915
   ClientWidth     =   10740
   Icon            =   "main.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar Tbmenu 
      Align           =   1  'Align Top
      Height          =   1590
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10740
      _ExtentX        =   18944
      _ExtentY        =   2805
      ButtonWidth     =   2725
      ButtonHeight    =   2699
      ImageList       =   "imgtoolbar"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   4
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "vehicle"
            Object.ToolTipText     =   "Vechicle Manager"
            Object.Tag             =   ""
            ImageIndex      =   15
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "employee"
            Object.ToolTipText     =   "Employee Details"
            Object.Tag             =   ""
            ImageIndex      =   14
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "service"
            Object.ToolTipText     =   "Service Information"
            Object.Tag             =   ""
            ImageIndex      =   4
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "assess"
            Object.ToolTipText     =   "On THe Spot!"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
      EndProperty
      MousePointer    =   4
   End
   Begin ComctlLib.ImageList imgtoolbar 
      Left            =   0
      Top             =   1560
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   96
      ImageHeight     =   96
      MaskColor       =   12632256
      UseMaskColor    =   0   'False
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   18
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":6852
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":D4A4
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":2A506
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":32D58
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":399AA
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":44E2C
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":458C6
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":49D18
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":4BB1A
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":4D91C
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":4E136
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":55188
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":5D7FA
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":65F70
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":6CD9A
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":75324
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":75B3E
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main.frx":8294C
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu m_login_manager 
      Caption         =   "&Login Manager"
      Begin VB.Menu m_lock_screen 
         Caption         =   "Lock Screen"
      End
      Begin VB.Menu m_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu m_del_user 
         Caption         =   "&Delete User"
      End
      Begin VB.Menu m_reg_user 
         Caption         =   "&Register User"
      End
      Begin VB.Menu m_sep_0 
         Caption         =   "-"
      End
      Begin VB.Menu m_exit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu m_application_manager 
      Caption         =   "&Operations Manager"
      Begin VB.Menu m_drivers 
         Caption         =   "Drivers"
      End
      Begin VB.Menu m_sep90 
         Caption         =   "-"
      End
      Begin VB.Menu m_employee_information 
         Caption         =   "Employee Information"
      End
      Begin VB.Menu m_vehicle_manager 
         Caption         =   "Vehicle Manager"
      End
      Begin VB.Menu m_services_information 
         Caption         =   "Services Information"
      End
   End
   Begin VB.Menu m_on_the_spot 
      Caption         =   "On The &Spot!"
      Begin VB.Menu m_settings 
         Caption         =   "&Settings"
         Begin VB.Menu m_show_task_bar 
            Caption         =   "Show task bar"
         End
         Begin VB.Menu m_hide_task_bar 
            Caption         =   "Hide task bar"
         End
      End
      Begin VB.Menu m_sep_12 
         Caption         =   "-"
      End
      Begin VB.Menu m_assess 
         Caption         =   "&Go Assess"
      End
   End
   Begin VB.Menu m_reports 
      Caption         =   "&Reports"
      Begin VB.Menu m_employees 
         Caption         =   "Employees"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim screenlock As Boolean

Private Sub m_assess_Click()
Unload frmregister
Unload vehicle
Unload employee
Unload services
Hide
frmassess.Show

End Sub

Private Sub m_del_user_Click()
    authentication.Show
    authentication.cmdok.Visible = False
    authentication.cmdregister.Visible = False
    authentication.cmddeluser.Visible = True
End Sub

Private Sub m_drivers_Click()
Drivers.Show
End Sub

Private Sub m_employee_information_Click()
Unload frmassess
Unload frmregister
Unload vehicle
Unload services
employee.Show

End Sub

Private Sub m_employees_Click()
Employee_Report.Show
End Sub

Private Sub m_exit_Click()
End
End Sub

Private Sub m_hide_task_bar_Click()
Tbmenu.Visible = False
End Sub

Private Sub m_lock_screen_Click()
frmmain.Enabled = False
authentication.Show
authentication.Line2.Visible = False
authentication.cmddeluser.Visible = False
authentication.cmdcancel.Visible = False
authentication.cmdregister.Visible = False
authentication.cmdok.Enabled = False
authentication.cmdok.left = (val(authentication.Width) / 2) - (val(authentication.cmdok.Width) / 2)
screenlock = True
End Sub

Private Sub m_reg_user_Click()
authentication.Show
authentication.cmdok.Visible = False
authentication.cmddeluser.Visible = False
authentication.cmdregister.Visible = True
End Sub

Private Sub m_services_information_Click()
services.Show

Unload frmassess
Unload frmregister
Unload vehicle
Unload employee
End Sub

Private Sub m_show_task_bar_Click()
Tbmenu.Visible = True
End Sub

Private Sub m_vehicle_manager_Click()
Unload frmassess
Unload frmregister
Unload employee
Unload services
vehicle.Show
End Sub

Private Sub Tbmenu_ButtonClick(ByVal Button As ComctlLib.Button)
'To Select the required application from the designed toolbar
'The Key of the button in the toolbar is used for calling it
Select Case Button.Key
    Case "employee"
        Call m_employee_information_Click
    Case "vehicle"
        Call m_vehicle_manager_Click
    Case "service"
        Call m_services_information_Click
    Case "assess"
        Call m_assess_Click
End Select

End Sub