program.prg

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

set talk off
set bell on
set defa to E:\成绩跟综
  defi wind win1 from 1,5 to 35,90 doub colo w/bg+
 defi wind win2 from 1,5 to 30,80 pane in wind win1 colo w/RB+
 acti wind win1
 acti wind win2 in win1
 @8,10 clear
 @8,10 clear to 30,50 color G+/gr
 @8,20 say"学生成绩管理系统" FONT"中黑体",24 color R/BG
 @12,20 say"编  写： 陈 克 毅 2001.1. "FONT"中黑体",16 color R/BG
 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 
 clear all
 set color to
 do menu1.mpx
 clear