VB学生成绩管理系统.docx
《VB学生成绩管理系统.docx》由会员分享，可在线阅读，更多相关《VB学生成绩管理系统.docx（14页珍藏版）》请在冰豆网上搜索。
VB学生成绩管理系统
vb学生成绩管理系统
Vb+sql学生成绩管理系统一、实验目的
1.综合掌握实验一到实验六的内容。
2.掌握编程语言与数据库连接及访问表记录的方法。
二、实验准备
1.综合以前所学知识，结合某种编程语言开发完整的系统;
2.预习数据库与编程语言链接的相关内容;
四、系统功能流程图
学生成绩管理系统
用户登录
学生成绩管理系统
课程信息管理成绩信息管理学生信息管理班级信息管理
添加添加添加添加
修改修改修改修改
删除删除删除删除
查询查询
五、实验内容及步骤
Sql建表:
createtablestudent
（
student_IDchar（4）NOTNULL,
student_Namechar（10）NOTNULL,
student_Sexchar
（2）NULL,
born_DatedatetimeNULL,
class_NOchar（10）NULL,
tele_Numberchar（10）NULL,
ru_DatedatetimeNULL,
addressvarchar（50）NULL,
commentvarchar（200）NULL）
createtableresult
（
exam_Nochar（10）NOTNULL,
student_IDchar（4）NOTNULL,
student_Namechar（10）NULL,
class_Nochar（10）NULL,
course_Namechar（10）NULL,
resultfloatNULL
）
createtablecourse
（
course_Nochar（10）NOTNULL,
course_Namechar（10）NULL,
course_Typechar（10）NULL,
course_Deschar（50）NULL）
createtableclass
（
class_Nochar（10）NOTNULL,
gradechar（10）NULL,
directorchar（10）NULL,
classroom_Nochar（10）NULL）
六、Vb开发
欢迎界面
欢迎界面
设计思想:
以动画形式开始整个程序
设计代码:
OptionExplicit
DimProba,Proba2AsIntegerDimBoja2AsString
PrivateFunctionZrak（slikaAsPictureBox,StartXAsInteger,StartYAs
Integer,LevoAsInteger,DesnoAsInteger,BojaAsString）
Me.ScaleMode=vbPixels
Withslika
.ScaleMode=vbPixels
.AutoRedraw=True
EndWith
ForProba2=0Toslika.ScaleWidth
DoEvents
ForProba=0Toslika.ScaleHeight
Boja2=slika.Point（Proba2,Proba）
Line（StartX,StartY）-（Levo+Proba2,Desno+Proba）,Boja2
Next
Line（StartX,StartY）-（Levo+Proba2,Desno+slika.ScaleHeight）,
Boja
Next
ForProba2=0Toslika.ScaleHeight
Line（StartX,StartY）-（Levo+slika.ScaleWidth,Desno+Proba2）,
Boja
Next
EndFunction
PrivateSubForm_Activate（）
Timer1.Enabled=True
EndSub
PrivateSubForm_Click（）
UnloadMe
frmLogin.Show
Timer1.Enabled=False
EndSub
PrivateSubPicture1_Click（）
EndSub
PrivateSubTimer1_Timer（）
Dimi,jAsInteger
ZrakPicture1,565,295,0,0,Me.BackColor
IfTimer1.Interval=1000Then
Fori=0To100
Forj=0To100
DoEvents
Next
Next
EndIf
CallForm_Click
EndSub
登陆界面
登陆界面
设计思想:
输入用户名和密码进入学生成绩管理系统
设计代码:
OptionExplicit
PublicLoginSucceededAsBoolean
PrivateSubcmdCancel_Click（）
'设置全局变量为false
'不提示失败的登录
LoginSucceeded=False
Me.Hide
EndSub
PrivateSubcmdOK_Click（）
'检查正确的密码
IftxtPassword="0"Then
'将代码放在这里传递
'成功到calling函数
'设置全局变量时最容易的
LoginSucceeded=True
UnloadMe
Form2.Show
Me.Hide
Else
MsgBox"无效的密码，请重试!
",,"登录"
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
EndSub
PrivateSubForm_Load（）
EndSub
主界面
主界面
设计思想:
点击按钮进入不同的管理界面。
设计代码:
PrivateSubCommand1_Click（）UnloadMe
Form1.Show
EndSub
PrivateSubCommand2_Click（）UnloadMe
Form9.Show
EndSub
PrivateSubCommand3_Click（）UnloadMe
Form7.Show
EndSub
PrivateSubCommand4_Click（）UnloadMe
Form8.Show
EndSub
PrivateSubForm_Load（）
EndSub
学生信息管理界面
学生信息界面设计思想:
点击按钮来实现系统的修改、添加、删除和查询。
设计代码:
PrivateSubCommand1_Click（）UnloadMe
Form2.Show
EndSub
PrivateSubCommand2_Click（）Adodc1.Recordset.MoveFirstEndSub
PrivateSubCommand3_Click（）Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast
EndSub
PrivateSubCommand4_Click（）Adodc1.Recordset.MoveNextIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand5_Click（）Adodc1.Recordset.MoveLastEndSub
PrivateSubCommand6_Click（）Adodc1.Recordset.UpdateEndSub
PrivateSubCommand7_Click（）Adodc1.Recordset.AddNewEndSub
PrivateSubCommand8_Click（）DimaskAsInteger
ask=MsgBox（"是否删除,",vbYesNo）Ifask=6Then
Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand9_Click（）UnloadMe
Form6.Show
EndSub
学生信息管理界面———查询界面
学生信息查询界面
设计思想:
实现学生信息按学号或姓名或班号的查询。
设计代码:
PrivateSubCommand2_Click（）
IfText1>""Then
Adodc1.RecordSource="select*fromxt27resultwherestudent_NAME='"&
Text1.Text&"'"
ElseIfText2>""Then
Adodci1.RecordSource="select*fromxt27resultwherestudent_ID='"&
Text2.Text&"'"
ElseIfText3>""Then
Adodc1.RecordSource="select*fromxt27resultwherecourse_Name='"&
Text3.Text&"'"
EndIf
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）UnloadMe
Form1.Show
EndSub
班级信息管界面
班级信息界面
设计思想:
点击按钮来实现系统的修改、添加、删除和查询。
设计代码:
PrivateSubaddCommand_Click（）Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand1_Click（）UnloadMe
Form2.Show
EndSub
PrivateSubdeleteCommand_Click（）DimaskAsInteger
ask=MsgBox（"是否删除,",vbYesNo）
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubupdateCommand_Click（）Adodc1.Recordset.Update
EndSub
PrivateSubCommand2_Click（）Adodc1.Recordset.MoveFirstEndSub
PrivateSubCommand3_Click（）Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast
EndSub
PrivateSubCommand4_Click（）Adodc1.Recordset.MoveNextIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand5_Click（）Adodc1.Recordset.MoveLastEndSub
PrivateSubForm_Load（）
EndSub
课程信息管理界面
课程信息界面
设计思想:
点击按钮来实现系统的修改、添加、删除。
设计代码:
PrivateSubCommand1_Click（）UnloadMe
Form2.Show
EndSub
PrivateSubCommand2_Click（）Adodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand3_Click（）Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast
EndSub
PrivateSubCommand4_Click（）Adodc1.Recordset.MoveNextIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand5_Click（）Adodc1.Recordset.MoveLastEndSub
PrivateSubCommand6_Click（）Adodc1.Recordset.UpdateEndSub
PrivateSubCommand7_Click（）Adodc1.Recordset.AddNewEndSub
PrivateSubCommand8_Click（）DimaskAsInteger
ask=MsgBox（"是否删除,",vbYesNo）Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubForm_Load（）
EndSub
成绩信息管理界面
学生成绩管理界面
设计思想:
点击按钮来实现系统的修改、添加、删除和查询。
设计代码:
PrivateSubCommand1_Click（）UnloadMe
Form2.Show
EndSub
PrivateSubCommand2_Click（）Adodc1.Recordset.MoveFirstEndSub
PrivateSubCommand3_Click（）Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast
EndSub
PrivateSubCommand4_Click（）Adodc1.Recordset.MoveNextIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand5_Click（）Adodc1.Recordset.MoveLastEndSub
PrivateSubCommand6_Click（）Adodc1.Recordset.UpdateEndSub
PrivateSubCommand7_Click（）Adodc1.Recordset.AddNewEndSub
PrivateSubCommand8_Click（）DimaskAsInteger
ask=MsgBox（"是否删除,",vbYesNo）Ifask=6Then
Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand9_Click（）UnloadMe
Form5.Show
EndSub
PrivateSubForm_Load（）
EndSub
成绩信息管理界面——查询界面
成绩查询界面
设计思想:
实现学生信息按学号或姓名或班号的查询。
设计代码:
PrivateSubCommand2_Click（）IfText1>""Then
Adodc1.RecordSource="select*fromxt27studentwherestudent_ID='"&
Text1.Text&"'"
ElseIfText2>""Then
Adodc1.RecordSource="select*fromxt27studentwherestudent_NAME='"
&Text2.Text&"'"
ElseIfText3>""Then
Adodc1.RecordSource="select*fromxt27studentwhereclass_NO='"&
Text3.Text&"'"
EndIf
Adodc1.Refresh
EndSub
PrivateSubCommand3_Click（）UnloadMe
Form1.Show
EndSub
PrivateSubForm_Load（）
EndSub
总结
在此大作业设计中，我遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。
我认为在一个系统开发的过程中编码不是最重要的，重要的是分析系统、建立起系统模型。
在分析一个系统前，我们必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。
而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。
在程序编写中，我认识到系统应有简便的界面，良好的程序风格。
拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。
（进行管理系统开发这样的作业，要有恒心，要这次大作业给我的感受有1
能静下新来做，而不能浮躁。
2（要善于同别人交流与合作，善于获取各种有用的资源。
3（要真真实实的多查资料，多问，多看。
升级会员 