refresh_room.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 51 行

if !(TYPE("oF14")="O" AND !ISNULL(oF14))
     set message to "房态没有打开！"
     retu
endif   

set message to "正在刷新房态，请稍候..."
color1=rgb(255,0,0)        && 维修
color2=rgb(255,255,0)      && 住房
color3=rgb(0,180,0)        && 休息
color4=rgb(0,0,255)        && 预定
color5=rgb(0,255,255)      && 空房
color6=rgb(128,128,128)    && 脏房
color7=rgb(255,255,255)    && 错误

do usetable with "Roomlist"
sele roomlist
go top
do while .not.eof()
if position=0
   skip
   loop
endif      
    cn=allt(str(position))
    oF14.status&cn..roomname.value=allt(roomname)
    oF14.status&cn..roomnamf.value=allt(roomname)
    oF14.status&cn..visible=.t.
    do case
       case status=0 && empty
          oF14.status&cn..backcolor=color5 
       case status=1 && eating
          oF14.status&cn..backcolor=color2
       case status=2 && eated
          oF14.status&cn..backcolor=color6
       case status=3 && book
          oF14.status&cn..backcolor=color4
       case status=4 && fix
          oF14.status&cn..backcolor=color1
       case status=5 && group
          oF14.status&cn..backcolor=color4
    other
          oF14.status&cn..backcolor=color7
    endcase
skip
enddo
sele roomlist
count to nInRoom for status=1.
cInRoom=allt(str(nInRoom))
use
oF14.caption="图形状态 "+"（餐位：" +cInroom+" 间正在使用）"
set message to "完成"