📄 主菜单.mpr
字号:
* *********************************************************
* *
* * 12/29/06 主菜单.MPR 23:33:24
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2006 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1z91ehnu1 OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _1z91ehnu2 OF _MSYSMENU PROMPT "浏览" COLOR SCHEME 3
DEFINE PAD _1z91ehnu3 OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1z91ehnu4 OF _MSYSMENU PROMPT "报表" COLOR SCHEME 3
DEFINE PAD _1z91ehnu5 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1z91ehnu1 OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _1z91ehnu2 OF _MSYSMENU ACTIVATE POPUP 浏览
ON PAD _1z91ehnu3 OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1z91ehnu4 OF _MSYSMENU ACTIVATE POPUP 报表
ON SELECTION PAD _1z91ehnu5 OF _MSYSMENU do form f:\王雪志\退出系统.scx
DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "修改数据表"
DEFINE BAR 2 OF 系统维护 PROMPT "维护表记录"
DEFINE BAR 3 OF 系统维护 PROMPT "修改表单"
ON BAR 1 OF 系统维护 ACTIVATE POPUP 修改数据表
ON BAR 2 OF 系统维护 ACTIVATE POPUP 维护表记录
ON BAR 3 OF 系统维护 ACTIVATE POPUP 修改表单
DEFINE POPUP 修改数据表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改数据表 PROMPT "学生表"
DEFINE BAR 2 OF 修改数据表 PROMPT "课程表"
DEFINE BAR 3 OF 修改数据表 PROMPT "成绩表"
ON SELECTION BAR 1 OF 修改数据表 ;
DO _1z91ehnu7 ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 修改数据表 ;
DO _1z91ehnu8 ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 3 OF 修改数据表 ;
DO _1z91ehnu9 ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
DEFINE POPUP 维护表记录 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 维护表记录 PROMPT "学生表"
DEFINE BAR 2 OF 维护表记录 PROMPT "课程表"
DEFINE BAR 3 OF 维护表记录 PROMPT "成绩表"
ON SELECTION BAR 1 OF 维护表记录 ;
DO _1z91ehnua ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 维护表记录 ;
DO _1z91ehnub ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 3 OF 维护表记录 ;
DO _1z91ehnuc ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
DEFINE POPUP 修改表单 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改表单 PROMPT "学生表"
DEFINE BAR 2 OF 修改表单 PROMPT "课程表"
DEFINE BAR 3 OF 修改表单 PROMPT "成绩表"
ON SELECTION BAR 1 OF 修改表单 ;
DO _1z91ehnud ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 修改表单 ;
DO _1z91ehnue ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 3 OF 修改表单 ;
DO _1z91ehnuf ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
DEFINE POPUP 浏览 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 浏览 PROMPT "总浏览表"
DEFINE BAR 2 OF 浏览 PROMPT "浏览学生"
DEFINE BAR 3 OF 浏览 PROMPT "浏览成绩"
ON SELECTION BAR 1 OF 浏览 ;
DO _1z91ehnug ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 浏览 ;
DO _1z91ehnuh ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 3 OF 浏览 ;
DO _1z91ehnui ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "查询成绩" ;
KEY CTRL+I, "CTRL+I"
DEFINE BAR 2 OF 查询 PROMPT "查询学生" ;
KEY CTRL+U, "CTRL+U"
ON SELECTION BAR 1 OF 查询 ;
DO _1z91ehnuj ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 查询 ;
DO _1z91ehnuk ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
DEFINE POPUP 报表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表 PROMPT "学生报表"
DEFINE BAR 2 OF 报表 PROMPT "课程报表"
DEFINE BAR 3 OF 报表 PROMPT "成绩报表"
ON SELECTION BAR 1 OF 报表 ;
DO _1z91ehnul ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 2 OF 报表 ;
DO _1z91ehnum ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
ON SELECTION BAR 3 OF 报表 ;
DO _1z91ehnun ;
IN LOCFILE("\王雪志\主菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜单?")
* *********************************************************
* *
* * _1Z91EHNU7 ON SELECTION BAR 1 OF POPUP 修改数据表
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 7
* * Called By: ON SELECTION BAR 1 OF POPUP 修改数据表
* * Prompt: 学生表
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1z91ehnu7
close data
open data test
use xsb.dbf
MODIFY STRUCTURE
* *********************************************************
* *
* * _1Z91EHNU8 ON SELECTION BAR 2 OF POPUP 修改数据表
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 8
* * Called By: ON SELECTION BAR 2 OF POPUP 修改数据表
* * Prompt: 课程表
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1z91ehnu8
close data
open data test
use cjb.dbf
MODIFY STRUCTURE
* *********************************************************
* *
* * _1Z91EHNU9 ON SELECTION BAR 3 OF POPUP 修改数据表
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 9
* * Called By: ON SELECTION BAR 3 OF POPUP 修改数据表
* * Prompt: 成绩表
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1z91ehnu9
close data
open data test
use kcb.dbf
MODIFY STRUCTURE
* *********************************************************
* *
* * _1Z91EHNUA ON SELECTION BAR 1 OF POPUP 维护表记录
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 12
* * Called By: ON SELECTION BAR 1 OF POPUP 维护表记录
* * Prompt: 学生表
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1z91ehnua
close data
DO FORM 学生表.scx
* *********************************************************
* *
* * _1Z91EHNUB ON SELECTION BAR 2 OF POPUP 维护表记录
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 13
* * Called By: ON SELECTION BAR 2 OF POPUP 维护表记录
* * Prompt: 课程表
* * Snippet: 5
* *
* *********************************************************
*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -