xtcd.mpr

VFP教师管理系统 可以作为毕业设计 欢迎大家测试下载

*       *********************************************************
*       *                                                         
*       * 01/13/04              XTCD.MPR                11:45:12  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1550p6wg8 OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _1550p6wga OF _MSYSMENU PROMPT "记录操作" COLOR SCHEME 3 ;
	SKIP FOR x1=0
DEFINE PAD _1550p6wgb OF _MSYSMENU PROMPT "综合信息" COLOR SCHEME 3 ;
	SKIP FOR x2=0
DEFINE PAD _1550p6wgc OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
	SKIP FOR x3=0
DEFINE PAD _1550p6wgd OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
ON PAD _1550p6wg8 OF _MSYSMENU ACTIVATE POPUP 文件
ON PAD _1550p6wga OF _MSYSMENU ACTIVATE POPUP 记录操作
ON SELECTION PAD _1550p6wgb OF _MSYSMENU do form 页框
ON PAD _1550p6wgc OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1550p6wgd OF _MSYSMENU 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 "修改用户密码"
DEFINE BAR 4 OF 文件 PROMPT "登录"
DEFINE BAR 5 OF 文件 PROMPT "\-"
DEFINE BAR 6 OF 文件 PROMPT "退出"
ON SELECTION BAR 1 OF 文件 ;
	DO _1550p6wgn ;
	IN LOCFILE("\VFP\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")
ON SELECTION BAR 2 OF 文件 ;
	DO _1550p6wgq ;
	IN LOCFILE("\VFP\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")
ON SELECTION BAR 3 OF 文件 do form .\修改
ON SELECTION BAR 4 OF 文件 do form 登录
ON SELECTION BAR 6 OF 文件 ;
	DO _1550p6wgv ;
	IN LOCFILE("\VFP\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")

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 form 教师
ON SELECTION BAR 2 OF 记录操作 do form 授课
ON SELECTION BAR 3 OF 记录操作 do form 课酬

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 form 姓名查询
ON SELECTION BAR 2 OF 查询 do form 编号查询
ON SELECTION BAR 3 OF 查询 do form 工龄查询

DEFINE POPUP 统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计 PROMPT "基本情况"
ON SELECTION BAR 1 OF 统计 do form 统计


*       *********************************************************
*       *                                                         
*       * _1550P6WGN  ON SELECTION BAR 1 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XTCD.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 文件            
*       * Prompt:     系统备份                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1550p6wgn
if messagebox("请将备份盘插入软盘驱动器,系统数据库将备份到软盘",4+32+256,"提示信息")=6
 copy file .\教师简况.*  a:\
 copy file .\授课.*   a:\
 copy file .\课酬.*  a:\
 endif


*       *********************************************************
*       *                                                         
*       * _1550P6WGQ  ON SELECTION BAR 2 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XTCD.MPR,            Record:    6           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 文件            
*       * Prompt:     系统恢复                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1550p6wgq
if messagebox("请将备份盘插入软盘驱动器",4+32+256,"提示信息")=6
 wait
 copy  file a:\教师简况.*  .\
 copy file a:\授课.*   .\
 copy file a:\课酬.*  .\
 endif


*       *********************************************************
*       *                                                         
*       * _1550P6WGV  ON SELECTION BAR 6 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XTCD.MPR,            Record:   10           
*       * Called By:  ON SELECTION BAR 6 OF POPUP 文件            
*       * Prompt:     退出                                        
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1550p6wgv
set sysmenu to default
clear event