基于VB的学籍信息管理系统.doc

安全信息工程课程报告班级：055102班简单的学籍管理系统一、 需求分析随着全国高校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学籍管理系统来提高管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。本系统主要包括学生信息查询和信息添加等功能，来初步实现考生成绩信息的计算机化管理，更多相关功能有待以后慢慢完善。二、系统功能：本学生信息管理系统采用的语言是Visual Basic,用Access 2003数据库完成，有以下功能：(1)有较好的权限管理；(2)原始数据修改简单方便,支持多条件修改；(3)方便的数据查询，支持多条件查询；(4)支持模糊查询功能。2.1采用Visual Basic有以下特点：2.1.1可视化编程Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2.1.2结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。2.1.3事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。2.1.4访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，并提供了强大的数据存储和检索功能。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等三、 设计路线菜单窗口修改退出保存查询删除添加四、 总结计算机成绩信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统设计是以能够为用户提供充足的信息和快捷的查询手段为核心内容的。一直以来人们所使用的传统的人工管理文件信息的方式实在是太落后，它存在着许许多多的缺点，效率低、保密性差的问题尤其突出。另外工作量稍微一大,将会有大量的文件和数据需要维护,有些问题是人工所无法解决的。随着科学技术的不断提高,计算机应用越来越广泛,其强大的功能已为人们所深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的优点，检索快捷、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些显而易见的优点能够极大地提高学校管理人员的工作效率，也即提高进行学生信息管理的效率。当然，我做的这个系统只是自己的一种思想，要把它用到实际中去还需要很大的改进，这有待以后再逐完善。本系统同时使用了ADO和ODBC两种连接数据库功能；支持模糊查询功能；数据库以多表的形式出现。但是由于我们对于VB编程工作还处于入门阶段，缺乏专业知识，所以对于制作软件和管理系统尚不能很好地完善系统要求。五、学籍信息管理系统详细界面及源代码清单1、菜单主窗体Private Sub Add_Click() Text1 = Text2 = Text3 = Dim str1, str2 str1 = 输入新纪录 str2 = MsgBox(str1, vbOKCancel, 添加记录) If str2 = vbOK Then Text1.SetFocus End IfEnd SubPrivate Sub cmdAdd_Click() Text1 = Text2 = Text3 = Dim str1, str2 str1 = 输入新纪录 str2 = MsgBox(str1, vbOKCancel, 添加记录) If str2 = vbOK Then Text1.SetFocus End IfEnd SubPrivate Sub cmdDelete_Click() Dim str1, str2 str1 = 你确定想要删除吗？ str2 = MsgBox(str1, vbYesNo + vbQuestion, 确认删除) If str2 = vbYes Then Adodc1.Recordset.Delete 删除当前记录 Adodc1.Recordset.MoveNext 显示下一条记录 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 如果到结尾，则显示最后一条记录 cmdSave.Enabled = True End If End IfEnd SubPrivate Sub cmdExit_Click() EndEnd SubPrivate Sub cmdFind_Click() Form2.ShowEnd SubPrivate Sub cmdSave_Click() If Text1.Text = Then MsgBox 准考证号不能为空, vbExclamation, 错误 Text1.SetFocus ElseIf Text2.Text = Then MsgBox 姓名不能为空, vbExclamation, 错误 Text2.SetFocus Else Adodc1.Recordset.Update 用于保存添加好的记录 Adodc1.Recordset.MoveLast 显示刚刚增加的记录 MsgBox 保存成功 cmdAdd.Enabled = True End IfEnd SubPrivate Sub cmdUpdate_Click() MsgBox 请编辑需修改的字段和记录 Dim myEdit As Boolean myEdit = True Text1.SetFocus If Text1 = Then MsgBox 学号不能为空！, vbExclamation, 错误 Text1.SetFocus ElseIf Text2 = Then MsgBox 姓名不能为空, vbExclamation, 错误 Text2.SetFocus Else cmdSave.Enabled = True End IfEnd SubPrivate Sub Delete_Click() Dim str1, str2 str1 = 你确定想要删除吗？ str2 = MsgBox(str1, vbYesNo + vbQuestion, 确认删除) If str2 = vbYes Then Adodc1.Recordset.Delete 删除当前记录 Adodc1.Recordset.MoveNext 显示下一条记录 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 如果到结尾，则显示最后一条记录 cmdSave.Enabled = True End If End IfEnd SubPrivate Sub End_Click() EndEnd SubPrivate Sub Form_Load() Text1 = Text2 = Text3 = End SubPrivate Sub Query_Click() Form2.ShowEnd SubPrivate Sub Save_Click() If Text1.Text = Then MsgBox 准考证号不能为空, vbExclamation, 错误 Text1.SetFocus ElseIf Text2.Text = Then MsgBox 姓名不能为空, vbExclamation, 错误 Text2.SetFocus Else Adodc1.Recordset.Update 用于保存添加好的记录 Adodc1.Recordset.MoveLast 显示刚刚增加的记录 MsgBox 保存成功 cmdAdd.Enabled = True End IfEnd SubPrivate Sub Update_Click() MsgBox 请编辑需修改的字段和记录 Dim myEdit As Boolean myEdit = True Text1.SetFocus If Text1 = Then MsgBox 学号不能为空！, vbExclamation, 错误 Text1.SetFocus ElseIf Text2 = Then MsgBox 姓名不能为空, vbExclamation, 错误 Text2.SetFocus Else cmdSave.Enabled = True End IfEnd Sub2、查询窗体Private Sub Command1_Click() Dim strSql As String If Text1.Text Then Adodc1.Recordset.Close If Val(Text1.Text) 0 Then strSql = select * from STU where snum like % & Trim(Text1.Text) & % Else strSql = select * from STU where sname like %