mainmenu.mpr

classical examples of database development based on Visual FoxPro 7.0

*       *********************************************************
*       *                                                         
*       * 07/02/02            MAINMENU.MPR              14:21:02  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2002 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0ph0urb3h OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _0ph0urb3i OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _0ph0urb3j OF _MSYSMENU PROMPT "借阅记录" COLOR SCHEME 3
DEFINE PAD _0ph0urb3k OF _MSYSMENU PROMPT "过期会员" COLOR SCHEME 3
ON PAD _0ph0urb3h OF _MSYSMENU ACTIVATE POPUP 数据维护
ON PAD _0ph0urb3i OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _0ph0urb3j OF _MSYSMENU ACTIVATE POPUP 借阅记录
ON SELECTION PAD _0ph0urb3k OF _MSYSMENU do form "f:\work\vfp7\书店租赁管理系统\Forms\查看过期会员.scx"

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 "f:\work\vfp7\书店租赁管理系统\Forms\会员信息.scx"
ON SELECTION BAR 2 OF 数据维护 do form "f:\work\vfp7\书店租赁管理系统\Forms\书籍信息.scx"
ON SELECTION BAR 3 OF 数据维护 do form "f:\work\vfp7\书店租赁管理系统\Forms\书号_店内编号.scx"
ON SELECTION BAR 4 OF 数据维护 do form "f:\work\vfp7\书店租赁管理系统\Forms\借阅信息.scx"
ON SELECTION BAR 5 OF 数据维护 do form "f:\work\vfp7\书店租赁管理系统\Forms\收入.scx"

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 "f:\work\vfp7\书店租赁管理系统\Forms\会员个人借书情况.scx"
ON SELECTION BAR 2 OF 查询 do form "f:\work\vfp7\书店租赁管理系统\Forms\书籍检索.scx"

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 form "f:\work\vfp7\书店租赁管理系统\Forms\会员借书.scx"
ON SELECTION BAR 2 OF 借阅记录 do form "f:\work\vfp7\书店租赁管理系统\Forms\临时人员借书.scx"
ON SELECTION BAR 3 OF 借阅记录 do form "f:\work\vfp7\书店租赁管理系统\Forms\会员还书.scx"
ON SELECTION BAR 4 OF 借阅记录 do form "f:\work\vfp7\书店租赁管理系统\Forms\临时人员还书.scx"