基于VB的小型企业信息人员管理系统课程设计报告.doc

测试与光电工程学院课程设计课题申报表 测控技术与仪器 系 2009 级学生相关课程VB等指导教师程强强学生人数1课题名称基于VB的小型企业信息人员管理系统设计地点逸夫楼205课题工作内容本课程设计旨在训练和提高学生综合运用VB语言进行编程的能力，使学生更加系统的理解和掌握VB语言的基本概念、语言特点和编程技巧。本课题的基本内容有：1、可存储公司人员的基本信息包括：工号、姓名、年龄、岗位、性别； 2、根据工号可查找某员工的所有基本信息； 3、根据工号可删除和修改某员工信息； 4、可添加新员工的基本信息； 软件调试成功后需进行课程设计报告的撰写，课程设计报告的格式完全参照本科毕业设计（大论文）的格式。课题来源课题性质使用计算机情况自编软件40小时系负责人签字： 申报人：程强强2011年11月10日测试与光电工程学院课程设计任务书 测控技术与仪器 系090813班 学号09081313姓名曹爱松课题名称：小型公司的人员信息管理系统课题要求： 1、可存储公司人员的基本信息包括：工号、姓名、年龄、岗位、性别； 2、根据工号可查找某员工的所有基本信息； 3、根据工号可删除和修改某员工信息； 4、可添加新员工的基本信息； 课题进程： 1、第11、12周查找资料，确定开发程序的环境。 2、第13-16周编写、调试程序。 3、第16周周末编写课程设计报告。 指导教师：程强强目录前言4一、课程设计目的与要求51.1 课程设计目的51.2 课程设计的实验环境51.3 课程设计的预备知识51.4 课程设计要求5二、课程设计内容62.1设计说明书62.2 设计方法及源代码62.2 系统流程图15三、课程设计总结、心得与体会18四、致谢18参考文献19前言VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据链接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。 已完成的应用程序是使用Visua l Basic虚拟机真正. exe文件，可以自由发布VB中几个 常用术语：工程（ Project ）是指用于创建一个应用程序的文件的集合。对象（ Object ）可控制的某个东西，VB中主要有两类对象：窗体和控件。应用程序的用户界面， 即 Windo ws。 窗体 （ Form）： 控件（ Control ）指的是各种按钮、标签、文本框等 。属 性 （ Property ）是指对象的特征，如大小、标题或颜色。Active X ：ActiveX 是基于Co mpon ent Ob jec t Mode l (COM)的可视化控件结构的商标名称。它是一种封装技术，提供封装COM 组件并将其置入应用程序（如Web浏览器）的一种方法。Componen ts Objec t M odel (COM)： 是软件组件互相通讯的一种方式。它是一种二进制和网络标准，允许任意两个组件互相通讯，而不管它们是在什么计算机上运行（只要计算机是相连的），不管各计算机运行的是什么操 作系统（只要该操作系统支持COM）也不管该组件是用什么语言编写的。一、课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2 课程设计的实验环境设计环境：(1). 硬件环境 CORE I 3微机，内存2GB。(2). 操作系统 Windows XP。(3). 编程环境 Visual Basic 6.0程序设计语言，Access2003数据库。1.3 课程设计的预备知识 熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧和Access 2003数据库的相关知识。1.4 本课题的基本内容：本课程设计旨在训练和提高学生综合运用VB语言进行编程的能力，使学生更加系统的理解和掌握VB语言的基本概念、语言特点和编程技巧。按课程设计指导书提供的课题，设计一个完整的信息管理应用程序。要求根据规定设计管理系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据后面给出的基本学时分配合理安排设计时间，并独立完成各方面的设计。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。 1、可存储公司人员的基本信息包括：工号、姓名、年龄、岗位、性别； 2、根据工号可查找某员工的所有基本信息； 3、根据工号可删除和修改某员工信息；4、 可添加新员工的基本信息；二、课程设计内容2.1设计说明书1、设计“用户登录界面”窗体，登录分为管理员登录和普通用户登录两类。2、设计“管理员登录界面”窗体。“管理员登录界面”窗体中要输入用户名和密码。其中，用户名和密码的设置值为默认值。窗体中有两个按钮，分别为登录和返回。登录是进入“人员管理管理员”窗体，返回是回到“用户登录界面”窗体。3、分别设计“人员管理管理员”窗体和“人员管理普通用户”窗体。两个窗体基本格式相同，窗体中有两个菜单，分别为“编辑”和“查询”。“编辑”菜单中有两个子菜单分别是“员工”和返回”；“查询”菜单中有一个子菜单“工号”。当为管理员登录时，“编辑”和“查询”两个菜单均显示，当普通用户登录时，只显示“查询”菜单。管理员可以根据“员工”选项添加，更改，删除员工的信息；普通用户可以根据“工号”查询自己的或者是其他员工的信息。“返回”选项返回至上一个窗体。4、设计“基本信息编辑器”窗体。管理员在此编辑员工的信息，普通员工在此查询自己的或者是其他员工的信息。在此窗体中加入了Adodc控件，用于连接VB窗体和Access 2003数据库。2.2设计方法及源代码1、 设计“用户登录界面”窗体 “普通用户”按钮的事件代码 Private Sub CommandNormal_Click() frmMain.Show Me.Hide frmMain.mnuAdd.Enabled = False frmMain.mnuAddc.Enabled = True frmMain.Caption = 人员管理-普通用户End Sub “管理员”按钮的事件代码Private Sub CommandManage_Click() frmlgin.Show Me.Hide frmlgin.txtuser.Text = frmlgin.txtPassword.Text = frmlgin.txtuser.SetFocusEnd Sub “退出”按钮的事件代码Private Sub CommandExit_Click() Unload MeEnd Sub2、设计“管理员登录界面”窗体。 “登录”按钮的事件代码Private Sub CommandLgin_Click() If txtuser.Text = And txtPassword.Text = Then frmMain1.Show Me.Hide frmMain1.mnuAdd.Enabled = True frmMain1.mnuAddc.Enabled = False frmMain1.Caption = 人员管理-管理员 Else txtuser.Text = txtPassword.Text = txtuser.SetFocus k = k + 1 If k 3 Then MsgBox 密码错误，还有 & (3 - k) & 次机会, vbCritical, 输入错误 Else MsgBox 抱歉！密码错误，您无权使用本系统！, vbInformation, 结束信息 End End If End IfEnd Sub“返回”按钮的事件代码Private Sub CommandBack_Click() frmsystem.Show Me.HideEnd Sub3、设计“人员管理管理员”窗体“员工”按钮的事件代码 Private Sub mnuy_Click() frmedit.Show Me.Hide End Sub “返回”按钮的事件代码 Private Sub mnub_Click() frmlgin.Show Me.Hide End Sub 4、设计“人员管理普通用户”窗体 “员工”按钮的事件代码 Private Sub mnuy_Click() frmedit.Show Me.Hide End Sub “返回”按钮的事件代码 Private Sub mnub_Click() frmlgin.Show Me.Hide End Sub 5、设计“基本信息编辑器”窗体 “添加”按钮的事件代码 1Private Sub cmdadd_Click()Dim mu As IntegerIf cmdadd.Caption = 添加 ThenAdodc1.Recordset.MoveLastnu = Adodc1.Recordset(编号) + 1Adodc1.Recordset.AddNewcmdadd.Caption = 确定Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseElseanswer = MsgBox(确定要增加该条记录吗？, vbYesNo, 增加记录)If answer = vbYes ThenAdodc1.Recordset.UpdateMsgBox 添加成功！, , 添加记录ElseAdodc1.Recordset.CancelUpdateEnd IfText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueCommand2.Caption = 新增Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueEnd IfEnd Sub“删除”按钮的事件代码 2Private Sub cmddelete_Click()Dim anwser As Stringanwser = MsgBox(确实删除该记录吗？, vbYesNo + vbQuestion, 警告)If anwser = vbYes Then If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst Else MsgBox 数据库没有记录！, vbCritical, 警告 End If End IfEnd Sub“搜索”按钮的事件代码 3Private Sub cmdsearch_Click() Dim Snumber As String Snumber = InputBox(请输入工号, 查找工号) If Snumber Then Snumber = SID= & Snumber & Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find SnumberEnd IfIf txtgh(0).Text = Then MsgBox 未找到匹配的记录, vbCritical, 警告 Adodc1.Recordset.MoveFirstEnd IfEnd Sub“修改按钮的事件代码 4Private Sub cmdsearch_Click() Dim Snumber As String Snumber = InputBox(请输入工号, 查找工号) If Snumber Then Snumber = SID= & Snumber & Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find SnumberEnd IfIf txtgh(0).Text = Then MsgBox 未找到匹配的记录, vbCritical, 警告 Adodc1.Recordset.MoveFirstEnd IfEnd Sub“上一条”按钮的事件代码 5Private Sub cmdprevious_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst cmdprevious.Enabled = False MsgBox 已经是第一条记录, vbCritical, 警告 Else cmdnext.Enabled = True cmdprevious.Enabled = True End IfEnd Sub“下一条”按钮的事件代码 6Private Sub cmdpreviousd_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst cmdprevious.Enabled = False MsgBox 已经是第一条记录, vbCritical, 警告 Else cmdnext.Enabled = True cmdprevious.Enabled = True End IfEnd Sub“Adodc”控件的事件代码 7Private Sub Adodcinfo_Click()Dim cn As New ADODB.Connectioncn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db1.mdbcn.Execute insert into admin (zhanghao,mima) values ( & Text1.Text & , & Text2.Text & )cn.CloseMsgBox 保存完毕！ End Sub2.3系统流程图说明：以下是对应上面系统功能模块实图的系统流程图，因为制图的不便，故只将成功完成一次操作的流程给出，而“各个流程中中途如果输入了菜单中没有的项以及数据保存文件中没有的数据而被强制退出”的流程因为过于复杂（每步都要进行判断）而没有给出，实际情况一试便知。在此我对此表示深深的歉意，我以后一定会努力完善我们各方面的工作的。 三、总结、心得与体会通过这次课题设计，我觉得做好一个程序，灵活运用是关键。把基础学好不一定能把程序编好，但基础知识不好，一定编不出好程序。做大规模的程序不只是一个人努力就行了，一定要有团队合作能力。编程最主要是思路清晰，只要你把思路理顺了，就有利于你在编程的过程中少走弯路。 运行正确的程序并不一定是好程序，编程员时刻要牢记的一条就是自己写的程序不仅是给自己看的，也要让别人能轻易地看懂。我们在分块设计时就因为都太“以自我为中心“了，直接导致最后把程序汇总的时候才发现”错误“一大堆！当然、这也使我们更加体会到了程序可读性的重要之所在。要想学好VB我觉得除了在课堂上认真学习之外也要做好以下几点：1.认真对待每一个程序的编写 2.做好对每一个所编程序的总结 3.写程序尽量要规范、严谨，效率尽量要高 4.养成自我测试的习惯 5.多看一些别人编的程序，把好的思路和方法记下来，以备不时之需 6.要有恃之以恒的精神以及严谨的科学研究作风 在这短短的两个星期的努力奋斗中、在程老师的辛勤指导下。我终于把本次课题设计顺利完成。回想起课题设计过程中面对程序错误一大堆的失望与成功完成程序中每一个模块的喜悦时，我真正的体会到了：1.团队合作的好坏直接影响到了做好一件工作的质量与效率；2.细节决定成败；