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

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

'如果不存在任何记录，则清空所有的绑定的内容

txtSerial = ""

txtName = ""

dtpBirth.Value = ""

txtTelephone = ""

txtAddress = ""

txtResume = ""

imgPhoto.Picture = LoadPicture(Null)

Else '否则和相应的字段进行绑定

txtSerial = .Fields("serial")

txtName = .Fields("name")

dtpBirth.Value = .Fields("birthday")

txtTelephone = .Fields("tel")

txtAddress = .Fields("address")

txtResume = .Fields("resume")

cboSex.Text = .Fields("sex")

dcbClass.Text = .Fields("class")

imgPhoto.Picture = LoadPicture(ReadImage(.Fields("photo")))

End If

End With

End Sub

''在DataEnv.rsStudent中查询serial为sSerial的学籍信息

Sub SeekStudent(sSerial As String)

If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then

Dim Temp As String

Temp = "serial = " & "'" & sSerial & "'"

DataEnv.rsStudent.MoveFirst

DataEnv.rsStudent.Find Temp

'刷新所绑定的控件

Call RefreshBinding

End If

End Sub

''当改变记录集时，需要刷新用户导航的网格控件

Sub RefreshGrid()