学生成绩管理系统VB程序.doc
《学生成绩管理系统VB程序.doc》由会员分享，可在线阅读，更多相关《学生成绩管理系统VB程序.doc（8页珍藏版）》请在冰点文库上搜索。
登陆
登陆
PrivateSubcmdLogin_Click（）
IftxtUser.Text=""Then
MsgBox（"请输入用户名!
"）
txtUser.SetFocus
Else
Callopenconn
sql="select*fromloginwhereusername='"&Trim（txtUser.Text）&"'andpassword='"&Trim（txtPwd.Text）&"'"
rs.Opensql,conn,adOpenDynamic,adLockOptimistic
Ifrs.EOFThen
MsgBox"用户不存在！
"
Else
UnloadMe
frmMain.Show
EndIf
EndIf
EndSub
退出
PrivateSubcmdRegister_Click（）
UnloadMe
EndSub
功能选择
选课管理
PrivateSubcmdChoice_Click（）
frmChoice.Show
UnloadMe
EndSub
退出
PrivateSubcmdExit_Click（）
End
EndSub
查询
PrivateSubcmdFind_Click（）
frmFind.Show
UnloadMe
EndSub
成绩管理
PrivateSubcmdGrade_Click（）
frmGrade.Show
UnloadMe
EndSub
学生管理
PrivateSubcmdStu_Click（）
frmStu.Show
UnloadMe
EndSub
学生管理
添加
PrivateSubcmdAdd_Click（）
frmAddStu.Show
UnloadMe
EndSub
删除
PrivateSubcmdDel_Click（）
rs.Delete
MsgBox（"删除成功!
!
"）
EndSub
编辑
PrivateSubcmdEdit_Click（）
frmEditStu.Show
UnloadMe
EndSub
查找
PrivateSubcmdFind_Click（）'查询功能
IfcboFind.Text="学号"Then
IftxtInput.Text=""Then
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
Else
IftxtInput.Text=""Then
MsgBox（"姓名输入不能为空!
"）
txtInput.SetFocus
Else
Dimsql2AsString
Setrs2=NewADODB.Recordset
sql2="select*fromstuInfowherename='"&txtInput.Text&"'"
rs2.CursorLocation=adUseClient
rs2.Opensql2,conn,adOpenDynamic,adLockOptimistic,adCmdText
Ifrs.EOFThen
MsgBox（"查不到相关信息"）
txtInput.SetFocus
Else
SetDataGrid1.DataSource=rs2
DataGrid1.Refresh
EndIf
EndIf
EndIf
EndSub
返回
PrivateSubcmdReturn_Click（）
frmMain.Show
UnloadMe
EndSub
输出窗口
PrivateSubDataGrid1_RowColChange（LastRowAsVariant,ByValLastColAsInteger）
'txtInput.Text=DataGrid1.Columns.Item（4）''获取选中行的第5列数据
EndSub
窗体
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绑定数据源
EndSub
成绩查询
返回
PrivateSubcmdReturn_Click（）
frmMain.Show
UnloadMe
EndSub
确定
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
EndSub
窗体
PrivateSubForm_Load（）
DimsqlAsString
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Callopenconn
sql="select*fromcourse"
rs.Opensql,conn,adOpenDynamic,adLockOptimistic
DoUntilrs.EOF
cboCourse.AddItemrs（"name"）
rs.MoveNext
Loop
EndSub
选课管理
返回
PrivateSubcmdReturn_Click（）
frmMain.Show
UnloadMe
EndSub
提交
PrivateSubcmdSubmit_Click（）
IftxtID=""Then
MsgBox（"请输入学号!
!
"）
txtID.SetFocus
ElseIflstCourse.Text=""Then
MsgBox（"请选择课程!
!
"）
Else
Dimsql1AsString
Dimsql2,nameAsString
Setrs2=NewADODB.Recordset
Setrs1=NewADODB.Recordset
sql1="selectscore.ID,score.Numfromscore,coursewhereID='"&txtID.Text&"'andname='"&lstCourse.Text&"'andscore.Num=course.Num"
name=lstCourse.Text
sql2="selectNumfromcoursewherename='"&name&"'"
rs1.Opensql1,conn,adOpenDynamic,adLockOptimistic
rs2.Opensql2,conn,adOpenDynamic,adLockOptimistic
Ifrs1.EOFThen
rs1.AddNew
rs1（"ID"）=txtID.Text
rs1（"Num"）=rs2（"Num"）
rs1.Update
MsgBox（"选课成功!
!
"）
rs1.Close
Else
MsgBox（"已选过该课!
!
"）
EndIf
EndIf
EndSub
窗体
PrivateSubForm_Load（）
DimsqlAsString
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
sql="select*fromcourse"
Callopenconn
rs.Opensql,conn,adOpenDynamic,adLockOptimistic
DoUntilrs.EOF'listbox控件利用循环读取课程表中的课程名
lstCourse.AddItemrs（"name"）
rs.MoveNext
Loop
EndSub
查询
确定
PrivateSubcmdOK_Click（）
IftxtID=""Then
MsgBox（"学号不能为空!
!
"）
txtID.SetFocus
Else
DimsqlAsString
Dimsum1,sum2AsSingle
DimnAsInteger
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Callopenconn
sql="selectcourse.name,score.score,course.creditfromscore,coursewherescore.ID='"&txtID.Text&"'andscore.Num=course.Num"
rs.CursorLocation=adUseClient
rs.Opensql,conn,adOpenDynamic,adLockOptimistic,adCmdText
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
Loop
lblAvg.Caption=Format（sum1/n,"0.0"）
lblCredit.Caption=sum2
EndIf
EndSub
返回
PrivateSubcmdReturn_Click（）
frmMain.Show
UnloadMe
EndSub
修改学生信息
返回
PrivateSubcmdReturn_Click（）
frmStu.Show
UnloadMe
EndSub
提交
PrivateSubcmdSubmit_Click（）
IftxtID.Text=""Then
MsgBox（"学号不能为空！
"）
txtID.SetFocus
ElseIftxtName.Text=""Then
MsgBox（"姓名不能为空！
"）
txtName.SetFocus
ElseIftxtSex.Text=""Then
MsgBox（"学分不能为空！
"）
txtSex.SetFocus
ElseIftxtAge.Text=""Then
MsgBox（"年龄不能为空！
"）
txtAge.SetFocus
Else
DimsqlAsString
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Callopenconn
sql="select*fromstuInfowhereID='"&txtID.Text&"'"
rs.Opensql,conn,adOpenDynamic,adLockOptimistic
IfNotrs.EOFThen'判断学号是否存在
rs（"name"）=txtName.Text
rs（"sex"）=txtSex.Text
rs（"age"）=txtAge.Text
rs（"pro"）=cboPro.Text
rs.Update
MsgBox（"修改成功！
！
"）
Else
MsgBox（"学号不存在!
"）
EndIf
EndIf
EndSub
窗体
PrivateSubForm_Load（）
txtID=rs（"ID"）
txtName=rs（"name"）
txtSex=rs（"sex"）
txtAge=rs（"age"）
cboPro.Text=rs（"pro"）
EndSub
添加学生
返回
PrivateSubcmdReset_Click（）
frmStu.Show
UnloadMe
EndSub
提交
PrivateSubcmdSubmit_Click（）
IftxtID.Text=""Then
MsgBox（"学号不能为空！
"）
txtID.SetFocus
ElseIftxtName.Text=""Then
MsgBox（"请输入姓名！
"）
txtName.SetFocus
ElseIftxtSex.Text=""Then
MsgBox（"请输入性别！
"）
txtSex.SetFocus
ElseIftxtAge.Text=""Then
MsgBox（"年龄不能为空！
"）
txtAge.SetFocus
Else
DimsqlAsString
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Callopenconn
sql="select*fromstuInfowhereID='"&txtID.Text&"'"
rs.Opensql,conn,adOpenDynamic,adLockOptimistic
Ifrs.EOFThen'判断学号是否存在
rs.AddNew
rs（"ID"）=txtID.Text
rs（"name"）=txtName.Text
rs（"sex"）=txtSex.Text
rs（"age"）=txtAge.Text
rs（"pro"）=cboPro.Text
rs.Update
MsgBox（"添加成功！
！
"）
frmStu.Show
UnloadMe
Else
MsgBox（"学号已存在!
"）
EndIf
EndIf
EndSub
升级会员 