数据库实验设计报告.docVIP

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
企业人事管理系统 企业在一般日常生活中要一套完整的人事信息管理系统,以便于对企业员组成、考情情况和调度情况进行管理。 在本次实验中我将以一个企业人事管理系统为例子。来讲述如何建立一个企业人事管理系统 系统设计 系统功能分析 系统功能分析是在系统开发总体任务的基础上完成的。本例中的企业人事管理系统需要完成的功能主要有: 企业人事管理系统的查询,包括输入查询条件如按员工编号查询或按员 工姓名查询,需要查询的信息系统为员工基本信息、员工考勤信息和员工调动信息。 企业人事管理系统的浏览,包括浏览首记录、尾记录、上一条记录和下一条记录,需要查询的信息系统为员工基本信息、员工考勤信息和员工调动信息。 企业人事管理系统的添加信息,包括在员工基本信息系统中需要添加员工编号、员工姓名、性别、籍贯、年龄、出生年月、学历、专业、家庭住址、邮政编码、电话、Email、参加工作时间、进入本公司时间、本公司起薪时间、所在部门和职务;在员工考勤信息系统中需要添加员工编号、上班时间、下班时间、事假、病假、正常加班天数、特殊加班天数、出差目的地和出差天数;在员工调动信息系统中需要添加员工编号、原有部门、原有职务、新部门、新职务、调动时间和调动时长。 企业人事管理系统的删除信息,需要删除的信息系统为员工基本信息、员工考勤信息和员工调动信息。 系统功能模块设计 图1 数据库设计 2.1.数据库需求分析 用户的需求具体体现在各种信息的提供、保存、更新和查询,这就要求数据库的结构能充分满足各种信息的的输出和输入。收集基本数据、数据结构一级数据处理的流程。在仔细分析调查有关员工信息需要的基础上,将得到如图2所示的本系统所处理的数据流程: 针对一般企业人事信息管理系统的需求,通过对员工工作过程的内容和数据流程的分析,设计如下面所示的数据项和数据结构: 员工基本信息:包括数据项有:员工编号、员工姓名、性别、籍贯、年龄、出生年月、学历、专业、家庭住址、邮政编码、电话、Email、参加工作时间、进入本公司时间、本公司起薪时间、所在部门和职务。 员工考勤信息:包括数据项有:员工编号、上班时间、下班时间、事假、病假、正常加班天数、特殊加班天数、出差目的地和出差天数。 员工调动信息:包括数据项有:员工编号、原有部门、原有职务、新部门、新职务、调动时间和调动时长。 2.2.数据库概念结构设计 图2 员工基本信息E-R图 图3 员工考勤信息E-R图 图4 员工调动信息E-R图 图5 企业人事管理系统主窗体的创建(MDI窗体) MDI窗体的主界面如下图所示: MDI窗体连接各个信息管理系统时,需要在MDI窗体的菜单编辑器中设置相应连接,还有各个子菜单的设置,如下图所示: 设置完成后,连接各个信息管理系统的SQL语句,即所需的程序代码: Private Sub tc_Click() Private Sub ygddxx_Click() Unload Me Form4.Show End Sub End Sub Private Sub ygkqxx_Click() Private Sub ygxxgl_Click() Form5.Show Form2.Show End Sub End Sub 企业人事管理系统用户登录窗体的创建 用户登录窗体包含了用户登录窗体和用户更新窗体(添加和删除用户) 用户登录窗体如下图所示及其程序代码: Private Sub Command3_Click() Dim xm As String Dim mm As String xm = Trim(Text1.Text) mm = Trim(Text2.Text) Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\Documents and Settings\Administrator\桌面\0703彭娅2007115020315数据库实验设计 企业人事管理系统vb\db1.mdb;Persist Security Info=False conn.Open Dim qstr As String qstr = select * from 用户表 where 用户名= + xm

文档评论(0)

PPT精品 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档