VB+Access学生信息管理系统.doc

2013年12月29目 录绪 论1前言1（一）作业背景1（二）选题说明1（三）主要内容2一、系统分析2（一） 系统目标2（二） 可行性分析3（三） 管理业务调查31.组织结构调查32. 功能流程调查43.数据流程调查5二、系统设计6（一）新系统的功能结构图6（二）新系统的流程设计图7（三）代码设计71.登陆页面143.注册页面173.主菜单页面204.院系功能24三、总 结312绪 论高校学生信息的管理是一项既重要又繁琐的工作。我们小组成员通过调查研究发现，学生学籍信息管理很是普及，这不仅为学员、教员提提供了查询信息的平台，还大大提高了信息的获取速度，有利于对学员信息的管理。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，我们小组决定：结合普通高校校实际情况，自行研制一个学生信息管理系统。该信息管理系统结合学员、教员的需求，提供查询学员学籍信息等多项功能，对学员的学籍信息实时更新，掌握学员的实际修课情况。前言（一） 作业背景随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,结合管理信息系统这门课程的学习，我们掌握了一定的编程技术，为此次作业设计和实施提供了基础。我们组通过了解教员和学员的实际状况和需求，对学员的学习信息的管理常规流程进行了调查，发现还有很多模块可以改进。（二） 选题说明由于高校学籍管理信息系统具有极大可使用性，并且对于我们初学者较易完成。并且学生选课系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。现在我国的大部分学校中档案的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我们作为一个系统工程专业的本科生，我们希望可以在这方面有自己的设计，检验自己的课程学习情况和程序设计能力。同时，我们是有这方面的技术优势的，在大学系统工程教研室教员的谆谆教导下，我们指挥类学员掌握了一定的技术知识，因此我们将利用系统工程专业优势编制出一个实用的程序来帮助学生进行更有效的学籍管理。（三） 主要内容本系统主要由VB6.0和access 2003完成，主要内容有本系统两类用户：系统管理员和学生（教员就为管理员的一种）。三种不同的用户所具有的操作权限以及操作内容均不一样。学员需自行注册，教员由已有的管理员注册。通过此种方法来进行。课程等均有教员（管理员）添加，学员只能注册功能以及查询信息功能。管理员管理（包括添加、修改、删除等）学员的各种信息。归纳起来，功能大约有以下几点：1学生信息的录入。学员信息的录入有管理员执行，只有管理员才能对学员的信息进行修改和补充。学生通过各种途径不择地点、不择时间地自主查看自己的基本档案（不合要求的档案可以由管理员及时清除），但是不能修改自己的档案和文档，没有相应的权限。2.学生信息的查询。学生的学籍信息发在网上可以让学员来查询。使用者可以通过用户名和输入密码，查看自己需要的学生信息。3学生信息的修改。管理员均可的学生的课程信息进行添加和删除，实现了信息的动态管理。此系统具有显而易见的优势：1可以存储学员的课程信息，安全、高效；2只需一到二名管理员即可操作系统，节省大量人力；3 可以迅速查到所需信息。一、系统分析（一） 系统目标由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全等等。为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管理系统也就应运而生了。（二） 可行性分析由于本系统管理的对象单一，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据管理。在技术难度方面，由于有指导教员的指导和相关参考文献，特别是网络资料。因此我那全可以实现本程序。经济可行性分析：随着科学技术的不断发展与创新，计算机的作用日益突出，计算机软件成为人们解决问题的恶一个有效手段，当然，他的作用也越来越重要在当今信息时代，国民经济和国防建设，社会发展，人民生活都离不开软件。软件也无处不在。软件产业也是一个新兴产业，尽管起步晚，但发展迅速。已经成为增长最快的产业是具有高投入/高产出、无污染、低能耗的绿色产业学生成绩管理系统是一个教务处数据库的一个管理系统，对已经使用的类似的系统进行调查、类比，本课题具有的特点：开发工作量小，可以有两个合作开发或一个人对开发，开发周期短，有熟练的开发人员一个月就可以完成系统的开发与预测。技术可行性分析从技术方面来说，VB6.0是一个企业级的、面向对象的快速应用开发工具，是数据库最优秀的开发工具之一。同时，它是完全支持面向对象的开发，它拥有多种数据库接口，可以非常方便的连接的各种数据源。VB6.0基于组件的开发增强了面向对象的技术，它提供了一个更有效的封装、管理、重用和扩展企业规则和处理的高层途径。在数据操作方面，选择灵活、易用的access2003数据源。（三） 管理业务调查1.组织结构调查随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量就需要有一个学生信息管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。设计内容为管理员或学生登录该系统进行六个模块操作：1）、系统管理：用户管理、修改密码、退出系统2）、院系管理：添加院系、修改院系、查询院系3）、学籍管理：添加学籍、修改学籍、查询学籍4）、班级管理：添加班级、修改班级、查询班级5）、课程管理：添加课程、修改课程、查询课程、设置年级6）、成绩管理：添加成绩、修改成绩、查询成绩2. 功能流程调查Access2003就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。系统主要建立了学生基本信息表、用户信息表、课程信息表、班级信息表、成绩信息表、院系信息表、年级课程设置表本系统的数据库实体主要有“学生”、“教师”、“教室”、“课程”等。其中“教师”与“课程”存在“开设”联系，并且一个教师可以开设N门课程，即“教师”与“课程”之间是一对多的关系。同样“教学楼”与“教室”也存在一对多的关系。一个学生可以学习N门课程，一门课程可以有M个学生学习，即“学生”与“课程”之间是多对多的关系。同样“课程”与“教室”之间也是多对多的关系。整个数据库可以用一个E-R图表示，如图所示：学号性别学号学分性别年龄教师课程学生选修教学授课nmmn性别已选课情况密码课程号学时职称教师名称教师编号学历健康状况毕业院校成绩图1 总体E-R图3.数据流程调查二、 系统设计（一） 新系统的功能结构图本系统主要包括系统管理、院系管理、学籍管理、班级管理、课程管理和成绩管理6个大的模块，各个模块的具体功能如下图所示：学生信息管理系统系统管理(S)班级管理学籍管理课程管理成绩管理增加课程学生成绩查询修改课程学生成绩修改学生成绩录入用户管理添加班级学籍查询添加用户删除用户班级查询修改班级添加学籍修改学籍院系管理添加院系修改院系帮助查询院系修改密码（二） 新系统的流程设计图招生办学员基础信息分院编班审核信息学员建立学籍教务处填写基础信息教委委ueji777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777777统计报表学员变动学员学籍（三） 代码设计：4.我们接下来仅以介绍院系管理为例，介绍一下我们的一些基础设置。分为添加院系、管理院系、查询院系。而普通用户只有查询院系。添加院系： 添加院系代码如下：Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdCancel_Click() XgClsfrm.Show Unload Me End Sub Private Sub cmdOK_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno", conn, adOpenKeyset, adLockOptimistic rs.AddNew txtName.SetFocus If txtGender.Text = "" Then MsgBox "课程名称不能为空！" txtGender.SetFocus Exit Sub Else rs.Fields(0).Value = Val(txtID.Text) rs.Fields(1).Value = txtName.Text rs.Fields(2).Value = txtGender.Text rs.Fields(3).Value = txtAddr.Text rs.Fields(4).Value = Text1.Text rs.Fields(5).Value = Text2.Text rs.Fields(6).Value = Text3.Text rs.Update MsgBox "课程添加成功" End If rs.Close conn.Close txtID.Text = "" txtName.Text = "" txtGender.Text = "" txtAddr.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" FrmMainGul.Show End Sub修改院系：代码如下： Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public Sub ReShow() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno", conn, adOpenKeyset Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.Sort = 3 rs.Close conn.Close End Sub Private Sub Form_Load() ReShow End Sub Private Sub cmdExit_Click() Unload Me FrmMainGul.Show End Sub Private Sub cmdDel_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Dim str As String conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno where 课程名称='" & _ MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimistic str = MsgBox("是否真的删除该信息？", vbYesNo, "警告") If str = vbYes Then rs.Delete rs.Update End If rs.Close conn.Close ReShow End Sub Private Sub cmdAdd_Click() frmCurAdd.Show End Sub Private Sub cmdModify_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open rs.Open "select * from clsIno where 课程名称='" & _ MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimistic frmModifyCls.txtID.Text = rs.Fields(0) frmModifyCls.txtName.Text = rs.Fields(1) frmModifyCls.txtGender.Text = rs.Fields(2) frmModifyCls.txtAddr.Text = rs.Fields(3) frmModifyCls.Text1.Text = rs.Fields(4) frmModifyCls.Text2.Text = rs.Fields(5) frmModifyCls.Text3.Text = rs.Fields(6) rs.Close conn.Close frmModifyCls.ShowEnd Sub查询院系查询院系代码Option Explicit 'Command对象使用演示 Dim conn As ADODB.Connection '定义Connection对象 Dim rs As ADODB.Recordset '定义Recordset对象 Dim cmd As ADODB.Command '定义Command对象Private Sub Command1_Click()Unload MeFrmMainUser.ShowEnd Sub Private Sub Form_Load() cboSelect.AddItem "课程名称" cboSelect.AddItem "班号" End Sub Private Sub cmdQuery_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Set cmd = New ADODB.Command conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False" conn.Open cmd.CommandType = adCmdText cmd.ActiveConnection = conn If cboSelect.Text = "课程名称" Then cmd.CommandText = "select * from clsIno where 课程名称='" & txtQuery.Text & "'" Else cmd.CommandText = "select * from clsIno where 班号='" & txtQuery.Text & "'" End If Set rs = cmd.Execute Set MSHFlexGrid1.DataSource = rs rs.Close conn.Close End Sub1.登陆页面设置窗体的startposition属性为centerscreen。让登陆窗口在屏幕的中央显示。图4-2 登陆界面“登录”按钮代码：Public Ok As BooleanPublic guserName As StringPublic guserType As StringDim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As StringPrivate Sub cmdOK_Click(Index As Integer) conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "stu.mdb" sql = "Select * from userForm where " If Trim(txtUserName.Text) = "" Then '如果用户名为空 MsgBox "用户名不能为空！", vbOKOnly + vbCritical, "错误" txtUserName.SetFocus miCount = miCount + 1 '累加输入次数 Exit Sub End If If Trim(txtPassWord.Text) = "" Then '如果密码为空 MsgBox "密码不能为空！", vbOKOnly + vbCritical, "错误" txtPassWord.SetFocus Exit Sub End If If Trim(cmbType.Text) = "选择类别" Then '如果密码为空 MsgBox "请选择用户类别！", vbOKOnly + vbCritical, "错误" cmbType.SetFocus Exit Sub End If sql = sql + "userName='" & txtUserName.Text & "'" sql = sql + " AND Pwd='" & txtPassWord.Text & "'" sql = sql + " AND Type='" & cmbType.Text & "'" rs.Open sql, conn, 1, 1If rs.RecordCount = 1 Then '找到记录 PName = rs("userName") PWord = rs("Pwd") pType = rs("Type") Unload Me If pType = "管理员" Then FrmMainGul.Show Else FrmMainUser.Show End If Else MsgBox "用户名或密码不对！", vbOKOnly + vbInformation, "错误" Unload MeEnd IfguserName = Trim(txtPassWord.Text)guserType = Trim(txtPassWord.Text)rs.CloseSet rs = Nothingconn.CloseSet conn = NothingmiCount = miCount + 1If miCount = 3 Then Me.HideEnd IfExit SubEnd SubPrivate Sub CmdZc_Click(Index As Integer) FrmZcUser.Show Unload MeEnd SubPrivate Sub comExit_Click() Ok = False Me.HideEnd Sub3.注册页面我们分为用户注册页面与管理员注册页面；用户注册页面打开系统即可注册，而管理员注册，我们设置为只有现有的管理员才能添加（注册）管理员图4-3 用户注册界面用户注册代码如下：Private Sub cmbType_Change()cmbType.AddItem "普通用户"cmbType.AddItem "管理员"End SubPrivate Sub CmdHh_Click(Index As Integer)frmlogin.ShowUnload MeEnd SubPrivate Sub CmdRt_Click(Index As Integer)Text1.Text = ""Text2.Text = ""Text3.Text = ""cmbType.Text = ""End SubPrivate Sub CmdTj_Click(Index As Integer)Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim str As String Dim strI As String conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "stu.mdb" sql = "Select * from userForm where " If Trim(Text1.Text) = "" Then '如果用户名为空 MsgBox "请输入真实姓名", vbOKOnly + vbCritical, "错误" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then '如果密码为空 MsgBox "请输入用户名", vbOKOnly + vbCritical, "错误" Text2.SetFocus Exit Sub End If If Text2.Text <> Text3.Text Then MsgBox "新密码与确认的密码不相同", vbOKOnly + vbCritical, "错误" Text3.SetFocus Exit Sub End If If cmbType.Text = "选择类别" Then MsgBox "请选择用户类别", vbOKOnly + vbCritical, "错误" Combo1.SetFocus Exit Sub End If sql = sql + "pwd='" & Text1.Text & "'" rs.Open sql, conn, 1, 3 If rs.RecordCount <> 0 Then MsgBox "用户名已存在" + "重新输入用户名", vbOKOnly + vbInformation, "提示" Text2.SetFocus Exit Sub Else strI = cmbType.Text If strI = "管理员" Then str = MsgBox("您的权限有限，暂不能注册成为管理员？", vbYesNo, "提示") If str = vbYes Then Unload Me frmlogin.Show Else Exit Sub End If End If If strI = "普通用户" Then rs.AddNew rs("userName") = Text1.Text rs("pwd") = Text2.Text rs("Type") = cmbType.Text rs.Update MsgBox "用户成功添加", vbYesNo, "提示" End If End If Unload Me frmlogin.Show rs.Close Set rs = Nothing conn.Close Set conn = NothingEnd Sub3.主菜单页面我们也分为用户界面和管理员界面：用户界面只能修改自己信息与查询其他的各种信息，但不能做任何修改，管理可以无限制。图4-4 主菜单管理员界面的代码如下：Dim Ok As StringDim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As StringPrivate Sub AddCls_Click()frmClsAdd.ShowUnload MeEnd SubPrivate Sub Addcour_Click()frmCurAdd.ShowUnload MeEnd SubPrivate Sub AddGrd_Click()frmGrdAdd.ShowUnload MeEnd SubPrivate Sub Addstu_Click()Unload MeAddstufrm.ShowEnd SubPrivate Sub clgAdd_Click()Unload MeAddClg.ShowEnd SubPrivate Sub CxClg_Click()CxClgfrm.ShowUnload MeEnd SubPrivate Sub End_Click()EndEnd SubPrivate Sub Form_Load()StaBar.Panels.Add (1)StaBar.Panels.Item(1) = 3000StaBar.Panels.Add (2)StaBar.Panels.Item(1).Style = sbrTextStaBar.Panels.Item(2).Style = sbrDateStaBar.Panels.Item(3).Style = sbrTimeStaBar.Panels.Item(1).Text = guserName & "权限：管理员"End SubPrivate Sub reGrade_Click()XgGrdfrm.ShowUnload MeEnd SubPrivate Sub sjCls_Click()XgClsfrm.ShowUnload MeEnd SubPrivate Sub Sjstu_Click()XgStuFrm.ShowUnload MeEnd SubPrivate Sub userExit_Click() Ok = False Unload Me frmlogin.ShowEnd SubPrivate Sub userLogining_Click()FrmZc.Show Unload