?? 1.prg
字號:
set talk off
do while .T.
input "按1申請,按2進入,按3退出:" to aaa
do case
case aaa=1
clear
dimension s(2),m(7),x(7)
accept "請填寫你的姓名:" to s(1)
i=1
do while i<6
? "請填寫你的密碼:"
k=1
j=1
do while j<7
set cons off
wait "" to x(j)
set cons on
?? "*"
j=j+1
enddo
x=x(1)+x(2)+x(3)+x(4)+x(5)+x(6)
set cons on
? "請確認你的密碼:"
do while k<7
set cons off
wait "" to m(k)
set cons on
?? "*"
k=k+1
enddo
m=m(1)+m(2)+m(3)+m(4)+m(5)+m(6)
set exact on
if m=x
exit
else
loop
endif
i=i+1
enddo
use chen
append blank
gather from s(1) field 姓名
gather from x field 密碼
case aaa=2
dime n(7),a(4)
accept "請輸入用戶名:" to nam
locate for 姓名=nam
if found()
? "請輸入密碼:"
k=1
do while k<7
set cons off
wait "" to n(k)
set cons on
?? "*"
k=k+1
enddo
n=n(1)+n(2)+n(3)+n(4)+n(5)+n(6)
j=1
do while j<5
if 密碼!=n
if j<4
? "密碼錯誤,請再輸入:"
else
? "王八蛋,你無權進入"
exit
endif
y=1
do while y<7
set cons off
wait "" to n(y)
set cons on
?? "*"
y=y+1
enddo
n=n(1)+n(2)+n(3)+n(4)+n(5)+n(6)
j=j+1
else
? "歡迎欣賞時龍和饒娟的愛情!"
exit
endif
enddo
else
? "用戶不存在"
endif
case aaa=3
exit
endcase
enddo
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -