main.bak

来自「本程序可以用来统计保存在EXCEL表中高中各科考试成绩分析情况。 EXLS表」· BAK 代码 · 共 53 行

set talk off                                         
set esca on                                       
**********                                          
*set excl Off *设定表为共享方式                      
*SET REPROCESS TO AUTOMATIC *设定数据加锁              
*set help to comp_help.chm  *设定帮助文件
set cons on       *激活从程序中向 Visual FoxPro 主窗口或活动的用户自定义窗口的输出。
set date ansi     *设置日期格式
set score off     *设定Num Lock、 Caps Lock 和 Insert 键状态
set safe off      *关闭对话框
set stat bar on   *打开状态栏
set cent on       *设定日期格式年为4位数
set color to 
set path  to  .\;.\exls;\dbf;.\formS;.\report;.\mnx
*设定配色方案
set sysmenu off   *关闭系统主菜单
*clear
*刷新屏幕
clear all         *清理变量
* ON ERROR DO err.PRG  *设定出错处理程序
*on shutdown do qUIT1.prg *指定当试图退出FoxPro时，要执行的命令，否则提示不能退出FoxPro
with  _screen 
.visible=.f.     
endwith
PUBLIC QXL0,qxl,km_dn,KM_KP,mm,rsbt
*qxl0="k"
qxl0="D"
QXL="D"
*do .\mnx\km_sc.mpr
DO form .\km_dkpt.scx
*_screen.visible=.f.
*_screen.width=800
*_screen.height=600
*_screen.autoCenter=.t.
on shutdown quit     &&按“X”关闭不再提示，也可自定个过程，将quit改为DO 过程名，来处理你的关闭。 
*with _screen
*.visible=.t.
*.closable=.t.
*.controlbox=.t.
*.maxbutton=.t.
*.minbutton=.t.
*.movable=.t.
*.top=0
*.left=0
*.windowstate=2
*.caption='学生成绩管理'
*.icon='screen2.ico'
*.picture="112.jpg"
*endwith
read event        *占用进程