大学生奖助学金管理信息系统数据库的设计与实现

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

课程设计报告书

设计名称： VB+SQL2000课程设计

题 目： 大学生奖助学金信息管理系统 学生姓名：

专 业： 计算机科学与技术 班 别： 计科本081 学 号： 0804402123 指导老师： 123 日 期：月

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

摘要：

高校学生奖助学金是政府、高校自身、团体或个人给予学习成绩优良及经济困难学生的奖金。近几年来,中央和地方财政不断增加对高校贫困生资助的投入,再加上各类基金会和企业设立的奖助学金,使奖助学金面越来越广,量越来越大,涉及的学生越来越多。奖助学金是党和政府或企业对品学兼优及家庭经济困难学生的奖励和扶助。所以，有关大学生的各种信息也成倍增长。面对庞大的信息量，就需要有大学生奖助学金信息管理系统来提高这些学生的管理工作效率。本文设计了基于VB++SQL大学生奖助学金信息管理系统，通过这样的系统，可以做到信息的规范管理、科学统计、和快速的查询，从而减少管理方面的工作量。

第一章

系统设计

1、 系统功能分析

系统功能分析是在系统开发的总体任务的基础上完成的。本大学生奖助学金信息管理系统要完成的功能有：

·有关学生信息的输入，包括学生的基本信息，所在班级等； ·学生信息查询，包括学生的基本基本信息等； ·学生信息的修改； ·学生成绩信息的输入； ·学生成绩信息的修改； ·学生成绩信息的查询； ·学生成绩信息的统计； ·奖助学金信息的输入； ·奖助学金信息的设置和修改； ·奖助学金评定信息的输入； ·奖助学金评定信息的修改； ·奖助学金评定信息的查询；

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

·奖助学金评定信息的统计；

2、 系统功能模块分析

对上述的各项功能进行集中、分块，按照结构化程序设计的要求，得到下图所示的系统功能模块图。

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

大学生奖学金信息管理系统

成绩信息管理

成 绩 信 息 查 询

成 绩 信 息 修 改

成 绩 信 息 添 加

奖助学金评定管理

奖 助 学 金 评 定 查 询

奖 助 学 金 评 定 修 改

奖 助 学 金 评 定 添 加

3

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

第二章 数据库在一个信息管理系统中占有非常重要的地位，数据结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构程序设计可以提高数据库存储的效

数据库设计

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

率，保证数据的完整和一致。同时，合理的数据库结构将有利于程序实现。

设计数据库系统应该首先了解用户各个方面的需求，包括现有的以及将来的可能的增加的需求。

1、 数据库需求分析

用户的需求具体体现在各种信息的提供、保存、更新和查询，这就是要求的数据库结 能能充分满足各种信息输入和输出。收集基本数据、数据结构以及数据的流程，组成一份详尽的数据字典，为今后的具体设计带下基础。

再仔细分析调查有关大学生奖助学金信息需求的基础上，将得到如下图本系统所处理的数据流程。

大学生奖助学金管理信息系统E-R图

针对一般大学生奖助学金信息管理系统的需求，通过对评定过程的内容和数据流程分

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

析，设计如下面的数据项和数据结构。

·学生基本信息：包括学号、姓名、性别、出生日期、班号、联系号码、政治面貌、家庭住址和家庭生活描述等数据项。

·学生成绩信息：包括考号、学号、姓名、班号、分数等数据项。

·学生奖助学金评定信息：包括评定编码、学号、姓名、考号、奖学金标号和助学金标号等数据项。

·奖学金信息：包括奖学金标号、类别、等级、金额等数据项。 ·助学金信息：包括助学金标号、类别、等级、金额等数据项。

有了上面 数据结构、数据项、和数据流程，就可以进行下面的数据库设计。 2、数据库概念结构设计

得到上面的数据项和数据结构以后，就可以设计出能够满足客户需求的各种实体，以及它们之间的关系，为以后的逻辑结构设计打下基础。这些实体包括各种具体的信息，通过相互之的作用形成数据的流动。

根据实体之间具体描述E-R图如下所示。

学生实体E-R图

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

奖学金实体E-R图

助学金实体

E-R

图

实体与实体之间的关系E-R如下图所示。

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

各实体之间关系E-R图

3、数据库逻辑结构设计

现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。上面实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。

大学生奖助学金信息管理系统数据库中的歌表格的设计如下表。每个表格表示在数据库中的一个表。

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

result_Info 学生成绩信息表

SG_Info 学生奖助学金评定表

grant_Info 助学金表

User_Info 系统用户表

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

第三章

界面设计

登录界面：

为了保证系统安全性，防止对系统资源的非法使用，在一开始进入系统时，会显示用户登录窗口，以检验与确认用户身份，如下图

主系统界面：

在用户正确输入用户名和密码后，点击确认后出现系统的主菜单界面，如下图

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

下面列出部分功能模块界面：

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

大学生奖学金信息管理系统

12

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

总结

刚刚看到这个大学生奖助学金信息管理题目的时候，确实不是很懂，因为我不懂这些奖助学金的流程是怎样的，不知从何建立数据库及里面的数据项和数据结构。后来想想，要换一个题目不，发现自己会做的题目，人家早就换了。所以只能做这个题目了，只能到处收集资料，了解相关内容了。

本来想用VC++做平台的感觉，需要些时间了，设计紧。后来选择VB了，快点啊，但是VB早就不记得了，只能花些时间回去看了。在想好思路好了，确定数据库后，开始构思数据项和数据结构了，以及之间的关联后。还有考虑系统设计，怎么管理系统，该用哪些功能模块。一切搞完后，开始建立数据库了。再用VB+SQL2000做系统时候，碰到很多问题，也是问别人的，或者百度等搜资料方法的，最后也终于做完了。

通过这个大学生奖助学金信息管理系统设计，从今学到了很多知识，并且引申了很多知识点，最重要还是懂得一个系统开发流程了。不过感觉数据库的后台工作真的很重要的，就是架构一个好的数据库，真的费劲，要有想法，考虑的东西真的要很前和预知一些问题才行了，要不后面工作真的坐不下去的。其次选择的平台的，都是一些添加、删除、查询也没太多问题了，只要对一种语言熟悉就好了。不管怎么说，为毕业后设计论文打下了基础了。

参考文献

【1】刘炳文 Visual Basic程序设计教程（第三版） 【2】李华飚 Visual Basic数据库编程 【3】王玉 SQL Server数据库应用技术 【4】王珊 数据库系统概论（第四版）

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

附录：（功能模块代码）

1、 登录

Option Explicit Public OK As Integer '记录确定次数

Dim miCount As Integer Private Sub cmdCancel_Click() OK = False Me.Hide End Sub

Private Sub cmdOK_Click() '用来存放记录SQL 语句 Dim txtSQL As String '用来存放记录集对象

Dim mrc As ADODB.Recordset '用来存放返回信息 Dim MsgText As String UserName = ""

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else

txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else

If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide FrmMain.Show

UserName = Trim(txtUserName.Text) Else

MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

End If

miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit Sub End Sub

Private Sub Form_Load() OK = False miCount = 0 End Sub

Private Sub From_() End Sub

2、 系统

添加用户代码

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click() Dim txtSQL As String

Dim mrc As ADODB.Recordset Dim MsgText As String

If Trim(txtUserName.Text) = "" Then

MsgBox "请输入用户名称！", vbOKOnly + vbExclamation, "警告" Exit Sub

txtUserName.SetFocus Else

txtSQL = "select * from user_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) While (mrc.EOF = False)

If Trim(mrc.Fields(0)) = Trim(txtUserName.Text) Then

MsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus txtUserName.Text = "" txtPassword1.Text = "" txtPassword2.Text = "" Exit Sub Else

mrc.MoveNext End If Wend

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then

MsgBox " 两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword1.Text = "" txtPassword2.Text = "" Exit Sub Else

If txtPassword1.Text = "" Then

MsgBox " 密码不能为空！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword1.Text = "" txtPassword2.Text = "" Else mrc.AddNew

mrc.Fields(0) = Trim(txtUserName.Text) mrc.Fields(1) = Trim(txtPassword1.Text) mrc.Update mrc.Close Me.Hide

MsgBox " 添加用户成功！", vbOKOnly + vbExclamation, "添加用户" End If End If End Sub

修改密码

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset

If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then MsgBox " 密码输入不正确！", vbOKOnly + vbExclamation, "警告" txtPassword1.SetFocus txtPassword1.Text = "" Else

txtSQL = "select * from user_Info where user_ID='" & UserName & " '" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.Fields(1) = txtPassword1.Text mrc.Update mrc.Close

MsgBox " 密码修改成功！", vbOKOnly + vbExclamation, "修改密码"

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

End If End Sub

Private Sub Form_Load() End Sub

3、 学生信息管理

添加学生信息

Private Sub cmdCancel_Click() Unload Me End Sub

Private Sub cmdOK_Click() Dim mrc As ADODB.Recordset Dim txtSQL, MsgText As String '判断是否输入学号

If Not Testtxt(txtSID.Text) Then

MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告" txtSID.SetFocus Exit Sub End If

'判断是否输入姓名

If Not Testtxt(txtName.Text) Then

MsgBox "请输入姓名！", vbOKOnly + vbExclamation, "警告" txtName.SetFocus Exit Sub End If

'判断是否输入性别

If Not Testtxt(comboGender.Text) Then

MsgBox "请选择性别！", vbOKOnly + vbExclamation, "警告" comboGender.SetFocus Exit Sub End If

'判断是否输入出生日期

If Not Testtxt(txtBorndate.Text) Then

MsgBox "请输入出生日期！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Exit Sub End If

'判断是否输入班号

If Not Testtxt(comboClassno.Text) Then

MsgBox "请选择班号！", vbOKOnly + vbExclamation, "警告" comboClassno.SetFocus

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

Exit Sub End If

'判断是否输入联系号码 If Not Testtxt(txtTel.Text) Then

MsgBox "请输入联系号码！", vbOKOnly + vbExclamation, "警告" txtTel.SetFocus Exit Sub End If

'判断是否输入政治面貌

If Not Testtxt(txtPolitical.Text) Then

MsgBox "请输入入校日期！", vbOKOnly + vbExclamation, "警告" txtPolitical.SetFocus Exit Sub End If

'判断是否输入家庭住址

If Not Testtxt(txtAddress.Text) Then

MsgBox "请输入家庭住址！", vbOKOnly + vbExclamation, "警告" txtAddress.SetFocus Exit Sub End If

'判断输入学号是否是数字

If Not IsNumeric(Trim(txtSID.Text)) Then

MsgBox "学号请输入入数字！", vbOKOnly + vbExclamation, "警告" txtSID.SetFocus Exit Sub End If

txtSQL = "select * from student_Info where student_ID='" & Trim(txtSID.Text) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) '判断是否有重复记录 If mrc.EOF = False Then

MsgBox "学号重复，请重新输入！", vbOKOnly + vbExclamation, "警告" mrc.Close txtSID.SetFocus Else mrc.Close

'判断是输入的出生日期是否按格式 If Not IsDate(txtBorndate.Text) Then

MsgBox "出生时间应输入日期格式(yyyy-mm-dd)！", vbOKOnly + vbExclamation, "警告" txtBorndate.SetFocus Else

txtBorndate = Format(txtBorndate, "yyyy-mm-dd") txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboGender.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassno.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtPolitical.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtLife.Text) mrc.Update

MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告" mrc.Close Me.Hide End If End If End Sub

Private Sub Form_Load() Dim mrc As ADODB.Recordset Dim txtSQL, MsgText As String Dim i As Integer '为下拉列表框添加内容 comboGender.AddItem "男" comboGender.AddItem "女" txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) '添加内容到列表框

For i = 1 To mrc.RecordCount comboClassno.AddItem mrc.Fields(4) mrc.MoveNext Next i mrc.Close End Sub

Private Sub txtBormdate_Change() End Sub

修改学生信息

Dim mrc As ADODB.Recordset: Dim myBookmark As Variant: Dim mcclean As Boolean '判断是否修改记录

Private Sub cmdCancel_Click() If mcclean = False Then Frame2.Enabled = True '使各个按钮生效

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

cmdFirst.Enabled = True cmdLast.Enabled = True cmdPrevious.Enabled = True cmdNext.Enabled = True '使各个文本框失效 txtSID.Enabled = False txtName.Enabled = False comboGender.Enabled = False txtBorndate.Enabled = False comboClassno.Enabled = False txtTel.Enabled = False txtPolitical.Enabled = False txtAddress.Enabled = False txtLife.Enabled = False '回到开始记录位置

mrc.Bookmark = myBookmark Call viewData Else

MsgBox "什么都没有修改！", vbOKOnly + vbExclamation, "警告" mcclean = True End If End Sub

Private Sub cmdDelete_Click() '记下当前记录位置

myBookmark = mrc.Bookmark

str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") If str2$ = vbOK Then mrc.MoveNext If mrc.EOF Then mrc.MoveFirst

myBookmark = mrc.Bookmark mrc.MoveLast mrc.Delete

mrc.Bookmark = myBookmark '调用显示数据 Call viewData Else

myBookmark = mrc.Bookmark mrc.MovePrevious mrc.Delete '回到原来位置

mrc.Bookmark = myBookmark '调用显示数据 Call viewData

本文来源：https://www.bwwdw.com/article/4rx1.html