main.prg

本程序作为毕业设计用

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 1.0           为齐;
王伟峰毕业设计                  今天是："+dtoc(date())+"  "+cdow(date())
else  &&奇数日期
_SCREEN.backcolor=rgb(80,150,180)  &&窗口背景颜色
MODIFY WINDOW SCREEN TITLE "  库房管理应用软件 ver 1.0            ;
    软件编制者：王伟峰                      今天是："+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