vb课程设计说明书格式.doc

课程设计说明书设计题目：物流管理信息系统之人员管理子系统设计专 业：_物流工程_ _班级：_ _设 计 人：_山东科技大学2015年 1 月 23 日课程设计任务书学院 交通学院 专业 物流工程 班级 姓名 一、课程设计题目：物流管理信息系统之人员管理子系统设计 二、课程设计主要参考资料：（1）刘天惠.Visual Basic程序设计教程M. 北京: 清华大学大学出版社，2003.12-24 （2）计算机职业教育联盟.VB程序设计基础教程与上机指导.北京：清华大学出版社 （3）课程设计指导书_ _ _ _三、课程设计应解决主要问题：（1）对人员基本信息进行添加，修改，删除，查询操作 （2）对人员的调动信息进行添加，删除，修改，查询操作 （3）用户的添加和修改以及报表的打印 四、课程设计相关附件（如：图纸、软件等）（1）软件源程序_ _（2）Microsoft Visual Basic 6.0_ _Microsoft SQL Server 2000_ _ _ _ _五、任务发出日期：_2015.1.12_ 课程设计完成日期：_2015.1.23_指导教师签字：_ 系主任签字：_指导教师对课程设计的评语指导教师签字： _ _年_月_日目录 1 引言11.1设计目的11.2设计背景21.3 支持软件22 系统分析32.1 需求分析32.2 功能分析32.3可行性分析33 结构设计43.1概念结构设计43.2逻辑结构设计43.3物理结构设计44 系统设计44.1窗体设计44.2安全设计54.3系统测试55 总结56 参考资料57 源程序清单5（生成完目录后删除空格，只更新页码即可，最后删除本句，保证1引言在下页）1 引言1.1设计目的物流企业人员信息管理系统的设计目的是帮助企业的管理者更好地管理员工信息，包括员工的基本信息管理，员工的调动信息管理，部门信息管理，职务信息管理，还可对员工的基本信息进行查询，添加，修改和删除等操作，对员工的调动信息进行查询，添加，修改和删除等操作，对部门信息、职务信息进行查询，添加，修改和删除等操作。使用本系统比使用人工的方法管理各式各样的文档方便可靠，也更正规化。1.2设计背景在过去，计算机不是很普及和计算机应用性不高的年代，人们使用人工的方法管理各式各样的档案，这种管理方式存在着很多缺点：效率底，保密性差，会产生大量的文件和数据，给查找，更新和维护信息都带来了相当大的困难。随着科学技术的不断发展，计算机科学日益成熟，其强大的计算功能已经被人们深刻地认识到，计算机在各行各业中发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对企业员工信息进行管理，具有人工方式所无法比拟的优越性。如，查找方便，可靠性高，存储容量大，保密性好，寿命长，成本低，维护十分方便等，这些优点能够极大得提高工作的效率，这也是企业的科学化、现代化、正规化的体现。1.3 支持软件微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统Visual Basic 6.0是一个相对较好的选择。本系统前台使用VB开发，后台使用SQLServer2000管理表单信息，前后台连接技术成熟可靠，本系统简单实用，满足物流企业的应用需求。2 系统分析2.1 需求分析通过用VB6.0编写人员信息管理系统，掌握 Visual Basic语言的数据类型、表达式、程序结构与流程控件语句、数组、函数、过程的概念与使用方法；掌握程序界面中菜单、工具栏、状态栏的设计方法，能用对话框设计单文档程序，掌握MDI多窗体程序的设计方法；了解数据库应用程序的结构，初步掌握以DATA控件、ADO控件、ADO对象为数据源，设计数据库应用程序的方法。该系统主要考虑了人员信息管理需求，支持多条件查询、修改、添加、查询、删除数据方便简单，数据稳定性好。(1)业务流程图管理员登录修改口令输入用户名和密码判断用户名和密码进入主界面退 出人员信息管理系统1系 统2 员工基本信息3员工调动信息5帮 助退 出添加员工信息修改员工信息查询员工信息添加调动信息修改密码添加用户删除员工信息修改调动信息查询调动信息员工基本信息员工调动信息删除调动信息关 于4打印报表（2）数据字典根据人员信息管理系统的需求，总结出下面的数据字典：用户数据：内部管理工作人员使用人员信息管理系统的身份数据，包括的数据项有用户名、密码。人员基本信息数据：包括的数据项有人员编号、人员姓名、性别、籍贯、年龄、生日、学历、专业、地址、电话、邮箱、入职时间、部门、职位等。人员调动信息数据：包括的数据项有人员编号、人员姓名、原部门、新部门、原职务、新职务、调动时间等。根据前面分析的数据字典，为每一个数据建立一个数据表。各个数据表的的结构分别如下:1)用户数据表用户数据表命名为“admin”，其结构如表2-1所示。表2-1 用户表列名数据类型长度说明idInt4Not NullnameNvarchar50Not NullpasswordNvarchar50Not Null2)人员基本信息表人员基本信息表命名为“staff”，其结构如表2-2所示。表2-2 人员基本信息表列名数据类型长度说明idInt4Not NullnoNvarchar50Not NullnameNvarchar50Not NullgenderNvarchar50Not NulldeptNvarchar50Not NulljobNvarchar50Not NullmajorNvarchar50Not NullEmailNvarchar200Not NullbirthNvarchar50Not NullphoneNvarchar50Not NulladdressNvarchar200Not NullnatNvarchar200Not NulleducationNvarchar50Not Null3)部门信息表部门信息表命名为“dept”，其结构如表2-3所示。表2-3 部门信息表列名数据类型长度说明idInt4Not NullnoNvarchar50Not NullnameNvarchar50Not Null4)人员调动息表人员调动息表命名为“diaodong”，其结构如表2-4所示。表2-4 人员调动息表列名数据类型长度说明idInt4Not NullnoNvarchar50Not NullnameNvarchar50Not Nullold deptNvarchar50Not Nullold jobNvarchar50Not Nullnew deptNvarchar50Not Nullnew jobNvarchar50Not NulltimeNvarchar50Not Null5)职位信息表职位信息表命名为“job”，其结构如表2-5所示。表2-5 职位信息表列名数据类型长度说明idInt4Not NullnoNvarchar50Not NullnameNvarchar50Not Null2.2 功能分析企业的管理者可以管理员工信息，包括员工的基本信息管理，员工的调动信息管理，部门信息管理，职务信息管理，还可对员工的基本信息进行查询，添加，修改和删除等操作，对员工的调动信息进行查询，添加，修改和删除等操作，对部门信息、职务信息进行查询，添加，修改和删除等操作，也可以进行报表的打印。真正实现了人员信息管理的自动化和信息化。2.3可行性分析（1）经济性企业运营过程中信息的系统化管理，为企业的经营决策者提供了大量的、权威的科学依据，简化了员工的日常工作，提高了工作效率，避免了人工管理过程中数据易错所带来的一系列的连锁反应，提高了企业的经济效益。（2）操作性系统管理员很容易对系统内容信息进行操作管理，并不需要多么专业的计算机知识，操作简单，完全满足日常经营和管理的要求，方便实用，利于企业的信息管理。（3）技术性本系统前台使用VB编程语言，后台使用SQLServer2000，技术成熟可靠，使用这些技术开发出来的系统稳定可靠，完全可以满足企业的应用需求，企业选用这些技术是完全可行的。3 结构设计3.1概念结构设计用户名（1）局部E-R模型用 户密 码 图3-1 用户实体及其属性编 号部 门名 称图3-2 部门实体及其属性编 号职 务名 称图3-3 职务实体及其属性学历生日籍贯年龄性别姓名编号员 工专业入职时间邮箱电话职位部门地址图3-4 员工实体及其属性人员编号原部门新部门记录编号人 员 调 动调入时间调出时间新职务原职务图3-5 人员调动实体及其属性（2）实体间联系E-R模型人员基本信息管 理人员调动信息人 员 调 动调 动用 户人员基本信息表人员调动信息表打 印图3-6 用户、员工、调动之间联系E-R图属 于部 门员 工任 职职 务图3-7 员工、职务、部门之间联系E-R图3.2逻辑结构设计逻辑结构设计的实质是把E-R图转化为具体的DBMS支持的数据模型。初步设计：根据转换规则，把E-R图转换为关系模型。优化设计：对模型进行调整和改善。将E-R图转换为关系模式：（1）用户（用户名，密码），主码是用户名。（2）人员基本信息（编号、姓名、性别、年龄、籍贯、生日、学历、地址、部门、职位、电话、邮箱、专业、入职时间），主码是编号。（3）人员调动信息（记录编号、人员编号、新部门、原部门、新职务、原职务、调动时间），记录编号、人员编号是主码。（4）管理（编号、人员编号），主码为两个属性的组合。（5）调动（编号、人员编号、调动时间），主码为两个属性的组合。3.3物理结构设计4 系统设计4.1窗体设计（1）用户登录窗体图4-1 用户登录窗体图（2）系统主窗体图4-2 主窗体图（3）用户管理窗体图4-3 系统用户管理窗体图（4）人员基本信息管理窗体图4-4 人员基本信息管理窗体图（5）人员调动管理图4-5 人员调动窗体图（6）人员调动信息管理窗体图4-6 人员调动信息管理窗体图（7）部门信息管理窗体图4-7 部门信息管理窗体图（8）职务信息管理窗体图4-8 职务信息管理窗体图（9）员工基本信息打印窗体图4-9 员工基本信息打印窗体图（10）人员调动信息打印图4-10 人员调动信息打印窗体图4.2安全设计4.3系统测试对于本系统的测试，可以采用多种方法，有模块测试，子系统测试和系统测试。测试的主要目的就是要完善好系统，发现迄今为止尚未发现的测试方案，对于发现的错误要足够重视并加以修改，而对于系统的维护方面，在管理信息系统投入日常运行后，系统维护人员就要不断对它进行维护，使程序和运行始终处于最佳的工作状态。一般来说，用于系统维护的费用比建立系统所花的费用多一倍以上。其中，维护是多方面，具体内容有以下4个方面：1、程序的维护2、数据的维护3、代码的维护4、设备的维护。有些细节方面也得注意，维护时一定要确定维护目标，有专业的维护组织，建立维护计划方案，而且要修改程序和调试，软件修改调试通过后，则可修改相应文档并结束本次维护过程。5 总结通过本此课程设计，让我更进一步地掌握了数据库应用课程的相关知识，熟悉了创建数据库管理系统的全过程。较好地掌握了运用SQL语言和视图创建单表和多表查询以及存储过程的参数查询，同时也掌握了创建vb前台设计的方法。在数据库的设计过程中，我遇到了种种困难，比如各实体的类型及其联系的确定、多表联合创建视图、，但在老师的帮助下，把问题一个有一个地解决了。每一个问题的解决都加深了对数据库的了解。不过，由于专业知识的限制，所制作的工资管理系统仍然存在一些问题，如系统功能单一、属性比较简单等，今后需要进一步学习，继续完善系统的功能。通过本次课程设计，使我从更深的层次了解了VB的设计技巧和应用方法。在程序的编制和调试过程中，我从中学到了很多有用的方法，比如通过本次设计，我更深刻的体会到了VB系统的方便与实用。在课程设计的过程中，我对课本上的知识进行了复习，从中找出了不少盲点，由衷地感觉到学习过程中应该把学的知识作扎实，多动手多思考，这样才能最大限度的减少知识的漏洞。 把课本上的东西变成实际的东西，让其有使用的价值，是一件很让人高兴的事。我切实的体会到VB这门课程是有用处的，它解释了我平时学习中的很多疑惑，让我增长了很多见识。 6 参考资料1.高春艳，李艳，谷伟东. Visual Basic数据库开发关键技术与实例应用M，人民邮电出版社，2004.122.刘天惠.Visual Basic程序设计教程M. 北京: 清华大学大学出版社，2003.12-24 3.龚沛曾.Visual Basic程序设计教程M. 高等教育出版社, 2004.28-454.蒋加伏.Visual Basic程序设计教程M.北京: 北京邮电大学出版社，2003-10.265.Microsoft .Visual Basic 6.0 中文版控件大全M北京：电子工业出版社,2004.15237 源程序清单（1） 登录Option ExplicitPublic conn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic db As StringPrivate sSql As StringPrivate Sub Form_Load() Dim i As Integer On Error GoTo Err db = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mstaff;DataSource=. conn.CursorLocation = adUseClient conn.Open db Exit Sub Err: MsgBox Err.Number Unload MeEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)EndEnd SubPrivate Sub Image1_Click()End SubPrivate Sub lgbt_Click() sSql = select * from admin where uname= & unamei.Text & and upassword= & upasswordi.Text & If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic If rs.EOF Then MsgBox 用户名或密码错误。 Exit Sub End If unamei.Text = upasswordi.Text = Me.Hide mainfrm.ShowEnd SubPrivate Sub rsbt_Click()unamei.Text = upasswordi.Text = End Sub（2）人员信息管理系统（MID主窗体）Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)EndEnd SubPrivate Sub Image1_Click()End SubPrivate Sub menuaa_Click()Me.Enabled = Falsemadmin.ShowEnd SubPrivate Sub menuab_Click()Me.Hidelogin.ShowEnd SubPrivate Sub menub_Click()Me.Enabled = Falsemstaff.ShowEnd SubPrivate Sub menuca_Click()Me.Enabled = Falsemdd.ShowEnd SubPrivate Sub menucb_Click()Me.Enabled = Falsediaodong.ShowEnd SubPrivate Sub menuda_Click()mdept.ShowMe.Enabled = FalseEnd SubPrivate Sub menudb_Click()Me.Enabled = Falsemjob.ShowEnd SubPrivate Sub menuea_Click()Me.Enabled = Falsesinfo.ShowEnd SubPrivate Sub menueb_Click()Me.Enabled = Falseddinfo.ShowEnd SubPrivate Sub menufa_Click()about.Showtest.ShowEnd Sub（3）系统用户管理Option ExplicitPublic conn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic db As StringPrivate sSql As StringPrivate Sub addbt_Click()If unamei.Text = Or upasswordi.Text = Then MsgBox 账号和密码不能为空。 Exit SubEnd IfsSql = insert into admin(uname,upassword) values( & unamei.Text & , & upasswordi.Text & )conn.Execute sSqlsSql = select * from admin If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set alist.DataSource = rs unamei.Text = upasswordi.Text = idi.Caption = End SubPrivate Sub alist_Click()If rs.EOF Then Exit Subunamei.Text = rs.Fields(uname)upasswordi.Text = rs.Fields(upassword)idi.Caption = rs.Fields(id)End SubPrivate Sub delbt_Click()If idi.Caption = Then MsgBox 请选择想要删除的信息 Exit SubEnd IfIf MsgBox(你确定要删除该信息么？, vbOKCancel, 提示) = vbOK Then sSql = delete from admin where id= & idi.Caption conn.Execute sSql sSql = select * from admin If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set alist.DataSource = rs unamei.Text = upasswordi.Text = idi.Caption = End IfEnd SubPrivate Sub Form_Load() Dim i As Integer On Error GoTo Err db = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mstaff;DataSource=. conn.CursorLocation = adUseClient conn.Open db sSql = select * from admin If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set alist.DataSource = rs Exit Sub Err: MsgBox Err.Number Unload MeEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)mainfrm.Enabled = TrueSet rs = NothingSet alist.DataSource = rsconn.CloseEnd SubPrivate Sub Image1_Click()End SubPrivate Sub resbt_Click()idi.Caption = unamei.Text = upasswordi.Text = End SubPrivate Sub updbt_Click()If idi.Caption = Then MsgBox 请选择想要修改的信息 Exit SubEnd IfIf unamei.Text = Or upasswordi.Text = Then MsgBox 账号和密码不能为空。 Exit SubEnd IfsSql = update admin set uname= & unamei.Text & ,upassword= & upasswordi.Text & where id= & idi.Captionconn.Execute sSqlsSql = select * from admin If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set alist.DataSource = rs unamei.Text = upasswordi.Text = idi.Caption = End Sub（4）人员基本信息管理Option ExplicitPublic conn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic rst As New ADODB.RecordsetPublic db As StringPrivate sSql As StringPrivate Sub addbt_Click()If depti.Text = Or jobi.Text = Then MsgBox 部门或职务不能为空。 Exit SubEnd IfIf snoi.Text = Or snamei.Text = Or phonei.Text = Or addri.Text = Or nati.Text = Or edui.Text = Or birthi.Text = Then MsgBox 请输入完整的员工信息。 Exit SubEnd IfsSql = select id from staff where sno= & snoi.Text & If rs.State adStateClosed Then rs.Closers.Open sSql, conn, adOpenStatic, adLockBatchOptimisticIf Not rs.EOF Then MsgBox 用户编号已被注册。 Exit SubEnd IfsSql = insert into staff(sno,sname,gender,dept,job,birth,phone,addr,nat,education,major,email) values( & snoi.Text & , & snamei.Text & , & genderi.Text & , & depti.Text & , & jobi.Text & , & birthi.Text & , & phonei.Text & , & addri.Text & , & nati.Text & , & edui.Text & , & majori.Text & , & emaili.Text & )conn.Execute sSqlMsgBox 添加成功。idi.Caption = snoi.Text = snamei.Text = genderi.ListIndex = 0depti.ListIndex = 0jobi.ListIndex = 0birthi.Text = phonei.Text = addri.Text = edui.Text = nati.Text = majori.Text = emaili.Text = End SubPrivate Sub chckbt_Click() If csnoi.Text Then sSql = select * from staff where sno= & csnoi.Text & If rst.State adStateClosed Then rst.Close rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set slist.DataSource = rst Exit Sub End If If csnamei.Text Then sSql = select * from staff where sname like % & csnamei.Text & % and dept= & cdepti.Text & If rst.State adStateClosed Then rst.Close rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set slist.DataSource = rst Exit Sub End If sSql = select * from staff where dept= & cdepti.Text & If rst.State adStateClosed Then rst.Close rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set slist.DataSource = rstEnd SubPrivate Sub delbt_Click()If idi.Caption = Then MsgBox 请选择想要删除的信息 Exit SubEnd IfIf MsgBox(你确定要删除该信息么？, vbOKCancel, 提示) = vbOK Then 删除信息 sSql = delete from staff where id= & idi.Caption conn.Execute sSql If csnoi.Text Then sSql = select * from staff where sno= & csnoi.Text & If rst.State adStateClosed Then rst.Close rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set slist.DataSource = rst Exit Sub End If If csnamei.Text Then sSql = select * from staff where sname like % & csnamei.Text & % and dept= & cdepti.Text & If rst.State adStateClosed Then rst.Close rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set slist.DataSource = rst Exit Sub End If sSql = select * from staff where dept= & cdepti.Text & If rst.State adStateClosed Then rst.Close rst.Open sSql, conn, adOpenStatic, adLockBatchOptimistic Set slist.DataSource = rstidi.Caption = snoi.Text = snamei.Text = genderi.ListIndex = 0depti.ListIndex = 0jobi.ListIndex = 0birthi.Text = phonei.Text = addri.Text = edui.Text = nati.Text = majori.Text = emaili.Text = End IfEnd SubPrivate Sub Form_Load()Dim i As Integer On Error GoTo Err db = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mstaff;DataSource=. conn.CursorLocation = adUseClient conn.Open db genderi.AddItem 男 genderi.AddItem 女 genderi.ListIndex = 0 sSql = select * from job If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic While Not rs.EOF jobi.AddItem rs.Fields(jname) rs.MoveNext Wend jobi.ListIndex = 0 sSql = select * from dept If rs.State adStateClosed Then rs.Close rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic While Not rs.EOF depti.AddItem rs.Fields(deptname) cdepti.AddItem rs.Fields(deptname) rs.MoveNext Wend depti.ListIndex = 0 cdepti.ListIndex = 0 Exit Sub Err: MsgBox Err.Number Unload MeEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)mainfrm.Enabled = TrueSet rs = NothingSet rst = NothingSet slist.DataSource = rstconn.CloseEnd SubPrivate Sub resbt_Click()idi.Caption = snoi.Text = snamei.Text = genderi.ListIndex = 0depti.ListIndex = 0jobi.ListIndex = 0birthi.Text = phonei.Text = addri.Text = edui.Text = nati.Text = majori.Text = emaili.Text = End SubPrivate Sub slist_Click()If rst.EOF Then Exit Subidi.Caption = rst.Fields(id)snoi.Text = rst.Fields(sno)snamei.Text = rst.Fields(sname)genderi.Text = rst.Fields(gender)depti.Text = rst.Fields(dept)jobi.Text = rst.Fields(job)birthi.Text = rst.Fields(birth)phonei.Text = rst.Fields(phone)addri.Text = rst.Fields(addr)edui.Text = rst.Fields(education)nati.Text = rst.Fields(nat)majori.Text = rst.Fields(major)emaili.Text = rst.Fields(email)End SubPrivate Sub updbt_Click()If idi.Caption = Then MsgBox 选择需要修改的信息. Exit SubEnd IfIf depti.Text = Or jobi.Text = Then MsgBox 部门或职务不能为空。 Exit SubEnd IfIf snoi.Text = Or snamei.Text = Or phonei.Text = Or addri.Text = Or nati.Text = Or edui.Text = Or birthi.Text = Then MsgBox 请输入完整的员工信息。 Exit SubEnd IfsSql = select id from staff where sno= & snoi.Text & If rs.State adStateClosed Then rs.Closers.Open sSql, conn, adOpenStatic, adLockBatchOptimisticWhile Not rs.EOF Dim idd As String idd = rs.Fields(i