gzgl.prg

来自「这是一个工资管理程序」· PRG 代码 · 共 26 行

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