zhumenu.mpr

图书管理系统：主要是对图书馆的藏书进行管理的系统

*       *********************************************************
*       *                                                         
*       * 10/27/06             ZHUMENU.MPR              22:15:15  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1xi1bp5en OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY CTRL+F, "CTRL+F"
DEFINE PAD _1xi1bp5eo OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY CTRL+E, "CTRL+E"
DEFINE PAD _1xi1bp5ep OF _MSYSMENU PROMPT "书目查询(\<B)" COLOR SCHEME 3 ;
	KEY CTRL+B, "CTRL+B"
DEFINE PAD _1xi1bp5eq OF _MSYSMENU PROMPT "读者查询(\<R)" COLOR SCHEME 3 ;
	KEY CTRL+R, "CTRL+R"
DEFINE PAD _1xi1bp5er OF _MSYSMENU PROMPT "信息公布(\<I)" COLOR SCHEME 3 ;
	KEY CTRL+I, "CTRL+I"
DEFINE PAD _1xi1bp5es OF _MSYSMENU PROMPT "系统维护(\<M)" COLOR SCHEME 3 ;
	KEY CTRL+M, "CTRL+M"
DEFINE PAD _1xi1bp5et OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY CTRL+Q, "CTRL+Q"
DEFINE PAD _1xi1bp5eu OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY CTRL+H, "CTRL+H"
ON PAD _1xi1bp5en OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1xi1bp5eo OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _1xi1bp5ep OF _MSYSMENU ACTIVATE POPUP 书目查询b
ON PAD _1xi1bp5eq OF _MSYSMENU ACTIVATE POPUP 读者查询r
ON PAD _1xi1bp5er OF _MSYSMENU ACTIVATE POPUP 信息公布i
ON PAD _1xi1bp5es OF _MSYSMENU ACTIVATE POPUP 系统维护m
ON SELECTION PAD _1xi1bp5et OF _MSYSMENU ;
	DO _1xi1bp5ev ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR 4 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR _mfi_pgset OF 文件f PROMPT "页面设置(\<U)..." ;
	MESSAGE "修改页面布局和打印机设置"
DEFINE BAR 8 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF 编辑e PROMPT "撤消(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF 编辑e PROMPT "重做(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR 3 OF 编辑e PROMPT "\-"
DEFINE BAR _med_cut OF 编辑e PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF 编辑e PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF 编辑e PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"

DEFINE POPUP 书目查询b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 书目查询b PROMPT "题名查询"
DEFINE BAR 2 OF 书目查询b PROMPT "著者查询"
DEFINE BAR 3 OF 书目查询b PROMPT "出版信息查询"
ON SELECTION BAR 1 OF 书目查询b DO FORM 题名查询
ON SELECTION BAR 2 OF 书目查询b DO FORM 著者查询
ON SELECTION BAR 3 OF 书目查询b DO FORM 出版信息查询

DEFINE POPUP 读者查询r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 读者查询r PROMPT "读者查询"
DEFINE BAR 2 OF 读者查询r PROMPT "借阅书刊"
ON SELECTION BAR 1 OF 读者查询r DO FORM 读者查询
ON SELECTION BAR 2 OF 读者查询r DO FORM 书刊借阅

DEFINE POPUP 信息公布i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息公布i PROMPT "预约到书"
DEFINE BAR 2 OF 信息公布i PROMPT "超期罚款"
DEFINE BAR 3 OF 信息公布i PROMPT "超期催还"
ON SELECTION BAR 1 OF 信息公布i DO FORM 查看预约到书
ON SELECTION BAR 2 OF 信息公布i ;
	DO _1xi1bp5ew ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON SELECTION BAR 3 OF 信息公布i ;
	DO _1xi1bp5ex ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 系统维护m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护m PROMPT "修改密码"
DEFINE BAR 2 OF 系统维护m PROMPT "添加读者"
ON SELECTION BAR 1 OF 系统维护m DO FORM 密码修改
ON SELECTION BAR 2 OF 系统维护m DO FORM 添加读者


*       *********************************************************
*       *                                                         
*       * _1XI1BP5EV  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   42        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(Q)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xi1bp5ev
set procedure to zhumenu.mpr		&&指明该过程的位置
close databases										&&关闭数据库
close all											&&关闭所有的表和数据
clear events										&&清除事件循环
quit												&&退出系统



*       *********************************************************
*       *                                                         
*       * _1XI1BP5EW  ON SELECTION BAR 2 OF POPUP 信息公布i       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   36        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 信息公布i       
*       * Prompt:     超期罚款                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xi1bp5ew
SET FILTER TO							
REPORT FORM 欠款名单.frx



*       *********************************************************
*       *                                                         
*       * _1XI1BP5EX  ON SELECTION BAR 3 OF POPUP 信息公布i       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   37        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 信息公布i       
*       * Prompt:     超期催还                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xi1bp5ex
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 到期名单.frx