main.prg

来自「工会管理软件」· PRG 代码 · 共 45 行

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