main.mpr

应用篇－人力资源管理系统

*       *********************************************************
*       *                                                         
*       * _0YV0JORXI  ON SELECTION BAR 7 OF POPUP 【基础参数      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   56           
*       * Called By:  ON SELECTION BAR 7 OF POPUP 【基础参数      
*       * Prompt:     本人成份                                    
*       * Snippet:    13                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxi
do form jcsz_brcfFrm


*       *********************************************************
*       *                                                         
*       * _0YV0JORXJ  ON SELECTION BAR 8 OF POPUP 【基础参数      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   57           
*       * Called By:  ON SELECTION BAR 8 OF POPUP 【基础参数      
*       * Prompt:     籍贯                                        
*       * Snippet:    14                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxj
do form jcsz_jgFrm


*       *********************************************************
*       *                                                         
*       * _0YV0JORXK  ON SELECTION BAR 9 OF POPUP 【基础参数      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   58           
*       * Called By:  ON SELECTION BAR 9 OF POPUP 【基础参数      
*       * Prompt:     家庭出生                                    
*       * Snippet:    15                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxk
do form jcsz_jtcsFrm


*       *********************************************************
*       *                                                         
*       * _0YV0JORXL  ON SELECTION BAR 10 OF POPUP 【基础参数     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   59           
*       * Called By:  ON SELECTION BAR 10 OF POPUP 【基础参数     
*       * Prompt:     毕业学校                                    
*       * Snippet:    16                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxl
do form jcsz_byxxFrm


*       *********************************************************
*       *                                                         
*       * _0YV0JORXM  ON SELECTION BAR 11 OF POPUP 【基础参数     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   60           
*       * Called By:  ON SELECTION BAR 11 OF POPUP 【基础参数     
*       * Prompt:     所学专业                                    
*       * Snippet:    17                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxm
do form jcsz_sxzyFrm


*       *********************************************************
*       *                                                         
*       * _0YV0JORXN  ON SELECTION BAR 12 OF POPUP 【基础参数     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   61           
*       * Called By:  ON SELECTION BAR 12 OF POPUP 【基础参数     
*       * Prompt:     学位名称                                    
*       * Snippet:    18                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxn
do form jcsz_xwmcFrm


*       *********************************************************
*       *                                                         
*       * _0YV0JORXQ  ON SELECTION BAR 1 OF POPUP 【系统】        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   70           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 【系统】        
*       * Prompt:     组设置                                      
*       * Snippet:    19                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxq
do Form ZhszFrm.scx


*       *********************************************************
*       *                                                         
*       * _0YV0JORXR  ON SELECTION BAR 2 OF POPUP 【系统】        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   71           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 【系统】        
*       * Prompt:     用户设置                                    
*       * Snippet:    20                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxr
do Form YhszFrm.scx


*       *********************************************************
*       *                                                         
*       * _0YV0JORXS  ON SELECTION BAR 3 OF POPUP 【系统】        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   72           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 【系统】        
*       * Prompt:     密码设置                                    
*       * Snippet:    21                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxs
do Form MmszFrm.scx


*       *********************************************************
*       *                                                         
*       * _0YV0JORXT  ON SELECTION BAR 4 OF POPUP 【系统】        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   73           
*       * Called By:  ON SELECTION BAR 4 OF POPUP 【系统】        
*       * Prompt:     备份                                        
*       * Snippet:    22                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxt
   release windows
   close all
   clea windows

dirpath=getdir()
if !empty(dirpath) then
  wait "数据正在备份" window nowait
  copy file database\*.* to left(dirpath,len(dirpath)-1)
  set talk off
  set safe off
  close all
  wait clear
  set talk on
  set safe on
  wait window "已成功备份" timeout 1
endif




*       *********************************************************
*       *                                                         
*       * _0YV0JORXU  ON SELECTION BAR 5 OF POPUP 【系统】        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   74           
*       * Called By:  ON SELECTION BAR 5 OF POPUP 【系统】        
*       * Prompt:     退出系统                                    
*       * Snippet:    23                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0yv0jorxu
if messagebox("请确认是否退出?",292,"人事管理系统")=6
  wait "正在退出人事管理系统" window nowait
  wait clea
  CLEAR EVENT
endif