学生信息管理系统VB课程设计.doc

目 录第1章 问题描述- 1 -第2章 需求分析- 2 -第3章 概要设计- 3 -3.1 详细功能介绍- 3 -3.2 系统功能模块图- 3 -3.3 Visual Basic 6.0- 4 -3.4 数据库的设计- 6 -第4章 详细设计- 8 -4.1 登录界面设计- 8 -4.2 系统员管理界面设计- 9 -4.3 用户查询界面设计- 11 -4.4 用户注册界面设计- 16 -第5章 课设总结- 18 -参考文献- 19 -第1章 问题描述运用所学vb课程设计知识，设计一个学生信息管理系统。界面设计要求尽量友好、美观，应提供登录界面.对各种信息应提供录入、修改、删除和查询功能。具有对学生的基本信息和成绩信息进行统计的功能。具有数据备份与恢复、帮助等功能。能够新增、修改和删除用户信息。能够按用户的要求生成学生信息报表和成绩信息报表。第2章 需求分析随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，庞大学生信息的管理工作成了高校教学管理工作中的一项重要任务，一方面，假如遵从以往旧式的工作方式，该工作的工作量大，管理繁琐，既耗人力，又耗物力；另一方面，由于计算机技术的飞速发展及应用的普及，学生信息管理这样烦琐的工作更需要由计算机来完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。学生信息管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。第3章 概要设计3.1 详细功能介绍此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一有序的管理。该系统分为如下几个功能窗体：1、登录窗体：该窗体主要实现系统管理员和用户的登录，需输入用户名和密码。2、系统员管理窗体：实现对注册新同学的信息和已录入信息的查找、修改和删除。3、用户查询窗体：实现用户对系统的已录入信息进行查询。查询可利用精确查询和模糊查询条件进行查询。录入学生信息为学号、姓名、性别、班级、籍贯。4、用户注册窗体：实现新用户的注册。需输入用户名、密码、确认密码、和其他条件进行注册。3.2 系统功能模块图如图3-1。学生信息管理信息系统用户查询系统系统员管理系统学生信息查询信息查找信息修改信息删除信息重置用户注册图3-1 系统功能图3.3 Visual Basic 6.0微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。利用VISUAL BASIC 程序设计语言，可以很方便地设计出在WINDOWS环境下运行的应用程序。故而，实现本系统VB是一个相对较好的选择。Visual Basic的编程特点Visual Basic语言的出现为Windows下的编程提出了一个新概念，利用Visual Basic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用Visual Basic语言编程有以下几个特点：1.QL Server 数据库特点概括起来，SQL Server 2000数据库管理系统具有以下主要特点。（1）丰富的图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2000还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。（2）动态自动管理和优化功能。即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。（3）充分的Internet技术支持。Internet网络发展到今天已经成为一条重要的信息发布渠道，SQL Server增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术的支持，这使得电子商务系统能够通过XML等访问SQL Server数据库系统，也扩展了SQL Server在数据挖掘和分析服务领域的应用。（4）丰富的编程接口工具，使用户开发SQL Server数据库应用程序更加灵活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQL Server 2000还支持ODBC、OLE DB、ADO规范，可以使用ODBC、OLE DB、ADO接口访问SQL Server数据库。（5）具有很好的伸缩性和可靠性。SQL Server 2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括Windows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。（6）简单的管理方式。SQL Server 2000与Microsoft Windows 2000有机集成，所以可以使用Windows 2000的活动目录（Active Directory）功能对SQL Server进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows 2000的集成还使SQL Server能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步I/O等），从而增强了SQL Server数据库系统的功能，并且只需要占用很少的系统资源。3.4 数据库的设计 表3-1。ScoreTableStudentIDMathsChinesePhysicsChemistryPoliticsEnglish19093909067901060605660606011343460608060126060964360601388607698606014605560606060157882479388642808080808080377707070707046060786760100560606060406068060606660607606069606060860606010060609346060336060表3-1成绩表表3-2。StudentTableStudentIDStudentNameClassDormitoryAcceptanceTimeGenderHometown1逄建强管15222010/9/1男安图2吕晓磊管15012010/9/1男赤峰3孙佳俊管15202010/9/1男安徽4谭辉管15022010/9/1男江苏5秦孝文管15022010/9/1男敦化6刘鹏管15022010/9/1男山东7宋超管15032010/9/1男吉林13陈娇管14272010/9/1女重庆8张威管25032010/9/1男安徽9董洋洋管24262010/9/1女长春10何静管24262010/9/1女山东11李凯丽管24262010/9/1女河南15李四管35032010/9/1男武汉12张三管34272010/9/1女四川14王五管44272010/9/1女北京表3-2学生信息表表3-3。UserTableUserIDUserNamepwdRealNameAgeUnitRegisterTimeUserTypeState119admin1212000/10/30 22:24:0021124th1th2112012/1/7 23:21:1901125pang2pang21管12012/1/8 10:50:5301表3-3用户登录表第4章 详细设计4.1 登录界面设计如图4-1。图4-1 登录界面登录控件编码：Private Sub cmdOK_Click() If txtUserName.Text = "" Then MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意" txtUserName.SetFocus Exit Sub ElseIf txtPassword.Text = "" Then MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意" txtPassword.SetFocus Exit Sub End If g_bLogin = True If IsExistUser(txtUserName, txtPassword) = True Then Unload Login frmSearch.Show Else If IsExistUser(txtUserName, "") = True Then MsgBox "密码不正确！请重试", vbOKOnly + vbInformation, "错误" Else MsgBox "无此用户！请先注册", vbOKOnly + vbInformation, "错误" cmdRegister.SetFocus End If End IfEnd Sub4.2 系统员管理界面设计如图4-2。图4-2 系统员管理界面关键编码：Private Sub cmdFStudent_Click()'查找学生 Dim sqlstr As String Dim wherestr As String '判断有无Where语句 Dim bwhere As Boolean sqlstr = "select * from studenttable" wherestr = "" bwhere = False If txtStudentName.Text <> "" Then wherestr = wherestr + " Studentname='" & txtStudentName & "'" bwhere = True End If If chkFStudentID.Value = 1 And txtFStudentID.Text <> "" Then If bwhere Then wherestr = wherestr + " and " wherestr = wherestr + " Studentid like '%" & txtFStudentID & "%'" bwhere = True End If If chkFStudentName.Value = 1 And txtFStudentName.Text <> "" Then If bwhere Then wherestr = wherestr + " and " wherestr = wherestr + " studentname like '%" & txtFStudentName & "%'" bwhere = True End If If chkFStudentClass.Value = 1 And txtFStudentClass.Text <> "" Then If bwhere Then wherestr = wherestr + " and " wherestr = wherestr + " class like '%" & txtFStudentClass & "%'" bwhere = True End If If chkFStudentGender.Value = 1 Then If bwhere Then wherestr = wherestr + " and " If cmbFStuGender.ListIndex = 0 Then wherestr = wherestr + " gender like '%" & "男" & "%'" ElseIf cmbFStuGender.ListIndex = 1 Then wherestr = wherestr + " gender like '%" & "女" & "%'" End If bwhere = True End If If chkFAcceptanceTime.Value = 1 And txtFYear.Text <> "" Then If txtFMon.Text = "" Then txtFMon.Text = "00" If bwhere Then wherestr = wherestr + " and " If optnFore.Value Then wherestr = wherestr + " acceptancetime<'" & txtFYear + "-" + txtFMon & "'" Else wherestr = wherestr + " acceptancetime>'" & txtFYear + "-" + txtFMon & "'" End If bwhere = True End If If chkFHometown.Value = 1 And txtFHometown.Text <> "" Then If bwhere Then wherestr = wherestr + " and " wherestr = wherestr + " hometown like '%" & txtFHometown & "%'" bwhere = True End If If bwhere Then sqlstr = sqlstr + " where " + wherestr sqlstr = sqlstr + " order by Studentid asc" DataE.Commands("cmdFindStudent").CommandText = sqlstr '刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdfindstudent dgrdStudent.ClearFields dgrdStudent.DataMember = DataE.Commands("cmdFindStudent").Name dgrdStudent.ReBind If DataE.rscmdFindStudent.RecordCount = 0 Then MsgBox "在数据库中没找到要查询的对象", vbOKOnly + vbInformation, "查询失败" End IfEnd Sub4.3 用户查询界面设计如图4-3。图4-3 用户查询界面查询控件编码：Private Sub cmdSearch_Click() Dim sqlstr As String Dim wherestr As String Dim i As Integer sqlstr = "select StudentID,StudentName,Class,Gender from StudentTable " wherestr = "" If cmbItem.ListIndex <> 0 And txtKey.Text <> "" Then Select Case cmbItem.ListIndex Case 1 '学号 wherestr = wherestr + "StudentID='" & txtKey & "'" Case 2 '姓名 wherestr = wherestr + "StudentName='" & txtKey & "'" Case 3 '班级 wherestr = wherestr + "Class='" & txtKey & "'" Case 4 '备注 wherestr = wherestr + "Gender='" & txtKey & "'" Case 5 '关键字 wherestr = wherestr + "(studentid like '%" & txtKey & "%' or studentname like '%" & txtKey & "%' or class like '%" & txtKey & "%' )" End Select End If '学号关键字 If frameStudentID.Visible And chkIDKey.Value = 1 And txtIDKey.Text <> "" Then If wherestr <> "" Then If optnIDand.Value Then wherestr = wherestr + " and " Else wherestr = wherestr + " or " End If End If wherestr = wherestr + "StudentID like '%" & txtIDKey & "%'" End If '姓名关键字 If frameStudentName.Visible And chkNameKey.Value = 1 And txtNameKey.Text <> "" Then If wherestr <> "" Then If optnNameand.Value Then wherestr = wherestr + " and " Else wherestr = wherestr + " or " End If End If wherestr = wherestr + "StudentName like '%" & txtNameKey & "%'" End If '班级关键字 If frameClass.Visible And chkClassKey.Value = 1 And txtClassKey.Text <> "" Then If wherestr <> "" Then If optnClassand.Value Then wherestr = wherestr + " and " Else wherestr = wherestr + " or " End If End If wherestr = wherestr + "Class like '%" & txtClassKey & "%'" End If '性别关键字 If frameGender1.Visible And chkGenderKey.Value = 1 Then If wherestr <> "" Then If optnGenderand.Value Then wherestr = wherestr + " and " Else wherestr = wherestr + " or " End If End If If OptnMale.Value Then wherestr = wherestr + "Gender like '%" & "男" & "%'" ElseIf OptnFemale.Value Then wherestr = wherestr + "Gender like '%" & "女" & "%'" End If End If '入学时间 If frameTime.Visible And chkTimeKey.Value = 1 Then If optnKeyFore.Value Or optnKeyBack.Value Then If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Then MsgBox "请完整填写查询时间！", vbOKOnly + vbInformation, "查询" Exit Sub End If If wherestr <> "" Then If optnTimeand.Value Then wherestr = wherestr + " and " Else wherestr = wherestr + " or " End If End If If optnKeyFore Then wherestr = wherestr + "publishtime <'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'" Else wherestr = wherestr + "publishtime >'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'" End If ElseIf optnKeyBetween.Value Then If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Or txtYearKeyBack.Text = "" Or txtMonKeyBack.Text = "" Then MsgBox "请完整填写查询时间！", vbOKOnly + vbInformation, "查询" Exit Sub End If If wherestr <> "" Then If optnTimeand.Value Then wherestr = wherestr + " and " Else wherestr = wherestr + " or " End If End If wherestr = wherestr + "acceptancetime between '" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'and '" & txtYearKeyBack.Text + "-" + txtMonKeyBack.Text & "'" End If End If If wherestr <> "" Then wherestr = "where " + wherestr End If sqlstr = sqlstr + wherestr DataE.Commands("cmdFindStudent").CommandText = sqlstr '刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdfindstudent dgrdResult.ClearFields dgrdResult.DataMember = DataE.Commands("cmdFindStudent").Name dgrdResult.DefColWidth = 3000 dgrdResult.ReBind If DataE.rscmdFindStudent.RecordCount <> 0 Then dgrdResult.Columns(0).Button = True Else MsgBox "在数据库中没找到要查询的对象", vbOKOnly + vbInformation, "查询失败" End IfEnd SubPrivate Sub dgrdResult_ButtonClick(ByVal ColIndex As Integer) Dim col As Column Dim sqlstr As String Dim strColumn As String '可预约 Dim bStudenting As Boolean bStudenting = False strColumn = dgrdResult.Columns(0).Text sqlstr = "select * from StudentTable where StudentID='" + strColumn + "'" DataE.Commands("cmdFindStudent").CommandText = sqlstr '刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdfindstudent txtID.Text = DataE.rscmdFindStudent!StudentID txtName.Text = DataE.rscmdFindStudent!StudentName txtClass.Text = DataE.rscmdFindStudent!Class txtGender.Text = DataE.rscmdFindStudent!Gender txtAcceptanceTime.Text = DataE.rscmdFindStudent!AcceptanceTime txtDormitory.Text = DataE.rscmdFindStudent!Dormitory txtHometown.Text = DataE.rscmdFindStudent!Hometown sqlstr = "select * from ScoreTable where StudentID='" + strColumn + "'" DataE.Commands("cmdScore").CommandText = sqlstr '刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdScore txtChinese.Text = DataE.rscmdScore!chinese txtMaths.Text = DataE.rscmdScore!maths txtEnglish.Text = DataE.rscmdScore!english txtPolitics.Text = DataE.rscmdScore!politics txtPhysics.Text = DataE.rscmdScore!physics txtChemistry.Text = DataE.rscmdScore!chemistry dgrdResult.Visible = False frameDetail.Visible = TrueEnd Sub4.4 用户注册界面设计如图4-4。图4-4 用户注册界面注册控件编码：Private Sub cmdReg_Click() 'Dim cmd As Command Usertype = General State = 1 Set cmd = New Command DataE.Connections("conLibrary").Open cmd.ActiveConnection = DataE.Connections("conLibrary") cmd.CommandText = "insert into UserTable(UserName,RealName,Unit,pwd,RegisterTime,age,state,usertype) values('" & txtUserName.Text & "','" & txtRealname.Text & "','" & txtUnit.Text & "','" & txtPassword.Text & "','" & Now & "','" & udAge.Value & "','" & State & "','" & Usertype & "')" cmd.CommandText = "select * from usertable where username='" & txtUserName