学生管理系统 毕业设计论文.docx

学生管理系统 毕业设计论文 本科毕业论文（设计） 基于VB的学生管理系统 设计与实现 目录 1 界面设计 (1) 1.1 菜单栏的设计 (1) 1.2 工具栏的设计 (2) 1.3 状态栏的设计 (3) 2 模块设计 (3) 2.1 个人情况模块 (3) 2.2 考勤模块 (10) 2.3 奖学金模块 (15) 2.4 等级考试模块个人成绩模块选修成绩模块 (17) 2.5 个人交费情况 (23) 2.6 用户管理模块 (23) 2.7 登陆模块 (26) 2.8 ADO控件 (28) 结束语 (28) 参考文献 (28) 致谢 (30) 基于VB的学生管理系统设计与实现 摘要 学生管理系统对于学校的决策者和管理者来说都至关重要，是一个教育单位不可缺少的管理工具，能够为用户提供充足的信息和快捷的查询手段。本学生管理系统是基于VB技术的系统。包括个人情况模块、考勤模块、奖学金模块、等级考试模块、个人成绩模块、选修成绩模块、个人交费情况模块、用于控制操作级别的用户管理模块。在这些模块中，除了基本的删除、添加、查询外，有的模块还加了更加详细的查询内容。 关键词 学生管理系统；模块；查询 Design and Realization of the Student Management System Based on VB Abstract The student management system is vital for decision-makers and managers of schools. It is an indispensable management tool which can provide sufficient information and quick query measure for them. This student management system is based on VB technology, includes the individual situation module，the checking attendance module，the scholarship module，the rank test module，the individual performance module，the choose course result module，the individual paying-fee situation module，the user management module. Basic functions such as delete, add and query are realized in these modules，and more detailed query contents are added in some of the modules. Keywords The Sudent Mnagement System; Module; Query 学生管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。使用计算机对学生档案信息进行管理，具有手工管理无法比拟的优点。如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，这些优点能够极大地提高学生档案管理的效率。 本学生管理系统包括个人情况模块、考勤模块、奖学金模块、等级考试模块、个人成绩模块、选修成绩模块、个人交费情况模块、用于控制操作级别的用户管理模块。在这些模块中，除了基本的删除、添加、查询外，有的模块还加了更加详细的查询内容。 1 界面设计 1.1 菜单栏的设计 在窗体的标题栏下显示的是菜单栏，它包含一个或多个菜单标题。在程序运行时，当用户选择某个菜单标题时会下拉出一个菜单，菜单中的菜单项可以是命令、选项、分隔条或子菜单标题。每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。菜单项的每个属性都能设置和查看，如name(名称)和caption(标题)属性等。每个菜单项只能响应一个事件，即Click事件。具体步骤如下：（1）在设计状态，选择工具“菜单下的菜单编辑器（Ctrl+E）”命令，会出现菜单编辑器窗口。 （2）在菜单设计窗口中，按下表对每一个菜单项输入标题、控制名称和相应的快捷键。如表1-1菜单项的设计。 表1-1 菜单项的设置 当完成所有输入工作后，选择“确定”命令按钮，就完成了整个菜单的建立工作，然后给各个菜单的Click事件中写入代码。 1.2 工具栏的设计 工具栏是为用户提供了应用程序中最常用的菜单命令的快速访问方法，进一步增强应用程序的菜单界面，工具栏制作的方法是将ToolBar、ImageList组合使用。创建工具栏的步骤是：（1）在ImageList控件中添加所需的图像。 ImageList控件不单独使用，专门为其他控件提供图像库，是一个图像容器控件。在窗体上增加ImageList控件后，选中该控件，单击右键，从弹出的快捷菜单中选择“属性”，然后在“属性页”对话框选择“图像”标签，在图像框中插入图像，每个图像的属性见表1-2。 表1-2 控件属性的设置 （2）在ToolBar控件中创建Button对象。 ToolBar控件中的每个按钮的图像都来自ImageList对象中插入的图像。 为工具栏连接图像 在窗体上增加ToolBar控件后，打开“属性页”对话框，选择“通用”标签，对其各项进行设置，一般取默认值。 为工具栏增加按钮 在“属性页”对话框中选择“按钮”标签，单击“插入按钮”可以在工具栏增加按钮，然后对各属性进行设置。 （3）在uttonClick事件中用Select Case语句对各按钮进行相应的编程。 1.3 状态栏的设计 状态栏用来显示系统信息和对用户的提示。创建状态栏的步骤是： （1）建立状态栏 设计时，在窗体上增加Statusbar控件后，打开其“属性面”对话框，选择“窗格”标签，设置个窗格，各窗格属性设置如表1-3。 表1-3 Statusbar控件属性设置 （2）运行时改变状态栏 运行时，能重新设置窗格Panel对象以反映不同的功能，除第一个窗格外其它的窗格都通过编程来实现。 2 模块设计 本学生管理系统结构图，如图2-1所示： 图2-1 学生管理系统结构图 2.1 个人情况模块 个人情况模块有三个小的模块组成：修改与添加，删除，查询。 2.1.1 个人基本情况添加 界面如图2-2所示： 图2-2 个人信息添加 个人基本情况添加模块的设计思想是首先看输入的内容，即个人信息是不是空的。如果是空的，则不允许添加；如果不是空的，那么在个人情况表与个人详细情况表中加入界面上所输入的信息。它的添加功能是用下面的代码实现的: If Trim(Text1) = "" Or Trim(Text2) = "" Or Trim(Text3) = "" Or Trim(Text4) = "" Or Trim(Text5) = "" Or Trim(Text6) = "" Or Trim(Text7) = "" Or Trim(Text9) = "" Or Trim(Text10) = "" Or Trim(Text11) = "" Then MsgBox "所有信息都不能为空！" Exit Sub End If Adodc1.RecordSource = "select * from jibenqingkuang" Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("学号") = Trim(Text1) Adodc1.Recordset.Fields("姓名") = Trim(Text2) Adodc1.Recordset.Fields("性别") = Trim(Text3) Adodc1.Recordset.Fields("班级") = Trim(Text4) Adodc1.Recordset.Fields("专业") = Trim(Text5) Adodc1.Recordset.Fields("年龄") = Val(Trim(Text6) Adodc1.Recordset.Fields("出生日期") = Trim(Text7) Adodc1.Recordset.Fields("政治面貌") = Trim(Combo1.Text) Adodc1.Recordset.Update Adodc1.Recordset.Close Adodc1.RecordSource = "select * from xiangxiqingkuang" Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("姓名") = Trim(Text2) Adodc1.Recordset.Fields("身份证号") = Trim(Text9) Adodc1.Recordset.Fields("生源所在地") = Trim(Text10) Adodc1.Recordset.Fields("家庭所在地") = Trim(Text11) Adodc1.Recordset.Update MsgBox "个人基本情况和详细情况的记录添加成功！" 2.1.2 个人基本情况的查询 界面如图2-3所示： 图2-3 基本情况查询 设计思想是先在条件中输入要查找的条件，然后按所输入的条件用SQL语言的SELECT语句进行查询。在查询之前，要看看输入的条件是不是为空，如果为空，出现提示，“没有输入条件，请输入!”然后，在根据姓名条件的精确或是模糊进行查询。查询到的个人信息，放到具体的文本框中。它的四个按钮用来控制得到的记录集的上下移动。中间自己定义了一个过程move1，用来更新文本框的数据。部分代码如下： 查询代码： Dim sql As String sql = "1" If Trim(Text1) = "" And Trim(Text2) = "" And Trim(Text3) = "" And Trim(Text4) = "" And Trim(Combo1.Text) = "忽略" And Trim(Combo2.Text) = "忽略" Then MsgBox "没有输入条件，请输入!" Exit Sub End If If Trim(Text1) "" Then If Option1.Value Then sql = sql + " and 姓名='" & Text1 & "'" Else sql = sql + " and 姓名 like '%" & Text1 & "%'" End If End If If Trim(Text2) "" Then sql = sql + " and 年龄" & Trim(Combo3.Text) & Text2 & "" If Trim(Text3) "" Then sql = sql + " and 学号" & Trim(Combo4.Text) & "'" & Text3 & "'" If Trim(Text4) "" Then sql = sql + " and 班级='" & Text4 & "'" If Trim(Combo1.Text) "忽略" Then sql = sql + " and 专业='" & Trim(Combo1.Text) & "'" If Trim(Combo2.Text) "忽略" Then sql = sql + " and 性别='" & Trim(Combo2.Text) & "'" Adodc1.RecordSource = "select * from jibenqingkuang where " & sql Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "jibenqingkuang表，没有满足条件的记录!" Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Else Command3.Enabled = False Command4.Enabled = False Command5.Enabled = True Command6.Enabled = True move1 End If If Adodc1.Recordset.BOF Then Command3.Enabled = False Command4.Enabled = False Else Command3.Enabled = True Command4.Enabled = True End If Command5.Enabled = True Command6.Enabled = True Adodc1.Recordset.MovePrevious move1 move1的代码如下： Text6.Text = Adodc1.Recordset.Fields("学号") Text7.Text = Adodc1.Recordset.Fields("姓名") Text8.Text = Adodc1.Recordset.Fields("性别") Text9.Text = Adodc1.Recordset.Fields("班级") Text10.Text = Adodc1.Recordset.Fields("年龄") Text11.Text = Adodc1.Recordset.Fields("专业") Text12.Text = Adodc1.Recordset.Fields("政治面貌") Text13.Text = Adodc1.Recordset.Fields("出生日期") Adodc2.RecordSource = "select * from xiangxiqingkuang where 姓名='" & Trim(Text7.Text) & "'" Adodc2.Refresh If Adodc2.Recordset.EOF = True Then MsgBox "xiangxiqingkuang表，没有满足条件的记录!" Exit Sub Else