📄 main.mpr
字号:
* *********************************************************
* *
* * 03/25/06 MAIN.MPR 15:25:17
* *
* *********************************************************
* *
* * 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 zlsjgl OF _MSYSMENU PROMPT "质量数据管理(\<Z)" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+Z, "" ;
MESSAGE ""
DEFINE PAD hysjgl OF _MSYSMENU PROMPT "化验数据管理(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, "" ;
MESSAGE ""
DEFINE PAD jdsjgl OF _MSYSMENU PROMPT "监督数据管理(\<J)" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+J, "" ;
MESSAGE ""
DEFINE PAD qt OF _MSYSMENU PROMPT "系统维护(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, ""
DEFINE PAD tc OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
KEY ALT+X, ""
ON PAD zlsjgl OF _MSYSMENU ACTIVATE POPUP 质量数据管
ON PAD hysjgl OF _MSYSMENU ACTIVATE POPUP 化验数据管
ON PAD qt OF _MSYSMENU ACTIVATE POPUP 系统维护s
ON SELECTION PAD tc OF _MSYSMENU ;
DO _1ri0x1xpd ;
IN LOCFILE("JSMIS_1_00\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP 质量数据管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 质量数据管 PROMPT "方坯、板坯输送单"
DEFINE BAR 2 OF 质量数据管 PROMPT "\-"
DEFINE BAR 3 OF 质量数据管 PROMPT "方坯、板坯轧后废品"
DEFINE BAR 4 OF 质量数据管 PROMPT "\-"
DEFINE BAR 5 OF 质量数据管 PROMPT "质量日报"
DEFINE BAR 6 OF 质量数据管 PROMPT "\-"
DEFINE BAR 7 OF 质量数据管 PROMPT "质量月、季、年报"
ON SELECTION BAR 1 OF 质量数据管 do form js_menu with "10100"
ON SELECTION BAR 3 OF 质量数据管 do form js_menu with "10200"
ON SELECTION BAR 5 OF 质量数据管 do form js_menu with "10300"
ON SELECTION BAR 7 OF 质量数据管 do form js_menu with "10400"
DEFINE POPUP 化验数据管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 化验数据管 PROMPT "铁水成分化验报告"
DEFINE BAR 2 OF 化验数据管 PROMPT "\-"
DEFINE BAR 3 OF 化验数据管 PROMPT "炉前出钢成分化验报告"
DEFINE BAR 4 OF 化验数据管 PROMPT "\-"
DEFINE BAR 5 OF 化验数据管 PROMPT "钢包精炼化验报告"
DEFINE BAR 6 OF 化验数据管 PROMPT "\-"
DEFINE BAR 7 OF 化验数据管 PROMPT "成品成分化验报告"
DEFINE BAR 8 OF 化验数据管 PROMPT "\-"
DEFINE BAR 9 OF 化验数据管 PROMPT "原材料化验报告"
DEFINE BAR 10 OF 化验数据管 PROMPT "\-"
DEFINE BAR 11 OF 化验数据管 PROMPT "水质化验报告"
DEFINE BAR 12 OF 化验数据管 PROMPT "\-"
DEFINE BAR 13 OF 化验数据管 PROMPT "炉渣化验报告"
DEFINE BAR 14 OF 化验数据管 PROMPT "\-"
DEFINE BAR 15 OF 化验数据管 PROMPT "钢中气体化验报告"
ON SELECTION BAR 1 OF 化验数据管 do form js_menu with "20100"
ON SELECTION BAR 3 OF 化验数据管 do form js_menu with "20200"
ON SELECTION BAR 5 OF 化验数据管 do form js_menu with "20300"
ON SELECTION BAR 7 OF 化验数据管 do form js_menu with "20400"
ON SELECTION BAR 9 OF 化验数据管 do form js_menu with "20500"
ON SELECTION BAR 11 OF 化验数据管 do form js_menu with "20600"
ON SELECTION BAR 13 OF 化验数据管 do form js_menu with "20700"
ON SELECTION BAR 15 OF 化验数据管 do form js_menu with "20800"
DEFINE POPUP 系统维护s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护s PROMPT "数据整理"
DEFINE BAR 2 OF 系统维护s PROMPT "\-"
DEFINE BAR 3 OF 系统维护s PROMPT "数据初始化"
DEFINE BAR 4 OF 系统维护s PROMPT "\-"
DEFINE BAR 5 OF 系统维护s PROMPT "系统代码维护"
DEFINE BAR 6 OF 系统维护s PROMPT "\-"
DEFINE BAR 7 OF 系统维护s PROMPT "用户使用权限管理"
DEFINE BAR 8 OF 系统维护s PROMPT "\-"
DEFINE BAR 9 OF 系统维护s PROMPT "系统帮助信息" ;
KEY F1, "F1"
DEFINE BAR 10 OF 系统维护s PROMPT "\-"
DEFINE BAR 11 OF 系统维护s PROMPT "关于"
ON SELECTION BAR 1 OF 系统维护s do form js_sjzl
ON SELECTION BAR 3 OF 系统维护s do form js_setup
ON BAR 5 OF 系统维护s ACTIVATE POPUP 系统代码维
ON BAR 7 OF 系统维护s ACTIVATE POPUP 用户使用权
ON SELECTION BAR 9 OF 系统维护s do form js_help
ON SELECTION BAR 11 OF 系统维护s do form js_about
DEFINE POPUP 系统代码维 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统代码维 PROMPT "分析人代码维护"
DEFINE BAR 2 OF 系统代码维 PROMPT "工艺废品类型代码维护"
DEFINE BAR 3 OF 系统代码维 PROMPT "钢号代码维护"
DEFINE BAR 4 OF 系统代码维 PROMPT "钢种代码维护"
DEFINE BAR 5 OF 系统代码维 PROMPT "连铸机号代码维护"
DEFINE BAR 6 OF 系统代码维 PROMPT "水质来源代码维护"
DEFINE BAR 7 OF 系统代码维 PROMPT "原材料产地代码维护"
DEFINE BAR 8 OF 系统代码维 PROMPT "原材料样别代码维护"
DEFINE BAR 9 OF 系统代码维 PROMPT "轧后废品类型代码维护"
ON SELECTION BAR 1 OF 系统代码维 do form js_menu with "40301"
ON SELECTION BAR 2 OF 系统代码维 do form js_menu with "40302"
ON SELECTION BAR 3 OF 系统代码维 do form js_menu with "40303"
ON SELECTION BAR 4 OF 系统代码维 do form js_menu with "40304"
ON SELECTION BAR 5 OF 系统代码维 do form js_menu with "40305"
ON SELECTION BAR 6 OF 系统代码维 do form js_menu with "40306"
ON SELECTION BAR 7 OF 系统代码维 do form js_menu with "40307"
ON SELECTION BAR 8 OF 系统代码维 do form js_menu with "40308"
ON SELECTION BAR 9 OF 系统代码维 do form js_menu with "40309"
DEFINE POPUP 用户使用权 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 用户使用权 PROMPT "用户登录" ;
SKIP FOR !wexist(wontop())
DEFINE BAR 2 OF 用户使用权 PROMPT "用户管理" ;
SKIP FOR !wexist(wontop())
DEFINE BAR 3 OF 用户使用权 PROMPT "权限设定" ;
SKIP FOR !wexist(wontop())
DEFINE BAR 4 OF 用户使用权 PROMPT "修改口令" ;
SKIP FOR !wexist(wontop())
ON SELECTION BAR 1 OF 用户使用权 ;
DO _1ri0x1xpe ;
IN LOCFILE("JSMIS_1_00\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF 用户使用权 oApp.doform("employee")
ON SELECTION BAR 3 OF 用户使用权 oApp.doform("user_lev")
ON SELECTION BAR 4 OF 用户使用权 oApp.doform("chngpswd")
* *********************************************************
* *
* * _1RI0X1XPD ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 59
* * Called By: ON SELECTION PAD
* * Prompt: 退出(X)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1ri0x1xpd
clear events
* *********************************************************
* *
* * _1RI0X1XPE ON SELECTION BAR 1 OF POPUP 用户使用权
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 51
* * Called By: ON SELECTION BAR 1 OF POPUP 用户使用权
* * Prompt: 用户登录
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1ri0x1xpe
LOCAL lcUserLevel
lcUserLevel = oApp.GetUserLevel()
=oApp.Login()
IF oApp.GetUserLevel() <> lcUserLevel
oApp.DoMenu()
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -