A database driven login system with three attempt security feature that I wrote using Microsoft Visual FoxPro 9.0
I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.
My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.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 Philippines is +63 (034) 4335675.
Here in Bacolod I also accepting computer repair, networking, and Arduino Project development at a very affordable price.
My personal website is http://www.jakerpomperada.com
Sample Program Output
Program Listing
* Written By: Mr. Jake Rodriguez Pomperada,MAED-IT,MIT
* Microsoft Visual Foxpro 9
* jakerpomperada@gmail.com
* Bacolod City, Negros Occidental, Philippines
*
* Object : Command1 Proceudre: Click
cMessageTitle = 'Information'
mcMsg1 = "After Three Attempts. Invalid Username or Password."
mnLenMsg1 = LEN(mcMsg1)
mcMsg2 = "Kindly contact the programmer for assistance."
cMessageText = mcMsg1;
+ CHR(13);
+ mcMsg2
nDialogType = 0 + 48 + 0
SELECT login
thisform.text3.Value = thisform.text3.Value -1
if thisform.text3.Value < 1
MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
THISFORM.Release()
Else
IF EMPTY(ALLTRIM(THISFORM.Text1.Value))
messagebox("Cannot continue without Username.")
thisform.text1.setfocus()
ELSE
IF EMPTY(ALLTRIM(THISFORM.text2.Value))
messagebox("Cannot continue without Password.")
thisform.text1.setfocus()
ELSE
locate for allt(lower(username))=allt(lower(login.text1.value)) ;
.and. allt(lower(pass_me))=allt(lower(login.text2.value))
if found()
DO FORM main_page
ELSE
messagebox("Incorrect Username or Passsword. Try Again")
thisform.text1.value =""
thisform.text2.value =""
thisform.text1.setfocus()
ENDIF
ENDIF
ENDIF
ENDIF
* Written By: Mr. Jake Rodriguez Pomperada,MAED-IT,MIT
* Microsoft Visual Foxpro 9
* jakerpomperada@gmail.com
* Bacolod City, Negros Occidental, Philippines
*
* Object : Command2 Procedure: Click
thisform.Release
* Written By: Mr. Jake Rodriguez Pomperada,MAED-IT,MIT
* Microsoft Visual Foxpro 9
* jakerpomperada@gmail.com
* Bacolod City, Negros Occidental, Philippines
*
* Object : Form1 Procedure: Init
THISFORM.Text3.Value = 3
Nice explain for foxpro login with example.
ReplyDeleteVisual Foxpro Migration and Foxpro Migration