📄 main.mpr
字号:
DO _1mi0z374c ;
IN LOCFILE("\人力资源系统\MENU\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF (a_menupops[7]) ;
DO _1mi0z374d ;
IN LOCFILE("\人力资源系统\MENU\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _1MI0Z3732 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 66
* * Called By: ON SELECTION PAD
* * Prompt: 退出(Q)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1mi0z3732
if messagebox("真的要退出吗？",4+64+256,"系统信息提示")=6 then
close all
quit
clear events
endif
* *********************************************************
* *
* * _1MI0Z3734 ON SELECTION BAR 1 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 系统h
* * Prompt: 用户添加
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1mi0z3734
do form from\usertj.scx
* *********************************************************
* *
* * _1MI0Z3735 ON SELECTION BAR 2 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 系统h
* * Prompt: 用户删除
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1mi0z3735
do form from\userdel.scx
* *********************************************************
* *
* * _1MI0Z3736 ON SELECTION BAR 3 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统h
* * Prompt: 切换用户
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1mi0z3736
first=.f.
do form from\login.scx
* *********************************************************
* *
* * _1MI0Z3737 ON SELECTION BAR 4 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统h
* * Prompt: 修改密码
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1mi0z3737
do form from\xgmm.scx
* *********************************************************
* *
* * _1MI0Z3738 ON SELECTION BAR 5 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 9
* * Called By: ON SELECTION BAR 5 OF POPUP 系统h
* * Prompt: 用户信息
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1mi0z3738
do form from\userinfo.scx
* *********************************************************
* *
* * _1MI0Z373E ON SELECTION BAR 8 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 13
* * Called By: ON SELECTION BAR 8 OF POPUP 系统h
* * Prompt: 系统锁定
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1mi0z373e
if keyno=1 then
do form from\jieshuo.scx
else
messagebox("系统已经锁定。请再次单击“系统”菜单下的“用户锁定”解除锁定。",0+64,"人力资源系统")
keyno=1
yonghu=6
endif
* *********************************************************
* *
* * _1MI0Z373F ON SELECTION BAR 11 OF POPUP 系统h
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 17
* * Called By: ON SELECTION BAR 11 OF POPUP 系统h
* * Prompt: 退出
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1mi0z373f
if messagebox("真的要退出吗？",4+64+256,"系统信息提示")=6 then
close all
quit
clear events
endif
* *********************************************************
* *
* * _1MI0Z373G ON SELECTION BAR 1 OF POPUP 部门管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 20
* * Called By: ON SELECTION BAR 1 OF POPUP 部门管理
* * Prompt: 增加部门
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1mi0z373g
do form from\depadd.scx
* *********************************************************
* *
* * _1MI0Z373H ON SELECTION BAR 2 OF POPUP 部门管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 21
* * Called By: ON SELECTION BAR 2 OF POPUP 部门管理
* * Prompt: 删除部门
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _1mi0z373h
do form from\depdel.scx
* *********************************************************
* *
* * _1MI0Z373I ON SELECTION BAR 3 OF POPUP 部门管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 22
* * Called By: ON SELECTION BAR 3 OF POPUP 部门管理
* * Prompt: 部门修改
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _1mi0z373i
do form from\depmod.scx
* *********************************************************
* *
* * _1MI0Z373J ON SELECTION BAR 5 OF POPUP 部门管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 25
* * Called By: ON SELECTION BAR 5 OF POPUP 部门管理
* * Prompt: 部门信息
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _1mi0z373j
do form from\depgk.scx
* *********************************************************
* *
* * _1MI0Z373P ON SELECTION BAR 1 OF POPUP 人员管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 28
* * Called By: ON SELECTION BAR 1 OF POPUP 人员管理
* * Prompt: 增加人员
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _1mi0z373p
do form from\rytj.scx
* *********************************************************
* *
* * _1MI0Z373Q ON SELECTION BAR 2 OF POPUP 人员管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 29
* * Called By: ON SELECTION BAR 2 OF POPUP 人员管理
* * Prompt: 资料修改
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _1mi0z373q
do form from\ryxg.scx
* *********************************************************
* *
* * _1MI0Z373R ON SELECTION BAR 3 OF POPUP 人员管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 30
* * Called By: ON SELECTION BAR 3 OF POPUP 人员管理
* * Prompt: 删除人员
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _1mi0z373r
do form from\rydel.scx
* *********************************************************
* *
* * _1MI0Z373S ON SELECTION BAR 5 OF POPUP 人员管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 33
* * Called By: ON SELECTION BAR 5 OF POPUP 人员管理
* * Prompt: 考勤操作
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _1mi0z373s
do form from\rykh.scx
* *********************************************************
* *
* * _1MI0Z373T ON SELECTION BAR 6 OF POPUP 人员管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 34
* * Called By: ON SELECTION BAR 6 OF POPUP 人员管理
* * Prompt: 人员调动
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _1mi0z373t
do form from\rytz.scx
* *********************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -