main.prg

来自「自编加学习的简单管理系统,希望指教」· PRG 代码 · 共 28 行

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   ;
DSF检修公司机械车间编制                  今天是："+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