学生信息管理系统VB课程设计报告书

1、 PAGE- 19 - / NUMPAGES20目录 TOC o 1-3 h z u HYPERLINK l _Toc313788745第1章问题描述 PAGEREF _Toc313788745 h - 1 -HYPERLINK l _Toc313788746第2章需求分析 PAGEREF _Toc313788746 h - 2 -HYPERLINK l _Toc313788747第3章概要设计 PAGEREF _Toc313788747 h - 3 -HYPERLINK l _Toc3137887483.1 详细功能介绍 PAGEREF _Toc313788748 h - 3 -HYPERL

2、INK l _Toc3137887493.2 系统功能模块图 PAGEREF _Toc313788749 h - 3 -HYPERLINK l _Toc3137887503.3 Visual Basic 6.0 PAGEREF _Toc313788750 h - 4 -HYPERLINK l _Toc3137887513.4 数据库的设计 PAGEREF _Toc313788751 h - 6 -HYPERLINK l _Toc313788752第4章详细设计 PAGEREF _Toc313788752 h - 8 -HYPERLINK l _Toc3137887534.1 登录界面设计 PA

3、GEREF _Toc313788753 h - 8 -HYPERLINK l _Toc3137887544.2 系统员管理界面设计 PAGEREF _Toc313788754 h - 9 -HYPERLINK l _Toc3137887554.3 用户查询界面设计 PAGEREF _Toc313788755 h - 11 -HYPERLINK l _Toc3137887564.4 用户注册界面设计 PAGEREF _Toc313788756 h - 16 -HYPERLINK l _Toc313788757第5章课设总结 PAGEREF _Toc313788757 h - 18 -HYPERL

4、INK l _Toc313788758参考文献 PAGEREF _Toc313788758 h - 19 -第1章 问题描述运用所学vb课程设计知识，设计一个学生信息管理系统。界面设计要求尽量友好、美观，应提供登录界面.对各种信息应提供录入、修改、删除和查询功能。具有对学生的基本信息和成绩信息进行统计的功能。具有数据备份与恢复、帮助等功能。能够新增、修改和删除用户信息。能够按用户的要求生成学生信息报表和成绩信息报表。第2章 需求分析随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，庞大学生信息的管理工作成了高校教学管理工作中的一项重要任务，一方面，假如遵从以往旧式的工作

5、方式，该工作的工作量大，管理繁琐，既耗人力，又耗物力；另一方面，由于计算机技术的飞速发展与应用的普与，学生信息管理这样烦琐的工作更需要由计算机来完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规管理、科学统计和快速的查询，从而减少管理方面的工作量。学生信息管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以与前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。第3章 概要设计3.1 详细功能介绍此学生信息管理信息系统是面向大学的管理系

6、统，其目的是对学校的学生，班级，和其它信息进行统一有序的管理。该系统分为如下几个功能窗体：1、登录窗体：该窗体主要实现系统管理员和用户的登录，需输入用户名和密码。2、系统员管理窗体：实现对注册新同学的信息和已录入信息的查找、修改和删除。3、用户查询窗体：实现用户对系统的已录入信息进行查询。查询可利用精确查询和模糊查询条件进行查询。录入学生信息为学号、性别、班级、籍贯。4、用户注册窗体：实现新用户的注册。需输入用户名、密码、确认密码、和其他条件进行注册。3.2 系统功能模块图如图3-1。学生信息管理信息系统用户查询系统系统员管理系统学生信息查询信息查找信息修改信息删除信息重置用户注册图3-1 系

7、统功能图3.3 Visual Basic 6.0微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。利用VISUAL BASIC 程序设计语言，可以很方便地设计出在WINDOWS环境下运行的应用程序。故而，实现本系统VB是一个相对较好的选择。Visual Basic的编程特点Visual Basic语言的出现为Windows下的编程提出了一个新概念，利用V

8、isual Basic的动态数据交换、对象的和嵌入、动态库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用Visual Basic语言编程有以下几个特点：1.QL Server 数据库特点概括起来，SQL Server 2000数据库管理系统具有以下主要特点。（1）丰富的图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2000还提供了SQL事件探查器

9、、SQL查询分析器、SQL Server服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。（2）动态自动管理和优化功能。即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。（3）充分的Internet技术支持。Internet网络发展到今天已经成为一条重要的信息发布渠道，SQL Server增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”外，还增强了对XML和 技术的支持，这使得电子商务系统能够通过XML

10、等访问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 Serv

11、er 2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括Windows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。（6）简单的管理方式。SQL Server 2000与Microsoft Windows 2000有机集成，所以可以使用Windows 2000的活动目录（Active Directory）功能对SQL Server进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows 2000的集成还使SQL Serv

12、er能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、存管理和异步I/O等），从而增强了SQL Server数据库系统的功能，并且只需要占用很少的系统资源。3.4 数据库的设计 表3-1。ScoreTableStudentIDMathsChinesePhysicsChemistryPoliticsEnglish190939090679010606056606060113434606080601260609643606013886076986060146055606060601578824793886428080808080803777070707070460607867

13、60100560606060406068060606660607606069606060860606010060609346060336060表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威管2

14、5032010/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用

15、户登录表第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

16、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 系统员管理界面关

17、键编码：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.

18、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 %

19、& 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

20、 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 T

21、hen wherestr = wherestr + and If optnFore.Value Then 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 & % bwhe

22、re = True End If If bwhere Then sqlstr = sqlstr + where + wherestr sqlstr = sqlstr + order by Studentid asc DataE mands(cmdFindStudent) mandText = sqlstr 刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdfindstudent dgrdStudent.ClearFields dgrdStudent.DataMember = DataE mands(cmdFi

23、ndStudent).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 StudentI

24、D,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 备注 whe

25、restr = 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

26、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

27、 = 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 =

28、 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

29、 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 I

30、f 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 & End If ElseIf optnKeyBetween.Value Then If txtYearKeyFore.Text = Or txtMonKeyFore.

31、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.

32、Text + - + txtMonKeyFore.Text & and & txtYearKeyBack.Text + - + txtMonKeyBack.Text & End If End If If wherestr Then wherestr = where + wherestr End If sqlstr = sqlstr + wherestr DataE mands(cmdFindStudent) mandText = sqlstr 刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdfindstud

33、ent dgrdResult.ClearFields dgrdResult.DataMember = DataE mands(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 dgr

34、dResult_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 mands(cmdFindStudent) mandT

35、ext = 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.T

36、ext = DataE.rscmdFindStudent!AcceptanceTime txtDormitory.Text = DataE.rscmdFindStudent!Dormitory txtHometown.Text = DataE.rscmdFindStudent!Hometown sqlstr = select * from ScoreTable where StudentID= + strColumn + DataE mands(cmdScore) mandText = sqlstr 刷新Grid,这两句不可省 DataE.conLibrary.Close DataE.conL

37、ibrary.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.Vi

38、sible = 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 mandText = insert into UserT

39、able(UserName,RealName,Unit,pwd,RegisterTime,age,state,usertype) values( & txtUserName.Text & , & txtRealname.Text & , & txtUnit.Text & , & txtPassword.Text & , & Now & , & udAge.Value & , & State & , & Usertype & ) cmd mandText = select * from usertable where username= & txtUserName & 子段不要使用关键字“Pas

40、sWord” 验证重要信息已经填写 If txtUserName.Text = Then MsgBox 请填写用户名！, vbOKOnly + vbInformation, 注意 txtUserName.SetFocus Exit Sub ElseIf txtPassword.Text = Then MsgBox 请填写密码！, vbOKOnly + vbInformation, 注意 txtPassword.SetFocus Exit Sub ElseIf txtPwAgain.Text = Then MsgBox 请填写确认密码！, vbOKOnly + vbInformation, 注意 txtPwAgain.SetFocu