📄 main_menu.mpr
字号:
* *********************************************************
* *
* * 2006.10.25 MAIN_MENU.MPR 15:31:00
* *
* *********************************************************
* *
* * 尹红泽
* *
* * 版权所有 (C) 2006 云南爱师通用软件开发有限公司
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
DEFINE PAD _1xg0x9aax OF _MSYSMENU PROMPT "进书管理(\<J)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+J, ""
DEFINE PAD _1xg0x9aay OF _MSYSMENU PROMPT "存书管理(\<C)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+C, ""
DEFINE PAD _1xg0x9aaz OF _MSYSMENU PROMPT "发书管理(\<F)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+F, ""
DEFINE PAD _1xg0x9ab0 OF _MSYSMENU PROMPT "退书管理(\<T)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+T, ""
DEFINE PAD _1xg0x9ab1 OF _MSYSMENU PROMPT "班级用书(\<B)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+B, ""
DEFINE PAD _1xg0x9ab2 OF _MSYSMENU PROMPT "供货商信息(\<G)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+G, ""
DEFINE PAD _1xg0x9ab3 OF _MSYSMENU PROMPT "文本操作(\<E)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+E, ""
DEFINE PAD _1xg0x9ab4 OF _MSYSMENU PROMPT "系统(\<M)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+M, ""
DEFINE PAD _1xg0x9ab5 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
BEFORE _MWINDOW ;
KEY ALT+H, ""
ON PAD _1xg0x9aax OF _MSYSMENU ACTIVATE POPUP 进书管理j
ON PAD _1xg0x9aay OF _MSYSMENU ACTIVATE POPUP 存书管理c
ON PAD _1xg0x9aaz OF _MSYSMENU ACTIVATE POPUP 发书管理f
ON PAD _1xg0x9ab0 OF _MSYSMENU ACTIVATE POPUP 退书管理t
ON PAD _1xg0x9ab1 OF _MSYSMENU ACTIVATE POPUP 班级用书b
ON PAD _1xg0x9ab2 OF _MSYSMENU ACTIVATE POPUP 供货商信息
ON PAD _1xg0x9ab3 OF _MSYSMENU ACTIVATE POPUP 文本操作e
ON PAD _1xg0x9ab4 OF _MSYSMENU ACTIVATE POPUP 系统m
ON PAD _1xg0x9ab5 OF _MSYSMENU ACTIVATE POPUP 帮助h
DEFINE POPUP 进书管理j MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进书管理j PROMPT "\-"
DEFINE BAR 2 OF 进书管理j PROMPT "进书" ;
KEY F2, "F2" ;
SKIP FOR skip_js=.f. or skip_jsll=.f. ;
MESSAGE " 进书..."
DEFINE BAR 3 OF 进书管理j PROMPT "\-"
DEFINE BAR 4 OF 进书管理j PROMPT "维护进书信息" ;
KEY F3, "F3" ;
SKIP FOR NOT (mymainbar.cmdjsll.Enabled) or skip_js=.f. or skip_jsll=.f. ;
MESSAGE " 维护进书信息..."
DEFINE BAR 5 OF 进书管理j PROMPT "\-"
ON SELECTION BAR 2 OF 进书管理j do form bd_jslr
ON SELECTION BAR 4 OF 进书管理j mymainbar.cmdjsll.click
DEFINE POPUP 存书管理c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 存书管理c PROMPT "\-"
DEFINE BAR 2 OF 存书管理c PROMPT "维护存书信息" ;
KEY F4, "F4" ;
SKIP FOR NOT (mymainbar.cmdcsll.Enabled) or skip_csll=.f. ;
MESSAGE " 维护存书信息..."
DEFINE BAR 3 OF 存书管理c PROMPT "\-"
ON SELECTION BAR 2 OF 存书管理c mymainbar.cmdcsll.click
DEFINE POPUP 发书管理f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 发书管理f PROMPT "\-"
DEFINE BAR 2 OF 发书管理f PROMPT "发书" ;
KEY F5, "F5" ;
SKIP FOR skip_fs=.f. or skip_fsll=.f. ;
MESSAGE " 发书..."
DEFINE BAR 3 OF 发书管理f PROMPT "\-"
DEFINE BAR 4 OF 发书管理f PROMPT "维护发书信息" ;
KEY F6, "F6" ;
SKIP FOR NOT (mymainbar.cmdfsll.Enabled) or skip_fsll=.f. or skip_fs=.f. ;
MESSAGE " 维护进书信息..."
DEFINE BAR 5 OF 发书管理f PROMPT "\-"
ON SELECTION BAR 2 OF 发书管理f do form bd_fslr
ON SELECTION BAR 4 OF 发书管理f mymainbar.cmdfsll.click
DEFINE POPUP 退书管理t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退书管理t PROMPT "\-"
DEFINE BAR 2 OF 退书管理t PROMPT "有人退书..." ;
SKIP FOR skip_ts=.f. or skip_tsll=.f. ;
MESSAGE ' 增加退书信息... '
DEFINE BAR 3 OF 退书管理t PROMPT "维护退书信息..." ;
SKIP FOR skip_ts=.f. or skip_tsll=.f. ;
MESSAGE ' 编辑退书信息... '
DEFINE BAR 4 OF 退书管理t PROMPT "\-"
ON SELECTION BAR 2 OF 退书管理t do form bd_tslr
ON SELECTION BAR 3 OF 退书管理t do form bd_tsll
DEFINE POPUP 班级用书b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 班级用书b PROMPT "\-"
DEFINE BAR 2 OF 班级用书b PROMPT "增加用书信息..." ;
SKIP FOR skip_bjysgl=.f. or skip_bjysglll=.f. ;
MESSAGE ' 增加班级用书信息... '
DEFINE BAR 3 OF 班级用书b PROMPT "维护用书信息..." ;
SKIP FOR skip_bjysgl=.f. or skip_bjysglll=.f. ;
MESSAGE ' 编辑班级用书信息... '
DEFINE BAR 4 OF 班级用书b PROMPT "\-"
DEFINE BAR 5 OF 班级用书b PROMPT "书费明细..." ;
SKIP FOR NOT (mymainbar.cmdbjsf.Enabled) or skip_bjsf=.f. ;
MESSAGE ' 书费明细... '
DEFINE BAR 6 OF 班级用书b PROMPT "\-"
ON SELECTION BAR 2 OF 班级用书b do form bd_bjysgllr
ON SELECTION BAR 3 OF 班级用书b do form bd_bjysglll
ON SELECTION BAR 5 OF 班级用书b mymainbar.cmdbjsf.click
DEFINE POPUP 供货商信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 供货商信息 PROMPT "\-"
DEFINE BAR 2 OF 供货商信息 PROMPT "增加供货商信息..." ;
SKIP FOR skip_ghdw=.f. or skip_ghdwll=.f. ;
MESSAGE ' 增加供货单位信息... '
DEFINE BAR 3 OF 供货商信息 PROMPT "维护供货商信息..." ;
SKIP FOR skip_ghdw=.f. or skip_ghdwll=.f. ;
MESSAGE ' 编辑供货单位信息... '
DEFINE BAR 4 OF 供货商信息 PROMPT "\-"
ON SELECTION BAR 2 OF 供货商信息 do form bd_ghdwlr
ON SELECTION BAR 3 OF 供货商信息 do form bd_ghdwll
DEFINE POPUP 文本操作e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文本操作e PROMPT "\-"
DEFINE BAR _med_undo OF 文本操作e PROMPT "撤消" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF 文本操作e PROMPT "重做" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE "重复上一次命令或操作"
DEFINE BAR 4 OF 文本操作e PROMPT "\-"
DEFINE BAR _med_cut OF 文本操作e PROMPT "剪切" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF 文本操作e PROMPT "复制" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR 7 OF 文本操作e PROMPT "\-"
DEFINE BAR _med_paste OF 文本操作e PROMPT "粘贴" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR 9 OF 文本操作e PROMPT "\-"
DEFINE POPUP 系统m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统m PROMPT "\-"
DEFINE BAR 2 OF 系统m PROMPT "数据安全...(\<S)" ;
SKIP FOR skipcsh=.t. or _screen.formcount<>1 ;
MESSAGE " 备份恢复数据..."
DEFINE BAR 3 OF 系统m PROMPT "\-"
DEFINE BAR 4 OF 系统m PROMPT "系统初始化(\<I)" ;
SKIP FOR skipcsh=.t. or _screen.formcount<>1 ;
MESSAGE " 清空所有数据，准备正式开始使用..."
DEFINE BAR 5 OF 系统m PROMPT "\-"
DEFINE BAR 6 OF 系统m PROMPT "修改用户...(\<U)" ;
SKIP FOR skipcsh=.t. ;
MESSAGE " 修改用户名..."
DEFINE BAR 7 OF 系统m PROMPT "修改密码...(\<P)" ;
SKIP FOR skipcsh=.t. ;
MESSAGE " 修改用户密码..."
DEFINE BAR 8 OF 系统m PROMPT "\-"
DEFINE BAR 9 OF 系统m PROMPT "退出(\<Q)" ;
KEY F9, "F9" ;
MESSAGE " 退出教材管理系统..."
DEFINE BAR 10 OF 系统m PROMPT "\-"
ON SELECTION BAR 2 OF 系统m ;
DO _1xg0x9ab7 ;
IN LOCFILE("\教材管理系统\MAIN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN_MENU?")
ON SELECTION BAR 4 OF 系统m do initdata.prg
ON SELECTION BAR 6 OF 系统m do form gyh
ON SELECTION BAR 7 OF 系统m do form gm
ON SELECTION BAR 9 OF 系统m mymainbar.cmdexit.click
DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "\-"
DEFINE BAR 2 OF 帮助h PROMPT "关于..."
DEFINE BAR 3 OF 帮助h PROMPT "\-"
DEFINE BAR 4 OF 帮助h PROMPT "帮助..."
DEFINE BAR 5 OF 帮助h PROMPT "\-"
ON SELECTION BAR 2 OF 帮助h do form guanyu
ON SELECTION BAR 4 OF 帮助h ;
DO _1xg0x9ab8 ;
IN LOCFILE("\教材管理系统\MAIN_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN_MENU?")
* *********************************************************
* *
* * _1XG0X9AB7 ON SELECTION BAR 2 OF POPUP 系统m
* *
* * Procedure Origin:
* *
* * From Menu: MAIN_MENU.MPR, Record: 76
* * Called By: ON SELECTION BAR 2 OF POPUP 系统m
* * Prompt: 数据安全...(S)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1xg0x9ab7
close databases
do form frmbackup
* *********************************************************
* *
* * _1XG0X9AB8 ON SELECTION BAR 4 OF POPUP 帮助h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN_MENU.MPR, Record: 96
* * Called By: ON SELECTION BAR 4 OF POPUP 帮助h
* * Prompt: 帮助...
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1xg0x9ab8
IF !FILE("jcgl.chm")
messagebox("对不起，帮助文件不存在或被破坏...","提示")
return
else
set help to jcgl.chm
help
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -