reza m
چهارشنبه 21 بهمن 1383, 03:39 صبح
salam soali daram zir barnamei ba foxpro neveshtam ke passwordi ro az karbar migire va jadvali ro nemayesh mide password be sorate adad nashan dadeh shode soale man ine ke chetor mishe passwordo be sorate setareh neshan dad be ebarati password dide nashe lotfan mano rahnamai konid
************************************************** ******
*program password
CLEAR
ans=" "
pass=SPACE(4)
user=space(4)
DO WHILE NOT EOF() AND pass#'1111' OR user#'reza'
@ 5,10 to 16,50 double color g/r
@ 6, 20 SAY "password" COLOR g+/b
@ 8, 12 SAY "pass" GET pass COLOR gr+/b, r/w
@ 10,12 SAY "user" GET user COLOR gr+/b, r/w
READ
kd=pass
mi=user
IF pass='1111' then
if user='reza' THEN
clear
CLEAR WINDOWS student
DEFINE WINDOW student FROM 1, 1 TO 15, 70 TITLE "student" panel shadow color scheme 10
ACTIVATE WINDOW student
{use your table.dbf}
browse fields fname ,isman , avg :v=avg>=0 and avg<=20 :f :e='errore: rang 0 to 20', units :b=0,120
CLEAR WINDOWS student
endif
ELSE
CLEAR
@ 12,13 say "**error user or pass**" COLOR *g+/r, g+/rb
@ 15,13 say "do you want to continue:(y/n)" get ans COLOR gr+/b, r/w
READ
IF ans="y"
CLEAR
LOOP
ELSE
exit
ENDIF
ENDIF
ENDDO
CLEAR
return
************************************************** ******
*program password
CLEAR
ans=" "
pass=SPACE(4)
user=space(4)
DO WHILE NOT EOF() AND pass#'1111' OR user#'reza'
@ 5,10 to 16,50 double color g/r
@ 6, 20 SAY "password" COLOR g+/b
@ 8, 12 SAY "pass" GET pass COLOR gr+/b, r/w
@ 10,12 SAY "user" GET user COLOR gr+/b, r/w
READ
kd=pass
mi=user
IF pass='1111' then
if user='reza' THEN
clear
CLEAR WINDOWS student
DEFINE WINDOW student FROM 1, 1 TO 15, 70 TITLE "student" panel shadow color scheme 10
ACTIVATE WINDOW student
{use your table.dbf}
browse fields fname ,isman , avg :v=avg>=0 and avg<=20 :f :e='errore: rang 0 to 20', units :b=0,120
CLEAR WINDOWS student
endif
ELSE
CLEAR
@ 12,13 say "**error user or pass**" COLOR *g+/r, g+/rb
@ 15,13 say "do you want to continue:(y/n)" get ans COLOR gr+/b, r/w
READ
IF ans="y"
CLEAR
LOOP
ELSE
exit
ENDIF
ENDIF
ENDDO
CLEAR
return