学生成绩管理系统VB程序文档格式.doc

学生成绩管理系统VB程序文档格式.doc

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

andpassword='

Trim（txtPwd.Text）&

rs.Opensql,conn,adOpenDynamic,adLockOptimistic

Ifrs.EOFThen

MsgBox"

用户不存在！

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控件利用循环读取课程表中的课程名