📄 zcd.mpr
字号:
* *********************************************************
* *
* * 07/05/06 ZCD.MPR 09:47:30
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (C) 2006 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This PROGRAM was automatically generated BY GENMENU.
* *
* *********************************************************
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1uc0kzjgz OF _MSYSMENU PROMPT "会员管理" COLOR SCHEME 3
DEFINE PAD _1uc0kzjh0 OF _MSYSMENU PROMPT "图书管理" COLOR SCHEME 3
DEFINE PAD _1uc0kzjh1 OF _MSYSMENU PROMPT "图书管理" COLOR SCHEME 3
DEFINE PAD _1uc0kzjh2 OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1uc0kzjh3 OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _1uc0kzjh4 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1uc0kzjgz OF _MSYSMENU ACTIVATE POPUP 会员管理
ON PAD _1uc0kzjh0 OF _MSYSMENU ACTIVATE POPUP 图书管理
ON PAD _1uc0kzjh1 OF _MSYSMENU ACTIVATE POPUP _0zk1a2fdg
ON PAD _1uc0kzjh2 OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1uc0kzjh3 OF _MSYSMENU ACTIVATE POPUP 报表打印
ON PAD _1uc0kzjh4 OF _MSYSMENU 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 _1uc0kzjh5 ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 2 OF 会员管理 ;
DO _1uc0kzjhw ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
DEFINE POPUP 图书管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 图书管理 PROMPT "借书"
DEFINE BAR 2 OF 图书管理 PROMPT "还书"
ON SELECTION BAR 1 OF 图书管理 ;
DO _1uc0kzjij ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 2 OF 图书管理 ;
DO _1uc0kzjj3 ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
DEFINE POPUP _0zk1a2fdg MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0zk1a2fdg PROMPT "图书登记"
DEFINE BAR 2 OF _0zk1a2fdg PROMPT "图书删除"
ON SELECTION BAR 1 OF _0zk1a2fdg ;
DO _1uc0kzjjp ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 2 OF _0zk1a2fdg ;
DO _1uc0kzjk9 ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
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 _1uc0kzjku ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 2 OF 查询 ;
DO _1uc0kzjle ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 3 OF 查询 ;
DO _1uc0kzjm0 ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
DEFINE POPUP 报表打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表打印 PROMPT "会员记录打印"
DEFINE BAR 2 OF 报表打印 PROMPT "借书记录打印"
ON SELECTION BAR 1 OF 报表打印 ;
DO _1uc0kzjml ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON SELECTION BAR 2 OF 报表打印 ;
DO _1uc0kzjn6 ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "退出"
ON SELECTION BAR 1 OF 新菜单项 ;
DO _1uc0kzjnr ;
IN LOCFILE("\XINGAI\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
* *********************************************************
* *
* * _1UC0KZJH5 ON SELECTION BAR 1 OF POPUP 会员管理
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 会员管理
* * Prompt: 注册
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1uc0kzjh5
release fm_main
do form regiter
* *********************************************************
* *
* * _1UC0KZJHW ON SELECTION BAR 2 OF POPUP 会员管理
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 会员管理
* * Prompt: 挂失
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1uc0kzjhw
release fm_main
do form regiter
* *********************************************************
* *
* * _1UC0KZJIJ ON SELECTION BAR 1 OF POPUP 图书管理
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 9
* * Called By: ON SELECTION BAR 1 OF POPUP 图书管理
* * Prompt: 借书
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1uc0kzjij
release fm_main
do form bought
* *********************************************************
* *
* * _1UC0KZJJ3 ON SELECTION BAR 2 OF POPUP 图书管理
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 10
* * Called By: ON SELECTION BAR 2 OF POPUP 图书管理
* * Prompt: 还书
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1uc0kzjj3
release fm_main
do form bought
* *********************************************************
* *
* * _1UC0KZJJP ON SELECTION BAR 1 OF POPUP _0zk1a2fdg
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 13
* * Called By: ON SELECTION BAR 1 OF POPUP _0zk1a2fdg
* * Prompt: 图书登记
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1uc0kzjjp
release fm_main
do form book
* *********************************************************
* *
* * _1UC0KZJK9 ON SELECTION BAR 2 OF POPUP _0zk1a2fdg
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 14
* * Called By: ON SELECTION BAR 2 OF POPUP _0zk1a2fdg
* * Prompt: 图书删除
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1uc0kzjk9
release fm_main
do form book
* *********************************************************
* *
* * _1UC0KZJKU ON SELECTION BAR 1 OF POPUP 查询
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 17
* * Called By: ON SELECTION BAR 1 OF POPUP 查询
* * Prompt: 会员记录查询
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1uc0kzjku
release fm_main
do form hlocate
* *********************************************************
* *
* * _1UC0KZJLE ON SELECTION BAR 2 OF POPUP 查询
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 18
* * Called By: ON SELECTION BAR 2 OF POPUP 查询
* * Prompt: 借书记录查询
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1uc0kzjle
release fm_main
do form slocate
* *********************************************************
* *
* * _1UC0KZJM0 ON SELECTION BAR 3 OF POPUP 查询
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 19
* * Called By: ON SELECTION BAR 3 OF POPUP 查询
* * Prompt: 图书书目查询
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1uc0kzjm0
release fm_main
do form book
* *********************************************************
* *
* * _1UC0KZJML ON SELECTION BAR 1 OF POPUP 报表打印
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 22
* * Called By: ON SELECTION BAR 1 OF POPUP 报表打印
* * Prompt: 会员记录打印
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _1uc0kzjml
release fm_main
do form regiter
* *********************************************************
* *
* * _1UC0KZJN6 ON SELECTION BAR 2 OF POPUP 报表打印
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 23
* * Called By: ON SELECTION BAR 2 OF POPUP 报表打印
* * Prompt: 借书记录打印
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _1uc0kzjn6
release fm_main
do form bought
* *********************************************************
* *
* * _1UC0KZJNR ON SELECTION BAR 1 OF POPUP 新菜单项
* *
* * Procedure Origin:
* *
* * From Menu: ZCD.MPR, Record: 26
* * Called By: ON SELECTION BAR 1 OF POPUP 新菜单项
* * Prompt: 退出
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _1uc0kzjnr
quit
clear events
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -