📄 rclick.mpr
字号:
* *********************************************************
* *
* * 09/28/05 RCLICK.MPR 16:22:16
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2005 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "工 资 查 询" ;
SKIP FOR yonghu=6 or yonghu1=6
DEFINE BAR 2 OF 快捷菜单 PROMPT "职 工 查 询" ;
SKIP FOR yonghu=6 or yonghu1=6
DEFINE BAR 3 OF 快捷菜单 PROMPT "部 门 信 息" ;
SKIP FOR yonghu=6 or yonghu1=6
DEFINE BAR 4 OF 快捷菜单 PROMPT "用 户 信 息" ;
SKIP FOR yonghu=6
DEFINE BAR 5 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 6 OF 快捷菜单 PROMPT "修 改 密 码" ;
SKIP FOR yonghu=6 or yonghu1=6
DEFINE BAR 7 OF 快捷菜单 PROMPT "系 统 帮 助" ;
SKIP FOR yonghu=6 or yonghu1=6
DEFINE BAR 8 OF 快捷菜单 PROMPT "系 统 锁 定"
DEFINE BAR 9 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 10 OF 快捷菜单 PROMPT "退 出" ;
SKIP FOR yonghu=6 or yonghu1=6
ON SELECTION BAR 1 OF 快捷菜单 ;
DO _1mi0z37i5 ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 2 OF 快捷菜单 ;
DO _1mi0z37i6 ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 3 OF 快捷菜单 ;
DO _1mi0z37i7 ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 4 OF 快捷菜单 ;
DO _1mi0z37i8 ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 6 OF 快捷菜单 ;
DO _1mi0z37i9 ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 7 OF 快捷菜单 ;
DO _1mi0z37ia ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 8 OF 快捷菜单 ;
DO _1mi0z37ib ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ON SELECTION BAR 10 OF 快捷菜单 ;
DO _1mi0z37if ;
IN LOCFILE("\人力资源系统\MENU\RCLICK" ,"MPX;MPR|FXP;PRG" ,"WHERE is RCLICK?")
ACTIVATE POPUP 快捷菜单
* *********************************************************
* *
* * _1MI0Z37I5 ON SELECTION BAR 1 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 快捷菜单
* * Prompt: 工 资 查 询
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1mi0z37i5
do form from\gzcx.scx
* *********************************************************
* *
* * _1MI0Z37I6 ON SELECTION BAR 2 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 快捷菜单
* * Prompt: 职 工 查 询
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1mi0z37i6
do form from\rycx.scx
* *********************************************************
* *
* * _1MI0Z37I7 ON SELECTION BAR 3 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 快捷菜单
* * Prompt: 部 门 信 息
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1mi0z37i7
do form from\depgk.scx
* *********************************************************
* *
* * _1MI0Z37I8 ON SELECTION BAR 4 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 快捷菜单
* * Prompt: 用 户 信 息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1mi0z37i8
do form from\userinfo.scx
* *********************************************************
* *
* * _1MI0Z37I9 ON SELECTION BAR 6 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 11
* * Called By: ON SELECTION BAR 6 OF POPUP 快捷菜单
* * Prompt: 修 改 密 码
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1mi0z37i9
do form from\xgmm.scx
* *********************************************************
* *
* * _1MI0Z37IA ON SELECTION BAR 7 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 12
* * Called By: ON SELECTION BAR 7 OF POPUP 快捷菜单
* * Prompt: 系 统 帮 助
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1mi0z37ia
set help on
set help to help\人力资源系统帮助.chm
help
* *********************************************************
* *
* * _1MI0Z37IB ON SELECTION BAR 8 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 13
* * Called By: ON SELECTION BAR 8 OF POPUP 快捷菜单
* * Prompt: 系 统 锁 定
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1mi0z37ib
if keyno=1 then
do form from\jieshuo.scx
else
messagebox("系统已经锁定。请再次单击“系统”菜单下的“用户锁定”解除锁定。",0+64,"人力资源系统")
keyno=1
yonghu=6
endif
* *********************************************************
* *
* * _1MI0Z37IF ON SELECTION BAR 10 OF POPUP 快捷菜单
* *
* * Procedure Origin:
* *
* * From Menu: RCLICK.MPR, Record: 16
* * Called By: ON SELECTION BAR 10 OF POPUP 快捷菜单
* * Prompt: 退 出
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1mi0z37if
if messagebox("真的要退出吗？",4+64+256,"系统信息提示")=6 then
close all
quit
clear events
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -