大工15春《SQL数据库课程设计》大作业答案.pdf

网络教育学院网络教育学院SQLSQL 数据库课程设计数据库课程设计题目：XX 系统的设计与实现学习中心：奥鹏学习中心专业：计算机应用技术年级：年 秋 季学号：1xxxxxxx84学生：xxxxx指导教师：龙珠1项目概况对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理重要条件。本系统使用 Visual Basic 6.0 作为开发工具，采用Microsoft SQL Server 2005 作为数据库，实现了主要的管理工作有：员工基本信息、部门信息的增修删改，员工考勤情况的管理以及员工工资的管理等。针对不同的用户分为两种权限：系统管理员权限为 1，可以进行添加、修改、删除、查询等操作，且可以对用户信息进行修改和打印报表；普通用户权限为0，只能查看员工基本信息、部门基本信息和考勤基本信息，不能对其进行添加、修改和删除。1.1 SQL 数据库简介SQL 是 Structured Query Language(结构化查询语言)的缩写。SQL 是专为数据库而建立的操作命令集，是一种功能齐全的数据库语言。在使用它时，只需要发出“做什么”的命令，“怎么做”是不用使用者考虑的。SQL 功能强大、简单易学、使用方便，已经成为了数据库操作的基础，并且现在几乎所有的数据库均支持SQL。SQL Server 2005 是一个全面的数据库平台，使用集成的商业智能(BI)工具提供了企业级的数据管理。SQL Server 2005 数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。SQL Server 2005 数据引擎是本企业数据管理解决方案的核心。此外SQLServer 2005 结合了分析、报表、集成和通知功能。这使您的企业可以构建和部署经济有效的 BI 解决方案，帮助您的团队通过记分卡、Dashboard、Web services 和移动设备将数据应用推向业务的各个领域。1.2Visual Basic 6.0概述Visual Basic 是微软公司开发的编程设计软件，它也是基于 Windows 操作系统可视化编程环境。Visual Basic 6.0 因操作简单实用，所以从其问世以来很受专业程序员和编程爱好者的追捧。Visual Basic 6.0 由标题栏、菜单栏、工具栏、工具箱、窗体窗口、工程窗口、属性窗口、窗体布局窗口等构成。Visual Basic 6.01的组件有很多，比如编辑器、设计器、属性等开发组件。Visual Basic 6.0 还提供了窗口编辑，可直接对窗口进行编辑和预览。Visual Basic 6.0 的工具箱由指针、图片框、标签、文本框、框架、命令按钮、复选框、单选按钮、组合框、列表框、水平滚动条、垂直滚动条、定时器、驱动器列表框、目录列表框、文件列表、形状控件、直线、图像控件、数据控件、OLE 容器构成。1.3企业人事管理系统概述本系统使用 Visual Basic 6.0 作为开发工具，采用 Microsoft SQL Server 2005作为数据库，实现了主要的管理工作有：员工基本信息、部门信息的增修删改，员工考勤情况的管理以及员工工资的管理等。针对不同的用户分为两种权限：系统管理员权限为 1，可以进行添加、修改、删除、查询等操作，且可以对用户信息进行修改和打印报表；普通用户权限为0，只能查看员工基本信息、部门基本信息和考勤基本信息，不能对其进行添加、修改和删除。22需求分析2.1需求分析本系统将会是一个单机版的人事软件，虽然服务反馈消息渠道少，但是操作更简单，界面更统一，这对于一个小型企业来说是可行的。随着计算机的发展与普及，以及互联网技术的扩展，日常人事管理必将实现无纸化办公，并且加入到公司内部的 Intranet 或者是 Internet 上去，实现数据的共享，这样有利于人事信息在单位内部的查询，提高了数据资源的利用，并且能及时的得到更新，不需要像过去那样浪费大量的人力物力去进行抄写，提高了工作的效率。Visual Basic 6.0 提供了一个统一的、紧密集成的可视化编程环境，简化了开发应用程序的过程。数据库方面SQL2005 已经可以满足中小型企业的数据要求，甚至有些大型企业都可以达到要求。如今计算机普及程度日益推广，计算机配置日新月异，能承载此系统的机器就如办公的机器都可以达到要求，所以说本系统具有技术可行性。采用传统的方法做人事管理，不仅工作繁琐而且需要大量的人力物力，记录容易出错，那样产生了成本高、效果差的弊病，对于一个企业的资料库建立是十分困难和麻烦的。而采用这种系统所需的成本，精力都远远低于手工，并且十分实用方便，更新也简易，对企业实现办公无纸化能起到很大的作用，所以此系统具有经济可行性。本系统采用了系统数据备份、恢复等功能，并且在界面层次设计上比较分明，用户使用时一目了然，再加上设计方面加入了人性化的元素。对于普通管理者而言对此系统进行管理不会遇到技术上的难点，对于使用该系统的用户而言也不会碰到操作上的难点，所以此系统具有管理可行性。2.2数据分析分析系统功能可知，需要用表来存储和管理企业人事的信息，使系统能够接受企业的各项数据的输入，以实现数据的添加、查询、修改、删除信息等功能。数据库包含 5 个数据表：员工基本信息表：用来保存员工的基本信息，其表结构如图 2.1 所示。3图 2.1 员工基本信息表（StaffInformation）结构部门信息表：用来保存企业部门的信息，其表结构如图 2.2 所示。图 2.2 部门信息表（Department）结构员工考勤信息表：用来保存员工考勤的信息，其表结构如图 2.3 所示。图 2.3 员工考勤信息表（CheckStaff）结构员工工资表：用来保存员工工资的信息，其表结构如图 2.4 所示。图 2.4 员工工资表（StaffSalary）结构用户信息表：用来保存用户名、密码及权限等信息，其表结构如图 2.5 所示。图 2.5 用户信息表（UserInformation）结构42.3功能分析企业人事管理系统是对企业单位的组织机构和员工进行管理，主要的管理工作有：员工基本信息的查询与管理、员工考勤情况的管理，可实现对员工信息的增加、删除、修改、查询等功能。根据上述要求进行分析，系统应该实现如下功能：1)员工基本信息管理功能添加员工基本信息，包括员工编号、姓名、性别、名族、出生日期、文化程度、婚姻状况、籍贯、身份证号等。修改员工基本信息。删除员工基本信息。查询员工基本信息。2)部门管理功能添加部门信息，包括部门编号、部门名称、上级部门编号等。修改部门信息。删除部门信息。查询部门信息。3)考勤管理功能添加员工考勤信息，包括考勤月份、员工编号、全勤天数、出差天数、病假天数、事假天数、旷工天数、迟到时间、早退时间等。修改员工考勤信息。删除员工考勤信息。查询员工考勤信息。统计员工考勤信息。4)工资管理功能添加员工工资信息，包括员工编号、基本工资、加班工资、应扣工资、实发工资等。删除员工工资信息。查询员工工资信息。5)报表5员工基本信息一览表部门基本信息一览表员工考勤信息一览表6)系统管理功能添加系统用户信息，包括编号、姓名、密码、权限等信息。修改系统用户信息。删除系统用户信息。63详细设计3.1系统结构图根据系统实现功能的不同，可以将系统划分为 5 个大的功能模块，分别为员工信息管理模块、员工考勤管理模块、员工工资管理模块、报表模块和系统管理模块，系统功能模块示意图如图 3.1 所示。企业人事管理系统员工基本信息系管理考勤信息管理员工工资管理报表管理系统管理部门管理员工基本信息管理员工基本信息一览表部门基本信息一览表员工考勤信息一览表用户信息管理修改密码3.2系统实现3.2.13.2.1主界面模块主界面模块主界面提供系统菜单，用户通过菜单选择调用各个功能模块并进行操作。为主界面设计菜单。首先在主窗体 MainForm 上，单击鼠标右键，选择“菜单编辑器”，然后编辑系统菜单，按照前面功能模块中内容编辑菜单项，如图3.2 所示，设计系统主界面如图 3.3 所示。图 3.1 系统功能模块图7图 3.2企业人事管理系统菜单编辑器图 3.3 企业人事管理系统主界面代码如下：Private Sub check_staff_Click()DataReport3.ShowEnd SubPrivate Sub department_Click()DataReport2.ShowEnd SubPrivate Sub MDIForm_Load()Me.Width=8000Me.Height=7000If login.Identify=1 Thenstaff_salary=Truestaff_salaryquery=Truestaff_information=Truedepartment=Truecheck_staff=TrueMn_user=TrueMn_psd=True8Elsestaff_salary=Falsestaff_salaryquery=Falsestaff_information=Falsedepartment=Falsecheck_staff=FalseMn_psd=FalseMn_user=FalseEnd IfEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer)Unload loginEnd SubPrivate Sub Mn_check_Click()f2check_month.ShowEnd SubPrivate Sub Mn_dep_Click()f1department_Manage.ShowEnd SubPrivate Sub Mn_exit_Click()EndEnd SubPrivate Sub Mn_psd_Click()f3pwd_Modify.ShowEnd Sub9Private Sub Mn_staff_Click()f1staff_InformationManage.ShowEnd SubPrivate Sub Mn_user_Click()f3user.ShowEnd SubPrivate Sub staff_information_Click()DataReport1.ShowEnd SubPrivate Sub staff_salary_Click()f4staff_salary.ShowEnd SubPrivate Sub staff_salaryquery_Click()f4staff_salaryquery.ShowEnd Sub3.2.23.2.2员工基本信息管理模块员工基本信息管理模块员工基本信息管理模块可以实现的功能：系统管理员用户可以添加、修改、删除、查看员工记录；普通用户只能查看员工数据。处理员工基本信息可通过如图 3.4 所示的窗体进行操作。10图 3.4 员工基本信息管理窗体3.2.33.2.3部门管理模块部门管理模块系统部门管理窗体可以实现的功能：系统管理员用户可以添加、修改、删除、查看部门记录；普通用户只能查看部门记录。处理部门信息可通过如图 3.6 所示的窗体进行操作。图 3.6 部门管理窗体设计系统管理员用户登录时可以对部门信息进行添加、修改、删除，修改、删除部门信息窗体可以查看、修改、删除部门信息，窗体设计如图 3.7 所示。11图 3.7 修改、删除部门信息窗体设计3.2.43.2.4员工考勤管理模块员工考勤管理模块员工考勤管理窗体实现的功能：系统管理员可以添加、查看员工考勤记录；普通用户只能查看员工考勤记录。对员工考勤按月份进行管理，具体窗体设计如图 3.8 所示。图 3.8 员工月度考勤窗体设计输入员工考勤情况，可通过编辑员工考勤窗体来完成，具体窗体设计如图 3.9所示。图 3.9 编辑员工考勤窗体设计123.2.53.2.5工资管理模块工资管理模块员工工资窗体操作权限仅限系统管理员，系统管理员用户可以添加、删除员工工资记录，具体窗体设计如图 3.10 所示。图 3.10 员工工资管理窗体设计3.2.63.2.6用户信息管理模块用户信息管理模块此窗体用来添加和删除用户信息，操作权限仅限系统管理员，具体窗体设计3.11 所示。修改用户密码窗体根据用户名可以查询用户信息，且可以修改用户密码和用户权限，具体窗体设计如图 3.12 所示。图 3.11 用户信息管理窗体设计图 3.12 修改用户登录密码窗体设计3.3数据库实现3.3.13.3.1数据库的建立数据库的建立1.sql server 2005 安装后，在开始菜单，找到 SQL Server Management Studio。2.运行后，输入用户名和密码，点击连接。3.在左侧，数据库那里点鼠标右键，选择创建数据库。4.数据库名(企业人事管理系统)，但是代码里以后也必须用这个名，其他保持默13认。5.点击下面“.符号。6.设置数据库大小，以及自动增长范围，设置好后，确定。7.所有选择设置好后，点击确定完成数据库创建。3.3.23.3.2数据库的更新数据库的更新创建公用模块创建公用模块用来存放整个工程项目公用的函数、过程和全局变量等，以提高代码的效率。在项目资源管理器中为项目添加一个 Module,保存为 Module1.bas。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数。模块中代码如下：Public cnn As ADODB.Connection返回连接数据库时用到的连接字符串Public Function DbConnect()As Boolean Dim ConnectString As String ConnectString=DRIVER=SQL Server;SERVER=20111013-1405;DATABASE=企业人事管理系统 On Error GoTo Connect_Error Set cnn=New ADODB.Connection cnn.Open ConnectString DbConnect=True Exit FunctionConnect_Error:DbConnect=FalseEnd Function定义执行插入、更新、删除的方法Public Sub ExecuteSQL(ByVal Sql As String)cnn.Execute SqlEnd Sub定义执行查询的函数14Public Function Query(ByVal Sql As String)As ADODB.Recordset Dim rst As ADODB.Recordset Set rst=New ADODB.Recordset rst.Open Sql,cnn,adOpenKeyset,adLockOptimistic Set Query=rstEnd FunctionPublic Sub UnConnect()Set cnn=NothingEnd Sub4心得与体会写下自己的心得与体会，100 字以内。通过这次课程设计发现这其中需要的很多知识我们没有接触过，去图书馆查资料的时候发现我们前边所学到的仅仅是皮毛，还有很多需要我们掌握的东西我们根本不知道。同时也发现有很多已经学过的东西我们没有理解到位，不能灵活运用于实际，不能很好的用来解决问题，这就需要我们不断的大量的实践，通过不断的自学，不断地发现问题，思考问题，进而解决问题。15