程序11.bak

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

set talk off
set bell on
set bell to 'F:\媒体播放\MP3\wav\3.wav',100
??chr(7)
set defa to E:\成绩跟综
  set colo to 1/2
  defi wind win1 from 1,5 to 30,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 30,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 at line 1 key alt+u in window win1  mess"学 生 成 绩 管 理 系 统" colo sche 5
 DEFINE PAD cjdr OF gz PROMPT"成绩导入" COLOR SCHEME 3 
 DEFINE PAD cjtj OF gz PROMPT "成绩统计" COLOR SCHEME 3
DEFINE PAD gzfx OF gz PROMPT "跟综分析" COLOR SCHEME 3
DEFINE PAD bz OF gz PROMPT "帮    助" COLOR SCHEME 3
  acti menu gz nowait
  
&& do menu1.mpx
 &&clear