vb学生管理系统很好的

'******************************************** '模块名:学生信息查询窗体 * '功能: 实现对学生基本信息的管理 * '完成人员: 李恺鑫 * '完成日期: 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