vb学生成绩管理系统.docx

vb学生成绩管理系统.docx

《vb学生成绩管理系统.docx》由会员分享，可在线阅读，更多相关《vb学生成绩管理系统.docx（19页珍藏版）》请在冰豆网上搜索。

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,Proba2AsInteger

DimBoja2AsString

PrivateFunctionZrak（slikaAsPictureBox,StartXAsInteger,StartYAsInteger,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.MoveFirst

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand4_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand5_Click（）

Adodc1.Recordset.MoveLast

EndSub

PrivateSubCommand6_Click（）

Adodc1.Recordset.Update

EndSub

PrivateSubCommand7_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubCommand8_Click（）

DimaskAsInteger

ask=MsgBox（"是否删除？

",vbYesNo）

Ifask=6Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

IfAdodc1.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.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndIf

EndSub

PrivateSubupdateCommand_Click（）

Adodc1.Recordset.Update

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand4_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand5_Click（）

Adodc1.Recordset.MoveLast

EndSub

PrivateSubForm_Load（）

EndSub

课程信息管理界面

课程信息界面

设计思想：

点击按钮来实现系统的修改、添加、删除。

设计代码：

PrivateSubCommand1_Click（）

UnloadMe

Form2.Show

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand4_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand5_Click（）

Adodc1.Recordset.MoveLast

EndSub

PrivateSubCommand6_Click（）

Adodc1.Recordset.Update

EndSub

PrivateSubCommand7_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubCommand8_Click（）

DimaskAsInteger

ask=MsgBox（"是否删除？

",vbYesNo）

Ifask=6Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndIf

EndSub

PrivateSubForm_Load（）

EndSub

成绩信息管理界面

学生成绩管理界面

设计思想：

点击按钮来实现系统的修改、添加、删除和查询。

设计代码：

PrivateSubCommand1_Click（）

UnloadMe

Form2.Show

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand4_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

PrivateSubCommand5_Click（）

Adodc1.Recordset.MoveLast

EndSub

PrivateSubCommand6_Click（）

Adodc1.Recordset.Update

EndSub

PrivateSubCommand7_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubCommand8_Click（）

DimaskAsInteger

ask=MsgBox（"是否删除？

",vbYesNo）

Ifask=6Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

IfAdodc1.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．要真真实实的多查资料，多问，多看。