学生成绩管理系统VB程序.doc
- 文档编号:1643129
- 上传时间:2022-10-23
- 格式:DOC
- 页数:8
- 大小:52KB
学生成绩管理系统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控件利用循环读取课程表中的课程名
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 成绩管理系统 VB 程序