masoud1345
چهارشنبه 26 تیر 1392, 11:58 صبح
دوستان من فرم خود را exe كردهام حال ميخواه يك رمز براي برنامه خود بگذارم ايرادي كه ميگرد يك پنجره فرم رمز ناپديد نمي شود 2 خطاي file in use رانيز ميدهد اراد بنده را جواب بدهيد متشكرم LOCATE FOR UPPER(pass.userid) = UPPER(ALLTRIM(THISFORM.text1.value))
IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.text2.Value)
thisform.Release
CLOSE ALL
SET SYSMENU TO rtlj
CD f:\man
DO FORM man
DO menu1.mpr
CLEAR eVENTS
ELSE
#DEFINE MISMATCH_LOC "The user name or password is incorrect. Please try again."
WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5
THISFORM.text1.Value = ""
THISFORM.text2.Value = ""
THISFORM.text1.SetFocus
ENDIF
IF FOUND() AND ALLTRIM(password) == ALLTRIM(THISFORM.text2.Value)
thisform.Release
CLOSE ALL
SET SYSMENU TO rtlj
CD f:\man
DO FORM man
DO menu1.mpr
CLEAR eVENTS
ELSE
#DEFINE MISMATCH_LOC "The user name or password is incorrect. Please try again."
WAIT WINDOW MISMATCH_LOC TIMEOUT 1.5
THISFORM.text1.Value = ""
THISFORM.text2.Value = ""
THISFORM.text1.SetFocus
ENDIF