📄 xjgl_main.bak

📁 vf设计的
💻 BAK
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
*       *********************************************************
*       *                                                         
*       * 05/11/03            XJGL_MAIN.MPR             21:55:17  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 叶志熙                                                  
*       *                                                         
*       * 版权所有 (C) 2003 yj                                   
*       * 永川                                                    
*       * 城市, 重庆  邮编                                          
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD 文件 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, "ALT+F"
DEFINE PAD 查询 OF _MSYSMENU PROMPT "数据查询(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "ALT+S"
DEFINE PAD _0y81azgwn OF _MSYSMENU PROMPT "信息录入(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, "ALT+I"
DEFINE PAD _0y81azgwo OF _MSYSMENU PROMPT "课程管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, "ALT+G"
DEFINE PAD 成绩管理 OF _MSYSMENU PROMPT "成绩管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, "ALT+M"
DEFINE PAD 数据管理 OF _MSYSMENU PROMPT "数据管理(\<D)" COLOR SCHEME 3 ;
	KEY ALT+D, "ALT+D"
DEFINE PAD 打印 OF _MSYSMENU PROMPT "打印输出(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, "ALT+P"
DEFINE PAD _0y81azgwp OF _MSYSMENU PROMPT "退出(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "ALT+Q"
ON PAD 文件 OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD 查询 OF _MSYSMENU ACTIVATE POPUP 数据查询s
ON PAD _0y81azgwn OF _MSYSMENU ACTIVATE POPUP 信息录入i
ON PAD _0y81azgwo OF _MSYSMENU ACTIVATE POPUP 课程管理g
ON PAD 成绩管理 OF _MSYSMENU ACTIVATE POPUP 成绩管理m
ON PAD 数据管理 OF _MSYSMENU ACTIVATE POPUP 数据管理d
ON PAD 打印 OF _MSYSMENU ACTIVATE POPUP 打印输出p
ON SELECTION PAD _0y81azgwp OF _MSYSMENU ;
	DO _0y81azgwq ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_export OF 文件f PROMPT "导出(\<E)..." ;
	MESSAGE "将 Visual FoxPro 文件导出到其他应用程序的文件中"
DEFINE BAR _mfi_import OF 文件f PROMPT "导入(\<I)..." ;
	MESSAGE "导入 Visual FoxPro 文件或其他应用程序的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR 5 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_clall OF 文件f PROMPT "全部关闭" ;
	KEY CTRL+A, "CTRL+A" ;
	MESSAGE "全部关闭窗口"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
	KEY ALT+F4, "ALT+F4" ;
	MESSAGE "关闭当前文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"

DEFINE POPUP 数据查询s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询s PROMPT "学生注册查询(\<K)..." ;
	KEY CTRL+K, "CTRL+K" ;
	MESSAGE "学生注册查询"
DEFINE BAR 2 OF 数据查询s PROMPT "学生成绩查询(\<F)..." ;
	KEY CTRL+F, "CTRL+F"
DEFINE BAR 3 OF 数据查询s PROMPT "\-"
DEFINE BAR 4 OF 数据查询s PROMPT "课程设置(\<C)..." ;
	KEY CTRL+C, "CTRL+C" ;
	MESSAGE "课程设置"
DEFINE BAR 5 OF 数据查询s PROMPT "按姓查询(\<M)..." ;
	KEY CTRL+M, "CTRL+M"
DEFINE BAR 6 OF 数据查询s PROMPT "按学号查询学生档案(\<D)..." ;
	KEY CTRL+D, "CTRL+D"
ON SELECTION BAR 1 OF 数据查询s ;
	DO _0y81azgwr ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON BAR 2 OF 数据查询s ACTIVATE POPUP 学生成绩查
ON SELECTION BAR 4 OF 数据查询s ;
	DO _0y81azgws ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 数据查询s do form xjgl_xsxm.scx
ON SELECTION BAR 6 OF 数据查询s do form xjgl_xsda.scx

DEFINE POPUP 学生成绩查 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生成绩查 PROMPT "按班级学期查询(\<Z)..." ;
	KEY CTRL+Z, "CTRL+Z"
DEFINE BAR 2 OF 学生成绩查 PROMPT "按学号姓名查询(\<Q)..." ;
	KEY CTRL+Q, "CTRL+Q"
DEFINE BAR 3 OF 学生成绩查 PROMPT "\-..."
DEFINE BAR 4 OF 学生成绩查 PROMPT "补考成绩查询(\<U)..." ;
	KEY CTRL+U, "CTRL+U"
ON SELECTION BAR 1 OF 学生成绩查 ;
	DO _0y81azgwt ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 学生成绩查 ;
	DO _0y81azgwu ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 学生成绩查 ;
	DO _0y81azgwv ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 信息录入i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息录入i PROMPT "班级名单录入(\<I)..." ;
	KEY CTRL+I, "CTRL+I"
DEFINE BAR 2 OF 信息录入i PROMPT "学生基本情况(\<W)..." ;
	KEY CTRL+W, "CTRL+W"
DEFINE BAR 3 OF 信息录入i PROMPT "\-"
DEFINE BAR 4 OF 信息录入i PROMPT "学生注册登记(\<D)..." ;
	KEY CTRL+D, "CTRL+D"
DEFINE BAR 5 OF 信息录入i PROMPT "时钟(\<T)..." ;
	KEY CTRL+T, "CTRL+T"
ON SELECTION BAR 1 OF 信息录入i ;
	DO _0y81azgwx ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 信息录入i ;
	DO _0y81azgwy ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 信息录入i ;
	DO _0y81azgwz ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 信息录入i ;
	DO _0y81azgx0 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 课程管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 课程管理g PROMPT "教学计划设置(\<L)..." ;
	KEY CTRL+L, "CTRL+L" ;
	MESSAGE "按个人的计划"
DEFINE BAR 2 OF 课程管理g PROMPT "班级课程设置(\<G)..." ;
	KEY CTRL+G, "CTRL+G" ;
	MESSAGE "按授课学时"
DEFINE BAR 3 OF 课程管理g PROMPT "\-"
DEFINE BAR 4 OF 课程管理g PROMPT "专业名称设置(\<E)..." ;
	KEY CTRL+E, "CTRL+E" ;
	MESSAGE "按个人专业"
DEFINE BAR 5 OF 课程管理g PROMPT "课程名称设置(\<O)" ;
	KEY CTRL+O, "CTRL+O" ;
	MESSAGE "按课程名称"
ON SELECTION BAR 1 OF 课程管理g ;
	DO _0y81azgx1 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 课程管理g ;
	DO _0y81azgx2 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 课程管理g ;
	DO _0y81azgx3 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 课程管理g ;
	DO _0y81azgx4 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 成绩管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩管理m PROMPT "学生成绩录入(\<H)..." ;
	KEY CTRL+H, "CTRL+H"
DEFINE BAR 2 OF 成绩管理m PROMPT "\-"
DEFINE BAR 3 OF 成绩管理m PROMPT "第一次补考成绩(\<N)..." ;
	KEY CTRL+N, "CTRL+N"
DEFINE BAR 4 OF 成绩管理m PROMPT "第二次补考成绩(\<K)..." ;
	KEY CTRL+K, "CTRL+K"
ON SELECTION BAR 1 OF 成绩管理m ;
	DO _0y81azgx5 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 3 OF 成绩管理m ;
	DO _0y81azgx6 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 成绩管理m ;
	DO _0y81azgx7 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 数据管理d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据管理d PROMPT "修改学生信息(\<M)..." ;
	KEY CTRL+M, "CTRL+M" ;
	MESSAGE "修改学生信息"
DEFINE BAR 2 OF 数据管理d PROMPT "修改学生注册信息(\<R)..." ;
	KEY CTRL+R, "CTRL+R" ;
	MESSAGE "修改学生注册信息"
DEFINE BAR 3 OF 数据管理d PROMPT "\-."
DEFINE BAR 4 OF 数据管理d PROMPT "数据维护(\<B)..." ;
	KEY CTRL+B, "CTRL+B" ;
	MESSAGE "数据维护"
DEFINE BAR 5 OF 数据管理d PROMPT "修改密码(\<P)..." ;
	KEY CTRL+P, "CTRL+P" ;
	MESSAGE "修改密码"
DEFINE BAR 6 OF 数据管理d PROMPT "院系代码(\<Y)..." ;
	KEY CTRL+Y, "CTRL+Y" ;
	MESSAGE "院系名称及代码"
ON SELECTION BAR 1 OF 数据管理d ;
	DO _0y81azgx8 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 数据管理d ;
	DO _0y81azgx9 ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 数据管理d ;
	DO _0y81azgxa ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 数据管理d ;
	DO _0y81azgxb ;
	IN LOCFILE("\毕业设计\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 6 OF 数据管理d do form xjgl_yxdm1.scx

DEFINE POPUP 打印输出p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_send OF 打印输出p PROMPT "发送(\<D)..." ;
	MESSAGE "显示“邮件”窗口以发送电子邮件"
DEFINE BAR _mfi_printonecopy OF 打印输出p PROMPT "打印一个副本(\<P)" ;
	MESSAGE "打印文本文件、报表、标签、“命令”窗口内容或剪贴板内容的一份副本"
DEFINE BAR _mfi_print OF 打印输出p PROMPT "打印选项(\<P)..." ;
	KEY CTRL+P, "Ctrl+P" ;
	MESSAGE "打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容"
DEFINE BAR _mfi_sysprint OF 打印输出p PROMPT "打印(\<P)..." ;
	KEY CTRL+P, "Ctrl+P" ;
	MESSAGE "打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容"
DEFINE BAR _mfi_prevu OF 打印输出p PROMPT "打印预览(\<V)" ;
	MESSAGE "在打印前显示整个页面"
DEFINE BAR 6 OF 打印输出p PROMPT "成绩通知单(\<C)..." ;
	MESSAGE "学生成绩列表"
DEFINE BAR 7 OF 打印输出p PROMPT "学生档案表(\<D)..." ;
	MESSAGE "学生档案表"
ON SELECTION BAR 6 OF 打印输出p do form xjgl_xscj
ON SELECTION BAR 7 OF 打印输出p do form xjgl_xsda


*       *********************************************************
*       *                                                         
*       * _0Y81AZGWQ  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XJGL_MAIN.MPR,            Record:   67      
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(Q)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y81azgwq
??CHR(7)
RE=MESSAGEBOX("是否退出学籍管理系统?",4+32+256,"信息窗口")
IF RE=6
  CLEAR EVENT
  QUIT
ENDIF
12 3 下一页
💿 文件大小 3238 K
👤 上传用户 Tonic2009
📂 所属分类汇编语言
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -