menu.prg

来自「个人作品」· PRG 代码 · 共 68 行

set talk off
set cons on
set safe off
set sysmenu to
SET STATU BAR OFF
SET SYSMENU TO
SET CENT Off
SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1f618eavd OF _MSYSMENU PROMPT "登录系统(&S)" COLOR SCHEME 3
DEFINE PAD _1f618eave OF _MSYSMENU PROMPT "考生信息(&M)" COLOR SCHEME 3
DEFINE PAD _1f618eavf OF _MSYSMENU PROMPT "招生计划(&A)" COLOR SCHEME 3
DEFINE PAD _1f618eavg OF _MSYSMENU PROMPT "已招生信息(&F)" COLOR SCHEME 3
DEFINE PAD _1f618eavh OF _MSYSMENU PROMPT "打印报表(&P)" COLOR SCHEME 3
DEFINE PAD _1f618eavi OF _MSYSMENU PROMPT "系统帮助(&H)" COLOR SCHEME 3
ON PAD _1f618eavd OF _MSYSMENU ACTIVATE POPUP 登录系统s
ON PAD _1f618eave OF _MSYSMENU ACTIVATE POPUP 考生信息m
ON PAD _1f618eavf OF _MSYSMENU ACTIVATE POPUP 招生计划a
ON PAD _1f618eavg OF _MSYSMENU ACTIVATE POPUP 已招生信息
ON PAD _1f618eavh OF _MSYSMENU ACTIVATE POPUP 打印报表p
ON PAD _1f618eavi OF _MSYSMENU ACTIVATE POPUP 系统帮助h

DEFINE POPUP 登录系统s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 登录系统s PROMPT "添加用户" skip for y
DEFINE BAR 2 OF 登录系统s PROMPT "修改密码" skip for y
DEFINE BAR 3 OF 登录系统s PROMPT "删除用户" skip for y
DEFINE BAR 4 OF 登录系统s PROMPT "重新登录"
DEFINE BAR 5 OF 登录系统s PROMPT "退出系统"
ON SELECTION BAR 1 OF 登录系统s do form  lxmscx\系统管理
ON SELECTION BAR 2 OF 登录系统s do form  lxmscx\系统管理
ON SELECTION BAR 3 OF 登录系统s do form  lxmscx\系统管理
ON SELECTION BAR 4 OF 登录系统s do form  lxmscx\cxdl
ON SELECTION BAR 5 OF 登录系统s do form  lxmscx\quit1

DEFINE POPUP 考生信息m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 考生信息m PROMPT "输入考生成绩信息" skip for y
DEFINE BAR 2 OF 考生信息m PROMPT "输入考生简历信息" skip for y
DEFINE BAR 3 OF 考生信息m PROMPT "显示考生信息统计"
ON SELECTION BAR 1 OF 考生信息m do form lxmscx\考生成绩录入
ON SELECTION BAR 2 OF 考生信息m do form lxmscx\考生简历录入
ON SELECTION BAR 3 OF 考生信息m do form lxmscx\showkaoshenxinxi

DEFINE POPUP 招生计划a MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 招生计划a PROMPT "输入招生计划" skip for y
DEFINE BAR 2 OF 招生计划a PROMPT "显示招生计划"
ON SELECTION BAR 1 OF 招生计划a do form lxmscx\录取考生招生计划
ON SELECTION BAR 2 OF 招生计划a do form lxmscx\显示招生计划

DEFINE POPUP 已招生信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 已招生信息 PROMPT "浏览已录取信息"
ON SELECTION BAR 1 OF 已招生信息 do form lxmscx\显示已经录取的考生信息

DEFINE POPUP 打印报表p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印报表p PROMPT "考生简历报表" skip for y
DEFINE BAR 2 OF 打印报表p PROMPT "招生计划报表" skip for y
DEFINE BAR 3 OF 打印报表p PROMPT "已招生信息报表" skip for y
DEFINE BAR 4 OF 打印报表p PROMPT "考生信息报表" skip for y
ON SELECTION BAR 1 OF 打印报表p report form 考生简历表 preview
ON SELECTION BAR 2 OF 打印报表p report form lxmfrx\招生计划 preview
ON SELECTION BAR 3 OF 打印报表p report form lxmfrx\已招生信息报表 preview
ON SELECTION BAR 4 OF 打印报表p report form lxmfrx\考生信息报表 preview

DEFINE POPUP 系统帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统帮助h PROMPT "系统说明"
ON SELECTION BAR 1 OF 系统帮助h do form lxmscx\控制面版