人事管理系统

前言

在计算机走进千家万户的今天，人们对计算机知识的渴求热情日益高涨。许多企事业单位都纷纷使用计算机来参加管理工作。做为中职计算机专业的学 说学 些基本的编程也是必不可少的。但是对于这些不满18 周岁的学生来说编程也是枯燥乏味的，并且在好 容易编好的程序中也看不到在现实中的应用。为此我们选择人事管理系统作为课题的主要原因。因为只要有人的地方就需要有人事管理。

Visual FoxPro 提供了为数据库结构和应用程序开发而设计的面向对象环境。它功能强大且易于使用，是开发数据库管理系统的优秀语言。无论是组织信息，运行查询，创建集成的关系型数据库系统，还是为最终用户编写功能全面的数据管理应用程序。Visual FoxPro 都可以提供所需的所有工具。

Visual FoxPro 6.0 中文版比较适合于中国中小型数据库市场，对于记录数小于是 1000 000 条的数据库，Visual FoxPro 6.0 中文版无疑是最优秀的选择之一，这是由于它具有以下优点：

● FoxPro 一直是中国台式机数据库的主流，占据着中国市场的主要部分

● FoxPro 易学，易用，易维护。长期以来，在中国市场上形成了一支强大的从事 FoxPro 管理维护和开发的技术力量。

● FoxPro 是软件业巨头 Microsoft 公司的拳头产品，其中有 SQL 技术，OLE 技术，可视化编程技术等到一系列先进技术。正是由于这些技术的不断引入，使得FoxPro 的功能不断强大。

● FoxPro 开发效率高，成本低投资小，见效快。

基于 Visual FoxPro 6.0 具有强大的数据库管理功能，所以选定用 Visual FoxPro 6.0 实现人事档案管理中的各项功能。

系统结构总图

主程序设计代码

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD_rvlOsslct OF_MSYSMENU PROMPT"初始化（\

SKIP FOR yhdj>4

DEFINE PAD_rvlOssldl OF_MSYSMENU PROMPT"档案查询（

SKIP FOR yhdj > 2

DEFINE PAD_rvlossld3 OF_MSYSMENU PROMPT"档案更新（\

SKIP FOR yhdj>1

DEFINE PAD_rvlOss 1d5 OF_MSYSMENU PROMPT"档案统计（\

SKIP FOR yhdj>3

DEFINE PAD_rvl0ss1d7 OF_MSYSMENU PROMPT"档案输出（

SKIP FOR yhdj>4

DEFINE PAD_rvlOss 1d9 OF_MSYSMENU PROMPT "其他（\

SKIP FOR yhdj>4

DEFINE PAD_rvlOssldb OF_MSYSMENU PROMPT"退出（KE)"COLOR SCHEME 3;KEY ALT+E,""

ON SELECTION PAD rvlOsslct OF MSYSMENU;

DO_rvlOssldg;

IN LOCFILE("\CLRS\主菜单","MPX;MPRIFXP;PRG","WHERE 是主菜单？ "). 厦 T

DEFINE POPUP 其他 h MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR 1 OF 其他 hPROMPT"主表单（

KEY CTRL+Z,"CTRL+Z"

DEFINE BAR 2 OF 其他 h PROMPT "ν_-ν_-

DEFINE BAR 3 OF 其他 hPROMPT"修改密码（

KEY CTRL+M, "CTRL+M"

DEFINE BAR 4 OF 其他 hPROMPT“密码设置（\

KEY CTRL+D,"CTRL+D";

SKIP FOR yhdj>2

DEFINE BAR 5 OF 其他 h PROMPT "ν^*

DEFINE BAR_mfi_pgset OF 其他 hPROMPT"页面设置（

MESSAGE“更改页面布局和打印机设置”

DEFINE BAR_mfi_prevu OF 其他 hPROMPT"打印预览（\

MESSAGE"在打印前显示整个页面"

DEFINE BAR_mfi_sysprint OF 其他 hPROMPT"打印（\

KEY CTRL+P,"Ctrl+P";

MESSAGE“打印一个文本文件、报表、标签、命令窗口的内容或剪贴板上的内容”DEFINE BAR 9 OF 其他 h PROMPT "Ω_V⋅Ω_V^∗

DEFINE BAR 10 OF 其他 hPROMPT"关于本系统（\

KEY CTRL+A, "CTRL+A"

ON SELECTION BAR 1 OF 其他 h do form zbd

ON SELECTION BAR 3 OF 其他 h do form sgmm

ON SELECTION BAR 4 OF 其他 h do form mmsz

ON SELECTION BAR 10 OF 其他 h modify file 关于本系统 noedit

DEFINE POPUP 退出 e MARGIN RELATIVE SHADOW COLOR SCHEME 4DEFINE BAR_mfi_save OF 退出 ePROMPT"保存（\

KEY CTRL+S, "Ctrl+S";

MESSAGE“保存当前改动了的文件”

DEFINE BAR 2 OF 退出 e PROMPT "\-"

DEFINE BAR 3 OF 退出 ePROMPT"退出（

MESSAGE"退出 Visual FoxPro"

ON SELECTION BAR 3 OF 退出 e;

DO_rvlOssleu;

IN LOCFILE("\CLRS\主菜单","MPX;MPRIFXP;PRG","WHERE 是 主菜单？")PROCEDURE_rvlOssldg

clear

close all

do setting

do 主菜单.mpr

do form zbd

PROCEDURE_rvlOssleu

do\clrs\reset

clear all

clear events