log in system that terminates the user after 3 attempts

dito nalang ako compile huh kasi wala me sa pc ko hehehe try mo to

'declare it globally
Dim rs as ADODB.Recordset
Dim Counter as Integer

'sa form load
Private Sub Form_Load()
Call connection
counter = 0
End Sub

'assume that eto ay command for login
'place the code below (command1)

Set rs = New ADODB.Recordset

'condition for counter if counter = 3 then end the program or validate the user
If counter = 3 then end

With rs
.Open "Select * from administrator WHERE username = '" & txtUserName.Text & "' and password = '" & txtPassword.Text & "' ", conn, adOpenStatic, adLockOptimistic
If .EOF Then
'txtUserName.Text = ""
txtPassword.Text = ""
txtPassword.SetFocus
MsgBox "Invalid Username & Password!", vbExclamation, "User Authentication"
'set counter ++
counter = counter + 1
Else
'Unload Me
'show form here for admin
MsgBox "Correct Username & Password!", vbInformation, "User Authentication"
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
End If
End With

sana makatolong hehehe :)
undying_emolove@yahoo.com

Option Explicit

Public LoginSucceeded As Boolean
Dim bytretries As Byte

Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
'On Error Resume Next
Dim SQL, path As String
path = App.path

With ADO
.CommandType = adCmdText
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & "\Employee.mdb;Persist Security Info=False"
.RecordSource = "Select * from Users"
.Refresh

.Recordset.MoveFirst
Do Until .Recordset.EOF

If (LCase$(.Recordset.Fields("Password")) = LCase$(txtPassword.Text)) And (LCase$(.Recordset.Fields("Username")) = LCase$(txtUserName.Text)) Then

MsgBox "A C C E S S G R A N T E D !!"

Me.Hide
Load frmMain
frmMain.Show

Exit Sub
Else
.Recordset.MoveNext
End If
Loop

txtUserName.Text = ""
txtPassword.Text = ""

MsgBox "A C C E S S D E N I E D !!", vbExclamation + vbOKOnly, ""
txtUserName.SetFocus
' SendKeys "{Home}+{End}"

'---------------------------------------------
'after 3 retries, quit
If bytretries = 2 Then
MsgBox "Guessing is not allowed!!", vbCritical, " - Security"
End
Else
bytretries = bytretries + 1
End If
End With

End Sub

Additional lang:

Kung 3 trials lang then locked na yung account nya,
need to put a status sa users_table na nalock na yung account nya....
(kung 3 attempts per day trial, etc )

Dapat yung login process mo before at hand ay nagchecheck na kung locked yung account

Additional lang:

Kung 3 trials lang then locked na yung account nya,
need to put a status sa users_table na nalock na yung account nya....
(kung 3 attempts per day trial, etc )

Dapat yung login process mo before at hand ay nagchecheck na kung locked yung account

sir naggawa poh ako ng report sa ginawa kong system kaso ang problema ko eh nd xa lagi automatic path
sir pls help me namn poh

'declair first lahat ng connection mo
Dim dbLogin As New ADODB.Connection
Dim rsLogin As New ADODB.Recordset

Dim ctr As Byte

Private Sub cmdLogin_Click()

OpenConn dbLogin, rsLogin, "SELECT * FROM tblUsers WHERE UserName='" & txtUser.Text & "' AND PassWord='" & txtPass.Text & "'"
With rsLogin

If .EOF = True Then
MsgBox "Incorrect username or password.", vbCritical
ctr = ctr + 1
txtUser.Text = ""
txtPass.Text = ""
txtUser.SetFocus
Else

MsgBox "Welcome", vbInformation
Form1.Show
Unload Me
End If

End With

exitSub:
CloseConn rsLogin, dbLogin

If ctr = 3 Then
MsgBox "You have attempted to login three (3) times. Program will now close.", vbInformation
End
End If

End Sub

It works fine with my system hopefully it will give you an idea ^_^

sales and inventory system of an ice cream business,. yan poh ang naassign smin,. bka meon poh s inyo ang nkpaggwa n ng ganun,. pahelp nmn poh,. ok kung my idea poh kau,.

..hirap kc eh,. lalo n ung part ng inventory,. d koh lam kung panoh ipapakita/ilalagay s dbase ung stocks nung products,. ..tapos kung pano babawas ng automatic sa stocks kapag nakabenta,.
..sounds easy peo d nmin magawa,.

..kc nmn e2 ung line up ng products huh,.

..may fields n,. products, flavors, quantity, amount/price,.
..kunyari, product=cream cup, flavors=chocolate, ube, vanilla, cheese,. quantity=100,. price=15.00

..naguguluhan kmi, kc daming flavors,...
,.basta gnun,. help nmn.,

anyone help me in my program........? how to make a log in with 3 attempts

Private Sub Command1_Click()
Dim Counter As Integer

If txtUserName = x Then
Call PasswordOption

Else
MsgBox "Access Denied!"
txtUserName.SetFocus
Counter = Counter + 1
SendKeys "{Home}+{End}"
End If
If Counter = 3 Then
'gwa k ng lblcounter den add mu tong code na..newbie din aq, but try mu qng mkakatulong..
lblcounter.text=counter

MsgBox "You reached the maximum attempts allowed to log in. System is now terminating.."
End
End If
End Sub

Private Sub PasswordOption()
If txtPassword = y Then
MsgBox "Welcome! Login succeded!"
Else
MsgBox "Access denied!"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
Counter = Counter + 1
If Counter = 3 Then
MsgBox "System will now terminate!", , "MIS"
End
End If
End If
End Sub

Private Sub Form_Load()
Counter = 0
End Sub

if you need more explanation or help..contact me.bga makatulong aq sau khit papanu..hehe..cutelilpaul_10@yahoo.com

'ok lng ung code mu..triny q.but my pnalitan aqng konte.d q kc alm qng para sn ung x and y..d xa nadiclare qng string o integer..try mu lng to..bka mktulong khit ppnu..hehehehehhehehe..vb.net

Public Class Form1
Dim Counter As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If txtUserName.Text = "x" Then
Call PasswordOption()

Else
MsgBox("Access Denied!")
txtUserName.Focus()
Counter = Counter + 1
' SendKeys("{Home}+{End}")
End If
If Counter = 3 Then
MsgBox("You reached the maximum attempts allowed to log in. System is now terminating..")
End
End If
End Sub

Private Sub PasswordOption()
If txtPassword.Text = "y" Then
MsgBox("Welcome! Login succeded!")
Else
MsgBox("Access denied!")
txtPassword.Focus()
' SendKeys("{Home}+{End}")
Counter = Counter + 1
If Counter = 3 Then
MsgBox("System will now terminate!", , "MIS")
End
End If
End If
End Sub

Private Sub Form_Load()
Counter = 0
End Sub
End Class

i need a code in my program in ASP.Net.. a login form with 3trials.. please help me.. ^_^ tnx and God Bless