here is the code. I am trying to get the error on every click where is the error can anyone help me with this.
Imports MySql.Data.MySqlClient
Public Class frmLogin
Private frmDatabase As Object
Private Sub Login()
Try
sqL = "SELECT * FROM USERS WHERE Username = '" & txtUsername.Text & "' AND Pwd = '" & txtPassword.Text & "'"
ConnDB()
cmd = New MySqlCommand(sqL, conn)
dr = cmd.ExecuteReader()
If dr.Read = True Then
MsgBox("Welcome to Zaps Property MAngaement System.", MsgBoxStyle.Information, "Login")
frmMain.tsslUser.Text = UCase(txtUsername.Text)
frmMain.tsslUser.Tag = dr("role")
Me.Close()
Else
MsgBox("Incorrect username or password.", MsgBoxStyle.Critical, "Login")
txtUsername.SelectAll()
txtPassword.SelectAll()
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUsername.GotFocus
AcceptButton = Button1
End Sub
Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPassword.GotFocus
AcceptButton = Button1
If txtUserName.Text = "" Then
txtUserName.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Login()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("Are you sure you want to close?", MsgBoxStyle.YesNo, "Close Window") = MsgBoxResult.Yes Then
End
End If
End Sub
Private Sub frmLogin_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F4 And e.Modifiers = Keys.Alt Then
e.Handled = True
End If
If e.KeyCode = Keys.F12 Then
frmDatabase.Show()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For Each selProcess As Process In Process.GetProcesses
If selProcess.ProcessName = "taskmgr" Then
selProcess.Kill()
Exit For
End If
Next
End Sub
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtPassword.Text = ""
txtUsername.Text = ""
txtUsername.Focus()
If frmMain.isLogout = True Then
Exit Sub
End If
' frmProgressBar.Show()
'frmSMSNotification.strPort = "COM5"
'frmSMSNotification.MCoreConnection()
'frmProgressBar.i = 100
End Sub
End Class
Tapan PatelPosted Sep 24, 2016, 7:08 AM
mithun kumarPosted Sep 24, 2016, 1:57 AM
Tapan PatelPosted Sep 23, 2016, 11:10 AM