(精品论文)学生信息管理系统论文44

毕 业 论 文题 目 学 生 信 息 管 理 系 统 院系名称： 信 息 工 程 系 专业班级： 计 算 机 网 络 技 术 学生姓名： 学 号： 指导教师： 20 年 月 日摘 要使用本系统进行学生信息的管理，其中包括有系统用户的管理，院系管理，专业管理，学生信息管理，教学计划管理，以及学生成绩的管理。系统用户管理是管理用户信息的添加、修改、删除和查询功能；院系管理是管理院系信息的添加、修改、删除和查询功能；专业管理是管理专业信息的添加、修改、删除和查询功能；学生信息管理是管理学生信息的添加、修改、删除和查询功能；教学计划管理是管理教学计划的添加、修改、删除和查询功能；学生成绩管理是管理学生成绩信息的添加、修改、删除和查询功能。关键字 学生信息 管理 窗体目 录1 引言11.1 项目开发计划阶段11.2 开发阶段12 学生信息管理系统简介33 系统功能分析54 系统数据库设计64.1 定义数据字典64.2 定义数据库结构65 系统应用程序设计95.1 新建工程95.2 窗体设计9结束语49致谢50参考文献51附录521 引言目前，随着高等院校办学规模的不断扩大，学生人数的逐年增长，学校对学生的信息管理工作也变得越来越繁重。为此，很大大中专院校都开发或购买了学生信息管理系统，用于对学校学生的基本信息、课程设置信息、成绩信息等进行计算机管理。从而方便快捷的对学生信息进行管理，保证了学校管理的正常并有效的进行着，不会因学生信息繁多，不好管理而影响学校的学生扩招计划。从而使学校快速持续稳定的发展着。本系统分为六个功能模块即系统用户管理模块、院系管理模块、专业管理模块、学生信息管理模块、教学计划管理模块和学生成绩管理模块。每个模块实现不同的功能：系统用户管理模块是对用户信息的添加、修改、删除和查询功能的实现；院系管理模块是对院系信息的添加、修改、删除和查询功能的实现；专业管理模块是对专业信息的添加、修改、删除和查询功能的实现；学生信息管理模块是对学生信息的添加、修改、删除和查询功能的实现；教学计划管理模块是对教学计划的添加、修改、删除和查询功能的实现；学生成绩管理模块是对学生成绩信息的添加、修改、删除和查询功能的实现。1.1 项目开发计划阶段这个时期的主要任务是分析用户需求，分析软件系统所追求的目标，分析开发该系统的可行性。经过了解大致可以分为以下两个阶段。（1） 问题定义阶段 收集、分析、理解、确定用户的要求，在与用户进行全面讨论的基础上共同拟定“软件系统目标与范围说明书”。（2） 可行性研究阶段 确立对问题定义阶段确实的问题是否有可行的解决方案，并对各种可能方案做出成本和效益分析，系统分析员据此提出“可行性论证报告”，作为确定是否继续进行这项工程的依据。1.2 开发阶段 这个时期包括设计和实现两个任务。其中设计任务又分为需求分析和系统设计两个阶段，实现任务包括编程和测试两个阶段。（1） 需求分析阶段确定用户对软件系统的全部需求，并以“需求说明书”的形式表达，其目的是明确该软件项目是用来“做什么”的。需求分析是整个开发任务的开始，也是最重困难、最耗时的一步。作为基础的需求分析是否做得充分与准确，直接决定了构建数据库与应用系统的速度和质量。需求分析做得不好，有时甚至会导致整个系统作废。（2）系统设计阶段设计软件系统的模块层次结构，设计模块的控制流程，其目的是明确软件系统“如何做”。本阶段又可以分为概要设计和详细设计两个步骤，前者完成软件系统模块的划分和模块的层次结构以及数据库结构设计；后者完成每个模块的控制流程设计。本阶段要完成“设计说明书”的编写。（3）编程阶段本阶段将按照选定的程序设计语言将“设计说明书”中每个模块的控制流程编写出相应的程序，得到软件系统的源程序。（4）测试阶段软件测试是在软件投入运行前，对软件需求分析、设计规格说明和编码的最终审查，是保证软件质量的关键步骤。2 学生信息管理系统简介本章讲述如何实现学生信息管理系统的开发，该系统各主要功能模块界面如图下：3 系统功能分析在实际开发此系统时，系统功能分析需要设计人员与用户进行全面、深入的交流，切实了解用户对整个系统期望具有的功能，与用户共同决定系统应具备的功能。学生信息管理系统主要具有以下功能： 系统用户管理：管理用户信息的添加、修改、删除和查询功能。 院系管理：管理院系信息的添加、修改、删除和查询功能。 专业管理：管理专业信息的添加、修改、删除和查询功能。 学生信息管理：管理学生信息的添加、修改、删除和查询功能。 教学计划管理：管理教学计划的添加、修改、删除和查询功能。 学生成绩管理：管理学生成绩的添加、修改、删除和查询功能。根据系统功能分析，可得到学生信息管理系统功能模块结构图如图31：学生信息管理系统系统用户管理 院系管理 专业管理学生信息管理教学计划管理学生成绩管理图31 学生信息管理系统功能模块结构图4 系统数据库设计数据库在学生信息管理系统中占有非常重要的地位，数据库设计的好坏将直接影响到系统的效率以及系统实现的效果。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整性和一致性，同时，合理的数据库结构也将有利于程序的实现。数据库设计可包括两个部分：定义数据字典、定义数据库结构。4.1 定义数据字典在学生信息管理系统中有下面所示的数据字典：（1）系统用户数据系统用户数据包含的数据项有用户名、密码、用户权限。（2）院系信息数据院系信息数据包含的数据项有学院代码和学校名称。（3）专业信息数据专业信息数据包含的数据项有学院代码、专业代码和专业名称。（4）学生基本信息数据学生基本信息数据包含的数据项有学号、姓名、性别、生日、民族、政治面貌、籍贯和备注。（5）教学计划信息数据教学计划信息数据包含的数据项有学院代码、专业代码、课程代码、课程名称、学期、学时、学分和课程性质。（6）学生成绩信息数据学生成绩信息数据包含的数据项有学号、姓名、课程代码、成绩和备注。4.2 定义数据库结构学生信息管理系统采用的后台数据库是Microsoft Office Access 2003 数据库系统，数据库名称为“StudentMIS.mdb“，其中包含了6张数据表，各表的名车设计结果分别如表41表46所示。（1）系统用户数据表（login）系统用户数据表用来保存用户的账户信息，表中各字段的属性如表41所示。表41 “login“数据表的各字段属性字段名称数据类型字段大小主键标题user文本10用户名password文本10密码admin是/否是否为超级用户（2）院系信息数据表（institute）院系信息数据表用来保存学校院系的信息，数据表中各字段的属性如表42所示。表42 “institute“数据表的各字段属性字段名称数据类型字段大小主键标题institude_id文本2Yes学院代码Institude_name文本22学院名称（3）专业信息数据表（major）专业信息数据表用来保存学校各院系所设专业的信息，数据表中各字段的属性如表43所示。表43 “major“数据表的各字段属性字段名称数据类型字段大小主键标题Institude_id文本2Yes学院代码major_id文本2Yes专业代码major_name文本22专业名称（4）学生信息数据表（students）学生信息数据表用来保存学校所有学生的基本信息，数据表中各字段的属性如表44所示。表44 “students“数据表的各字段属性字段名称数据类型字段大小主键标题number文本12Yes学号name文本8姓名sex文本1性别birth日期/时间生日nationality文本10民族political_party文本4政治面貌family_place文本30籍贯Memo备注备注说明：学生信息数据表中的学号字段的字段名为number，其长度为12。即number字段的前四位表示年级，其次两位表示学院代码，再次两位表示专业代码，接下来两位表示班级，最后两位表示序号。（5）教学计划信息数据表（lessons）教学计划信息数据表用来保存各学院专业所开设的各类课程的信息，数据表中各字段的属性如表45所示。表45 “lessons“数据表的各字段属性字段名称数据类型字段大小主键标题institude_id文本2Yes学院代码major_id文本2Yes专业代码lesson_id文本7Yes课程代码lesson_name文本50课程名称Term文本1学期hours数字整型（小数位数0）学时credit数字单精度型（小数位数1）学分lesson_type文本8课程性质（6）学生成绩信息数据表（score）学生成绩信息数据表用来保存学生各门课程的成绩信息，数据表中各字段的属性如表 46所示。表46 “score“数据表的各字段属性字段名称数据类型字段大小主键标题Number文本12Yes学号Name文本8姓名lesson_id文本7Yes课程代码Score数字单精度型（小数位数1，默认值0）成绩Memo备注备注5 系统应用程序设计5.1 新建工程在VB中新建一个标准EXE工程，并将工程保存为“学生信息管理系统.vbp“。接下来就可以设计各窗体，编写代码实现系统功能。5.2 窗体设计在已建的“学生信息管理系统.vbp“工程中新建窗体，并在相应的窗体上添加文本框、标签、直线以及命令按钮等常用的VB内部控件，并设置相关属性值。具体实现代码（部分）如下：1.用户登录窗体代码：Option ExplicitDim try_times As Integer 尝试登陆次数Private Sub Form_Load() 设置数据库路径 StudentDBfile = App.Path & StudentMIS.mdb 窗体中心定位 Call ScreenCenter(Me)End SubPrivate Sub cmdCancel_Click() 结束应用程序 If MsgBox(你选择了退出登陆，是否退出?, _ vbYesNo + vbInformation, 用户登陆) = vbYes Then End Else Exit Sub End IfEnd SubPrivate Sub cmdOK_Click()Dim sName As String, sPas As StringDim mrs As ADODB.Recordset, strSQL As String sName = Trim(txtUserName.Text): sPas = Trim(txtPassword.Text) 数据有效性检查 If sName = Then MsgBox 请输入用户名!, vbCritical, 用户登陆验证 txtUserName.SetFocus Exit Sub End If If sPas = Then MsgBox 请输入密码!, vbCritical, 用户登陆验证 txtPassword.SetFocus Exit Sub End If 检查用户名是否正确 strSQL = select * from login where user= & sName & Set mrs = ExecuteSQL(strSQL) If mrs.EOF = True Then MsgBox 用户名不存在！, vbCritical, 用户登陆验证 try_times = try_times + 1 If try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭！, _ vbCritical, 用户登陆验证 End Else txtUserName.SetFocus txtUserName.SelStart = 0 txtUserName.SelLength = Len(txtUserName.Text) Exit Sub End If End If strSQL = select * from login where user= & sName & & _ and password= & sPas & Set mrs = ExecuteSQL(strSQL) If mrs.EOF = True Then MsgBox 密码错误！, vbCritical, 用户登陆验证 try_times = try_times + 1 If try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭！, _ vbCritical, 用户登陆验证 End Else txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) Exit Sub End If End If MsgBox 登陆成功！, vbInformation, 用户登陆验证 保存当前登陆的权限 bolAuthority = mrs.Fields(admin) 加载MDI主窗体 StudentMIS.Show 卸载登陆窗体 Unload MeEnd Sub2.主窗体代码：Option ExplicitPrivate Sub MDIForm_Load() 操作菜单,按钮禁用 Call InitMenuAndToolbars(False) InitMenuAndToolbars为标准模块中自定义的公用函数End Sub教学计划信息菜单单击事件Private Sub mMan_Lessons_Click() If unloadChildForm() Then frmLessons.Show 操作菜单,按钮使能 Call InitMenuAndToolbars(True)End Sub专业信息菜单单击事件Private Sub mMan_Major_Click() If unloadChildForm() Then frmMajor.Show 操作菜单,按钮使能 Call InitMenuAndToolbars(True)End Sub成绩信息菜单单击事件Private Sub mMan_Score_Click() mOpe_CreTable.Enabled = False 建表菜单失效 If unloadChildForm() Then frmScore.Show 操作菜单,按钮使能 Call InitMenuAndToolbars(True)End Sub学生信息菜单单击事件Private Sub mMan_Students_Click() If unloadChildForm() Then frmStudent.Show 操作菜单,按钮使能 Call InitMenuAndToolbars(True)End Sub还原菜单命令Private Sub mOpe_Cancel_Click() Call Me.ActiveForm.CancelDataEnd Sub清空菜单命令Private Sub mOpe_Clear_Click()Dim s$, k% s = 是否确定删除当前的记录表的全部数据？ k = MsgBox(s, vbYesNo + vbQuestion, 操作提示) If k = vbYes Then Call Me.ActiveForm.ClearData End IfEnd Sub建表菜单命令Private Sub mOpe_CreTable_Click() Call Me.ActiveForm.CreateScoreTableEnd Sub删除菜单命令Private Sub mOpe_Delete_Click() Call Me.ActiveForm.DeleteDataEnd Sub保存菜单命令Private Sub mOpe_Update_Click() Call Me.ActiveForm.SaveDataEnd Sub退出菜单命令Private Sub mSys_Exit_Click() EndEnd Sub用户管理菜单命令Private Sub mSys_User_Click() If unloadChildForm() Then frmUserManage.ShowEnd Sub工具栏按钮单击事件Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Delete Call mOpe_Delete_Click Case New Call mOpe_CreTable_Click Case Recall Call mOpe_Cancel_Click Case Clear Call mOpe_Clear_Click Case Save Call mOpe_Update_Click End SelectEnd Sub3.用户管理窗体部分代码：Option ExplicitDim rs As ADODB.Recordset 记录集对象Dim strSQL As String 字符串变量，保存SQL语言Dim bEdit As Boolean 编辑状态标志Dim bAdd As Boolean 添加状态标志Private Sub Form_Load() Set rs = New ADODB.Recordset strSQL = select * from login Set rs = ExecuteSQL(strSQL) If rs.RecordCount = 0 Then Call DisButtons Else rs.MoveFirst Call FillText cmdUpdate.Enabled = False cmdCancel.Enabled = False End If 窗体中心定位 Call CenterPos(StudentMIS, Me)End SubPrivate Sub cmdEdit_Click()编辑记录 bEdit = True cmdEdit.Enabled = False cmdAdd.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrevious.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False txtUser.SetFocusEnd SubPrivate Sub cmdAdd_Click()添加记录 bAdd = True rs.AddNew Call ClearText cmdEdit.Enabled = False cmdAdd.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrevious.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False txtUser.SetFocusEnd SubPrivate Sub cmdDelete_Click()删除当前记录 If MsgBox(真的要删除吗？, vbYesNo + vbExclamation, 提示信息) = vbYes Then rs.Delete rs.MoveNext If rs.EOF And rs.RecordCount 0 Then rs.MoveFirst If rs.RecordCount = 0 Then Call DisButtons Call ClearText Else Call FillText End If rs.Requery End IfEnd SubPrivate Sub cmdUpdate_Click()更新 If Trim(txtUser.Text) = Then MsgBox 用户名不能为空!, vbCritical, 提示 txtUser.SetFocus Exit Sub End If If Trim(txtPassword.Text) = Then MsgBox 密码不能为空!, vbCritical, 提示 txtPassword.SetFocus Exit Sub End If If bEdit Then rs.Update If bAdd Then rs.Update rs.Requery rs.MoveLast End If Call FillText cmdEdit.Enabled = True cmdAdd.Enabled = True cmdDelete.Enabled = True cmdUpdate.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrevious.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True bEdit = False bAdd = FalseEnd SubPrivate Sub cmdCancel_Click()取消更改 bEdit = False bAdd = False rs.CancelUpdate If rs.RecordCount = 0 Then cmdUpdate.Enabled = False cmdAdd.Enabled = True Call ClearText Exit Sub Else Call FillText cmdEdit.Enabled = True cmdAdd.Enabled = True cmdDelete.Enabled = True cmdUpdate.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrevious.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True End IfEnd SubPrivate Sub cmdFirst_Click()第一条记录 rs.MoveFirst If rs.RecordCount 0 Then Call FillTextEnd SubPrivate Sub cmdPrevious_Click()上一条记录 rs.MovePrevious If rs.BOF Then rs.MoveFirst If rs.RecordCount 0 Then Call FillTextEnd SubPrivate Sub cmdNext_Click()下一条记录 rs.MoveNext If rs.EOF Then rs.MoveLast If rs.RecordCount 0 Then Call FillTextEnd SubPrivate Sub cmdLast_Click()最后一条记录 rs.MoveLast If rs.RecordCount 0 Then Call FillTextEnd SubPrivate Sub DisButtons()按钮禁用 cmdEdit.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = False cmdPrevious.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = FalseEnd SubPrivate Sub FillText()用当前记录的字段内容填充文本框 txtUser.Text = TransNull(rs.Fields(0) txtPassword.Text = TransNull(rs.Fields(1) If TransNull(rs.Fields(2) Then chkAdmin.Value = 1 Else chkAdmin.Value = 0 End IfEnd SubPrivate Sub ClearText()清除文本框 txtUser.Text = txtPassword.Text = chkAdmin.Value = FalseEnd Sub4专业信息窗体代码：Option ExplicitDim cn As New ADODB.Connection 连接对象Dim DataEdited As Boolean 数据已编辑标志Dim bFirstStart As Boolean 窗体首次启动的标志DataGrid内部错误处理Private Sub DataGrid1_Error(ByVal DataError As Integer, Response As Integer) If DataError = 7007 Then MsgBox 所输字符数超过允许输入字符最大个数，参见状态栏提示！, _ vbCritical, 错误提示 Response = 0 不弹出系统错误提示框 End IfEnd Sub设置ADO数据控件的连接属性和记录源属性Private Sub SetAdc() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= _ & StudentDBfile & ;Persist Security Info=False Adodc1.RecordSource = select major_id as 专业代码 & major_name as 专业名称_ & form major order by major_id ascEnd SubPrivate Sub Adodc1_FieldChangeComplete(ByVal cFields As Long, Fields As Variant, _ ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset)字段改变完成后触发的事件 DataEdited = TrueEnd SubPrivate Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, _ ByVal cRecords As Long, ByVal pError As ADODB.Error, _ adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)记录改变完成后触发的事件 Select Case adReason Case adRsnDelete, adRsnUpdate, adRsnAddNew DataEdited = True End SelectEnd SubPrivate Sub Adodc1_RecordsetChangeComplete(ByVal adReason As ADODB.EventReasonEnum, _ ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _ ByVal pRecordset As ADODB.Recordset)记录集改变完成后触发的事件 Select Case adReason Case adRsnAddNew, adRsnDelete, adRsnAddNew DataEdited = True End SelectEnd SubDataGrid控件当前单元行列位置改变事件Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)Dim dbrow As Long, s1$, s2$, s3$确定记录指针On Error Resume NextWith Adodc1.Recordset If .RecordCount = 0 Then dbrow = .RecordCount Else dbrow = .AbsolutePosition End If s1 = 当前记录位置： & dbrow s2 = 记录总数： & Adodc1.Recordset.RecordCount s3 = 提示： & Adodc1.Recordset.Fields(DataGrid1.Col).Name & 最多只允许输入 & _ Adodc1.Recordset.Fields(DataGrid1.Col).DefinedSize & 位字符！ StatBar.Panels(1).Text = s1 StatBar.Panels(2).Text = s2 StatBar.Panels(3).Text = s3End WithEnd SubPublic Sub DeleteData()删除当前记录 当前单元在最后一行，但没有 AddNew 操作，被挂起情况下退出该过程 If DataGrid1.AddNewMode = dbgAddNewCurrent Or Adodc1.Recordset.RecordCount = 0 Then Exit Sub End If Adodc1.Recordset.Bookmark = DataGrid1.Bookmark Adodc1.Recordset.Delete 设置修改标志 DataEdited = True DataGrid1.RefreshEnd SubPublic Sub SaveData()保存全部修改On Error GoTo errhandler: If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.UpdateBatch cn.CommitTrans 提交事务 DataEdited = False DataGrid1.Refresh Adodc1.Refresh Set cn = Adodc1.Recordset.ActiveConnection 获取当前记录集的连接对象 cn.BeginTrans 开始一个新事务 Exit Suberrhandler: 显示与数据库操作规则有关的错误信息 Call ShowDbRuleErrInf(专业代码)End SubPublic Sub CancelData()还原全部修改On Error GoTo errhandler: If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.CancelBatch cn.RollbackTrans 回滚事务 DataEdited = False DataGrid1.Refresh Adodc1.Refresh Set cn = Adodc1.Recordset.ActiveConnection 获取当前记录集的连接对象 cn.BeginTrans 开始一个新事务 Exit Suberrhandler: 显示与数据库操作规则有关的错误信息 Call ShowDbRuleErrInf(专业代码)End SubPublic Sub ClearData()删空当前记录集 Call DBRecordset_Delete(Adodc1.Recordset) DataGrid1.Refresh 设置修改标志 DataEdited = TrueEnd Sub窗体卸载前查询事件Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim s$, b% If DataEdited = True Then s$ = 数据已修改，是否保存？ b = MsgBox(s$, vbYesNoCancel + vbQuestion, 操作提示) Select Case b Case vbYes 保存修改 Call SaveData Case vbNo 取消修改 Call CancelData Case vbCancel Cancel = True 不关闭窗体 Exit Sub End