学生成绩管理系统VB程序Word文档下载推荐.doc

学生成绩管理系统VB程序Word文档下载推荐.doc

《学生成绩管理系统VB程序Word文档下载推荐.doc》由会员分享，可在线阅读，更多相关《学生成绩管理系统VB程序Word文档下载推荐.doc（8页珍藏版）》请在冰点文库上搜索。

Else

UnloadMe

frmMain.Show

EndIf

EndIf

EndSub

退出

PrivateSubcmdRegister_Click（）

UnloadMe

功能选择

选课管理

PrivateSubcmdChoice_Click（）

frmChoice.Show

PrivateSubcmdExit_Click（）

End

查询

PrivateSubcmdFind_Click（）

frmFind.Show

成绩管理

PrivateSubcmdGrade_Click（）

frmGrade.Show

学生管理

PrivateSubcmdStu_Click（）

frmStu.Show

添加

PrivateSubcmdAdd_Click（）

frmAddStu.Show

删除

PrivateSubcmdDel_Click（）

rs.Delete

MsgBox（"

删除成功!

!

编辑

PrivateSubcmdEdit_Click（）

frmEditStu.Show

查找

PrivateSubcmdFind_Click（）'

查询功能

IfcboFind.Text="

学号"

IftxtInput.Text="

MsgBox（"

学号输入不能为空!

txtInput.SetFocus

Else

Dimsql1AsString

Setrs1=NewADODB.Recordset

sql1="

select*fromstuInfowhereID='

txtInput.Text&

rs1.CursorLocation=adUseClient

rs1.Opensql1,conn,adOpenDynamic,adLockOptimistic,adCmdText

Ifrs.EOFThen

MsgBox（"

查不到相关信息"

txtInput.SetFocus

Else

SetDataGrid1.DataSource=rs1

DataGrid1.Refresh

EndIf

EndIf

IftxtInput.Text="

姓名输入不能为空!

Dimsql2AsString

Setrs2=NewADODB.Recordset

sql2="

select*fromstuInfowherename='

rs2.CursorLocation=adUseClient

rs2.Opensql2,conn,adOpenDynamic,adLockOptimistic,adCmdText

SetDataGrid1.DataSource=rs2

返回

PrivateSubcmdReturn_Click（）

frmMain.Show

输出窗口

PrivateSubDataGrid1_RowColChange（LastRowAsVariant,ByValLastColAsInteger）

'

txtInput.Text=DataGrid1.Columns.Item（4）'

获取选中行的第5列数据

窗体

PrivateSubForm_Load（）

DimsqlAsString

Setconn=NewADODB.Connection

Setrs=NewADODB.Recordset

Callopenconn

sql="

select*fromstuInfo"

rs.CursorLocation=adUseClient

rs.Opensql,conn,adOpenDynamic,adLockOptimistic,adCmdText

SetDataGrid1.DataSource=rs'

datagrid绑定数据源

成绩查询

确定

PrivateSubCommand1_Click（）

lblGrade.Caption=Trim（cboCourse.Text）+"

课程成绩"

Dimsql1AsString

Setrs1=NewADODB.Recordset

sql1="

selectscore.ID,score.Num,score.scorefromscore,coursewherename='

cboCourse.Text&

andscore.Num=course.Num"

'

sql1="

select*fromcourse"

rs1.CursorLocation=adUseClient

rs1.Opensql1,conn,adOpenDynamic,adLockOptimistic,adCmdText

SetDataGrid1.DataSource=rs1

rs.Opensql,conn,adOpenDynamic,adLockOptimistic

DoUntilrs.EOF

cboCourse.AddItemrs（"

name"

rs.MoveNext

Loop

提交

PrivateSubcmdSubmit_Click（）

IftxtID="

MsgBox（"

请输入学号!

txtID.SetFocus

ElseIflstCourse.Text="

请选择课程!

Dimsql2,nameAsString

Setrs2=NewADODB.Recordset

selectscore.ID,score.Numfromscore,coursewhereID='

txtID.Text&

andname='

lstCourse.Text&

name=lstCourse.Text

sql2="

selectNumfromcoursewherename='

name&

'

rs1.Opensql1,conn,adOpenDynamic,adLockOptimistic

rs2.Opensql2,conn,adOpenDynamic,adLockOptimistic

Ifrs1.EOFThen

rs1.AddNew

rs1（"

ID"

）=txtID.Text

Num"

）=rs2（"

rs1.Update

选课成功!

rs1.Close

已选过该课!

DoUntilrs.EOF'

listbox控件利用循环读取课程表中的课程名

lstCourse.AddItemrs（"

PrivateSubcmdOK_Click（）

MsgBox（"

学号不能为空!

txtID.SetFocus

Dimsum1,sum2AsSingle

DimnAsInteger

selectcourse.name,score.score,course.creditfromscore,coursewherescore.ID='

SetDataGrid1.DataSource=rs

sum1=0

sum2=0

n=0

DoWhileNotrs.EOF

sum1=sum1+Val（rs（"

score"

））

sum2=sum2+Val（rs（"

credit"

n=n+1

rs.MoveNext

lblAvg.Caption=Format（sum1/n,"

0.0"

lblCredit.Caption=sum2

修改学生信息

IftxtID.Text="

学号不能为空！

txtID.SetFocus

ElseIftxtName.Text="

姓名不能为空！

txtName.SetFocus

ElseIftxtSex.Text="

MsgBox（"

学分不能为空！

txtSex.SetFocus

ElseIftxtAge.Text="

年龄不能为空！

txtAge.SetFocus

IfNotrs.EOFThen'

判断学号是否存在

rs（"

）=txtName.Text

sex"

）=txtSex.Text

age"

）=txtAge.Text

pro"

）=cboPro.Text

rs.Update

修改成功！

！

学号不存在!

txtID=rs（"

txtName=rs（"

txtSex=rs（"

txtAge=rs（"

cboPro.Text=rs（"

添加学生

PrivateSubcmdReset_Click（）

请输入姓名！

请输入性别！

Ifrs.EOFThen'

rs.AddNew

添加成功！

frmStu.Show

UnloadMe

学号已存在!