main.prg

工会管理软件

SET TALK off
SET MESSAGE ON
SET EXCL on
set  CENT ON
SET DATE TO AMERICAN 
set safety off
RELEASE WINDOW 常用
deactivate window "项目管理器"

ZOOM WINDOW SCREEN MAX 

dd=cdow(date())
do case
  case dd="Monday"
  ddd="星期一"
    case dd="Tuesday"
  ddd="星期二"
    case dd="Wednesday"
  ddd="星期三"
    case dd="Thursday"
  ddd="星期四"
    case dd="Friday"
  ddd="星期五"
    case dd="Saturday"
  ddd="星期六"
    case dd="Sunday"
  ddd="星期日"
endcase  

if mod(day(date()),2)=0
_SCREEN.backcolor=rgb(80,230,210)
MODIFY WINDOW SCREEN TITLE "  工会工作管理程序                      "+;
          "         今天是："+dtoc(date())+"  "+ddd
else
_SCREEN.backcolor= rgb(70,140,180)
MODIFY WINDOW SCREEN TITLE "  工会工作管理程序                      "+;
          "           今天是："+dtoc(date())+"  "+ddd
endif
publ mypath
mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to form,data,frx
OPEN DATABASE gonghui
do form MAIN
read even