图书管理.mpr

vf 图书管理⑴ 根据E—R图设计关系模式；（每个关系模式2分

*       *********************************************************
*       *                                                         
*       * 01/23/03            图书管理.MPR              10:03:34  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0v80lk7g4 OF _MSYSMENU PROMPT "输入" COLOR SCHEME 3
DEFINE PAD _0v80lk7g5 OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _0v80lk7g6 OF _MSYSMENU PROMPT "输出" COLOR SCHEME 3
DEFINE PAD _0v80lk7g7 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _0v80lk7g4 OF _MSYSMENU ACTIVATE POPUP 输入
ON PAD _0v80lk7g5 OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _0v80lk7g6 OF _MSYSMENU ACTIVATE POPUP 输出
ON SELECTION PAD _0v80lk7g7 OF _MSYSMENU ;
	DO _0v80lk7g8 ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")

DEFINE POPUP 输入 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 输入 PROMPT "读者登记"
DEFINE BAR 2 OF 输入 PROMPT "借书登记表"
DEFINE BAR 3 OF 输入 PROMPT "图书资料表"
ON SELECTION BAR 1 OF 输入 ;
	DO _0v80lk7g9 ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 2 OF 输入 ;
	DO _0v80lk7ga ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 3 OF 输入 ;
	DO _0v80lk7gb ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "图书馆藏书情况统计"
DEFINE BAR 2 OF 查询 PROMPT "各单位借书情况统计"
DEFINE BAR 3 OF 查询 PROMPT "各人借书情况"
DEFINE BAR 4 OF 查询 PROMPT "各出版社出书情况"
DEFINE BAR 5 OF 查询 PROMPT "借阅各出版社图书情况"
DEFINE BAR 6 OF 查询 PROMPT "借书情况查询"
ON SELECTION BAR 1 OF 查询 ;
	DO _0v80lk7gc ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 2 OF 查询 ;
	DO _0v80lk7gd ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 3 OF 查询 ;
	DO _0v80lk7ge ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 4 OF 查询 ;
	DO _0v80lk7gf ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 5 OF 查询 ;
	DO _0v80lk7gg ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 6 OF 查询 ;
	DO _0v80lk7gh ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")

DEFINE POPUP 输出 MARGIN RELATIVE SHADOW COLOR SCHEME 4
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 _0v80lk7gi ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 2 OF 输出 ;
	DO _0v80lk7gj ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 3 OF 输出 ;
	DO _0v80lk7gk ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")
ON SELECTION BAR 4 OF 输出 ;
	DO _0v80lk7gl ;
	IN LOCFILE("VF例题-图书管理\图书管理" ,"MPX;MPR|FXP;PRG" ,"WHERE is 图书管理?")


*       *********************************************************
*       *                                                         
*       * _0V80LK7G8  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  图书管理.MPR,            Record:   22       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0v80lk7g8
set sysmenu to default
clear windows



*       *********************************************************
*       *                                                         
*       * _0V80LK7G9  ON SELECTION BAR 1 OF POPUP 输入            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  图书管理.MPR,            Record:    5       
*       * Called By:  ON SELECTION BAR 1 OF POPUP 输入            
*       * Prompt:     读者登记                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0v80lk7g9
clear windows
do form 读者登记表


*       *********************************************************
*       *                                                         
*       * _0V80LK7GA  ON SELECTION BAR 2 OF POPUP 输入            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  图书管理.MPR,            Record:    6       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 输入            
*       * Prompt:     借书登记表                                  
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0v80lk7ga
clear windows
do form 借书登记表



*       *********************************************************
*       *                                                         
*       * _0V80LK7GB  ON SELECTION BAR 3 OF POPUP 输入            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  图书管理.MPR,            Record:    7       
*       * Called By:  ON SELECTION BAR 3 OF POPUP 输入            
*       * Prompt:     图书资料表                                  
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0v80lk7gb
clear windows
do form 图书资料表


*       *********************************************************
*       *                                                         
*       * _0V80LK7GC  ON SELECTION BAR 1 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  图书管理.MPR,            Record:   10       
*       * Called By:  ON SELECTION BAR 1 OF POPUP 查询            
*       * Prompt:     图书馆藏书情况统计