Release Block User Code

In any login code, aside from status login, logout, I also made use of block. A user has a status of block if his username and password dis not match thrice in a row. This will help in the security of accessing the program.

PUBLIC pBlockUser

IF !EMPTY(THISFORM.Text2.Value)

IF THISFORM.Text4.Value = "BLOCK"

pBlockUser = THISFORM.Text3.Value

lAnswer = MESSAGEBOX("Do you want to release "+ALLTRIM(pBlockUser)+"?", 4, "Confirmation")

IF lAnswer = 6

SELECT SviewAccess

LOCATE FOR IdNum = THISFORM.Text2.Value

IF FOUND()

REPLACE AccessStatus WITH "LOGOUT"

=MESSAGEBOX("Successfully release "+ALLTRIM(pBlockUser)+" .", "Confirmation")

THISFORM.Grid1.REFRESH

ENDIF

ENDIF

ELSE

=MESSAGEBOX("Select a Block User.", "Confirmation")

ENDIF

ELSE

=MESSAGEBOX("Select User.", "Confirmation")

ENDIF

Edit Save Code

Microsoft Visual FoxPro programming language has a lot of code to edit, insert, replace or save. Using select, append, insert or replace is some of the ways to save data. I always use the select and replace because it is easy to troubleshoot when your code has a problem.

SELECT InfoNumber

LOCATE FOR IdNum = THISFORM.txtIdNum.VALUE

IF FOUND()

SELECT InfoNumber

REPLACE LastName WITH ALLTRIM(THISFORM.txtLastName.VALUE)

REPLACE FirstName WITH ALLTRIM(THISFORM.txtFirstName.VALUE)

REPLACE MiddleName WITH ALLTRIM(THISFORM.txtMiddleName.VALUE)