main.mpr

课程设计.rar

*       *********************************************************
*       *                                                         
*       * 06/25/04              MAIN.MPR                12:58:56  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _19p0rtq58 OF _MSYSMENU PROMPT "图书管理" COLOR SCHEME 3
DEFINE PAD _19p0rtq5h OF _MSYSMENU PROMPT "信息删除" COLOR SCHEME 3
DEFINE PAD _19p0rtq5i OF _MSYSMENU PROMPT "查询功能" COLOR SCHEME 3
DEFINE PAD _19p0rtq5j OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _19p0rtq58 OF _MSYSMENU ACTIVATE POPUP 图书管理
ON PAD _19p0rtq5h OF _MSYSMENU ACTIVATE POPUP 信息删除
ON PAD _19p0rtq5i OF _MSYSMENU ACTIVATE POPUP 查询功能
ON SELECTION PAD _19p0rtq5j OF _MSYSMENU ;
	DO _19p0rtq5k ;
	IN LOCFILE("图书管理系统1\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

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 "还书登记"
ON SELECTION BAR 1 OF 图书管理 do form jsz
ON SELECTION BAR 2 OF 图书管理 do form ts
ON SELECTION BAR 4 OF 图书管理 do form jsdj
ON SELECTION BAR 5 OF 图书管理 do form hsdj

DEFINE POPUP 信息删除 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息删除 PROMPT "借书证信息删除"
DEFINE BAR 2 OF 信息删除 PROMPT "图书登记删除"
ON SELECTION BAR 1 OF 信息删除 do form jszxg
ON SELECTION BAR 2 OF 信息删除 do form tsxg

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 "借书证办理情况查询"
ON SELECTION BAR 1 OF 查询功能 do form wjcx
ON SELECTION BAR 2 OF 查询功能 do form tucx
ON SELECTION BAR 3 OF 查询功能 do form ghcx
ON SELECTION BAR 5 OF 查询功能 do form jszcx


*       *********************************************************
*       *                                                         
*       * _19P0RTQ5K  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   23           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19p0rtq5k
if MESSAGEBOX("确认退出吗？",1+32+256,"图书管理系统")=1
	quit
	else		
	release pad menu_bar OF _MSYSMENU
do main.mpr
ENDIF