课程设计---人事管理信息系统

《课程设计---人事管理信息系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、人事管理信息系统由于信息化社会的飞速发展，人事管理系统已经成为每一个企业，政府部门以及其他机构组成中不可或缺的一部分。人事管理系统是满足了公司对员工基本信息管理的需求，拥有人事管理系统，可以更加方便的进行人事的管理，操作简单方便，可以为员工节省大量时间，从而提高工作效率。本节针对人事管理系统介绍使用VB开发数据库应用程序的基本方法。本程序的记录虽然包含的信息量较少，但其功能与实现方法具有相当的普遍性和实用性。1系统设计1.1系统功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。考虑

2、系统的通用功能，本例子中人事管理信息系统需要完成功能主要有：（1）．密码设置：每个管理员均可有自己的用户名和密码，可以防止非本系统人员进入系统。（2）．信息管理：可对职工信息进行更改，添加和删除，。（3）．信息查询：能够快速地进行员工基本信息各种组合的查询。双击查询结果可对其进行更改。（4）．信息统计：饱含简单统计和自定义统计。其中自定义统计可进行各种组合的统计。（5）．数据打印：对职工基本信息进行打印和导出。201.2系统功能模块设计对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图1-2-1所示的系统功能模块图。人事管理系统信

3、息统计信息管理信息打印信息查询密码设置清空删除查找添加数据管理信息管理设置密码用户登录看图1-2-1系统功能模块图2数据库设计20数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。在数据库中建立一个名为人事系统管理的数据库，其包含数据库表RSGL（职工表）和Yh（用户密码表),表的结构见表2-1与表2-2表2-1职工表列名数据类型可否为空说明职工编号Text（8）not主键职工姓名Text（8）yes职工年龄Integ

4、er（2）not职工性别Text（2）yes所在部门Text（16）yes技术职称Text（12）yes工作时间Data（8）not婚姻状况Text（4）yes基本工资Single（4）not表2-2用户密码表列名数据类型可否为空说明ynameText（50）not用户名（主键）ypassText（50）not口令3用户登陆界面执行“工程”菜单中的“添加窗体“命令，添加一个新的窗体。在里面添加两个容器（frame1，Frame2），3个标签，两个文本框，两个命令按钮，一个数据控件（Data）。用户登陆界面如图3-1所示。20图3-1用户登录窗体

5、设置各控件的属性如图3-2图3-2各控件属性对象名称属性名称属性值说明Form1Namelogin窗体名称Caption用户登录设置标题栏Frame1Caption无设置为空Frame2Caption无设置为空Label1Caption欢迎使用人事管理系统设置标签内容Font隶书粗体二号设置字体ForeColorHFF&设置字体颜色Lable2Caption用户名：设置标签内容Lable3Caption口令：设置标签内容Text1Caption无设置为空Text2Caption无设置为空Command1Caption确定设置命令按钮Comman

6、d2Caption退出设置命令按钮Data1DataBaseNameYh.mdb绑定数据库20在通用段添加代码：DimxchangeAsIntegerDimychangeAsInteger窗体的load事件过程代码如下：PrivateSubForm_Load()xchange=100ychange=100EndsubPrivateSubCommand1_Click()‘======================================================‘判断用户输入的名称和口令是否合法‘首先判断输入的用户名是否存在，如果

7、不存在，给出提示‘如果用户名存在，判断输入口令是否正确，如果错误，给出提示‘如果用户名和口令输入正确，卸载本窗体，‘否则，判断是否用完三次机会，并给出相应提示。‘=======================================================DimIsuserAsBoolean‘用户是否存在DimpwdAsStringDimUnameAsStringStaticcountAsIntegerpwd=Trim(Text2.Text)‘记录输入口令次数Uname=Trim(Text1.Text)Isuser=False‘

8、比较用户名称和口令的正确与否DoWhileNotData1.Recordse.EOFIfUname=Data1.Recordset.Fields(0)