行业应用

开发平台：
VFP

roommenu.mpr：源码内容
							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: ROOMMENU.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 DEFINE POPUP 快捷菜单 FROM MROW() , MCOL() RELATIVE SHORT
 DEFINE BAR 1 OF 快捷菜单 PROMPT '登记(<S)' SKIP FOR P_ID <> 0
 DEFINE BAR 2 OF 快捷菜单 PROMPT '预定(<R)'
 DEFINE BAR 3 OF 快捷菜单 PROMPT '-'
 DEFINE BAR 4 OF 快捷菜单 PROMPT '记帐(<A)' SKIP FOR P_ID = 0
 DEFINE BAR 5 OF 快捷菜单 PROMPT '查看(<V)' SKIP FOR P_ID = 0
 DEFINE BAR 6 OF 快捷菜单 PROMPT '结帐(<C)' SKIP FOR P_ID = 0
 DEFINE BAR 7 OF 快捷菜单 PROMPT '菜单(<M)' SKIP FOR P_ID = 0
 DEFINE BAR 8 OF 快捷菜单 PROMPT '-'
 DEFINE BAR 9 OF 快捷菜单 PROMPT '翻台'
 DEFINE BAR 10 OF 快捷菜单 PROMPT '全部翻台(<L)'
 DEFINE BAR 11 OF 快捷菜单 PROMPT '-'
 DEFINE BAR 12 OF 快捷菜单 PROMPT '餐桌信息(<I)'
 ON SELECTION BAR 1 OF 快捷菜单  ;
      DO _0180rozmk  IN LOCFILE("红虎工作室餐厅收银ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
 ON SELECTION BAR 2 OF 快捷菜单  ;
      DO _0180rozmt  IN LOCFILE("红虎工作室餐厅收银ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
 ON SELECTION BAR 4 OF 快捷菜单 do ChecktoRun with "do form 菜单记帐","22"
 ON SELECTION BAR 5 OF 快捷菜单  ;
      do ChecktoRun with "do showform with '帐目查看','oViewForm'","22"
 ON SELECTION BAR 6 OF 快捷菜单  ;
      do ChecktoRun with "do showform with  '结帐','oCheckOut'","22"
 ON SELECTION BAR 7 OF 快捷菜单  ;
      do ChecktoRun with "do showform with '菜单查看','oF15'","15"
 ON SELECTION BAR 9 OF 快捷菜单  ;
      DO _0180rozn7  IN LOCFILE("红虎工作室餐厅收银ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
 ON SELECTION BAR 10 OF 快捷菜单  ;
      DO _0180roznf  IN LOCFILE("红虎工作室餐厅收银ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
 ON SELECTION BAR 12 OF 快捷菜单  ;
      DO _0180rozno  IN LOCFILE("红虎工作室餐厅收银ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
 ACTIVATE POPUP 快捷菜单
PROCEDURE _0180rozmk
 DO USETABLE WITH 'RoomList'
 SELECT ROOMLIST
 LOCATE FOR ALLTRIM(ROOMNAME) == CUR_ROOM
 IF STATUS = 3
  if messagebox("&cur_room 桌是预定的，现在登记吗？",4+32,"登记")=7
 RETURN 
 ELSE 
 REPLACE STATUS WITH 0
 ENDIF 
 ENDIF 
 DO CHECKTORUN WITH "do showform with '新增','oF11' " , '11'
ENDPROC
*------
PROCEDURE _0180rozmt
  if messagebox("&cur_room 桌预定吗？",4+32,"预定")=7
 RETURN 
 ENDIF 
 DO USETABLE WITH 'RoomList'
 SELECT ROOMLIST
 LOCATE FOR ALLTRIM(ROOMNAME) == CUR_ROOM
 IF STATUS = 3 .OR. STATUS = 1
  messagebox("&cur_room 桌已是预定或在用！",64,"预定")
 RETURN 
 ENDIF 
 IF STATUS = 0 .OR. STATUS = 2
 REPLACE STATUS WITH 3
 DO REFRESH_ROOM
 ENDIF 
ENDPROC
*------
PROCEDURE _0180rozn7
  if messagebox("&cur_room 桌翻台吗？",4+32,"翻台")=7
 RETURN 
 ENDIF 
 DO USETABLE WITH 'RoomList'
 SELECT ROOMLIST
 LOCATE FOR ALLTRIM(ROOMNAME) == CUR_ROOM
 IF STATUS = 2
 REPLACE STATUS WITH 0
 DO REFRESH_ROOM
 ENDIF 
ENDPROC
*------
PROCEDURE _0180roznf
 IF MESSAGEBOX('全部桌翻台吗？',36,'全部翻台') = 7
 RETURN 
 ENDIF 
 DO USETABLE WITH 'RoomList'
 REPLACE STATUS WITH (0) FOR STATUS = 2
 DO REFRESH_ROOM
ENDPROC
*------
PROCEDURE _0180rozno
 DO SHOWFORM WITH '餐桌信息' , 'oTableInfo'
ENDPROC
*------*

						