VB学生信息管理系统及源代码VIP免费

VB 学生信息管理系统及源代码 Option Explicit '标识是否能关闭 Dim mbClose As Boolean '标识当前要显示的照片的文件 Dim mstrFileName As String Private Sub Form_Load() On Error Resume Next If frmMain.mnUserType = 1 Then '学生用户 fraSeek.Enabled = False fraBrowse.Enabled = False cmdAdd.Enabled = False cmdDelete.Enabled = False txtSerial.Enabled = False dcbClass.Enabled = False grdScan.Enabled = False If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then Dim Temp As String Temp = "name = " & "'" & frmMain.msUserName & "'" DataEnv.rsStudent.MoveFirst DataEnv.rsStudent.Find Temp '刷新所绑定的控件 Call RefreshBinding End If Exit Sub Else fraSeek.Enabled = True fraBrowse.Enabled = True cmdAdd.Enabled = True cmdDelete.Enabled = True txtSerial.Enabled = True dcbClass.Enabled = True grdScan.Enabled = True End If Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset Set rsDep = DataEnv.rsDepartment Set rsClass = DataEnv.rsClass rsDep.Open '从Department 表中读取数据，填充cboDep 组合框到中 cboDep.Clear cboDep.AddItem "全部" '将各个系的id 号作为 ItemData 附加到组合框中 cboDep.ItemData(0) = 0 While Not rsDep.EOF cboDep.AddItem rsDep("Name") cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id") rsDep.MoveNext Wend cboDep.ListIndex = 0 ''从class 表中读取数据，填充到cboClass 组合框中 cboClass.Clear cboClass.AddItem "全部" While Not rsClass.EOF cboClass.AddItem rsClass("Name") rsClass.MoveNext Wend cboClass.ListIndex = 0 cmdList.Value = True fraManage.Enabled = True mbClose = True '调用 grdScan_Change 事件显示记录明细 Call grdScan_Change End Sub '当DataEnv.rsStudent 的当前记录发生变化时，刷新所绑定的控件(用户改变了当前记录) Sub RefreshBinding() On Error Resume Next With DataEnv.rsStudent If DataEnv.rssqlSeek.BOF And DataEnv.rssqlSeek.EOF Then '如果不存在任何记录，则清空所有的...