Hi dBasnett
Thank you for getting back to me.
I have two Labels ,18 Buttons to open other forms. When the form loads from a Login form I created a check
whether the User is Admin, Management, or staff Member on the Login Form
And when the Form called (FrmMenu) loads the result of whatever the Member Name is, Gets put into Label (Member Name). And Puts the Member Level into another Label (Member Level)
and all depending on the result of Member Level It Enables/Disables Certain Buttons.
This is the best way I can describe what happens after the Login is successful.
Gary Simpson
Public Class FrmLogin
Private ReadOnly SQL As New SQLControl
Private AuthUser As String
Private Sub FrmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Function IsAuthenticated() As Boolean
'Clear existing records
If SQL.SQLDS IsNot Nothing Then
SQL.SQLDS.Clear()
End If
SQL.RunQueryA("SELECT Count(MemberName) As MemberCount " &
"FROM Members " &
"WHERE MemberName='" & TxtMemberName.Text & "' COLLATE SQL_Latin1_General_CP1_CS_AS " &
" AND Password='" & TxtPassword.Text & "' COLLATE SQL_Latin1_General_CP1_CS_AS ")
If SQL.SQLDS.Tables(0).Rows(0).Item("MemberCount") = 1 Then
Return True
End If
MsgBox("Hi " & TxtMemberName.Text & " Your Credentials Are Invalid.", MsgBoxStyle.Critical, "LOGIN DENIED")
TxtMemberName.Clear()
TxtPassword.Clear()
Return False
End Function
Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
If IsAuthenticated() = True Then
AuthUser = TxtMemberName.Text
MsgBox("Hi, " & TxtMemberName.Text & ", Hope you have a good day." & vbCrLf & vbCrLf & " You Last Logged in on, " & TxtLastLoginDate.Text, MsgBoxStyle.Information, "Your Login Is Successful")
FrmMenu.Show()
Me.Hide()
FrmMenu.LbMemberName.Text = TxtMemberName.Text
GetMemberLevel()
UpdateLoginDateTime()
End If
End Sub
Private Sub GetDateTime()
SQL.RunQueryA("SELECT LastLoginDate " &
"FROM Members " &
"WHERE MemberName='" & TxtMemberName.Text & "' ")
For Each I As Object In SQL.SQLDS.Tables(0).Rows
TxtLastLoginDate.Text = I.item("LastLoginDate")
Next
End Sub
Private Sub CmdCancel_Click(sender As Object, e As EventArgs) Handles CmdCancel.Click
MsgBox("Program is now closing ", MsgBoxStyle.Information, "Closing")
Application.Exit()
End Sub
Private Sub TxtPassword_TextChanged(sender As Object, e As EventArgs) Handles TxtPassword.TextChanged
If TxtPassword.Text = Nothing Then
CmdLogin.Enabled = False
Else
CmdLogin.Enabled = True
End If
End Sub
Private Sub TxtMemberName_Leave(sender As Object, e As EventArgs) Handles TxtMemberName.Leave
GetDateTime()
End Sub
Private Sub GetMemberLevel()
'Gets the member status level of whoever is logged in
SQL.RunQueryA("SELECT MemberLevel " &
"FROM Members " &
"WHERE MemberName='" & TxtMemberName.Text & "' ")
For Each i As Object In SQL.SQLDS.Tables(0).Rows
FrmMenu.LbMemberLevel.Text = i.item("MemberLevel")
Next
End Sub
Private Sub UpdateLoginDateTime()
SQL.AddParam("@LastLoginDate", DateTime.Now)
SQL.AddParam("@MemberName", TxtMemberName.Text)
SQL.ExecQuery("UPDATE Members " &
"SET LastLoginDate=@LastLoginDate " &
"WHERE MemberName=@MemberName;")
If SQL.HasException(True) Then Exit Sub
'MsgBox(TxtMemberName.Text & " Time Updated Successfully! ", MsgBoxStyle.Information, ", Time updated Complete")
End Sub
End Class
