main.bak

来自「库房管理软件源码」· BAK 代码 · 共 36 行

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 "项目管理器"
if file("c:\windows\system\ku.dat")
wjan=filetostr("c:\windows\system\ku.dat")
if date()-ctod(wjan)>15
=messagebox("您的程序已经超过测试期，请注册。"+chr(13)+"Eail:[e-mail]",16,"提示")
quit
endif
else
STRTOFILE(dtoc(date()),"c:\windows\system\ku.dat",.f.)
endif
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to data;form;pic
open database kfgl
do form logo
read events
quit