程序2.prg

来自「用VFP编写的学生成绩统计系统」· PRG 代码 · 共 38 行

set talk off
set bell on
set defa to E:\成绩跟综
 clear
 @11,26 to 30,60 clear
 @11,26 say"学生成绩管理系统" FONT"中黑体",24 color W+/R+
 @17,26 say"编  写：   陈 克 毅 2001.1."
 n=1
 kl=space(7)
 do while n<=3
 set color to w+/b,n/bg
 @15,0 clear
 @20,30 say"请输入口令："
 set cons off
 accept to kl
 set cons on
 if kl<>"3515287"
 set color to /g
 if n=3
 @15,20 to 19,50 clear
 @17,24 say"对不起，不能使用本系统"
 wait""
 return
 else
 @15,20 to 19,50 clear
 @17,24 say"口令不对，请重新输入"
 wait""
 n=n+1
 loop
 endif
else
 exit
 endif
 enddo 
 set color to
 do menu1.mpx
 clear