高校学生管理系统软件毕业论文.doc

目 录绪论1项目背景及意义2第一章 概述31.1开发工具及相关技术介绍3第二章 系统需求分析42.1系统功能描述42.2数据库设计63.2主界面83.3学生管理模块83.9系部管理模块223.14开发团队界面38第四章 系统测试394.1测试概述394.2主要测试功能39致谢40结束语41附录142参考文献43绪论随着计算机产业的迅速发展，计算机已被广泛应用于各行各业，为了创造更大的经济效益和社会效益，更有效地参与国际竞争，各大企业、公司及高校积极引入现代化的管理工具，计算机大容量的操作、精确的计算、高速的执行效率使其成为高校管理不可或缺的手段之一。与此同时，用户对与计算机兼容的软件提出更高需求，鉴于此，开发高效学生管理系统既可以适应新形势要求，提高高校学生管理效率，同时，作为学生通过毕业设计开发此系统可以培养学生开发与设计能力，提高综合运用所学知识和技能去分析、解决问题的实际操作能力，提高学生独立思考能力和团队协作的工作作风，积累系统开发经验，为以后走向社会做必要准备。项目背景及意义随着学校招生规模的扩大，人员的增多，学生管理的压力越来越大，为了更好地进行管理，提高管理效率，减轻工作负担，有必要开发适应新形势下的学生管理软件；同时新的开发软件应不断更新升级，数据库技术应进一步完善，而现行的学生管理系统存在某些不足与缺陷，因此对学生管理系统软件提出更高要求。高校学生管理系统软件是一套功能相对完善的数据库管理软件，该软件采用功能强大的数据库软件及更新的开发工具开发，数据操作方便简洁，快速高效，可用于多种不同的操作系统，可移植性良好；同时该软件提供了一套有效的安全机制，通过权限管理与数据备份还原功能确保数据的安全、有效、完整。第一章 概述1.1开发工具及相关技术介绍1.1.1开发工具介绍SQL Server 2005是一个高性能的关系型数据库管理系统，其功能强大，适合于大中型企业数据管理，它是SQL Server2000数据库的进一步升级，集企业管理器与查询分析器于一身，操作方便、快捷，其安全性良好。用户可以方便的创建数据库、数据表，并建立存储过程、函数、索引、触发器等，同时，用户也可以通过建立角色，分配不同权限，实现保密性集安全性操作。Visual Basic其具有完全面向对象特征，及结构化的错误处理机制；是微软核心的软件开发平台，它建立在CLR（公共语言运行时）基础上，兼容各种主流的编程语言，提供了一致的核心类库和开发框架。其功能强大，程序界面更标准，程序代码结构化更强，开发环境舒适体贴。运用该软件可以方便的创建类，对相关代码进行封装，确保数据库内容的安全性。同时通过创建函数，可以方便快捷的调用在SQL Server 2005中创建的存储过程，其执行效率高，运行速率快，适合大中型企业进行数据库开发。1.1.2相关技术简介高校宿舍管理系统主要利用SQL Server2005数据库创建存储过程，对数据库中相关数据进行检索，并随SQL语句进行封装，利用存储过程来调用。在Visual Basic 中通过创建类，在类中创建函数，通过函数添加参数调用存储过程，以便于在前台程序中调用类，在类中创建的函数将作为方法被调用。通过类可以简化前台代码，提高程序执行效率，提高程序安全性。调用类要使用New关键字对类进行实例化，创建类的对象，对象的方法。该系统全面利用所学存储过程、函数及类，实现程序的简捷化操作。同时，该系统在编码过程中使用嵌套Select语句，处理各种因不同对象产生的不同的查询情况。第二章 系统需求分析2.1系统功能描述2.1.1功能描述高校学生管理系统是为方便学生管理，提高管理与工作效率，减轻工作负担，改善现有系统的某些弊端，实现系统的升级与更新而开发学生管理系统。针对的用户是中小型院校及相关单位，人员管理相当较少，其主要实现以下功能：学生信息的添加、修改、删除与查询学生考勤的添加、修改、删除与查询学生成绩的添加、修改、删除与查询学生奖惩的添加、修改、删除与查询学籍信息的添加、修改、删除与查询班级信息的添加、修改、删除与查询课程信息的添加、修改、删除与查询专业信息的添加、修改、删除与查询系部信息的添加、修改、删除与查询系统用户的添加、修改、删除与查询用户类型的添加、修改、删除与查询查询用户的登录记录2.1.2性能描述、性能相当良好、稳定，较好的实现所需功能，并能对错误信息进行反馈与处理。其主要体现在以下几方面：A、能够实现对学生信息的存储、管理及相关操作B、能够实现对学生、系部、班级相关信息的存储、管理等操作C、能够实现对用户及相关工作人员信息的存储、管理等相关操作D、能够实现对学生表彰、违规信息的管理与检索查询E、能够提供一定的安全机制，确保数据信息的安全、完整、有效，防止信息丢失及违规操作F、能够记录所有用户的登录工作时间。J、查看系统开发小组信息。2.1.3输入描述课程号、课程名称、开课专业、课时、开课学年、课程学分、课程类型、教材编号、系部、班级、备注。学号、姓名、性别、系部、专业、班级、出生日期、入学时间、联系电话、民族、政治面貌、家庭地址。系部编号、系部名称、系主任、系部电话。用户名、用户密码、用户类型。用户类型、权限、备注。班级编号、班级名称、系部、专业、班主任、入学时间。专业编号、专业名称、专业年制。学籍编号、变动日期、姓名、性别、变动类型、转入学校、原班级代码、变动原因。成绩编号、科目、学号、班级、成绩、系部、专业。奖惩编号、学号、时间、活动名称、类型、班级、系部、专业、备注。考勤编号、系部、专业、班级、学号、科目、时间、周数、请假、旷课、迟到、早退。2.1.4输出描述学生基本信息（学号、姓名、性别、系部、专业、班级、出生日期、入学时间、联系电话、民族、政治面貌、家庭地址）；学生考勤信息（考勤编号、系部、专业、班级、学号、科目、时间、周数、请假、旷课、迟到、早退）学生成绩信息（成绩编号、科目、学号、班级、成绩、系部、专业）学生奖惩信息（奖惩编号、学号、时间、活动名称、类型、班级、系部、专业、备注）；课程信息（课程号、课程名称、开课专业、课时、开课学年、课程学分、课程类型、教材编号、系部、班级、备注）；专业信息（专业编号、专业名称、专业年制）；学籍信息（学籍编号、变动日期、姓名、性别、变动类型、转入学校、原班级代码、变动原因）；班级信息（班级编号、班级名称、系部、专业、班主任、入学时间）；学生系部信息（系部编号、系部名称、系主任、系部电话）；用户信息（用户名、用户密码、用户类型）；用户类型信息（用户类型、权限、备注）；英文及汉字的输出2.1.5安全性与保密性描述 提供一定的安全机制，防止数据信息的丢失或因其他外在因素而发生的意外情况，保证信息的完整、有效及安全。2.2数据库设计2.2.1数据库 SQL Server 20052.2.2高校学生管理系统关系图3.2主界面3.3学生管理模块3.3.1学生管理主界面Private Sub Command1_Click() Text1 = LTrim$(Text1.Text)Text1 = RTrim$(Text1.Text) d = select * from V学生 where 学号= & Text1 & If rs.State = 1 Then rs.Close rs.Open d, conn, 3, 1 If rs.RecordCount = 0 Then MsgBox 无法找到你所要找的信息！ Text1 = Text1.SetFocus Exit Sub Else Set DataGrid1.DataSource = rs End IfEnd SubPrivate Sub Command2_Click() Text2 = LTrim$(Text2.Text) Text2 = RTrim$(Text2.Text) d = select * from V学生 where 姓名= & Text2 & If rs.State = 1 Then rs.Close rs.Open d, conn, 3, 1 If rs.RecordCount = 0 Then MsgBox 无法找到你所要找的信息！ Text2 = Text2.SetFocus Exit Sub Else Set DataGrid1.DataSource = rs End IfEnd SubPrivate Sub Command4_Click()xstj.Show 1End SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Command6_Click()kqgl.Show 1End SubPrivate Sub Command7_Click() If Text = Then MsgBox 请在学号处输入您要删除的学生的学号！ Text1.SetFocus Exit Sub End If Text1 = LTrim$(Text1.Text) Text1 = RTrim$(Text1.Text) d = select * from 学生 where 学号= & Text1 & If rs.State = 1 Then rs.Close rs.Open d, conn, 3, 1 If rs.RecordCount = 0 Then MsgBox 无法找到你所要删除的学生！ Text1.SetFocus Exit Sub Else Set DataGrid1.DataSource = rs End If If rs.RecordCount 0 Then i = MsgBox(您确认要删除该学生的所有记录吗？, 1 + vbExclamation, 删除学生记录) If i = 1 Then a = delete from 奖惩 where 学号= & Text1 & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1 a = delete from 考勤 where 学号= & Text1 & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1 a = delete from 成绩 where 学号= & Text1 & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1 a = delete from 学生 where 学号= & Text1 & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1 MsgBox 删除成功！ Exit Sub End If Else MsgBox 没有记录可以删除！ Text1 = Text1.SetFocus Exit Sub End IfEnd SubPrivate Sub Form_Load()Select Case qx Case 1 Command1.Enabled = True Command2.Enabled = True Command4.Enabled = True Command6.Enabled = True Command7.Enabled = True Case 2 Command1.Enabled = True Command2.Enabled = True Command4.Enabled = True Command6.Enabled = True Command7.Enabled = True Case 3 Command1.Enabled = True Command2.Enabled = True Command4.Enabled = False Command6.Enabled = True Command7.Enabled = False Case Else Command1.Enabled = True Command2.Enabled = True Command4.Enabled = False Command6.Enabled = True Command7.Enabled = FalseEnd SelectText1 = Text2 = End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序号) from 登陆记录 where 用户名= & 用户名 & If rs.State = 1 Then rs.Close rs.Open c, conn, 3, 1 d = rs(0)a = update 登陆记录 set 退出时间= & b & where 序号= & d & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1End Sub3.3.2学生添加修改界面Private Sub Command1_Click()If Text4 = Then MsgBox 请输入学号！ Text4.SetFocus Exit SubEnd IfText4 = LTrim$(Text4.Text)Text4 = RTrim$(Text4.Text)If Len(Text4) 12 Then MsgBox 您输入的学号过长，请从新输入12个字符以内的学号！ Text4 = Text4.SetFocus Exit SubEnd IfIf Text5 = Then MsgBox 请输入姓名！ Text5.SetFocus Exit SubEnd IfText5 = LTrim$(Text5.Text)Text5 = RTrim$(Text5.Text)If Len(Text5) 10 Then MsgBox 您输入的姓名过长，请从新输入10个字符以内的姓名！ Text5 = Text5.SetFocus Exit SubEnd IfIf Text7 = Then MsgBox 请输入出生日期！ Text7.SetFocus Exit SubEnd IfText7 = LTrim$(Text7.Text)Text7 = RTrim$(Text7.Text)If IsDate(Text7) = False Then MsgBox 您输入的出生日期格式不正确，请从新输入正确的日期如：2008-9-6！ Text7 = Text7.SetFocus Exit SubEnd IfText8 = LTrim$(Text8.Text)Text8 = RTrim$(Text8.Text)If IsDate(Text8) = False Then MsgBox 您输入的入学时间格式不正确，请从新输入正确的日期如：2008-9-6！ Text8 = Text8.SetFocus Exit SubEnd IfText9 = LTrim$(Text9.Text)Text9 = RTrim$(Text9.Text)If Len(Text9) 12 Then MsgBox 您输入的联系电话过长，请从新输入12个字符以内的联系电话！ Text9 = Text9.SetFocus Exit SubEnd IfText1 = LTrim$(Text1.Text)Text1 = RTrim$(Text1.Text)If Len(Text1) 10 Then MsgBox 您输入的民族过长，请从新输入18个字符以内的民族！ Text1 = Text1.SetFocus Exit SubEnd IfText2 = LTrim$(Text2.Text)Text2 = RTrim$(Text2.Text)If Len(Text2) 8 Then MsgBox 您输入的政治面貌过长，请从新输入=8个字符以内的政治面貌！ Text2 = Text2.SetFocus Exit SubEnd IfText3 = LTrim$(Text3.Text)Text3 = RTrim$(Text3.Text)If Len(Text3) 100 Then MsgBox 您输入的家庭地址过长，请从新输入100个字符以内的家庭地址！ Text3 = Text3.SetFocus Exit SubEnd Ifa = select * from 系部 where 系部代码= & Combo1 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该系部，请您正确输入系部代码！ Combo1.SetFocus Exit SubEnd Ifa = select * from 专业 where 专业代码= & Combo2 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该专业代码，请您正确输入专业代码！ Combo2.SetFocus Exit SubEnd Ifa = select * from 班级 where 班级代码= & Combo3 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该班级代码，请您输入正确的班级代码！ Combo3.SetFocus Exit SubEnd Ifa = select * from 性别 where 性别= & Combo4 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该性别，请您输入正确的性别！ Combo4.SetFocus Exit SubEnd Ifa = select * from 班级 where 班级代码= & Combo3 & and 专业代码= & Combo2 & and 系部代码= & Combo1 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 ThenMsgBox 你输入的学号和您选择的班级、专业、系部不符合，请从新输入！Exit SubEnd Ifa = select * from 学生 where 学号= & Text1 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount 0 Then MsgBox 该学生已经存在请从新输入！ Text4 = Text4.SetFocus Exit SubElse i = MsgBox(您确认要添加该学生的记录吗？, 1 + vbExclamation, 添加学生记录) If i = 1 Then a = insert into 学生 (民族,政治面貌,家庭地址,系部代码,专业代码,班级代码,学号,姓名,性别,出生日期,入学时间,联系电话)values( & Text1 & , & Text2 & , & Text3 & , & Combo1 & , & Combo2 & , & Combo3 & , & Text4 & , & Text5 & , & Combo4 & , & Text7 & , & Text8 & , & Text9 & ) conn.Execute (a) MsgBox 恭喜您！您已添加成功 Unload Me Else Combo1 = -请选择- Combo2 = -请选择- Combo4 = -请选择- Combo3 = -请选择- Text4 = Text5 = Text7 = Text8 = Text9 = Text4.SetFocus Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click()Combo1 = -请选择-Combo2 = -请选择-Combo4 = -请选择-Combo3 = -请选择-Text1 = Text2 = Text3 = Text4 = Text5 = Text7 = Text8 = Text9 = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()If Text4 = Then MsgBox 您输入学号，然后在相应处输入相应的资料，修改后将以当前资料为准，学号不能修改！ Text4.SetFocus Exit SubEnd IfText4 = LTrim$(Text4.Text)Text4 = RTrim$(Text4.Text)If Len(Text4) 12 Then MsgBox 您输入的学号过长，请从新输入12个字符以内的学号！ Text4 = Text4.SetFocus Exit SubEnd IfIf Text5 = Then MsgBox 请输入姓名！ Text5.SetFocus Exit SubEnd IfText5 = LTrim$(Text5.Text)Text5 = RTrim$(Text5.Text)If Len(Text5) 10 Then MsgBox 您输入的姓名过长，请从新输入10个字符以内的姓名！ Text5 = Text5.SetFocus Exit SubEnd IfIf Text7 = Then MsgBox 请输入出生日期！ Text7.SetFocus Exit SubEnd IfText7 = LTrim$(Text7.Text)Text7 = RTrim$(Text7.Text)If IsDate(Text7) = False Then MsgBox 您输入的出生日期格式不正确，请从新输入正确的日期如：2008-9-6！ Text7 = Text7.SetFocus Exit SubEnd IfText8 = LTrim$(Text8.Text)Text8 = RTrim$(Text8.Text)If IsDate(Text2) = False Then MsgBox 您输入的入学日期格式不正确，请从新输入正确的日期如：2008-9-6！ Text2 = Text2.SetFocus Exit SubEnd IfText9 = LTrim$(Text9.Text)Text9 = RTrim$(Text9.Text)If Len(Text9) 12 Then MsgBox 您输入的联系电话过长，请从新输入12个字符以内的联系电话！ Text9 = Text9.SetFocus Exit SubEnd IfText1 = LTrim$(Text1.Text)Text1 = RTrim$(Text1.Text)If Len(Text1) 10 Then MsgBox 您输入的民族过长，请从新输入18个字符以内的民族！ Text1 = Text1.SetFocus Exit SubEnd IfText2 = LTrim$(Text2.Text)Text2 = RTrim$(Text2.Text)If Len(Text2) 8 Then MsgBox 您输入的政治面貌过长，请从新输入=8个字符以内的政治面貌！ Text2 = Text2.SetFocus Exit SubEnd IfText3 = LTrim$(Text3.Text)Text3 = RTrim$(Text3.Text)If Len(Text3) 100 Then MsgBox 您输入的家庭地址过长，请从新输入100个字符以内的家庭地址！ Text3 = Text3.SetFocus Exit SubEnd Ifa = select * from 系部 where 系部代码= & Combo1 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该系部，请您正确输入系部代码！ Combo1.SetFocus Exit SubEnd Ifa = select * from 专业 where 专业代码= & Combo2 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该专业代码，请您正确输入专业代码！ Combo2.SetFocus Exit SubEnd Ifa = select * from 班级 where 班级代码= & Combo3 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该班级代码，请您输入正确的班级代码！ Combo3.SetFocus Exit SubEnd Ifa = select * from 性别 where 性别= & Combo4 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 Then MsgBox 不存在该性别，请您输入正确的性别！ Combo4.SetFocus Exit SubEnd Ifa = select * from 班级 where 班级代码= & Combo3 & and 专业代码= & Combo2 & and 系部代码= & Combo1 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount = 0 ThenMsgBox 你输入的学号和您选择的班级、专业、系部不符合，请从新输入！Exit SubEnd Ifa = select * from 学生 where 学号= & Text4 & If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount 0 Then i = MsgBox(您确认要修改该学生的资料吗？修改后该记录的全部资料将以当前的资料为准！, 1 + vbExclamation, 学生资料修改) If i = 1 Then a = update 学生 set 民族= & Text1 & ,政治面貌= & Text2 & ,家庭地址= & Text3 & ,出生日期= & Text7 & ,姓名= & Text5 & ,入学时间= & Text8 & ,联系电话= & Text9 & ,性别= & Combo4 & ,系部代码= & Combo1 & ,专业代码= & Combo2 & ,班级代码= & Combo3 & where 学号= & Text4 & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1 MsgBox 恭喜您！修改成功！ Unload Me End IfElse Combo1 = -请选择- Combo2 = -请选择- Combo3 = -请选择- Combo4 = -请选择- Text1 = Text1 = Text3 = Text4 = Text5 = Text7 = Text8 = Text9 = Text4.SetFocus Exit SubEnd IfEnd SubPrivate Sub Form_Load()a = select 系部代码 from 系部If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount 0 Then For i = 0 To rs.RecordCount - 1 Combo1.AddItem rs(系部代码) rs.MoveNext NextEnd Ifa = select 专业代码 from 专业If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount 0 Then For i = 0 To rs.RecordCount - 1 Combo2.AddItem rs(专业代码) rs.MoveNext NextEnd Ifa = select 班级代码 from 班级If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount 0 Then For i = 0 To rs.RecordCount - 1 Combo3.AddItem rs(班级代码) rs.MoveNext NextEnd Ifa = select 性别 from 性别If rs.State = 1 Then rs.Closers.Open a, conn, 3, 1If rs.RecordCount 0 Then For i = 0 To rs.RecordCount - 1 Combo4.AddItem rs(性别) rs.MoveNext NextEnd IfCombo1 = -请选择-Combo2 = -请选择-Combo3 = -请选择-Combo4 = -请选择-Text1 = Text2 = Text3 = Text4 = Text5 = Text7 = Text8 = Text9 = End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序号) from 登陆记录 where 用户名= & 用户名 & If rs.State = 1 Then rs.Close rs.Open c, conn, 3, 1 d = rs(0)a = update 登陆记录 set 退出时间= & b & where 序号= & d & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序号) from 登陆记录 where 用户名= & 用户名 & If rs.State = 1 Then rs.Close rs.Open c, conn, 3, 1 d = rs(0)a = update 登陆记录 set 退出时间= & b & where 序号= & d & If rs.State = 1 Then rs.Close rs.Open a, conn, 3, 1End Sub3.9系部管理模块3.9.1系部管理主界面Private Sub Command1_Click()Combo1 = LTrim$(Combo1.Text)Combo1 = RTrim$(Combo1.Text)d = select * from V专业 where 系部名称= & Combo1 & If rs.State = 1 Then rs.Close rs.Open d, conn, 3, 1 If rs.RecordCount = 0 Then MsgBox 无法找到你所要找的信息！ Combo1.SetFocus Exit Sub Else Set DataGrid1.DataSource = rs End IfEnd SubPrivate Sub Command3_Click()xbsc.Show 1End SubPrivate Sub Command4_Click()xbtj.Show 1End SubPrivate Sub Command5_Click()zytj.Show 1End SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()b = select 系部名称 from 系部If rs.State = 1 Then rs.Closers.Open b, conn, 3, 1If rs.RecordCount 0 Then For i = 0 To rs.RecordCount - 1 Combo1.AddItem rs(系部名称) rs.MoveNext NextEnd Ifd = select * from 系部 If rs.State = 1 Then rs.Close rs.Open d, conn, 3, 1 Set DataGrid1.DataSource = rsSelect Case qx Case 1 Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Case 2: Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Case 3 Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Case Else Command3.Enabled = False Command4.Enabled = False Command4.Enabled = False End SelectCombo1 = -请选择-End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y