学生操作系统程序.prg

来自「c-minus.rar - 词法分析器源程序」· PRG 代码 · 共 35 行

**  主程序
set talk off
clear
use student2
for i=1 to 3 step 1
public a,b,flag
a="******"
b="******"
@ 4,50 say "学生操作系统"
@ 5,20 say "学生学号" get a
@ 6,20 say "学生密码" get b
read
go top
flag=0
do while .not.eof()
if xh=a .and. mm=b
flag=1
endif
skip
enddo
if flag=1
clear
wait "欢迎登陆系统"
do 程序1.prg
**调用程序1 
do 程序1
clear
else
wait "输入错误，请重新输入"
endif
endfor
wait "3次错误，自动跳出"
return