menu_sht1.mpr

本系统是典型的小型数据库管理系统,其中涉及开发数据库程序的一些细节!登录时,请选择"管理员"!密码为:88888888,建议分辨率:800*600.相信您会从中得到一些收获

*       *********************************************************
*       *                                                         
*       * 05/04/03            MENU_SHT1.MPR             12:57:20  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 唐守勤                                                  
*       *                                                         
*       * 版权所有 (C) 2003 齐齐哈尔大学 化院 无机002班          
*       * 齐齐哈尔大学                                            
*       * 齐齐哈尔, 黑  161006                                    
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

para m.object

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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "首记录"
DEFINE BAR 2 OF 快捷菜单 PROMPT "上一个"
DEFINE BAR 3 OF 快捷菜单 PROMPT "下一个"
DEFINE BAR 4 OF 快捷菜单 PROMPT "尾记录"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _0y10rro2p ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_SHT1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_SHT1?")
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _0y10rro2q ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_SHT1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_SHT1?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _0y10rro2r ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_SHT1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_SHT1?")
ON SELECTION BAR 4 OF 快捷菜单 ;
	DO _0y10rro2s ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_SHT1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_SHT1?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _0Y10RRO2P  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_SHT1.MPR,            Record:    5      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     首记录                                      
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rro2p
go top
m.object.refresh


*       *********************************************************
*       *                                                         
*       * _0Y10RRO2Q  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_SHT1.MPR,            Record:    6      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       * Prompt:     上一个                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rro2q
if bof()
   messagebox("已经到文件头了!","系统提示")
else
   skip -1
endif
m.object.refresh



*       *********************************************************
*       *                                                         
*       * _0Y10RRO2R  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_SHT1.MPR,            Record:    7      
*       * Called By:  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       * Prompt:     下一个                                      
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rro2r
if eof()
  messagebox("已经到文件尾了!","系统提示")
else
   skip
endif
m.object.refresh


*       *********************************************************
*       *                                                         
*       * _0Y10RRO2S  ON SELECTION BAR 4 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_SHT1.MPR,            Record:    8      
*       * Called By:  ON SELECTION BAR 4 OF POPUP 快捷菜单        
*       * Prompt:     尾记录                                      
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rro2s
if eof()
   messagebox("已经到文件尾了!","系统提示")
else
   go bottom
endif
m.object.refresh