rsgl.mpr

人事管理软件

*       *********************************************************
*       *                                                         
*       * 2000.11.02             RSGL.MPR               09:26:33  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者姓名                                                
*       *                                                         
*       * 版权(C) 2000 公司名                               
*       * 地址                                                    
*       * 城市,     邮政编码                                      
*       * 国家/地区                                         
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         安装代码                        
*       *                                                         
*       *********************************************************
*

set talk off  &&关闭命令响应
set safety off &&当覆盖磁盘上的文件时不提示，当程序编好后，不会错误覆盖文件
set date ansi  &&设置日期为“年.月.日”方式
set century on  &&设置年为4位数表示
set default to d:\soft\rsgl2  &&设置软件所在的目录，应根据您的目录做适当修改
use rsda  &&打开人事档案数据表
select 0  &&选一空工作区
use bmzd  &&打开部门表

dkda=.f.  &&设置一变量用于检测档案是否打开，真为打开，假为关闭

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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _08j0k8l6q OF _MSYSMENU PROMPT "系统" COLOR SCHEME 3
DEFINE PAD _08j0k8l6r OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD _08j0k8l6s OF _MSYSMENU PROMPT "查询及统计" COLOR SCHEME 3
DEFINE PAD _08j0k8l6t OF _MSYSMENU PROMPT "维护" COLOR SCHEME 3
ON PAD _08j0k8l6q OF _MSYSMENU ACTIVATE POPUP 系统
ON PAD _08j0k8l6r OF _MSYSMENU ACTIVATE POPUP 编辑
ON PAD _08j0k8l6s OF _MSYSMENU ACTIVATE POPUP 查询及统计
ON PAD _08j0k8l6t 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 "退出"
ON SELECTION BAR 1 OF 系统 do form rsda name rsda
ON SELECTION BAR 2 OF 系统 rsda.release
ON SELECTION BAR 3 OF 系统 report form hmc to printer
ON SELECTION BAR 4 OF 系统 clear events

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 bjry name bjry
ON SELECTION BAR 2 OF 编辑 delete
ON SELECTION BAR 3 OF 编辑 recall

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 cx name cx
ON SELECTION BAR 2 OF 查询及统计 do form ckjl name ckjl
ON BAR 3 OF 查询及统计 ACTIVATE POPUP 统计

DEFINE POPUP 统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计 PROMPT "统计各部门人数"
DEFINE BAR 2 OF 统计 PROMPT "统计各职务人数"
ON SELECTION BAR 1 OF 统计 do tjbm
ON SELECTION BAR 2 OF 统计 do tjzw

DEFINE POPUP 维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 维护 PROMPT "部门字典"
DEFINE BAR 2 OF 维护 PROMPT "职务字典"
ON SELECTION BAR 1 OF 维护 do form bmzd name bmzd
ON SELECTION BAR 2 OF 维护 do form zwzd name zwzd


*       *********************************************************
*       *                                                         
*       *                      清理代码和过程                     
*       *                                                         
*       *********************************************************
*

read events  &&启动事件处理程序。
set sysmenu to default  &&退出事件处理程序后，即退出程序前，将菜单设为系统菜单。

if dkda  &&假如人事档案打开，dkda的值为真
  rsda.release  &&关闭人事档案
endif  &&假设结束
close database all  &&关闭所有数据库及其表。

cancel  &&结束程序运行