1、 说明： 本实验针对 数据库原理及应用 课程的要求， 采用 VB6.0 + SQL Server2000对数据库的逻辑结构进行设计以及对人事管理 系统的登陆、系统管理、员工基本信息管理进行实现。 内容： 人事管理信息系统人事管理信息系统 1，概述 人事管理信息系统往往广泛用于各种工商企事业单位，几乎 每个进行了信息化建设的单位都具有人事管理信息系统。 本课程 设计针对这些单位所共有的信息来设计和开发人事管理信息系 统，该系统提供了包括系统管理、员工信息管理、考勤管理、工 资管理、培训计划管和福利管理等 6 个部分。本实验完成以下 两个部分： （1） 系统管理用于管理使用该系统的用户， 以及权限
2、的分配， 从而为系统提供一定的安全性。 （2）员工管理包括员工本人的基本信息、家庭状况、学历资 料、工作记录等项目，全面合理地反映员工的人事档案，并可以 随时查询人事档案。 2，数据库表 员工基本信息表 列名 数 据 类型 字 段 大 小 是 否 为 空 列名 数 据 类型 字 段 大 小 是 否 为空 员工号 char 10 NOT 出生地点 char 20 YES 姓名 char 20 NOT 户口所在 char 20 YES 性别 char 2 YES 身份证号 char 15 YES 出生日期 date YES 所学专业 char 10 YES 民族 char 5 YES 毕业学校 c
3、har 20 YES 婚姻状况 char 5 YES 职称 char 5 YES 政治面貌 char 5 YES 邮编 char 6 YES 学历 char 2 YES 电话 char 15 YES 进入公司时 间 date YES 家庭通信 地址 char 30 YES 转正时间 date YES 所在街道 办事处 char 30 YES 部门 char 10 YES 移动电话 char 15 YES 岗位 char 10 YES 爱人姓名 char 20 YES 籍贯 char 20 YES 爱人工作 单位 char 20 YES 爱人联系 电话 char 15 YES Manager 表
4、 列名 数据类型 字段大小 是否为空 username char 20 NOT pwd char 10 YES level bit 1 YES 3，向所建表中添加数据 员工信息表中添加如下数据（只截取了信息的一部分作为示 例） ： Manager 表中添加如下数据： 4,配置 ODBC 数据源 （1）打开控制面板，打开“数据源（ODBC）”。如下图： （2）选择“文件DSN”点击添加并选择“SQL Server”，如下图： （3）单击下一步，输入数据源名字并点击下一步。如下图： （4）点击完成后，在新出现的界面里将服务器设置为 “TOSHIBA-PCSQL2008”（这是我的本地服务器， 我使
5、用的是 SQL server2008，仅输入 local 不可以。 ）并点击下一步，继续按默 认选项点击下一步，直到出现下图，将默认数据库改为新建的 RSGL。 ： （5）配置完成。 5，界面设计及系统实现 主窗体的设计 本实验使用了多文档界面，所以先添加一个 MDI 窗体。在 属性窗体中将 MDI 窗体的 name 属性设置成“frmMain”， caption 属性设置成“人事管 理 信 息 系 统 ”， StartUpPosition 选 择 成 “ 2-center screen ”， windowState 选 择 成“2-maximized”。 在窗体中单击鼠标右键，选中菜单编辑器
6、中编辑如下菜单： 系统管理（添加用户，修改用户密码，删除用户） 员工信息管理（添加员工信息，编辑员工信息，查询员工信 息） 帮助（关于） 设计完成后如下图所示： 公共模块的实现 在 VB 的工程资源管理器的单击鼠标右键添加一个模块。在 模块的代码窗口中输入以下代码： Option Explicit Public fMainForm As frmMain 程序主窗体 Public UserName As String 用户名 Public PWD As String 用户密码 Public Level As Boolean 用户级别 Public CONN As String 数据库连接字符串 Public flagEdit As Boolean Sub Main() CONN = “FileDSN=renshi.dsn;UID=sa;PWD=“ Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then 登录失败后退出程序 End End If Unload fLogin Set
