Login Security System with Three Attempts in Microsoft Visual Foxpro

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 mobile number here in the Philippines is 09173084360.

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