Listing Progaram Login

' password version 1.0
' created by: Mr. Jake Rodriguez Pomperada, MAED-IT
' date : March 30, 2009 Monday
' tool : Visual Basic 6.0
' email : jakerpomperada@yahoo.com
' location : purok pag-asa, barangay alijis 6100 bacolod city, negros
' occidental philippines

Option Explicit
Dim WrongLogin As Integer
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
On Error GoTo errhandler

If WrongLogin = 2 Then
Call MsgBox("kamu sudah 3 kali gagal. silahkan keluar!!!", vbOKOnly, "Sorry")
End
End If

WrongLogin = WrongLogin + 1
Form1.txt_try.Text = Str(WrongLogin)

If UCase(txtUserName.Text) = "" Or IsNull(txtUserName.Text) = True Then
Call MsgBox("Nama Harus di isi.", vbOKOnly, "Nama")
txtUserName.SetFocus
Exit Sub
End If
If UCase(txtPassword.Text) = "" Or IsNull(txtPassword.Text) = True Then
Call MsgBox("Password Harus di isi.", vbOKOnly, "Password")
txtPassword.SetFocus
Exit Sub
End If

Open_cn

Set rs = New ADODB.Recordset
rs.Open ("Select * from Login Where UserName= '" & UCase(txtUserName.Text) & "'"), cn, adOpenStatic, adLockOptimistic, _
adCmdText


If UCase(txtPassword.Text) <> rs.Fields("password") Then
Call MsgBox("Incorrect Password", vbOKOnly, "Login Error")
txtPassword.Text = ""
txtPassword.SetFocus
Exit Sub
Else
'Correct!
UserName = UCase(txtUserName.Text) 'May need in the future project
MsgBox ("Correct Login. This is where you open another form and close this one.")
'This is where you open a new form and close frmLogin
'Example:

'frmMain.show
'unload me
End If
Close_cn
Exit Sub
errhandler:

Call MsgBox("Incorrect Username", vbOKOnly, "Login Error")
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
Exit Sub


End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Form1.Show
Form1.txtUserName.SetFocus
WrongLogin = 0
End Sub



Private Sub Txtusername_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Form1.txtPassword.SetFocus
End If
End Sub



Private Sub Txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Form1.Command1.SetFocus
End If
End Sub

Option Explicit

Public UserName As String
Public DatabasePath As String
Public cn As ADODB.Connection

Module Login

Public Sub Open_cn()

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Properties("Data Source") = App.Path & "\login.mdb"
cn.Open

End Sub
Public Sub Close_cn()

cn.Close
Set cn = Nothing

End Sub