强烈推荐VB学生成绩管理系统毕业论文报告Word文档下载推荐.docx
《强烈推荐VB学生成绩管理系统毕业论文报告Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《强烈推荐VB学生成绩管理系统毕业论文报告Word文档下载推荐.docx(17页珍藏版)》请在冰豆网上搜索。
用户名和密码均已设定,用户名为zg,密码为10902,只有输入正确,然后点击“登陆“按钮才能进入主界面。
如果用户名或密码三次输入错误,则系统自动退出。
当你点击“退出“按钮时,弹出一个对话窗,界面如下:
在对话框上点击“是”按钮,则退出系统,如果点击“否”,则该界面不变。
2、当用户名和密码均输入正确,点击“登陆”按钮,进入主界面——“学生成绩管理系统”界面,该界面是其他子界面的入口,界面如下:
3、进入主界面后,点击“学生管理(删除\添加)”,进入学生管理界面,界面如下:
该界面上有一个ADO控件,用于连接数据库,当用户在六个文本框中输入数据时,点击“添加“按钮,可以将数据录入到数据库中,如果此时点击”删除“按钮,则刚才输入的数据就会被删除,点击”保存“按钮时,输入的数据就会自动保存在数据库里,点击”返回主窗体“按钮,该窗体消失,主窗体出现。
4、在主界面点击“各科成绩查询“按钮,出现如下界面:
该界面有一个ADO控件,用来连接数据库,还有一个DataGrid控件,用来显示学生成绩的查询结果,当用户选择了要查询的科目和条件后,点击“查询“按钮,在DataGrid控件上就会显示出所查询的结果。
下面为输入条件后查询的结果——
5、在主界面点击“姓名查询“按钮后,会出现如下界面:
该界面与上一界面相似,在文本框输入要查询的姓名后,点击“查询“按钮,就会在DataGrid控件上显示所要查询的结果。
5、在主界面点击“班级查询“按钮后,会出现如下界面:
在文版框中输入所要查询的班级,DataGrid控件上就会显示所要查询的结果。
6、在主界面上点击“各科成绩段查询“按钮后,会出现如下界面:
点击“计算分数段统计“按钮后,就会出现所要查询的结果。
下面为查询的结果——
7、在主界面点击“排名“按钮后,出现如下界面:
在该界面上点击“排名“按钮后,在DataGrid控件上会显示出按成绩高低排名的结果,点击”清除排名“按钮后,刚才结果消失,显示原来结果。
下面为所现实的结果——
8、在主界面点击“统计直方图“按钮后,出现如下界面:
在该界面点击各个按钮后,就会出现与之相关科目的成绩统计直方图,下面为查询的结果——
9、在主界面点击“优等生“按钮后,出现如下界面:
点击按钮查询后,结果就会在界面上显示出来。
下面为所查询的结果——
三、系统功能实施
以上展示的是系统的所有界面,怎样才能让这所有的功能实现呢?
数据库和ADO控件的使用便是其中的关键。
1、建立如下数据库
(学号、姓名、班级、英语、数学、VB、总分、排名)
2、建立如下图的所有界面:
3、ADO控件和DataGrid控件以及数据库的连接步骤:
(这一步在设计界面的同时完成)
(1)、如何加载ADO控件:
步骤1:
步骤2:
步骤3:
各个界面的ADO控件如何连接数据库(分两步):
如下面界面中的5个步骤
选中ADO控件Adodc1,点击鼠标右键选择属性,然后界面设置如下:
控件绑定数据库的字段操作说明:
属性设置说明:
下面以学号为例,姓名、班级等都可参考此。
将学号对应的文本框Text1连接Adodc1显示数据库中的学号,需要设置DataSource和DataField两个属性,首先选中Text1文本框,并进行下面的两步操作,即可绑定数据库的学号字段。
设置DataSource:
设置DataField:
(2)、如何加载DataGrid控件
控件DataGrid,可以实现数据的批量处理,该控件在控件库MicrosoftDataGridControl6.0中。
说明:
DataGrid控件属性设置
四、系统功能设计
系统功能的设计,其核心就是程序代码的编写过程,如何让让系统更加完善、界面更加友好呢,这就得益于代码的编写。
以下为各个界面所对应的代码——
该界面代码如下:
PrivateSubCommand1_Click()
IfText1.Text="
zg"
AndText2.Text="
10902"
Then
mainfrm.Show
dlfrm.Hide
Else
MsgBox"
用户名或密码错误,请重新输入"
vbMsgBoxSetForeground,"
系统提示!
!
"
EndIf
StatictAsInteger
t=t+1
Ift>
=3ThenEnd
EndSub
PrivateSubCommand2_Click()
a=MsgBox("
确定要退出本系统吗?
3+32+256,"
)
Ifa=6Then
UnloadMe
EndIf
xsglfrm.Show
PrivateSubCommand10_Click()
ydsfrm.Show
PrivateSubCommand3_Click()
jszffrm.Show
PrivateSubCommand4_Click()
pmfrm.Show
PrivateSubCommand5_Click()
zftjtfrm.Show
PrivateSubCommand6_Click()
cjcxfrm.Show
PrivateSubCommand7_Click()
xmcxfrm.Show
PrivateSubCommand8_Click()
bjcxfrm.Show
PrivateSubCommand9_Click()
gkcjfrm.Show
Me.Adodc1.Recordset.AddNew
IfMe.Adodc1.Recordset.RecordCount=0OrMe.Adodc1.Recordset.EOFThen
ExitSub
Me.Adodc1.Recordset.Delete
Me.Adodc1.Recordset.MoveNext
IfMe.Adodc1.Recordset.RecordCount=0Then
IfMe.Adodc1.Recordset.EOFThenMe.Adodc1.Recordset.MoveLast
Me.Adodc1.Recordset.Save
UnloadMe
Dimkc_条件AsString
DimkcAsString
kc_条件=Me.Text1
Me.Adodc1.RecordSource="
select*fromstuwhere"
+kc+"
"
+kc_条件
Me.Adodc1.Refresh
PrivateSubForm_Load()
kc_条件="
>
=92"
kc="
vb"
PrivateSubOption1_Click()
VB"
PrivateSubOption2_Click()
math"
PrivateSubOption3_Click()
English"
='
+kc_条件+"
'
name"
class"
Dimvb_AAsInteger
Dimvb_BAsInteger
Dimvb_CAsInteger
Dimvb_DAsInteger
Dimvb_EAsInteger
DimMath_AAsInteger
DimMath_BAsInteger
DimMath_CAsInteger
DimMath_DAsInteger
DimMath_EAsInteger
DimEnglish_AAsInteger
DimEnglish_BAsInteger
DimEnglish_CAsInteger
DimEnglish_DAsInteger
DimEnglish_EAsInteger
Me.Adodc1.RecordSource="
select*fromstuwherevb>
=90"
Me.Adodc1.Refresh
vb_A=Me.Adodc1.Recordset.RecordCount
Me.Text1=vb_A
=80andvb<
90"
vb_B=Me.Adodc1.Recordset.RecordCount
Me.Text2=vb_B
=70andvb<
80"
vb_C=Me.Adodc1.Recordset.RecordCount
Me.Text3=vb_C
=60"
vb_D=Me.Adodc1.Recordset.RecordCount
Me.Text4=vb_D
select*fromstuwherevb<
60"
Me.Text5=vb_E
select*fromstuwheremath>
Math_A=Me.Adodc1.Recordset.RecordCount
Me.Text6=Math_A
=80andmath<
Math_B=Me.Adodc1.Recordset.RecordCount
Me.Text7=Math_B
=70andmath<
Math_C=Me.Adodc1.Recordset.RecordCount
Me.Text8=Math_C
=60"
Math_D=Me.Adodc1.Recordset.RecordCount
Me.Text9=Math_D
select*fromstuwheremath<
Math_E=Me.Adodc1.Recordset.RecordCount
Me.Text10=Math_E
select*fromstuwhereenglish>
English_A=Me.Adodc1.Recordset.RecordCount
Me.Text11=English_A
=80andenglish<
English_B=Me.Adodc1.Recordset.RecordCount
Me.Text12=English_B
=70andenglish<
English_C=Me.Adodc1.Recordset.RecordCount
Me.Text13=English_C
English_D=Me.Adodc1.Recordset.RecordCount
Me.Text14=English_D
select*fromstuwhereenglish<
English_E=Me.Adodc1.Recordset.RecordCount
Me.Text15=English_E
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="
select*fromstuorderbytotaldesc"
Me.Adodc1.Recordset.MoveFirst
Fori=1ToMe.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.Fields("
mc"
).Value=i
Me.Adodc1.Recordset.Update
Me.Adodc1.Recordset.MoveNext
Nexti
).Value=Null
'
填充表格数据
MSChart1.RowCount=1
MSChart1.ColumnCount=Me.Adodc1.Recordset.RecordCount
Me.Adodc1.Recordset.MoveFirst
ForlngI=1ToMe.Adodc1.Recordset.RecordCount
MSChart1.Column=lngI
用Data属性向MSChart数据网格填充数据
MSChart1.Data=Val(Adodc1.Recordset.Fields("
).Value)
MSChart1.ColumnLabel=Adodc1.Recordset.Fields("
).Value
Adodc1.Recordset.MoveNext
NextlngI
MSChart1.RowLabel="
VB成绩直方图"
Math成绩直方图"
该界面代码如下
DimvbAsInteger
DimmathAsInteger
DimenglishAsInteger
select*fromstuwhere((math+english+vb)3>
=90)or((math+english+vb)3>
=85and(math=100orenglish=100orvb=100))or((vb+english+math)3>
=85and((vb>
=95andenglish>
=95)or(english>
=95andmath>
=95)or(math>
=95andvb>
=95)))and(mc<
=3)and(vb>
=60andenglish>
=60andmath>
=60)"
五、总结和体会
想来,当时那会儿听说要搞vb课程设计的时候,我可是相当激动啊,心想,学的东西终于可以用一用了。
并且这次的Vb课程设计要持续两周的时间,主要是用vb+access相关的知识来实现学生成绩和信息的管理。
这对于我们这种初次接触这种东西的人来说,还真是有难度,如果不是老师给了我们足够的模板和样例,我想我还真一时半会儿,不知道从哪里下手,好在功夫不负有心人,经过几天时间的摸索和操作,这个学生成绩管理系统的雏形终于是出现了,虽说功能不太完善,但还是能满足基本要求,这让我很是欣慰。
两周的时间并不长,一晃就到了,课程设计也要画上句号了。
在这一段时间里里,不能说我的vb编程能力有了多么大的提高,多么大的飞跃,但我敢说我对vb和数据库相关的知识有了更加深刻的了解和体会,总结起来主要有以下几点:
1、想要用vb做出好的东西来,一定要勤动手,不能光看,因为好多错误凭看是看不出来的,只有通过自己不断的操作和修改,才能对vb的语法结构和流程有自己独到的理解;
2、在编程和调试的过程中,总会出现一些意想不到的问题。
我发现并不是每一个问题都能从资料中得到解决方法,有些问题是无法预料的,这个时候就得靠自己去分析了,你必须得非常的细心,一步一步的进行调试和修改,而且不能急,往往有的错误就是在你急躁的时候从你眼皮底下溜过去的,这样又得重新检查,到头来,既费时又费力,实在