party人气歌谣:VF:谁能看出这个密码?

来源:百度文库 编辑:神马品牌网 时间:2024/05/06 16:27:49
***登陆界面部分主程序
set talk off
clear
***

for i=1 to 3 step 1
do background
use 用户表

public a,b,flag
a="*****"
b="*****"
@ 19,30 say "请输入姓名" get a
@ 20,30 say "请输入密码" get b
read
go top
flag=0
d=0
do while .not.eof()
if username=a .and. userpwd=b
flag=1
d=class
endif
skip
enddo
if flag=1
clear
wait "欢迎进入图书管理系统"
IF d=1
do 程序1.prg
**调用 管理员系统程序
else d=0
clear
wait "欢迎进入管理系统"
do 学生系统程序.prg
**调用 学生系统程序
endif
clear
else
wait "输入错误,请重新输入"
endif
endfor
wait "3次错误,自动跳出"
return