VB学生信息管理系统及源代码VIP专享

下载后可任意编辑VB 学生信息管理系统及源代码Option Explicit'标识是否能关闭Dim mbClose As Boolean'标识当前要显示的照片的文件Dim mstrFileName As StringPrivate 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_ChangeEnd Sub下载后可任意编辑'当 DataEnv.rsStudent 的当前记录发生变化时，刷新所绑定的控件(用户改变了当前记录)Sub RefreshBinding() On Error Resume Next With DataEnv.rsStudent If DataEnv.rssqlSeek.BOF And DataEnv.rssqlSeek.EOF...