main.bak

中、高考成绩统计系统

set talk off    &&关闭对话模式
set safe off
set stat off   
set dele on     &&不处理已删除的记录
set cent on
set date to ansi
close all
RELEASE WINDOW 常用   &&关闭常用工具栏
if mod(day(date()),2)=0  &&偶数日期
_SCREEN.backcolor=rgb(80,180,150)  &&窗口背景颜色
MODIFY WINDOW SCREEN TITLE " 昭通市高、中考成绩统计程序   软件编制者：曾晓红    今天是："+dtoc(date())+"  "+cdow(date())
else  &&奇数日期
_SCREEN.backcolor=rgb(80,150,180)  &&窗口背景颜色
MODIFY WINDOW SCREEN TITLE "  昭通市高、中考成绩统计程序  软件编制者：曾晓红        今天是："+dtoc(date())+"  "+cdow(date())
endif
ZOOM WINDOW SCREEN MAX   &&主窗口最大化
_SCREEN.controlbox=.f.   &&去掉主窗口控制按钮
deactivate window "项目管理器"   &&关闭项目管理器
mypath=left(sys(16),rat("\",sys(16)))   &&确定程序所在的位置
set defa to (mypath)  &&设置当前路径
set path to data;form;pic   &&指明路径
open database main    &&打开数据库
do 菜单.mpr
do form 导入数据.scx   &&运行表单
read events
quit