📄 program.prg
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -