请参考:
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 "
应用软件 ver 2.1
为齐;
今天是:"+dtoc(date())+"
"+cdow(date())
else
&&奇数日期
_SCREEN.backcolor=rgb(80,150,180)
&&窗口背景颜色
MODIFY WINDOW SCREEN TITLE " 应用软件 ver 2.1
;
今天是:"+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 kfgl
&&打开数据库
do form logo
&&运行表单logo
read events
quit