📄 系统菜单.mpr
字号:
* *********************************************************
* *
* * 03/30/03 系统菜单.MPR 21:32:22
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0x21a60e3 OF _MSYSMENU PROMPT "系统" COLOR SCHEME 3
DEFINE PAD _0x21a60e8 OF _MSYSMENU PROMPT "读者管理" COLOR SCHEME 3
DEFINE PAD _0x21a60e9 OF _MSYSMENU PROMPT "书籍管理" COLOR SCHEME 3
DEFINE PAD _0x21a60ea OF _MSYSMENU PROMPT "借阅信息管理" COLOR SCHEME 3
DEFINE PAD _0x21a60eb OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _0x21a60e3 OF _MSYSMENU ACTIVATE POPUP 系统
ON PAD _0x21a60e8 OF _MSYSMENU ACTIVATE POPUP 读者管理
ON PAD _0x21a60e9 OF _MSYSMENU ACTIVATE POPUP 书籍管理
ON PAD _0x21a60ea OF _MSYSMENU ACTIVATE POPUP 借阅信息管
ON PAD _0x21a60eb OF _MSYSMENU ACTIVATE POPUP 帮助
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 3 OF 系统 ;
DO _0x21a60ec ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
DEFINE POPUP 读者管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 读者管理 PROMPT "读者种类管理"
DEFINE BAR 2 OF 读者管理 PROMPT "读者信息管理"
ON SELECTION BAR 1 OF 读者管理 ;
DO _0x21a60eq ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
ON SELECTION BAR 2 OF 读者管理 ;
DO _0x21a60er ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
DEFINE POPUP 书籍管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 书籍管理 PROMPT "书籍类别管理"
DEFINE BAR 2 OF 书籍管理 PROMPT "书籍信息管理"
ON SELECTION BAR 1 OF 书籍管理 ;
DO _0x21a60es ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
ON SELECTION BAR 2 OF 书籍管理 ;
DO _0x21a60et ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
DEFINE POPUP 借阅信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 借阅信息管 PROMPT "借书信息管理"
DEFINE BAR 2 OF 借阅信息管 PROMPT "还书信息管理"
ON BAR 1 OF 借阅信息管 ACTIVATE POPUP 借书信息管
ON BAR 2 OF 借阅信息管 ACTIVATE POPUP 还书信息管
DEFINE POPUP 借书信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 借书信息管 PROMPT "添加借书信息"
DEFINE BAR 2 OF 借书信息管 PROMPT "浏览/修改借书信息"
ON SELECTION BAR 1 OF 借书信息管 ;
DO _0x21a60eu ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
ON SELECTION BAR 2 OF 借书信息管 ;
DO _0x21a60ev ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
DEFINE POPUP 还书信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 还书信息管 PROMPT "添加还书信息"
ON SELECTION BAR 1 OF 还书信息管 ;
DO _0x21a60ew ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "About"
ON SELECTION BAR 1 OF 帮助 ;
DO _0x21a60ex ;
IN LOCFILE("C:\图书馆管理信息系统\系统菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 系统菜单?")
* *********************************************************
* *
* * _0X21A60EC ON SELECTION BAR 3 OF POPUP 系统
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统
* * Prompt: 退出
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0x21a60ec
clear events
* *********************************************************
* *
* * _0X21A60EQ ON SELECTION BAR 1 OF POPUP 读者管理
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 10
* * Called By: ON SELECTION BAR 1 OF POPUP 读者管理
* * Prompt: 读者种类管理
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0x21a60eq
do form 读者种类信息表
* *********************************************************
* *
* * _0X21A60ER ON SELECTION BAR 2 OF POPUP 读者管理
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 11
* * Called By: ON SELECTION BAR 2 OF POPUP 读者管理
* * Prompt: 读者信息管理
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0x21a60er
do form 读者信息管理表
* *********************************************************
* *
* * _0X21A60ES ON SELECTION BAR 1 OF POPUP 书籍管理
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 14
* * Called By: ON SELECTION BAR 1 OF POPUP 书籍管理
* * Prompt: 书籍类别管理
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0x21a60es
do form 书籍类别信息表
* *********************************************************
* *
* * _0X21A60ET ON SELECTION BAR 2 OF POPUP 书籍管理
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 15
* * Called By: ON SELECTION BAR 2 OF POPUP 书籍管理
* * Prompt: 书籍信息管理
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0x21a60et
do form 书籍信息管理表
* *********************************************************
* *
* * _0X21A60EU ON SELECTION BAR 1 OF POPUP 借书信息管
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 20
* * Called By: ON SELECTION BAR 1 OF POPUP 借书信息管
* * Prompt: 添加借书信息
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0x21a60eu
do form 添加借书信息表
* *********************************************************
* *
* * _0X21A60EV ON SELECTION BAR 2 OF POPUP 借书信息管
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 21
* * Called By: ON SELECTION BAR 2 OF POPUP 借书信息管
* * Prompt: 浏览/修改借书信息
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0x21a60ev
do form 浏览借书信息表
* *********************************************************
* *
* * _0X21A60EW ON SELECTION BAR 1 OF POPUP 还书信息管
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 24
* * Called By: ON SELECTION BAR 1 OF POPUP 还书信息管
* * Prompt: 添加还书信息
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0x21a60ew
do form 添加还书信息表
* *********************************************************
* *
* * _0X21A60EX ON SELECTION BAR 1 OF POPUP 帮助
* *
* * Procedure Origin:
* *
* * From Menu: 系统菜单.MPR, Record: 27
* * Called By: ON SELECTION BAR 1 OF POPUP 帮助
* * Prompt: About
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0x21a60ex
do form 帮助
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -