开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 查看源码
refresh_room.prg
资源名称：CTCT.rar　[点击查看]
上传用户：gz31567
上传日期：2020-04-16
资源大小：4096k
文件大小：1k
源码类别：

行业应用

开发平台：

VFP

refresh_room.prg：源码内容
  1. * -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  2. *  文件名: REFRESH_ROOM.PRG <-- 本文件由 UnFoxAll 创建
  3. * -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  6.  IF  .NOT. (TYPE('oF14') = 'O' AND  .NOT. ISNULL(OF14))
  7.  SET MESSAGE TO '房态没有打开！'
  8.  RETURN 
  9.  ENDIF 
  10.  SET MESSAGE TO '正在刷新房态，请稍候...'
  11.  COLOR1 = RGB(255,0,0)
  12.  COLOR2 = RGB(255,255,0)
  13.  COLOR3 = RGB(0,180,0)
  14.  COLOR4 = RGB(0,0,255)
  15.  COLOR5 = RGB(0,255,255)
  16.  COLOR6 = RGB(128,128,128)
  17.  COLOR7 = RGB(255,255,255)
  18.  DO USETABLE WITH 'Roomlist'
  19.  SELECT ROOMLIST
  20.  GO TOP
  21.  DO WHILE  .NOT. EOF()
  22.  IF POSITION = 0
  23.  SKIP 
  24.  LOOP 
  25.  ENDIF 
  26.  CN = ALLTRIM(STR(POSITION))
  27.   oF14.status&cn..roomname.value=allt(roomname)
  28.   oF14.status&cn..roomnamf.value=allt(roomname)
  29.   oF14.status&cn..visible=.t.
  30.  DO CASE 
  31.  CASE STATUS = 0
  32.   oF14.status&cn..backcolor=color5 
  33.  CASE STATUS = 1
  34.   oF14.status&cn..backcolor=color2
  35.  CASE STATUS = 2
  36.   oF14.status&cn..backcolor=color6
  37.  CASE STATUS = 3
  38.   oF14.status&cn..backcolor=color4
  39.  CASE STATUS = 4
  40.   oF14.status&cn..backcolor=color1
  41.  CASE STATUS = 5
  42.   oF14.status&cn..backcolor=color4
  43.  OTHERWISE 
  44.   oF14.status&cn..backcolor=color7
  45.  ENDCASE 
  46.  SKIP 
  47.  ENDDO 
  48.  SELECT ROOMLIST
  49.  COUNT FOR STATUS = 1 TO NINROOM
  50.  CINROOM = ALLTRIM(STR(NINROOM))
  51.  USE 
  52.  OF14.CAPTION = '图形状态 ' + '（餐位：' + CINROOM + ' 间正在使用）'
  53.  SET MESSAGE TO '完成'
  54. *