roommenu.mpr

vfp 源码,比较全面

*       *********************************************************
*       *                                                         
*       * 2000-03-10           ROOMMENU.MPR             18:26:57  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 黄虎锋                                                  
*       *                                                         
*       * 版权(C) 2000 红虎工作室                           
*       * 后塍兴塍苑宾馆                                          
*       * 张家港, 江苏  215631                                      
*       * 中国                                              
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
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 _01y13jkd7 ;
	IN LOCFILE("\红虎工作室\餐厅收银\ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _01y13jkdf ;
	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 _01y13jke4 ;
	IN LOCFILE("\红虎工作室\餐厅收银\ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
ON SELECTION BAR 10 OF 快捷菜单 ;
	DO _01y13jkea ;
	IN LOCFILE("\红虎工作室\餐厅收银\ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")
ON SELECTION BAR 12 OF 快捷菜单 ;
	DO _01y13jkej ;
	IN LOCFILE("\红虎工作室\餐厅收银\ROOMMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 ROOMMENU?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _01Y13JKD7  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ROOMMENU.MPR,            Record:    5       
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     登记(S)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _01y13jkd7

do usetable with "RoomList"
sele roomlist
loca for allt(roomname)==cur_room
if status=3
  if messagebox("&cur_room 桌是预定的，现在登记吗？",4+32,"登记")=7
     retu
  else
    repl status with 0
  endif
endif
    do ChecktoRun with "do showform with '新增','oF11' ","11"



*       *********************************************************
*       *                                                         
*       * _01Y13JKDF  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ROOMMENU.MPR,            Record:    6       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       * Prompt:     预定(R)                                     
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _01y13jkdf
if messagebox("&cur_room 桌预定吗？",4+32,"预定")=7
  retu
endif
do usetable with "RoomList"
sele roomlist
loca for allt(roomname)==cur_room
if status=3 or status=1
  messagebox("&cur_room 桌已是预定或在用！",64,"预定")
  retu
endif

if status=0 or status=2
   repl status with 3
   do refresh_room
endif



*       *********************************************************
*       *                                                         
*       * _01Y13JKE4  ON SELECTION BAR 9 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ROOMMENU.MPR,            Record:   15       
*       * Called By:  ON SELECTION BAR 9 OF POPUP 快捷菜单        
*       * Prompt:     翻台                                        
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _01y13jke4
if messagebox("&cur_room 桌翻台吗？",4+32,"翻台")=7
  retu
endif
do usetable with "RoomList"
sele roomlist
loca for allt(roomname)==cur_room
if status=2
   repl status with 0
   do refresh_room
endif



*       *********************************************************
*       *                                                         
*       * _01Y13JKEA  ON SELECTION BAR 10 OF POPUP 快捷菜单       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ROOMMENU.MPR,            Record:   16       
*       * Called By:  ON SELECTION BAR 10 OF POPUP 快捷菜单       
*       * Prompt:     全部翻台(L)                                 
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _01y13jkea
if messagebox("全部桌翻台吗？",4+32,"全部翻台")=7
  retu
endif
do usetable with "RoomList"
repl all status with 0 for status=2
do refresh_room



*       *********************************************************
*       *                                                         
*       * _01Y13JKEJ  ON SELECTION BAR 12 OF POPUP 快捷菜单       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ROOMMENU.MPR,            Record:   19       
*       * Called By:  ON SELECTION BAR 12 OF POPUP 快捷菜单       
*       * Prompt:     餐桌信息(I)                                 
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _01y13jkej
do showform with "餐桌信息","oTableInfo"