main.prg

来自「一个好用的图书管理系统一个好用的图书管理系统一个好用的图书管理系统」· PRG 代码 · 共 50 行

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

ZOOM WINDOW SCREEN MAX 
publ mypath,xh,qsrq,zzrq,xm,pic
dd=cdow(date())
do case
  case dd="Monday"
  pic='pic1.jpg'
  ddd="星期一"
    case dd="Tuesday"
  pic='pic2.jpg'  
  ddd="星期二"
    case dd="Wednesday"
  ddd="星期三"
  pic='pic3.jpg'
    case dd="Thursday"
  ddd="星期四"
  pic='pic4.jpg'
    case dd="Friday"
  ddd="星期五"
  pic='pic5.jpg'
    case dd="Saturday"
  ddd="星期六"
  pic='pic6.jpg'
    case dd="Sunday"
  ddd="星期日"
  pic='pic7.jpg'
endcase  
_SCREEN.visible=.f.
MODIFY WINDOW SCREEN TITLE " 微机上机时间管理系统 "+;
          "         今天是："+dtoc(date())+"  "+ddd


xm=""
xh=""
qsrq={..}
ZZRQ={..}
mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to forms,datas,frxs,pics,images
OPEN DATABASE wjgl

do form main
read even