我手头有一个现成的,不过你可能得稍加更改。
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 " 库房管理应用软件 ver 2.1 ;
软件编制者:qqiiaann 今天是: "+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;forms;img;prg &&指明路径
open database archives &&打开数据库
do form 登陆 &&运行表单logo
read events
quit
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。