In this article I would like to share with you a sample application that I wrote in Microsoft Visual Foxpro 9 it is not yet database driven for this example but shows you how to create a login security to protect your application from intruders. I hope you will find my work useful. Thank you.
I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.
Sample Program Output
Program Listing
Object : Form1 Procedure: Init
=========================================
thisform.text2.value =0
thisform.text2.Visible= .F.
thisform.txtPassword.PasswordChar = "*"
thisform.txtusername.SetFocus
Object: Command1 Procedure: Click
========================================
if thisform.txtpassword.value = "123" AND thisform.txtusername.Value="123" then
MESSAGEBOX("Password Accepted")
RETURN .t.
endif
if thisform.text2.Value <3 then
thisform.text2.Value = thisform.text2.Value +1
thisform.txtusername.Value=""
thisform.txtpassword.Value =""
thisform.txtusername.SetFocus
thisform.label1.caption ="User login attempt number " + TRANSFORM(thisform.text2.value) + "."
endif
IF thisform.text2.Value = 3 then
MESSAGEBOX("Please contact your programmer to solve this problem")
thisform.txtusername.Enabled= .F.
thisform.txtpassword.Enabled= .F.
thisform.command1.Enabled= .F.
ENDIF
Object : Command2 Procedure: Click
==============================================
thisform.release
