gzgl.prg

这是一个工资管理程序

CLEAR
SET EXCL ON 
SET TALK OFF
set stat off
set safe off
SET MESSAGE ON
SET SYSMENU OFF
SET STATUS BAR OFF
SET  CENT ON
RELEASE WINDOW 常用
PUBLIC MYPATH,nn,yy,rr,name
MYPATH=LEFT(SYS(16),RAT("\",SYS(16)))
SET DEFA TO (MYPATH)
SET PATH TO data;form;report;prog
*_screen.backcolor=iif(mod(day(date()),2)=0,rgb(80,230,210),rgb(70,140,180))
MODIFY WINDOW SCREEN TITLE" 化验中心工资管理软件　VER 1.0 　  　　　　　      作者：袁冬梅　　　 　　　　　　　今天是："+dtoc(date())+"  "+cdow(date())
*_screen.icon="..\pic\msgbox02.ico"
zoom window screen max
_screen.controlbox=.f.
deactivate window "项目管理器"
deactivate window "命令"
do form pass
read event
do cd.mpr
read events
quit