Scribd
Upload
169 views11 pages

User Management System Code Overview

The document describes a user management system with forms for login (frmLogin), adding users (frmAddUser), and managing users (frmUserMngt). frmLogin handles user login validation and redirects to frmUserMngt on success. frmAddUser handles adding new users to the database. frmUserMngt displays a list of users, allows editing/deleting users, and includes an option to show/hide passwords depending on administrator privileges.

Uploaded by

Delia Gaborno
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
169 views11 pages

User Management System Code Overview

The document describes a user management system with forms for login (frmLogin), adding users (frmAddUser), and managing users (frmUserMngt). frmLogin handles user login validation and redirects to frmUserMngt on success. frmAddUser handles adding new users to the database. frmUserMngt displays a list of users, allows editing/deleting users, and includes an option to show/hide passwords depending on administrator privileges.

Uploaded by

Delia Gaborno
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

User Management System

frmLogin Option Explicit Private Sub btnAddUser_Click() Unload Me [Link] End Sub Private Sub btnAddUser_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F [Link] = &H8000000F End Sub Private Sub btnCancel_Click() Dim res As Integer res = MsgBox("Are you sure you want to cancel?", vbYesNo + vbDefaultButton2 + vbQuestion, "Exit?") If res = vbYes Then End End If End Sub Private Sub btnCancel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F [Link] = &H8000000F End Sub Private Sub btnOK_Click() Dim rst As New [Link] Dim SQL As String

If [Link] = "" Or [Link] = "" Then MsgBox "Incomplete!", , "Log-in Error!" Else SQL = "Select*From Users Where Username = '" + [Link] + "' And Password = '" + [Link] + "'" [Link] SQL, Conn, adOpenDynamic, adLockPessimistic If Not ([Link] Or [Link]) Then Unload Me [Link] [Link] = "Welcome " & rst!UserName & "!" [Link] = rst!AccessLevel [Link] = "Logged-in As " & rst!AccessLevel Else MsgBox "Incorrect log-in!", , "Log-in Error!" End If End If End Sub Private Sub btnOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F [Link] = &H8000000F End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &H8000000F [Link] = &H8000000F [Link] = &H8000000F End Sub

frmAddUser Option Explicit Private Sub btnCancel_Click() Dim res As Integer

res = MsgBox("Are you sure you want to cancel?", vbYesNo + vbDefaultButton2 + vbQuestion, "Exit?") If res = vbYes Then Unload Me [Link] End If End Sub Private Sub btnOK_Click() Dim rst As New [Link] If [Link] = "" Or [Link] = "" Or [Link] = "" Then MsgBox "Incomplete data!", vbExclamation, "Registration Error!" [Link] Else SQL = "Select*From Users Where Username = '" + [Link] + "'" [Link] SQL, Conn, adOpenDynamic, adLockPessimistic If Not ([Link] Or [Link]) Then MsgBox "Username already registered. Please enter new username!", vbExclamation, "Registration Error!" [Link] = "" [Link] = "" [Link] = "" [Link] Else [Link] rst!UserName = [Link] rst!Password = [Link] rst!AccessLevel = [Link] [Link] MsgBox "New user added!", vbInformation, "Success!" Unload Me [Link] End If End If End Sub

Private Sub Form_Load() Dim rst As New [Link] [Link] "SELECT*From Access", Conn, adOpenDynamic, adLockPessimistic [Link] While [Link] = False [Link] rst!AccessLevel [Link] Wend End Sub Private Sub btnCancel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F End Sub Private Sub btnOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &H8000000F [Link] = &H8000000F End Sub

Admin Window

Admin Power Unchecked (Hide Password)

Admin Power Checked (Show Password)

User Window

Admin Power Disabled frmUserMngt Option Explicit Private Sub LoadList() Dim rst As New [Link]

Unable to edit or delete accounts

[Link] "SELECT*From Users Order By Username", Conn, adOpenDynamic, adLockPessimistic [Link] [Link] While [Link] = False [Link] , , rst!ID [Link]([Link]).[Link] , , rst!UserName [Link]([Link]).[Link] , , rst!AccessLevel [Link] Wend End Sub Private Sub LoadTextBox() Dim rst As New [Link] [Link] "SELECT*From Users Where ID = val('" + [Link] + "')", Conn, adOpenDynamic, adLockPessimistic [Link] While [Link] = False [Link] = rst!UserName [Link] = rst!Password

[Link] = rst!AccessLevel [Link] Wend End Sub Private Sub btnDelete_Click() Dim rst As New [Link] Dim ask As Integer If [Link] = "" Then MsgBox "Please select an item!", vbExclamation, "No Item!" Else

ask = MsgBox("Are you sure you want to delete user?", vbQuestion + vbDefaultButton2 + vbYesNo, "Deleting...") If ask = vbYes Then [Link] "SELECT*FROM Users Where ID = val('" + [Link] + "')", Conn, adOpenDynamic, adLockPessimistic [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = False [Link] = False [Link] = False Call LoadList End If End If End Sub Private Sub btnDelete_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F End Sub Private Sub btnUpdate_Click() Dim rst As New [Link] Dim ask As Integer

If [Link] = "" Then MsgBox "Please select an item!", vbExclamation, "No Item!" Else ask = MsgBox("Are you sure you want to save changes?", vbQuestion + vbDefaultButton2 + vbYesNo, "Updating...") If ask = vbYes Then [Link] "SELECT*FROM Users Where ID = val('" + [Link] + "')", Conn, adOpenDynamic, adLockPessimistic rst!UserName = [Link] rst!Password = [Link] rst!AccessLevel = [Link] [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = False [Link] = False [Link] = False Call LoadList End If End If End Sub Private Sub btnUpdate_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &HFFFF00 [Link] = &H8000000F End Sub Private Sub Form_Activate() If [Link] = "Logged-in As User" Then [Link] = False [Link] = False [Link] = False ElseIf [Link] = "Logged-in As Administrator" Then [Link] = True [Link] = True [Link] = True

End If [Link] = False [Link] = False [Link] = False End Sub Private Sub Form_Load() Call LoadList Dim rst As New [Link] [Link] "SELECT*From Access", Conn, adOpenDynamic, adLockPessimistic [Link] While [Link] = False [Link] rst!AccessLevel [Link] Wend End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) [Link] = &H8000000F [Link] = &H8000000F End Sub Private Sub lvwUsers_Click() Call LoadTextBox If [Link] = "Logged-in As User" Then [Link] = False [Link] = False [Link] = False ElseIf [Link] = "Logged-in As Administrator" Then [Link] = True [Link] = True [Link] = True End If End Sub Private Sub mnuAdPow_Click() [Link] = Not ([Link]) If [Link] = True Then [Link] = "" Else [Link] = "?"

End If End Sub Private Sub mnuExit_Click() Dim res As Integer res = MsgBox("Are you sure you want to exit?", vbYesNo + vbDefaultButton2 + vbQuestion, "Exit?") If res = vbYes Then End End If End Sub Private Sub mnuLogoff_Click() Dim res As Integer res = MsgBox("Are you sure you want to log-off?", vbYesNo + vbDefaultButton2 + vbQuestion, "Logging - Off...?") If res = vbYes Then Unload Me [Link] End If End Sub Private Sub mnuPrint_Click() Dim rst As New [Link] SQL = "Select*From Users Order By Username" [Link] SQL, Conn, adOpenDynamic, adLockPessimistic Set [Link] = rst [Link] [Link] End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As [Link]) Select Case [Link] Case "logoff" Call mnuLogoff_Click Case "exit" Call mnuExit_Click Case "print" Call mnuPrint_Click End Select End Sub Private Sub txtSearch_Change()

Dim rst As New [Link] Dim SQL As String SQL = "SELECT*FROM Users WHERE Username LIKE '" + [Link] + "%" + "' Order By Username" [Link] SQL, Conn, adOpenDynamic, adLockPessimistic [Link] If Not ([Link] And [Link]) Then [Link] While [Link] = False [Link] , , rst!ID [Link]([Link]).[Link] , , rst!UserName [Link]([Link]).[Link] , , rst!AccessLevel [Link] Wend Else MsgBox "No record found!", vbExclamation, "Search..." End If End Sub Private Sub txtSearch_Click() [Link] = "" End Sub Module1 Option Explicit Global Conn As New [Link] Global SQL As String Private Sub Main() [Link] = "Provider=[Link].4.0;Data Source=[Link];Persist Security Info=False" [Link] [Link] End Sub

rptManage

You might also like