اینو استفاده کن
LOCATE FOR UPPER(login.userid) = UPPER(ALLTRIM(THISFORM.txtUserName.Value))
IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.txtPassword.Value)
select login
m.OldRecNo = recno();
THISFORM.cUser = ALLTRIM(login.userid)
DO FORM index
select login
goto m.OldRecNo
THISFORM.Release
ELSE
#DEFINE MISMATCH_LOC "äÇã ˜ÇÑÈÑí íÇ ÑãÒ ÕÍíÍ äíÓÊ áØÝÇ ÏæÈÇÑå ÓÚí ˜äíÏ"
WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5
THISFORM.txtUserName.Value = ""
THISFORM.txtPassword.Value = ""
THISFORM.txtUserName.SetFocus
ENDIF
دوست عزیزم کدهاتون توی تگ CODE بنویسید. توی این تاپیک رو گفتم