xtcd.bak

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

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _15n03waou OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
ON PAD _15n03waou 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 _15n03wapd ;
	IN LOCFILE("新建文件夹\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")
ON SELECTION BAR 2 OF 文件 ;
	DO _15n03wapi ;
	IN LOCFILE("新建文件夹\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 _15n03wapo ;
	IN LOCFILE("新建文件夹\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")


*       *********************************************************
*       *                                                         
*       * _15N03WAPD  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 _15n03wapd
if messagebox("请将备份盘插入软盘驱动器,系统数据库将备份到软盘",4+32+256,"提示信息")=6
 copy file 教师简况.*  a:\
 copy file 授课.*   a:\
 copy file 课酬.*  a:\
 endif


*       *********************************************************
*       *                                                         
*       * _15N03WAPI  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 _15n03wapi
if messagebox("请将备份盘插入软盘驱动器",4+32+256,"提示信息")=6
 wait
 copy  file a:\教师简况.*  .\
 copy file a:\授课.*   .\
 copy file a:\课酬.*  .\
 endif


*       *********************************************************
*       *                                                         
*       * _15N03WAPO  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 _15n03wapo
set sysmenu to default
clear event