main.prg

来自「织布厂的工资管理 织布厂的工资管理」· PRG 代码 · 共 29 行

set talk off    &&关闭对话模式
set safe off
set stat off   
set dele on     &&不e处理已删除的记录
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.icon="d:\cqpb\akregator.ico"
_SCREEN.controlbox=.t.
deactivate window "项目管理器"

mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to data;form;pic
open database kfgl
do form d:\cqpb\forms\frmpass.scx
read events
quit