程序111.prg

用VFP编写的学生成绩统计系统

set talk off
set bell on
set defa to E:\成绩跟综
  set colo to 1/2
  defi wind win1 from 1,5 to 65,100 doub colo sche 5 fill"蓝色" titl"学生成绩管理系统" shad zoom close float
 clea
 acti wind win1
  @8,8 clear
  defi wind win2 from 1,5 to 40,90 pane in wind win1 colo w/RB+ titl"请输入密码" shad zoom close float
 acti wind win2 in win1
 @1,8 clear to 30,50 color gr
 @1,30 say"欢 迎 使 用" FONT"楷体",24 color GR+/W
 @5,20 say"学 生 成 绩 管 理 系 统" FONT"楷体",24 color R+/W
 @10,20 say"编  写： 陈 克 毅    2001.1. "FONT"中黑体",16 color W+/B
  
  n=1
 kl=space(7)
 do while n<=3
 set color to w+/b,n/bg
  @16,20 say"请输入口令："FONT"楷体",12
 set cons off
 accept to kl
 set cons on
 if kl<>"3515287"
 set color to /g
 if n=3
 @16,45 say"对不起，不能使用本系统!"  FONT"楷体",12 colo R+/B
 wait""
 return
 else
 @16,16 to 16,50 clear
 @16,45 say"口令不对，请重新输入!" FONT"楷体",12 colo R+/B
 wait""
 n=n+1
 loop
 endif
else
 exit
 endif
 enddo 
 set color to
 deac window win2
 defi menu gz bar mess"数据录入" in window win1
 DEFINE PAD 成绩导入 OF _MSYSMENU PROMPT "成绩导入" COLOR SCHEME 3 
  acti menu gz
  
 do menu1.mpx
 clear