VB学生成绩管理系统Word文件下载.docx
《VB学生成绩管理系统Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB学生成绩管理系统Word文件下载.docx（14页珍藏版）》请在冰豆网上搜索。
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_Namechar（10）NULL,
class_Nochar（10）NULL,
course_Namechar（10）NULL,
resultfloatNULL
）
createtablecourse
course_Nochar（10）NOTNULL,
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
ForProba2=0Toslika.ScaleHeight
Line（StartX,StartY）-（Levo+slika.ScaleWidth,Desno+Proba2）,
EndFunction
PrivateSubForm_Activate（）
Timer1.Enabled=True
EndSub
PrivateSubForm_Click（）
UnloadMe
frmLogin.Show
Timer1.Enabled=False
PrivateSubPicture1_Click（）
PrivateSubTimer1_Timer（）
Dimi,jAsInteger
ZrakPicture1,565,295,0,0,Me.BackColor
IfTimer1.Interval=1000Then
Fori=0To100
Forj=0To100
EndIf
CallForm_Click
登陆界面
输入用户名和密码进入学生成绩管理系统
PublicLoginSucceededAsBoolean
PrivateSubcmdCancel_Click（）
'
设置全局变量为false
不提示失败的登录
LoginSucceeded=False
Me.Hide
PrivateSubcmdOK_Click（）
检查正确的密码
IftxtPassword="
0"
Then
将代码放在这里传递
成功到calling函数
设置全局变量时最容易的
LoginSucceeded=True
Form2.Show
Else
MsgBox"
无效的密码，请重试!
"
,"
登录"
txtPassword.SetFocus
SendKeys"
{Home}+{End}"
EndSub
PrivateSubForm_Load（）
主界面
点击按钮进入不同的管理界面。
PrivateSubCommand1_Click（）UnloadMe
Form1.Show
PrivateSubCommand2_Click（）UnloadMe
Form9.Show
PrivateSubCommand3_Click（）UnloadMe
Form7.Show
PrivateSubCommand4_Click（）UnloadMe
Form8.Show
学生信息管理界面
学生信息界面设计思想:
点击按钮来实现系统的修改、添加、删除和查询。
PrivateSubCommand2_Click（）Adodc1.Recordset.MoveFirstEndSub
PrivateSubCommand3_Click（）Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast
PrivateSubCommand4_Click（）Adodc1.Recordset.MoveNextIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
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
PrivateSubCommand9_Click（）UnloadMe
Form6.Show
学生信息管理界面———查询界面
学生信息查询界面
实现学生信息按学号或姓名或班号的查询。
PrivateSubCommand2_Click（）
IfText1>
"
Adodc1.RecordSource="
select*fromxt27resultwherestudent_NAME='
&
Text1.Text&
'
ElseIfText2>
Adodci1.RecordSource="
select*fromxt27resultwherestudent_ID='
Text2.Text&
ElseIfText3>
select*fromxt27resultwherecourse_Name='
Text3.Text&
Adodc1.Refresh
班级信息管界面
班级信息界面
PrivateSubaddCommand_Click（）Adodc1.Recordset.AddNew
PrivateSubdeleteCommand_Click（）DimaskAsInteger
vbYesNo）
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
PrivateSubupdateCommand_Click（）Adodc1.Recordset.Update
课程信息管理界面
课程信息界面
点击按钮来实现系统的修改、添加、删除。
PrivateSubCommand2_Click（）Adodc1.Recordset.MoveFirst
成绩信息管理界面
学生成绩管理界面
设计代码:
Form5.Show
成绩信息管理界面——查询界面
成绩查询界面
PrivateSubCommand2_Click（）IfText1>
select*fromxt27studentwherestudent_ID='
select*fromxt27studentwherestudent_NAME='
&
Text2.Text&
select*fromxt27studentwhereclass_NO='
总结
在此大作业设计中，我遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。
我认为在一个系统开发的过程中编码不是最重要的，重要的是分析系统、建立起系统模型。
在分析一个系统前，我们必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。
而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。
在程序编写中，我认识到系统应有简便的界面，良好的程序风格。
拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。
（进行管理系统开发这样的作业，要有恒心，要这次大作业给我的感受有1
能静下新来做，而不能浮躁。
2（要善于同别人交流与合作，善于获取各种有用的资源。
3（要真真实实的多查资料，多问，多看。
升级会员 