合理情绪疗法案例论文-人际关系-论文.doc

VB人事管理系统论文+数据流程图+ER图+功能模块图-论文VB人事管理系统论文目 录第一章系统概述11.1系统开发背景和意义11.2系统开发的目的，内容及作者重要文献1第二章系统需求分析22.1系统开发策略22.2系统功能需求分析22.3数据流图和数据字典52.3.1数据流图概述52.3.2数据字典5第三章系统设计的原理和采用的方法与技术73.1系统设计的基本原理73.2系统设计采用的方法与技术83.2.1项目设计采用的方法83.2.2系统设计采用的技术8第四章总体设计94.1总体设计原理94.2运行环境与系统结构94.3统功能模块图与设计104.4E-R图104.4.1E-R图10第五章 详细设计145.1数据库设计概述145.1.1数据库设计的特点145.1.2数据库设计方法145.2数据库的概念设计145.2.1程序流程图155.3数据库逻辑设计165.4数据库中表的设计165.5数据库的物理设计185.5.1物理设计的步骤18第六章 编码实现与测试结果196.1登录界面及代码19第七章 测试与运行记录287.1测试目的287.2测试方法287.3测试记录与运行结果287.3.1管理员登陆测试287.3.2密码修改测试297.3.3信息添加测试29结束语31参考文献301VB人事管理系统论文数据流程图+ER图+功能模块图第一章系统概述11系统开发背景和意义随着计算机技术的飞速发展，计算机在学校管理中应用的普及，利用计算机实现教师人事管理势在必行。对于学校来说，利用计算机支持学校高效率完成教师人事管理的日常事务，是适应现代学校制度要求、推动教师人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高教师人事管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。12系统开发的目的，内容及作者重要文献 121系统开发目的目前市面上流行的人事管理系统不少。但是，对于学校的人事管理系统来说，不需要大型的数据库系统。只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统。122系统开发内容能够录入教师的基本资料，在操作上能够完成诸如添加、修改、删除、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。123作者的主要贡献本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。第二章系统需求分析21系统开发策略本系统开发主要采用自顶向下的开发方式，自顶向下的方法模型如图2.1所示：图2.1方法模型22系统功能需求分析221需求分析概述需求分析是软件定义时期的最后一个阶段，也是设计数据库的一个起点，它确定了系统必须完成哪些工作，提出完整、准确、清晰和具体的要求，直接影响到后面各个阶段的设计，及设计结果是否合理和实用。需求分析的任务是通过详细调查现实世界要处理的对象（组织、部门、学校等），充分了解原系统（手工系统/计算机系统）工作概况，明确用户的各种需求，然后在此基础上确定新系统的功能。新系统必须充分考虑今后可能的扩充和改变，不能仅仅按当前应用需求来设计系统。需求分析的结果是系统开发的基础，关系到工程的成败和软件产品的质量。因此必须用行之有效的方法对软件需求进行严格的审查验证。222需求分析的具体任务确定对系统的综合要求a.支持学校实现规范化的管理。b.支持学校高效率完成教师人事管理的日常业务。c.支持学校进行教师人事管理及其相关方面的科学决策。分析系统的数据要求任何一个软件系统本质上都是信息处理系统，系统必须处理的信息和系统应该产生的面貌，对软件设计有深远影响。因此，必须分析系统的数据要求，这是软件需求分析的一个重要任务。分析系统的数据要求通常采用建立概念模型的方法。复杂的数据有许多基本的数据组成，数据结构表示元素之间的逻辑关系，利用数据字典可以全面准确地定义数据，但是数据字典的缺点是不够形象直观。为了提高可理解性，常常利用图形工具辅助描绘数据结构。软件系统经常使用各种长期保存的信息，这些信息通常以一定方式组织并存储在数据库和文件中，为了减少数据 条，避免出现插入异常或删除异常，简化修改数据的过程，通常需要把数据结构规范化。223教师人事管理系统的系统分析现在的世界是信息的世界，随着信息量越来越大以及计算机技术的发展，计算机已成为各企事业单位管理的重要工具。教师人事管理是对教师信息、部门信息、职务信息、工资信息的管理和快速方便的查询。1.本系统主要完成以下任务：a.教师各种信息的输入。b.教师各种信息的修改。c.对于转出、辞职、离退教师信息的删除。d.对各种结果打印输出。e.人事管理系统的使用帮助。2.本系统的业务流程图如图2.2：图2.2业务流程图3.报表处理：管理部门对教师、部门、职务完成各类报表VB人事管理系统论文操作人员对工资信息更新后产生工资表。23 数据流图和数据字典231数据流图概述数据流图描述系统的逻辑模型，图中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。因为数据流图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流图只需考虑系统必须完成的基本逻辑功能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。1.教师人事管理系统的数据流图如图2.3图2.3数据流图232数据字典（1）名字：教师号 别名：jiaoshihao 描述：唯一地标识数据库中员工的一个特定的关键域 定义：教师号10字符10 位置：教师基本信息 教师家庭住址 （2）名字：部门号 别名: bumenhao 描述：唯一地标识数据库中单位部门的一个特定的关键域 定义：部门号4字符4 位置：教师基本信息 部门基本信息 教师基本信息报表 （3）名字：职务代号 别名: zhiwudaihao 描述：唯一地标识数据库中工作岗位的一个特定的关键域 定义：岗位代号8字符8 位置：职务代号 教师基本信息 基本信息报表 （4）名字：基本信息报表 别名：baobiao描述：用户指定条件下的员工基本情况查询结果的信息表 定义：基本信息查询报表教师号姓名年龄性别出生 +籍贯+地址 第三章系统设计的原理和采用的方法与技术31系统设计的基本原理 软件工程的基本原理包括七条，如下所述：1.用分阶段的生命周期计划严格管理。即把软件生命周期划分成若干个阶段，并相应地制定出切实可行的计划，然后严格按照计划对软件的开发与维护工作进行管理。2.坚持进行阶段评审。即在每个阶段都进行严格的评审，以便尽早发现在软件开发过程中所犯的错误，是一条必须遵循的重要原则。3.实行严格的控制。在软件开发过程中不应随意改变需求，因为改变一项需求往往需要付出较高的代价。但是，在开发的过程中改变需求又是难免的，为了保持软件各个配置成分的一致性，必须实行严格的产品控制，其中主要是实行基准配置管理，绝对不能谁想修改软件就随意进行修改。4.采用现代程序设计技术。采用先进的技术不仅可以提高软件开发和维护的效率，而且可以提高软件产品的质量。5.结果应能清楚地审查。软件产品不同于一般的物理产品，它是看不见摸不着的逻辑产品。为了提高软件开发过程的可见性，更好地进行管理，应该根据软件开发项目的总目标及完成期限，规定开发组织的责任和产品标准，从而使所得到的结果能够清楚地审查。6.开发小组的人员应该少而精。开发小组人员的素质和数量是影响软件产品质量和开发效率的重要因素，因此，开发小组的人员应该少而精。7.承认不断改进软件实践的必要性。所以在软件开发过程中应该考虑到创新原则，体现先进性、超前性，同时应考虑软件的使用性。这七条原理是确保本次软件开发产品开发质量和开发效率的原理的最小集合，这七条原理是互相独立的，其中任意六条原理的组合都不能代替另一条原理，因此，它们是缺一不可的最小集合。32系统设计采用的方法与技术321项目设计采用的方法本系统采用CS模式结构，即Clients/Server结构。Clients/Server结构（简称CS结构）是九十年代流行的信息系统结构，在CS结构下，应用系统被分为前台（客户机）和后台（服务器）两部分，其作用分别是：应用处理由客户机完成，数据访问和事务处理由服务器完成。这种方案实现了功能分布，即由客户机端提出查询请求，而服务器完成对数据库的查询任务，并把查询结果通过网络返回给客户机 。CS模式响应速度快，网络通信负担小，适用于企业内部局域网，在企业内部的集中管理模式中发挥了重要作用。322系统设计采用的技术该系统主要采用VB、ACCESS数据库技术和工具，整体设计遵循软件工程的方法，经过需求分析、总体设计、文档和代码的编制、模块测试和系统实现几个阶段。人事管理系统总体设计41总体设计原理经过了需求分析，已经清楚了系统所要完成的功能，接下来就是决定“怎么做”。 概括的说，总体设计的基本目的就是回答“系统应该如何实现?”的这个问题。因此总体设计又称为“概要设计”。通过这个阶段的工作，将划分出组成系统的物理元素程序，文件，数据库，人工过程和文件等。但是每一个物理元素都处于黑盒子阶段，这些黑盒子里的具体内容将留在以后进行详细的设计。总体设计阶段的另一项重要任务是设计系统的结构，也就是要确定系统中每个程序是由哪些模块组成，以及这些模块间的相互关系。采用模块化原理可以使软件结构清晰，不仅容易设计也容易阅读和理解。因为程序的错误通常局限在有关的模块及它们之间的接口中，所以模块化使软件容易测试和调试。应而有助于提高系统的可靠性。并且模块化还能够提高软件的可修改性，也有助于软件开发工程的组织管理。因此，在进行软件结构设计时应该遵循的最主要的原理就是模块化独立原理。42 运行环境与系统结构 为了保证系统运行的效率和可靠性，系统服务器端应具有较高的软硬件配置，客户端的要求不是很高。此应用程序可广泛用于内部的局域网。其运行要求如下：、软件环境：客户端： Windows98/NT/XP。服务器端：Windows NT/Windows2000及VB等。数据库：采用ACCESS。、硬件环境：服务器 CPU:P 500以上 ,内存:256M以上客户机 CPU:P200MMX以上，内存：32M以上43统功能模块图与设计 功能模块图如图4.1图4.1功能模块图42 ER图421 ER图1.ER模型ER模型包含“实体”、“联系”、“属性”等三个基本成份。（1）实体实体是客观世界中存在的且可相互区分的事务。实体可以是人，也可以是物；可以是具体事物，也可以是抽象概念。（2）联系客观世界中的事物彼此之间往往是有联系的。这些联系在信息世界中反映为实体内部的联系和实体之间的联系。实体之间的联系可以分为三类：一对一的关系（1：1），一对多是关系（1：N）和多对多（N：N）的关系。（3）属性实体所具有的某一特性称为属性，一个实体可以由若干个属性来刻画。人们通常就是用实体、联系和属性这三个概念来理解现实问题的，因此，ER模型比较接近人的思维方式。此外，ER模型是用简单的图形符号表示系统分析员对问题的理解，不熟悉计算机的人也能较容易的理解它。（4）实体关系E-R图如图4.2图4.2实体关系图（5）实体属性图教师属性如图4.3 图4.3教师属性图工资属性如图4.4图4.4工资属性图职务属性如图4.5VB人事管理系统论文+数据流程图+ER图+功能模块图详细设计51数据库设计概述511数据库设计的特点1.数据库建设的基本规律：“三分技术，七分管理，十二分基础数据”。2.结构设计和行为设计相结合。512数据库设计方法1新奥尔良方法：该方法把数据库设计分为若干阶段和步骤，并采用一些辅助手段实现每一过程。它运用软件工程的思想，按一定的设计规程用工程化方法设计数据库。新奥尔良方法属于规范设计法。规范设计法从本质上看仍然是手工设计方法，其基本思想是过程迭代和逐步求精。2基于ER图模型的数据库设计方法。该方法用ER图模型来设计数据库的概念模型，是数据库概念设计阶段广泛采用的方法。3.3NF的设计方法。该方法用关系数据理论为指导来设计数据库的逻辑模型，是设计关系数据库时在逻辑阶段可以采用的一种有效方法。52数据库的概念设计概念结构的主要特点：1能真实、充分地反映现实世界，包括事物和事物之间的联系，能满足用户对数据的处理要求，是对现实世界的一个真实模型。2于理解，从而可以用它和不熟悉计算机的用户交换意见，用户的积极参与是数据库设计成功的关键。3易于更改，当应用环境和应用要求改变时，容易对概念模型修改和扩充；4易于向关系、网状、层次等各种数据模型转换。521程序流程图5. 3数据库逻辑设计逻辑结构设计分以下3部分：1将概念结构转换为一般的关系、网状、层次模型；2将转换的关系、网状、层次模型向特定DBMS支持下的数据模型转换；3对数据模型进行优化。图5.1逻辑结构设计时的3个步骤ER图转换为关系模型：教师信息：教师号，姓名，性别，出生日期，年龄，民族，籍贯，血型，学历，政治面貌，联系电话，家庭地址，部门代码，职务代码部门信息： 部门代号，部门名称，部门描述职务信息： 职务编码，职务名称，姓名，岗位任务描述工资信息： 工资卡号，教师号，姓名，工资编码，基本工资，津贴 54数据库中表的设计：表4-1职工信息表work列名数据类型说明教师号Char(10)教师号（主键）姓名Char(10)姓名性别Char(4)性别出生日期Date出生日期年龄Char(4)年龄籍贯Char(20)籍贯民族Char(10)民族血型Char(4)血型省份证号Char(18)身份证号政治面貌Char(10)政治面貌家庭住址Char(20)家庭住址联系电话Char(15)联系电话部门代号Char(4)部门代号（外键）职务编码Char(4)职务编号（外键）表4-2部门信息表 bumen列名数据类型说明部门号Char(4)部门代号（主键）部门名称Char(10)部门名称部门描述Varchar(100)部门职能描述表4-3职务信息表 zhiwu列名数据类型说明职务编号Char(4)职务编号（主键）职务名称Char(10) 职务名称教师姓名Char(10) 姓名任务描述Varchar(100)职务任务描述表4-4工资信息表 gongzi列名数据类型说明工资卡号Char(20)工资卡号（主键）教师号Char(10)教师号（外键）基本工资Numeric(10.2)基本工资教师姓名Char(10)姓名津贴Numeric(10.2)津贴总计Numeric(10.2)总计55数据库的物理设计551物理设计的步骤数据库的物理设计通常分为两步：确定数据库的物理结构，在关系数据库中主要指存取方法和存储结构；对物理结构进行评价，评价的重点是时间和空间效率。VB人事管理系统论文+数据流程图+ER图+功能模块图编码实现与测试结果61登录界面及代码图6.1登录界面代码如下：Option ExplicitConst MxUser = 100Public EmploID As IntegerPublic CurUser As StringPublic CurId As StringPublic CurPsw As StringDim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As StringPrivate Sub cmdOK_Click()If txtPassword = pws(Combo1.ListIndex) Then CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) Me.Hide FrmMain.Show Else MsgBox 密码错误请重新输入密码!, , Login txtPassword.SetFocus SendKeys Home+End End IfEnd SubPrivate Sub Command2_Click()Unload Me EndEnd SubPrivate Sub Form_Load()Dim i As Integer If App.PrevInstance Then MsgBox (程序已经运行，不能再次装载。), vbExclamation Unload Me End If i = 0Open App.Path + user.ini For Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) If state(i) = A Then Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1End Sub进入系统主界面：图6.2系统主界面代码如下：Private Sub bumen_Click(Index As Integer)DataReport2.ShowEnd SubPrivate Sub gongzi_Click(Index As Integer)DataReport1.ShowEnd SubPrivate Sub jiaoshi_Click(Index As Integer)DataReport4.ShowEnd SubPrivate Sub MAbout_Click()frmAbout.ShowEnd SubPrivate Sub Mhelp_Click()FrmHelp.ShowEnd SubPrivate Sub Moption_Click(Index As Integer)If Index = 0 Then FrmPsw.Show Else End End IfEnd SubPrivate Sub Mtab_Click(Index As Integer)Select Case I FrmMain.Hide frmzhiwu.Show End SelectEnd SubPrivate Sub zhiwu_Click(Index As Integer)DataReport3.ShowEnd Sub选择密码修改：图6.3密码修改界面代码如下：Option ExplicitConst MxUser = 100Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As StringPrivate Sub cmdCancel_Click()Me.HideEnd SubPrivate Sub cmdOK_Click()Dim fil, i, Usercount As IntegerIf TxtNew1.Text TxtNew2.Text Then MsgBox two times no yizhi TxtNew1.SetFocus TxtNew2.Text = SendKeys Home+End Exit Sub ElseIf Txtold.Text FrmLogin.CurPsw Then MsgBox old password wrong Txtold.SetFocus TxtNew1.Text = TxtNew2.Text = SendKeys Home+End Exit SubElse fil = FreeFile() Open App.Path + user.ini For Input As #fil i = 0 Do While Not EOF(fil) Input #fil, user(i), pws(i) Input #fil, state(i), Emplo(i) i = i + 1 Loop Usercount = i Close #fil pws(FrmLogin.CurId) = TxtNew1.Text FrmLogin.CurPsw = TxtNew1.Text fil = FreeFile() Open App.Path + user.ini For Output As #fil For i = 0 To Usercount - 1 Print #fil, user(i); ,; pws(i); ,; state(i); ,; Emplo(i) Next i Close #fil Txtold.Text = TxtNew1.Text = TxtNew2.Text = Me.Hide End IfEnd SubPrivate Sub Form_LostFocus()FrmPsw.SetFocusEnd SubPrivate Sub Form_Unload(Cancel As Integer)Unload MeEnd SubVB人事管理系统论文+数据流程图+ER图+功能模块图图6.4教师信息表界面代码如下：Private WithEvents PrimaryCLS As cls教师Dim mbChangedByCode As BooleanDim mvBookMark As VariantDim mbEditFlag As BooleanDim mbAddNewFlag As BooleanDim mbDataChanged As BooleanPrivate Sub Form_Load() Set PrimaryCLS = New cls教师 grdDataGrid.DataMember = Primary Set grdDataGrid.DataSource = PrimaryCLSEnd SubPrivate Sub Form_Resize() On Error Resume Next grdDataGrid.Height = Me.ScaleHeight - 30 - picButtons.Height - picStatBox.Height lblStatus.Width = Me.Width - 1500 cmdNext.Left = lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If mbEditFlag Or mbAddNewFlag Then Exit Sub Select Case KeyCode Case vbKeyEscape cmdClose_Click Case vbKeyEnd cmdLast_Click Case vbKeyHome cmdFirst_Click Case vbKeyUp, vbKeyPageUp If Shift = vbCtrlMask Then cmdFirst_Click Else cmdPrevious_Click End If Case vbKeyDown, vbKeyPageDown If Shift = vbCtrlMask Then cmdLast_Click Else cmdNext_Click End If End SelectEnd SubPrivate Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub PrimaryCLS_MoveComplete()lblStatus.Caption = Record: & CStr(PrimaryCLS.AbsolutePosition)End Sub(1)添加代码Private Sub cmdAdd_Click() On Error GoTo AddErr PrimaryCLS.MoveLast PrimaryCLS.AddNew grdDataGrid.SetFocus Exit SubAddErr: MsgBox Err.DescriptionEnd Sub(2)删除代码Private Sub cmdDelete_Click() On Error GoTo DeleteErr PrimaryCLS.Delete Exit SubDeleteErr: MsgBox Err.DescriptionEnd Sub(3)编辑代码Private Sub cmdEdit_Click() On Error GoTo EditErr lblStatus.Caption = 编辑记录 mbEditFlag = True SetButtons False Exit SubEditErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdCancel_Click() On Error Resume Next PrimaryCLS.Cancel SetButtons TrueEnd Sub(4)更新代码Private Sub cmdUpdate_Click() On Error GoTo UpdateErr PrimaryCLS.Update SetButtons True Exit SubUpdateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdFirst_Click() On Error GoTo GoFirstError PrimaryCLS.MoveFirst mbDataChanged = False Exit SubGoFirstError: MsgBox Err.DescriptionEnd SubPrivate Sub cmdLast_Click() On Error GoTo GoLastError PrimaryCLS.MoveLast mbDataChanged = False Exit SubGoLastError: MsgBox Err.DescriptionEnd SubPrivate Sub cmdNext_Click() On Error GoTo GoNextError PrimaryCLS.MoveNext Exit SubGoNextError: MsgBox Err.DescriptionEnd SubPrivate Sub cmdPrevious_Click() On Error GoTo GoPrevError PrimaryCLS.MovePrevious Exit SubGoPrevError: MsgBox Err.DescriptionEnd SubPrivate Sub SetButtons(bVal As Boolean) cmdAdd.Visible = bVal cmdUpdate.Visible = Not bVal cmdCancel.Visible = Not bVal cmdDelete.Visible = bVal cmdClose.Visible = bVal cmdNext.Enabled = bVal cmdFirst.Enabled