我手头有一个现成的,不过你可能得稍加更改。 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 |
|