VB学生成绩管理系统课程设计报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb课程设计报告36”。
VB程序设计 课程设计报告
班 级：***** 姓 名：***** 序 号：***** 指导老师：*****
目录
1、课设的目的..............................................................................................................................22、界面设计和功能设计............................................................................................................23、系统功能实施...................................................................................................................114、总结........................................................................................................................................30
一、课设的目的1.本次课程设计提高了我们的实践动手能力
5.通过本次课程设计，熟悉用户界面的设计
2.通过本次课程设计，进一步理解计算机程序设计的思路与方法
3.本次课程设计之后，达到能熟练使用各种常见的VB控件，理解面向对象的思想 4.经过本次课程设计，我们进一步熟练运用VB的语言元素和流程控制语句
6.经过本次课程设计，熟悉数据访问控件ADO及相关对象的使用，能基于ADO控件实现Acce的数据访问与操纵
二、界面设计和功能设计
1、下面的界面为用户登陆界面：
用户名和密码均已设定，用户名为zgzy，密码为11201，只有输入正确，然后点击“登陆“按钮才能进入主界面。如果用户名或密码三次输入错误，则系统自动退出。当你点击“退出“按钮时，弹出一个对话窗，界面如下：
在对话框上点击“是”按钮，则退出系统，如果点击“否”，则该界面不变。
2、当用户名和密码均输入正确，点击“登陆”按钮，进入主界面——“学生成绩管理系统”界面，该界面是其他子界面的入口，界面如下：
3、进入主界面后，点击“学生管理（删除添加）”，进入学生管理界面，界面如下
该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击“添加“按钮，可以将数据录入到数据库中，如果此时点击”删除“按钮，则刚才输入的数据就会被删除，点击”保存“按钮时，输入的数据就会自动保存在数据库里，点击”返回主窗体“按钮，该窗体消失，主窗体出现。
4、在主界面点击“各科成绩查询“按钮，出现如下界面：
该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果——
5、在主界面点击“姓名查询“按钮后，会出现如下界面：
该界面与上一界面相似，在文本框输入要查询的姓名后，点击“查询“按钮，就会在DataGrid控件上显示所要查询的结果。下面为输入条件后查询的结果——
5、在主界面点击“班级查询“按钮后，会出现如下界面：
在文版框中输入所要查询的班级，DataGrid控件上就会显示所要查询的结果。下面为输入条件后查询的结果——
6、在主界面上点击“各科成绩段查询“按钮后，会出现如下界面：
点击“计算分数段统计“按钮后，就会出现所要查询的结果。下面为查询的结果——
7、在主界面点击“计算总分“按钮后，出现如下界面：
点击“清除总分”按钮后，出现如下界面
8、在主界面点击“排名“按钮后，出现如下界面：
在该界面上点击“排名“按钮后，在DataGrid控件上会显示出按成绩高低排名的结果，点击”清除排名“按钮后，刚才结果消失，显示原来结果。下面为所现实的结果——
9、在主界面点击“统计直方图“按钮后，出现如下界面：
在该界面点击各个按钮后，就会出现与之相关科目的成绩统计直方图，下面为查询的结果——
10、在主界面点击“优等生“按钮后，出现如下界面：
点击按钮查询后，结果就会在界面上显示出来。下面为所查询的结果——
三、系统功能实施
以上展示的是系统的所有界面，怎样才能让这所有的功能实现呢？数据库和ADO控件的使用便是其中的关键。
1、建立如下数据库
(学号、姓名、班级、英语、数学、VB、总分、排名)
2、建立如下图的所有界面：
3、ADO控件和DataGrid控件以及数据库的连接步骤：（这一步在设计界面的同时完成）
（1）、如何加载ADO控件： 步骤1：
步骤2：
步骤3：
各个界面的ADO控件如何连接数据库（分两步）：
步骤1：
如下面界面中的5个步骤
步骤2：
选中ADO控件Adodc1，点击鼠标右键选择属性，然后界面设置如下：
控件绑定数据库的字段操作说明：
属性设置说明：下面以学号为例，姓名、班级等都可参考此。将学号对应的文本框Text1连接Adodc1显示数据库中的学号，需要设置DataSource和DataField两个属性,首先选中Text1文本框，并进行下面的两步操作，即可绑定数据库的学号字段。
设置DataSource:
设置DataField:
（2）、如何加载DataGrid控件 控件DataGrid，可以实现数据的批量处理，该控件在控件库Microsoft DataGrid Control 6.0中。
说明：DataGrid控件属性设置
以下为各个界面所对应的代码——
该界面代码如下：
Private Sub Command1_Click()If Text1.Text = “zgzy” And Text2.Text = “11201” Then Form1.Show Unload me Else MsgBox “用户名或密码错误,请重新输入”, vbMsgBoxSetForeground, “系统提示！” End If
Static t As Integer t = t + 1 If t >= 3 Then End End Sub
Private Sub Command2_Click()a = MsgBox(“确定要退出本系统吗？”, 3 + 32 + 256, “系统提示！”)
If a = 6 Then Unload Me End If End Sub
该界面代码如下：
Private Sub Command1_Click()xsglfrm.Show End Sub Private Sub Command10_Click()ydsfrm.Show End Sub Private Sub Command3_Click()jszffrm.Show End Sub Private Sub Command4_Click()
pmfrm.Show End Sub Private Sub Command5_Click()
zftjtfrm.Show End Sub Private Sub Command6_Click()
cjcxfrm.Show End Sub Private Sub Command7_Click()
xmcxfrm.Show End Sub Private Sub Command8_Click()
bjcxfrm.Show End Sub Private Sub Command9_Click()
gkcjfrm.Show End Sub
该界面代码如下：
Private Sub Command1_Click()Me.Adodc1.Recordset.AddNew End Sub
Private Sub Command2_Click()If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then
Exit Sub End If Me.Adodc1.Recordset.Delete Me.Adodc1.Recordset.MoveNext If Me.Adodc1.Recordset.RecordCount = 0 Then
Exit Sub End If If Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLast End Sub
Private Sub Command4_Click()Me.Adodc1.Recordset.Save End Sub
Private Sub Command5_Click()
Unload Me
mainfrm.Show End Sub
该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “ ” + kc_条件 Me.Adodc1.Refresh End Sub
Private Sub Form_Load()kc_条件 = “>=92” kc = “vb” End Sub
Private Sub Option1_Click()
kc = “VB” End Sub Private Sub Option2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub
该界面代码如下：
Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_条件 + “'” Me.Adodc1.Refresh End Sub
Private Sub Form_Load()kc = “name” End Sub
该界面代码如下： Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()kc_条件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_条件 + “'” Me.Adodc1.Refresh End Sub
Private Sub Form_Load()kc = “cla” End Sub
该界面代码如下：
Private Sub Command1_Click()
Dim vb_A As Integer
Dim vb_B As Integer
Dim vb_C As Integer
Dim vb_D As Integer
Dim vb_E As Integer
Dim Math_A As Integer
Dim Math_B As Integer
Dim Math_C As Integer
Dim Math_D As Integer
Dim Math_E As Integer
Dim English_A As Integer
Dim English_B As Integer
Dim English_C As Integer
Dim English_D As Integer
Dim English_E As Integer
Me.Adodc1.RecordSource = “select * from stu where vb>=90”
Me.Adodc1.Refresh
vb_A = Me.Adodc1.Recordset.RecordCount
Me.Text1 = vb_A
Me.Adodc1.RecordSource = “select * from stu where vb>=80 and vb
Me.Adodc1.Refresh
vb_B = Me.Adodc1.Recordset.RecordCount
Me.Text2 = vb_B
Me.Adodc1.RecordSource = ”select * from stu where vb>=70 and vb
Me.Adodc1.Refresh
vb_C = Me.Adodc1.Recordset.RecordCount
Me.Text3 = vb_C
Me.Adodc1.RecordSource = “select * from stu where vb>=60”
Me.Adodc1.Refresh
vb_D = Me.Adodc1.Recordset.RecordCount
Me.Text4 = vb_D
Me.Adodc1.RecordSource = “select * from stu where vb
Me.Adodc1.Refresh
vb_B = Me.Adodc1.Recordset.RecordCount
Me.Text5 = vb_E
Me.Adodc1.RecordSource = ”select * from stu where math>=90“
Me.Adodc1.Refresh
Math_A = Me.Adodc1.Recordset.RecordCount
Me.Text6 = Math_A
Me.Adodc1.RecordSource = ”select * from stu where math>=80 and math
Me.Adodc1.Refresh
Math_B = Me.Adodc1.Recordset.RecordCount
Me.Text7 = Math_B
Me.Adodc1.RecordSource = “select * from stu where math>=70 and math
Me.Adodc1.Refresh
Math_C = Me.Adodc1.Recordset.RecordCount
Me.Text8 = Math_C
Me.Adodc1.RecordSource = ”select * from stu where math>=60 “
Me.Adodc1.Refresh
Math_D = Me.Adodc1.Recordset.RecordCount
Me.Text9 = Math_D
Me.Adodc1.RecordSource = ”select * from stu where math
Me.Adodc1.Refresh
Math_E = Me.Adodc1.Recordset.RecordCount
Me.Text10 = Math_E
Me.Adodc1.RecordSource = “select * from stu where english>=90”
Me.Adodc1.Refresh
English_A = Me.Adodc1.Recordset.RecordCount
Me.Text11 = English_A
Me.Adodc1.RecordSource = “select * from stu where english>=80 and english
Me.Adodc1.Refresh
English_B = Me.Adodc1.Recordset.RecordCount
Me.Text12 = English_B
Me.Adodc1.RecordSource = ”select * from stu where english>=70 and english
Me.Adodc1.Refresh
English_C = Me.Adodc1.Recordset.RecordCount
Me.Text13 = English_C
Me.Adodc1.RecordSource = “select * from stu where english>=60”
Me.Adodc1.Refresh
English_D = Me.Adodc1.Recordset.RecordCount
Me.Text14 = English_D
Me.Adodc1.RecordSource = “select * from stu where english
Me.Adodc1.Refresh
English_E = Me.Adodc1.Recordset.RecordCount
Me.Text15 = English_E End Sub
Private Sub Form_Load()
Text1.Text = ”“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text5.Text = ”“
Text6.Text = ”“
Text7.Text = ”“
Text8.Text = ”“
Text10.Text = ”“
Text11.Text = ”“
Text12.Text = ”“
Text13.Text = ”“
Text14.Text = ”“
Text15.Text = ”“ End Sub
代码如下
Private Sub Command1_Click()'计算总分 Dim vb As Integer
Dim math As Integer Dim english As Integer Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
vb = Me.Adodc1.Recordset.Fields(”vb“).Value
math = Me.Adodc1.Recordset.Fields(”math“).Value
english = Me.Adodc1.Recordset.Fields(”english“).Value
Me.Adodc1.Recordset.Fields(”total“).Value = vb + math + english
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext Next i End Sub
Private Sub Command2_Click()'清除总分 Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields(”total“).Value = Null
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext Next i End Sub
该界面代码如下：
Private Sub Command1_Click()Me.Adodc1.RecordSource = ”select * from stu order by total desc“ Me.Adodc1.Refresh Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields(”mc“).Value = i
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext
Next i End Sub
Private Sub Command2_Click()Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields(”mc“).Value = Null
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext Next i End Sub
该界面代码如下：
Private Sub Command1_Click()
Me.Adodc1.Refresh
'填充表格数据
MSChart1.RowCount = 1
MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.MoveFirst
For lngI = 1 To Me.Adodc1.Recordset.RecordCount
MSChart1.Column = lngI
'用Data属性向MSChart数据网格填充数据
MSChart1.Data = Val(Adodc1.Recordset.Fields(”vb“).Value)
MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value
Adodc1.Recordset.MoveNext
Next lngI
MSChart1.RowLabel = ”VB成绩直方图“ End Sub
Private Sub Command2_Click()Me.Adodc1.Refresh
'填充表格数据
MSChart1.RowCount = 1
MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.MoveFirst
For lngI = 1 To Me.Adodc1.Recordset.RecordCount
MSChart1.Column = lngI
'用Data属性向MSChart数据网格填充数据
MSChart1.Data = Val(Adodc1.Recordset.Fields(”math“).Value)
MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value
Adodc1.Recordset.MoveNext
Next lngI
MSChart1.RowLabel = ”Math成绩直方图“ End Sub
该界面代码如下
Private Sub Command1_Click()Dim vb As Integer Dim math As Integer Dim english As Integer
Me.Adodc1.RecordSource = ”select * from stu where((math+english+vb)/3>=90)or((math+english+vb)/3>=85 and(math=100 or english=100 or vb=100))or((vb+english+math)/3>=85 and((vb>=95 and english >=95)or(english>=95 and math>=95)or(math>=95 and vb>=95)))and(mc=60 and english>=60 and math>=60)“ Me.Adodc1.Refresh End Sub
四、总结和体会
经过好几天的努力我的课程设计终于完成了。在没有做课程设计以前觉得课程设计好难，我可能做不了，但是通过这次做课程设计发现自己错了。课程设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高，它并不可怕。通过这次课程设计使我明白了自己原来知识还比较欠缺，自己要学习的东西还太多，以前上课没怎么认真听，现在知道它重要了，幸好为时不晚，我以后要更加的努力学好vb。在这次课程设计中也使我们的同学关系更进一步了，同学之间互相帮助，有什么不懂的大家在一起商量，听听不同的看法对我们更好的理解知识，所以在这里非常感谢帮助我的同学。此外，还得出一个结论：世上无难事，只怕有心人。
在设计过程中，我通过查阅有关资料，与同学交流经验和自学等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，也培养了我独立工作的能力，树立了对自己工作能力的信心，相信会对今后的学习工作生活有非常重要的影响。而且大大提高了动手的能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次课程设计的最大收获和财富，使我终身受益。
VB程序设计 课程设计报告 班 级：资工10902 班 姓 名：何睦 序 号：05 指导老师：刘少华 邵燕林 王庆陈君华 朱小龙目录1、课设的目的 .................................................
目 录摘要……………………………………………………………………………………….2 第一章 引言 ...........................................................3 第二章 系......
登陆登陆Private Sub cmdLogin_Click() If txtUser.Text = "" ThenMsgBox ("请输入用户名!")txtUser.SetFocus Else Call openconn sql = "select * from login wher......
河北联合大学《软件设计基础-VB》课程设计任务书学院班级设计人成绩一、题目：学生成绩管理系统二、目的与要求：1.目的：培养学生综合利用VisualBasic6.0语言进行程序设计的能力，......
“成绩管理系统”课程设计指导书课题名称：学生成绩管理系统设计目标：按照软件工程的规范，以SQL Server或Oracle为后台数据库，以Visual C++、Delphi等为前端开发工具，设计并实现一......
