计算机毕业论文模板.doc

XXXX学院软件学院 毕 业 设 计 （论 文）论文题目：人事管理系统 指导老师： 学生姓名： 学 号: 专 业：计算机科学与技术 2007年 12月 25日安徽电子信息职业技术学院软件学院毕 业 设 计（论文）任 务 书题目：人 事 管 理 系 统任务与要求：开发平台采用Visual Basic+ACCESS。 本课题包括人事管理（用户表、员工基本表、员工调动表、部门表、部门调动、岗位表）实现以下功能： 员工的基本信息管理如：添加、修改、删除、退出。 换名登录：实现不同人员的登录，有一般人员和管理员。 退出系统：退出系统。时间： 2007 年 10 月22 日 至 2007 年 12 月 25 日 共 9 周学生姓名：XXXX 学 号：XXXX专业： 计算机科学与技术指导教师：XXX 2007年 12月 25日毕业设计(论文)进度计划表日 期工 作 内 容执 行 情 况指导教师签 字10月22日至10月25日准备并确定课题10月26日至10月30日上报计划进度11月1日至11月15日起草、撰写毕业论文11月16日至11月22日数据库结构设计和总体设计11月23日至12月12日系统界面设计和代码编写12月13日至12月17日系统调试和运行12月18日至12月25日修改、上交毕业设计教师对进度计划实施情况总评 签名 年 月 日 目录摘 要5关键词5第一章关于VB和数据库的概述6 第一节 关于VB的说明6第二节 关于ACCESS 20008第三节 数据库系统概述8第二章 人事管理系统概述9第一节 人事管理系统简介9第二节 企业信息化发展10第三章人事管理系统分析10第一节 系统初步调查10第二节 系统可行性分析11第三节 系统详细调查12第四节 系统的安全性12第四章 人事管理系统设计13第一节 系统开发环境简介13第二节 人事分析13第三节 系统模块划分、功能模块的说明13一 登陆界面13二、基本表16三、岗位表20四、部门表23结束语27谢辞28参考文献29摘 要本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。由于计算机技术的飞速发展,数据库技术作为数据管理的一个有效的手段,在各行各业中得到越来越广泛的应用。因此,本文围绕一个”人事管理系统”程序的设计和应用系统的开发课题为背景,详细介绍了以VB和ACCESS为语言编写管理信息系统的过程。该程序通过VB的ADO数据对象来实现VB前台与后台ACCESS数据库的连接,并具有典型的数据库应用系统的特征,完成了系统结构与现实生活的紧密结合。人事管理是企业管理的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息，成为企业管理中的一个大的问题。在这种情况下，一个可以规范化、自动化的企业人事管理系统就显得非常必要。人事管理系统就是把分散的企事业单位的职工信息实行统一、集中、规范的收集管理，建立分类编号管理、电脑存储查询以及防火、防潮、防蛀、防盗等现代化、专业化的管理系统，为企事业单位和职工解除后顾之忧。企业人事管理系统为企事业单位提供信息咨询、信息检索、信息存取等服务。本文实现的人事管理系统基本上能够满足现代企业人事管理的需求。信息录入项目齐全、完整、系统。现代人事管理系统灵活使用表格对各种信息分门别类，组成企业人事管理系统，可以方便地查询、阅读、修改、交流和重复使用。关键词人事管理系统 面向对象 数据库技术 企业管理第一章关于VB和数据库的概述 第一节 关于VB的说明Visual Basic 6.0是由微软公司开发研制的一种面向对象的开发工具，也是Windows 应用程序开发工具，它提供了一套功能完整的工具，大大减少了编程人员的工作量，提高了应用程序的可靠性和运行效率。是系统开发人员首选的前台开发工具，因此我使用了Visual Basic 6.0进行本系统的开发。何谓 Visual Basic？“Visual”指的是开发图形用户界面 (GUI) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。“Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 语言，一种在计算技术发展史上应用得最为广泛的语言。Visual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统,MicrosoftExcel 的Applications Edition,Microsoft Access和Windows的许多其他应用程序都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。 从开发个人使用或小组使用的小工具，到大型企业应用系统，甚至通过Internet 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。有了 ActiveX 技术就可使用其它应用程序提供的功能，例如 MicrosoftWord 字处理器，Microsoft Excel 电子数据表及其它 Windows 应用程序。甚至可直接使用 VBP 或 VBE 创建的应用程序和对象。Internet 功能强大，使得您很容易在应用程序内通过 Internet 或 Intranet访问文档和应用程序，或者创建 Internet 服务器应用程序。已完成的应用程序是使用Visual Basic 虚拟机的真正 .exe 文件，您可以自由发布总的来说，Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。 第二节 关于ACCESS 2000ACESS 2000不仅吸收了许多新的功能以增加系统的运行性能,而且还使数据库的管理工作更加轻松。在过去,数据库都是安装在服务器或是工作站上的,所用的操作系统都是UNIX或专用系统,价格相对较高,ACCESS 2000可以安装在个人计算机上,价格要低的多。ACCESS 2000可以使操作系统具有应用程序数据库,并被优化支持未连接用户或移动用户。它也用于在单用户机器上进行小型应用程序的开发,能够很好的满足我们的需要。ACESS 简介：Access 2000是一种关系数据库管理系统(RDBMS)。顾名思义，关系数据库管理系统是数据库管理软件，它的职能是维护数据库、接受和完成用户提出的访问数据的各种请求。ACCESS特点：Access是一个中、小型关系数据库管理系统。Access又是一个完全面向对象，采用事件驱动机制的最新关系数据库管理系统，使得数据库的应用与开发更加便捷、灵活。Access是一个同时面向数据库最终用户和数据库开发人员的关系数据库管理系统。 Access是一个典型的开放式数据库管理系统。 Access支持多媒体的应用与开发。 Access既可以在单用户环境下工作也可以在多用户环境下工作，并且具有完善的安全管理机制。 Access内置了大量的函数。 Access提供了许多宏操作。 Access提供了联机帮助功能。第三节 数据库系统概述数据库系统是指在计算机系统中引入数据库后的系统,一般由数据库、数据库管理系统、应用系统、数据库管理员和用户构成。应当指出的是,数据库的建立、使用和维护等工作只靠一个DBMS远远不够,还要有专门的人员来完成,这些人被称为数据库管理员。在一般不引起混淆的情况下常常把数据库系统简称为数据库。数据库技术是应数据管理任务的需要而产生的。随着计算机技术的发展,其应用远远地超出了这个范围。在应用需求的推动下,在计算机硬件,软件发展的基础上,数据管理技术经历了人工管理、文件系统、数据库系统三个阶段。与人工管理和文件系统相比,数据库系统的特点主要有以下几个主面:数据的结构化；数据的共享性高,冗余度低,易扩充；数据独立性高；数据由DBMS统一管理和控制。目前,数据库己经成为现代信息系统的不可分离的重要组成部分。具有数百万甚至数十亿字节信息的数据库己经普遍存在于科学技术、工业、农业、商业、服务业和政府部门的信息系统。20世纪80年代后不公在大型机上,在多数微机上也配置了DBMS,使数据库技术得到了更加广泛的应用和普及,是计算机领域中发展最快的技术之一。第二章 人事管理系统概述第一节 人事管理系统简介一、 人事管理系统（HRMS）的发展历史1. 人力资源管理系统的革命性变革出现在20世纪90年代末。由于市场竞争的需要，如何吸引和留住人才，激发员工的创造性、工作责任感和工作热情已成为关系企业兴衰的重要因素，人才已经成为企业最重要的资产之一。“公正、公平、合理”的企业管理理念和企业管理水平的提高，使社会对人力资源管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是Internet/Intranet技术的发展，使得第三代人力资源管理系统的出现成为必然。第三代人力资源管理系统的特点是从人力资源管理的角度出发，用集中的数据库处理几乎所有与人力资源相关的数据（如薪资福利、招聘、个人职业生涯的设计、培训、职位管理、绩效管理、岗位描述、个人信息和历史资料）统一管理起来，形成了集成的信息源。友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得人力资源管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑，能够设定企业的成本中心并按成本中心将薪资和总账连接起来，直接生成总账凭证，还能存储完备的历史信息供查询和生成报表；这类系统也可处理部分简单的人事信息。2. 培训管理系统。培训管理系统一般通过培训需求调查、预算控制、结果评估和反馈以及培训结果记载等手段，实现培训管理的科学化，并且和人力资源信息有机地联系起来，为企业人力资源的配备和员工的升迁提供科学的依据。3. 考勤管理程序烦琐,要让人力资源管理人员可以从繁琐的日常工作中解脱出来，将精力放到更富有挑战性和创造性的人力资源分析、规划、员工激励和战略等工作中去。完整的历史信息记载了员工从面试开始到离职整个周期的薪资、福利、岗位变迁、绩效等信息。同时由于这类系统可管理较全面的人力资源和薪资数据，因而还可以生成许多综合性的报表供企业决策人员参考，如生成按岗位的平均历史薪资图表，员工配备情况的分析图表，个人绩效与学历、技能、工作经验、接受过的培训等关系的分析等等。第二节 企业信息化发展1、 随着信息时代的到来,随着企业规模的扩大，其管理组织会变得越来越庞大和困难，而信息的处理与使用也变得越来越重要。2、 在规划和建设一个企业的管理信息系统时，有可能误认为企业的管理信息系统就是在企业原有管理模式上加入计算机信息处理。其实，一个好的管理信息系统绝不是企业原有的管理模式和计算机信息处理的简单相加，信息化的发展使计算机和软件成为企业日常管理中的必然。第三章人事管理系统分析第一节 系统初步调查一、应用人事管理系统的必要性1 现在不少企业都用到了人事管理系统,人力资源的现状有一个比较全面和准确的认识，同时也可以生成综合的分析报表供企业领导人在决策时参考。这就提高了企业的管理水平。二。人事管理系统实施的特点及注意事项1 要想通过人事管理系统来提高企业的管理水平，光是选取一个好的或比较好的、适合本企业特点的人事管理软件还是远远不够的。人事管理软件通常只是发挥应有的效用，必须通过培训转变人们的思维方式和行为方式，学会通过系统来进行科学的管理。2 改进企业的相关制度和信息结构。要充分地回顾本企业的相关政策和信息组成，充分利用人事管理系统改进企业的人事管理。3 明确基础上的实施目标。要明确整个项目的实施计划和目标，明确需要采集的信息,确保计划和目标的协调,让人事管理系统发挥最大的作用.第二节 系统可行性分析人事管理系统在企业中占有极其重要的地位，它关系着企业内部每个职员的档案，其中包括新职员的增加，职员档案的查找，职员的详细资料等等。对于企业来讲，人事管理系统是不可缺少的组成部分，它有效地管理企业的员工，对企业内部人事的流动和分配起着重要的管理作用，它正确地反映着企业的人事变化。（企业管理业务流程图）企业负责人（厂长、经理）销售部主管人事部主管生产部主管财务部主管根据企业对人员管理的需要，开发一个“人事管理系统”，开发目的如下：1 能够对员工的有关资料进行输入，修改，删除。2 能够为企业提供强大的查询功能，以便企业主管了解和掌握各职员的具体情况。3 能够提供员工的考勤信息及调动信息。4 能够对员工的资料数据进行备份，以作为相关的历史资料。第三节 系统详细调查（一） 功能需求（二） 基于以上的开发目标，系统开发的范围确定如下：本系统只涉及人事资料部分，不包括工资,部门资料以及部门之间的调动 .第四节 系统的安全性信息的透明和安全是一对矛盾而又息息相关的关系。本程序考虑到系统的安全性，主要设置了用户登录论证，其中包括初始用户登录验证和再次用户登录验证，并且需要进行密码校验，保证了信息的“可控”透明性。而且，为了提供企业日后需要的各期历史资料，本系统还提供数据备份功能，使原始资料的保留更为方便，并且能够进行新旧资料的对比，使企业主管对各期人员变动更好的了解，为以后的决定打下良好的基础。开始提示登录本程序输入用户密码调用密码检测子程序进入人事管理系统显示错误第四章 人事管理系统设计第一节 系统开发环境简介选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在规划内部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易，而且性能优越。操作系统：Windows XP数据库为：MS Access 2000开发工具与语言: Visual Basic 6.0第二节 人事分析人事管理系统基本资料管理部门管理岗位表添加打印修改删除添加筛选修改删除添加修改删除退出员工调动添加修改调动删除用户管理第三节 系统模块说明一 登陆界面输入用户名:LiuWei 输入密码:123456如果你的用户名和密码输入错误,单击”确定”,系统就会提示你输入错误。连续三次输入不正确系统就会提示你：“你已登陆三次”，需要退出重新进入。输入正确进入系统主界面：（如下图所是）从主界面可以看到上面的菜单栏有：“系统”、“人事管理”“员工调动”“部门管理”，菜单下设有子菜单，以便快速查找和调用,如果换名登陆可以在“系统”里有个下拉菜单“换名登陆”，就可以修改了。下面的这段代码是登陆系统之后进入主界面，在这个界面里看到“系统”在下面的子菜单有个“换名登陆”这个代码就是实现换名登陆的，当我们不想用管理员的身份进去的时候，就可以以普通用户的方式重新进入系统。Private Sub Command1_Click() Dim sSearch As String On Error GoTo ERR_Loigan If Len(Trim(Text1.Text) = 0 Then MsgBox 用户名不可以为空，必须填写！ Text1.SetFocus Exit Sub End IfIf Len(Trim(Text2.Text) = 0 ThenMsgBox 密码不能为空，必须填写！ Text2.SetFocus Exit Sub End If sSearch = select * from yh sSearch = sSearch & where uid= & Trim(Text1) & sSearch = sSearch & and Pwd= & Trim(Text2) & cnn.Open strcnnrs.Open sSearch, cnn If rs.BOF And rs.EOF Then MsgBox 用户名或密码不正确，请重新输入。 Text1.SetFocus intNumber = intNumber + 1 Else curnuser.uid = Trim(rs!uid) curnuser.pwd = Trim(rs!pwd) curnuser.dj = Trim(rs!dj) curnuser.xh = Trim(rs!xh) rs.Close cnn.Close Unload Me MDIForm1.Show Exit Sub End If If intNumber = 3 Then MsgBox 登录超过3次，系统关闭! Unload Me Exit Sub End If rs.Close cnn.Close Exit SubERR_Login: If Err.Number 0 Then MsgBox Err.Description, , 错误 Err.Clear End If If rs.State = adStateOpen Then rs.Close End If If cnn.State = adStateOpen Then cnn.Close End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()strcnn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & _ 数据库的连接 App.Path & SRSM.mdb;Persist Security Info=FalseLabel5.Caption = Label3.FontBold = TrueLabel3.FontSize = 20Label3.FontItalic = TrueLabel3.ForeColor = RGB(25, 26, 147)Timer1.Enabled = FalseTimer2.Enabled = FalseTimer1.Interval = 1000: Timer2.Interval = 100Timer1.Enabled = TrueTimer2.Enabled = TrueLabel5.Caption = 系统时间是： & Hour(Time) & 时 & Minute(Time) & 分 & Second(Time) & 秒 这段代码是实现主界面的时间的End SubPrivate Sub Label3_Click()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys TAB, 1 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys TAB, 1 End IfEnd SubPrivate Sub Timer1_Timer()Label5.Caption = 系统时间是： & Hour(Time) & 时 & Minute(Time) & 分 & Second(Time) & 秒End SubPrivate Sub Timer2_Timer()If Label3.Left 0 Then sSearch = sSearch & where bmh= & bmmcToNo(Trim(Combo1.Text) & If cnn.State = 1 Then cnn.Close cnn.Open strcnn rs.Open sSearch, cnn End If End SubPrivate Sub Command1_Click()Dim sSearch As StringsSearch = select * from bm where bmmc= + Combo1.Text + If cnn.State = 1 Then cnn.CloseEnd If cnn.Open strcnn rs.Open sSearch, cnnWith gridbmlist .Rows = 1While (Not rs.EOF) And (Not rs.BOF) .AddItem .Rows & vbTab & rs.GetString(adClipString, 1, vbTab, , )WendEnd WithExit SubWith gridbmlist .Cols = 4 .Rows = 1 .Col = 0 .Row = 0 .Text = .Row .Text = 序号 .ColWidth(0) = 1000 .Col = 1 .Text = 部门号 .ColWidth(1) = 1000 .Col = 2 .Text = 部门名称 .ColWidth(2) = 1000 .Col = 3 .Text = 岗位 .ColWidth(3) = 1000 End With If cnn.State = 1 Then cnn.Close End If cnn.Open strcnn rs.Open strselect, cnn, adOpenStatic, adLockReadOnly With rs While (Not .BOF) And (Not .EOF) gridbmlist.Rows = gridbmlist.Rows + 1 gridbmlist.Row = gridbmlist.Rows - 1 gridbmlist.Col = 0 gridbmlist.Text = gridbmlist.Row gridbmlist.Col = 1 gridbmlist.Text = !bmh gridbmlist.Col = 2 gridbmlist.Text = !bmmc gridbmlist.Row = 3 gridbmlist.Text = !gw .MoveNext Wend End WithEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() Combo1.Clear Combo1.AddItem 生产部门 Combo1.AddItem 销售部门 Combo1.AddItem 宣传部门Dim strselect As String strselect = select * from bmWith gridb