Visual Basic 4 Power Pack/Visual_Basic4_Power_Pack.bin/vb4files/passwd1/mainform.frm

Visual Basic Form | 1996-11-20 | 1.7 KB | 66 lines

VERSION 2.00
Begin MDIForm MainForm
   Caption         =   "Password VB Program  (ID=test, Password=testing)"
   ClientHeight    =   4020
   ClientLeft      =   1092
   ClientTop       =   1776
   ClientWidth     =   7368
   Height          =   4764
   Icon            =   MAINFORM.FRX:0000
   Left            =   1044
   LinkTopic       =   "MDIForm1"
   Top             =   1080
   Width           =   7464
   Begin Menu mnuExit
      Caption         =   "&Exit"
   End
   Begin Menu mnuPassword
      Caption         =   "&Password"
      Begin Menu mnu_PW_List
         Caption         =   "&List Users"
      End
      Begin Menu mnu_PW_Change
         Caption         =   "&Change PW"
      End
      Begin Menu mnu_PW_New
         Caption         =   "&New User"
      End
      Begin Menu mnu_PW_Delete
         Caption         =   "&Delete User"
      End
      Begin Menu mnu_PW_Enter
         Caption         =   "&Enter PW"
      End
   End
Option Explicit
Sub mnu_PW_Change_Click ()
   frmChgPassWord.Show MODAL
End Sub
Sub mnu_PW_Delete_Click ()
     If Val(UserTaskLevel) = 5 Then
        frmDeleteUser.Show MODAL
     Else
        Beep
        MsgBox "Your Access Level is not sufficeint to access this function.", 16, "Insufficeint Access Level"
     End If
End Sub
Sub mnu_PW_Enter_Click ()
   frmPassWord.Show MODAL
End Sub
Sub mnu_PW_List_Click ()
 frmListUsers.Show MODAL
End Sub
Sub mnu_PW_New_Click ()

     If Val(UserTaskLevel) = 5 Then
        frmNewUser.Show MODAL
     Else
        Beep
        MsgBox "Your Access Level is not sufficeint to access this function.", 16, "Insufficeint Access Level"
     End If

End Sub
Sub mnuExit_Click ()
    End
End Sub