'********************************************
'模块名:学生信息查询窗体 *
'功能: 实现对学生基本信息的管理 *
'完成人员: 李恺鑫 *
'完成日期: 2006-4-19 *
'测试情况: 测试完毕 *
'测试人员: 李恺鑫 *
'功能实现情况: 完全实现 *
'相关文档: "/编程文档/学生信息查询窗体.txt" *
'********************************************
Dim sqlYx As String '记录查询记录的院系代码
Dim sqlBj As String '记录查询记录的班级代码
Dim sqlYxd As Integer '记录编辑记录的院系代码
Dim sqlBjd As Integer '记录编辑记录的班级代码
Dim sqlXjd As Integer '记录编辑记录的学籍代码
Private Sub cmdAdd_Click()
rs_Sinf.Recordset.AddNew
rs_chufa.Recordset.AddNew
rs_award.Recordset.AddNew
rs_chengji.Recordset.AddNew
frmAdd.Show vbModal '必操作窗体
End Sub
Private Sub cmdClear_Click()
cmdAdd.Enabled = True
cmdEdit.Enabled = True
cmdDelet.Enabled = True
cmdClear.Enabled = False
cmdUpgrate.Enabled = False
cmdAdd.SetFocus
txtXuehao.Locked = True
txtXinming.Locked = True
txtXb.Locked = True
txtBarth.Locked = True
txtJg.Locked = True
txtPhone.Locked = True
txtAddress.Locked = True
dpkBarth.Visible = False
dcbXj.Visible = False
dcbXueyuan.Visible = False
dcbClass.Visible = False
cbmian.Visible = False
txtBarth.Visible = True
txtXj.Visible = True
txtYx.Visible = True
txtBj.Visible = True
txtZm.Visible = True
End Sub
Private Sub cmdDelet_Click()
On Error GoTo errorDelete
Dim myVal As String
Beep
myVal = MsgBox("要删除此条信息吗?", vbQuestion + vbOKCancel, "询问")
If myVal = vbOK Then
rs_Sinf.Recordset.Delete
rs_Sinf.Recordset.MoveNext
If rs_Sinf.Recordset.EOF Then
rs_Sinf.Recordset.MoveLast
End If
rs_Sinf.Refresh
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
Else
rs_Sinf.Recordset.Cancel
rs_Sinf.Refresh
End If
errorDelete:
rs_Sinf.Recordset.Cancel
rs_Sinf.Refresh
End Sub
Private Sub cmdEdit_Click()
MsgBox "可以编辑信息!", vbInformation + vbOKOnly, "注意"
rs_Xj.RecordSource = "select * from 学籍变更代码表 order by 代码"
rs_Xj.Refresh
rs_Yxe.RecordSource = "select * from 院系代码表 order by 学院编码"
rs_Yxe.Refresh
rs_Bje.RecordSource = "select * from 班级代码表 order by 班级代码"
rs_Bje.Refresh
cmdUpgrate.Enabled = True
cmdClear.Enabled = True
cmdAdd.Enabled = False
cmdDelet.Enabled = False
dpkBarth.Visible = True
dcbXj.Visible = True
dcbXueyuan.Visible = True
dcbClass.Visible = True
cbmian.Visible = True
txtBarth.Visible = False
txtXj.Visible = False
txtYx.Visible = False
txtBj.Visible = False
txtZm.Visible = False
txtXuehao.Locked = False
txtXinming.Locked = False
txtXb.Locked = False
txtBarth.Locked = False
txtJg.Locked = False
txtPhone.Locked = False
txtAddress.Locked = False
dgdXinf.Enabled = False
famLl.Enabled = False
cmdFind.Enabled = False
End Sub
Private Sub cmdFind_Click()
If optXh.Value = True Then
rs_Sinf.RecordSource = "select * from 学生个人信息表 where 学号='" + Trim(txtXh.Text) + "'"
rs_Sinf.Refresh
If rs_Sinf.Recordset.RecordCount = 0 Then
txtXj.Text = ""
txtYx.Text = ""
txtBj.Text = ""
cmdDelet.Enabled = False
cmdEdit.Enabled = False
MsgBox "没有有效记录!", vbInformation + vbOKOnly, "提示"
txtXh.Text = ""
txtXh.SetFocus
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
Else
cmdDelet.Enabled = True
cmdEdit.Enabled = True
Call Rsbound
End If
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
End If
If optXm.Value = True Then
rs_Sinf.RecordSource = "select * from 学生个人信息表 where 姓名='" + Trim(txtXm.Text) + "'"
rs_Sinf.Refresh
If rs_Sinf.Recordset.RecordCount = 0 Then
txtXj.Text = ""
txtYx.Text = ""
txtBj.Text = ""
MsgBox "没有有效记录!", vbInformation + vbOKOnly, "提示"
cmdDelet.Enabled = False
cmdEdit.Enabled = False
txtXm.Text = ""
txtXm.SetFocus
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
Else
cmdDelet.Enabled = True
cmdEdit.Enabled = True
Call Rsbound
End If
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
End If
If optXy.Value = True Then
rs_Yxc.RecordSource = "select * from 院系代码表 where 全称='" + dcbYx.Text + "'"
rs_Yxc.Refresh
sqlYx = rs_Yxc.Recordset.Fields("学院编码")
rs_Sinf.RecordSource = "select * from 学生个人信息表 where 所在院系编号='" + sqlYx + "' order by 学号" 'problem
rs_Sinf.Refresh
If rs_Sinf.Recordset.RecordCount <> 0 Then
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
Call Rsbound
rs_Yxc.RecordSource = "select * from 院系代码表 order by 学院编码"
rs_Yxc.Refresh
cmdDelet.Enabled = True
cmdEdit.Enabled = True
Else
stb.Panels.Item(3).Text = 0
txtXj.Text = ""
txtYx.Text = ""
txtBj.Text = ""
rs_Yxc.RecordSource = "select * from 院系代码表 order by 学院编码"
rs_Yxc.Refresh
cmdDelet.Enabled = False
cmdEdit.Enabled = False
MsgBox "没有有效记录!", vbInformation + vbOKOnly, "提示"
End If
End If
If optBj.Value = True Then
rs_Bjc.RecordSource = "select * from 班级代码表 where 全称='" + dcbBj.Text + "'"
rs_Bjc.Refresh
sqlBj = rs_Bjc.Recordset.Fields("班级代码")
rs_Sinf.RecordSource = "select * from 学生个人信息表 where 所在班级编号='" + sqlBj + "' order by 学号"
rs_Sinf.Refresh
If rs_Sinf.Recordset.RecordCount <> 0 Then
stb.Panels.Item(3).Text = Trim(rs_Sinf.Recordset.RecordCount)
Call Rsbound
rs_Bjc.RecordSource = "select * from 班级代码表 order by 班级代码"
rs_Bjc.Refresh
cmdDelet.Enabled = True
cmdEdit.Enabled = True
Else
stb.Panels.Item(3).Text = 0
txtXj.Text = ""
txtYx.Text = ""
txtBj.Text = ""
rs_Bjc.RecordSource = "select * from 班级代码表 order by 班级代码"
rs_Bjc.Refresh
cmdDelet.Enabled = False
cmdEdit.Enabled = False
MsgBox "没有有效记录!", vbInformation + vbOKOnly, "提示"
End If
End If
End Sub
Private Sub cmdFirst_Click()
If rs_Sinf.Recordset.RecordCount <> 0 Then
rs_Sinf.Recordset.MoveFirst
Call Rsbound
Else
MsgBox "当前没有有效记录供浏览!", vbInformation + vbOKOnly, "提示"
End If
End Sub
没有合适的资源?快使用搜索试试~ 我知道了~
学生学籍管理系统VB+SQL
共146个文件
jpg:56个
frm:22个
frx:22个
5星 · 超过95%的资源 需积分: 10 63 下载量 150 浏览量
2009-04-18
11:17:14
上传
评论
收藏 2.77MB RAR 举报
温馨提示
学生学籍管理系统VB+SQL,简单实用,毕业生毕业设计
资源推荐
资源详情
资源评论
收起资源包目录
学生学籍管理系统VB+SQL (146个子文件)
CHM.BAS 400B
BasVal.bas 213B
MyHelp.CHM 646KB
copy 2.24MB
hmove.cur 766B
MyHelp.ecp 3KB
学生信息管理系统.exe 1.75MB
frmSinfgl.frm 69KB
frmChenggl.frm 40KB
frmStudent.frm 37KB
frmChufa.frm 27KB
frmAward.frm 27KB
frmAdd.frm 23KB
frmSinfcx.frm 21KB
studentform.frm 20KB
frmChz.frm 19KB
frmAllinf.frm 19KB
frmMain.frm 14KB
frmYzj.frm 14KB
frmXjgl.frm 12KB
frmKgl.frm 11KB
frmAbout.frm 11KB
frmZcj.frm 11KB
frmGly.frm 10KB
frmLoad.frm 10KB
frmSload.frm 10KB
frmPutong.frm 8KB
frmGlyadd.frm 6KB
frmCload.frm 3KB
frmmain.frx 141KB
frmLoad.frx 89KB
frmCload.frx 78KB
frmSinfcx.frx 64KB
frmSload.frx 64KB
frmSinfgl.frx 62KB
frmChz.frx 62KB
frmAdd.frx 62KB
frmChenggl.frx 62KB
frmYzj.frx 62KB
frmChufa.frx 62KB
frmAward.frx 62KB
frmGlyadd.frx 62KB
frmAllinf.frx 62KB
frmXjgl.frx 62KB
frmZcj.frx 62KB
frmKgl.frx 62KB
frmStudent.frx 62KB
frmGly.frx 62KB
studentform.frx 62KB
frmPutong.frx 62KB
frmAbout.frx 62KB
wutu.gif 2KB
用户登录窗体.htm 4KB
学生成绩管理窗体.htm 2KB
用户管理窗口.htm 2KB
用户自定义查询窗体.htm 2KB
学生奖罚信息管理窗体.htm 1KB
主窗体.htm 1KB
学生信息管理窗体.htm 1KB
学生个人信息查询窗体.htm 1KB
用户身份选择登录窗口.htm 1KB
学生课程管理窗体.htm 1007B
学生学籍管理窗体.htm 995B
全部学生信息查询窗体.htm 983B
Fauxs-xp (oynx) v2 icon 02.ico 62KB
bgmain.jpg 120KB
学生个人查询.jpg 74KB
学生成绩管理窗体.jpg 73KB
学生成绩添加.jpg 72KB
CRUMPLE.JPG 71KB
CRUMPLE.JPG 71KB
d1.jpg 63KB
学生奖励记录管理窗体.jpg 60KB
全部学生信息浏览窗体.jpg 58KB
学生信息查询窗体.jpg 57KB
系统管理员登陆.jpg 55KB
普通管理员登陆.jpg 55KB
主窗体.jpg 55KB
数据库关系图.jpg 54KB
Snap2.jpg 51KB
Snap1.jpg 51KB
学生处罚记录管理窗体.jpg 48KB
学生学籍查询窗体.jpg 39KB
成绩分类汇总窗体.jpg 39KB
成绩分列汇总窗体.jpg 39KB
用户自定义查询窗口2.jpg 27KB
用户自定义查询结果窗口.jpg 26KB
学生信息添加窗体.jpg 26KB
wpakey.jpg 25KB
xain.jpg 24KB
用户自定义查询窗体.jpg 24KB
1112.jpg 22KB
课程管理窗体.jpg 20KB
系统管理员窗体.jpg 20KB
yj_3.jpg 19KB
学生用户登录.jpg 19KB
yj_1.jpg 18KB
yj_4.jpg 18KB
kc_1.jpg 18KB
kc_2.jpg 18KB
共 146 条
- 1
- 2
资源评论
- yyyydddd88882015-08-05非常系统全面,是学习的好资料!特别是专门列出了编程文档、还做了帮助文件,源代码非常有参考价值!谢谢分享!
- w199107152015-01-06很好的资源,值得学习
- 77呱呱772014-11-27做毕业设计非常的使用,功能很强大,使用界面也做得非常的友好。
- zhanghao63162014-04-07比较详细,值得借鉴。
zhao5051187
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功