📄 frmstudent.frm
字号:
Width = 1215
_ExtentX = 2143
_ExtentY = 661
_Version = 393216
Format = 19988481
CurrentDate = 38359
End
Begin VB.TextBox txtSerial
Height = 330
Left = 1080
TabIndex = 18
Top = 240
Width = 1215
End
Begin VB.ComboBox cboSex
Height = 300
ItemData = "frmStudent.frx":0342
Left = 1080
List = "frmStudent.frx":034C
Style = 2 'Dropdown List
TabIndex = 17
Top = 2273
Width = 1215
End
Begin VB.TextBox txtTelephone
Height = 285
Left = 1080
TabIndex = 16
Top = 3597
Width = 1800
End
Begin VB.TextBox txtResume
Height = 645
Left = 1080
MultiLine = -1 'True
TabIndex = 15
Top = 4080
Width = 3240
End
Begin VB.TextBox txtAddress
Height = 630
Left = 1080
TabIndex = 14
Top = 2770
Width = 3240
End
Begin VB.TextBox txtName
Height = 300
Left = 1080
TabIndex = 13
Top = 767
Width = 1215
End
Begin VB.CommandButton cmdSelectPhoto
Caption = "选择图片(&S)"
Height = 375
Left = 4560
TabIndex = 12
Top = 360
Width = 1215
End
Begin MSDataListLib.DataCombo dcbClass
Bindings = "frmStudent.frx":0358
Height = 330
Left = 1080
TabIndex = 19
Top = 1264
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "Name"
BoundColumn = ""
Text = ""
Object.DataMember = "Class"
End
Begin MSComDlg.CommonDialog dlgSelect
Left = 4680
Top = 840
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "电话:"
Height = 180
Index = 7
Left = 480
TabIndex = 27
Top = 3649
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "简历:"
Height = 300
Index = 8
Left = 480
TabIndex = 26
Top = 4252
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "地址:"
Height = 180
Index = 6
Left = 480
TabIndex = 25
Top = 2995
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "性别:"
Height = 180
Index = 5
Left = 480
TabIndex = 24
Top = 2333
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "出生日期:"
Height = 180
Index = 3
Left = 120
TabIndex = 23
Top = 1843
Width = 810
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "学号:"
Height = 180
Index = 0
Left = 480
TabIndex = 22
Top = 315
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "班级:"
Height = 180
Index = 11
Left = 480
TabIndex = 21
Top = 1339
Width = 450
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "姓名:"
Height = 180
Index = 1
Left = 480
TabIndex = 20
Top = 827
Width = 450
End
Begin VB.Image imgPhoto
BorderStyle = 1 'Fixed Single
DataField = "Photo"
DataMember = "Student"
DataSource = "DataEnv"
Height = 2055
Left = 2520
Stretch = -1 'True
Top = 240
Width = 1815
End
End
End
Attribute VB_Name = "frmStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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()
grdScan.DataMember = ""
grdScan.Refresh
DataEnv.rssqlSeek.Requery
grdScan.DataMember = "sqlSeek"
grdScan.Refresh
'刷新各个绑定控件
Call grdScan_Change
End Sub
''用以在浏览时，根据当前记录所出的位置不同，来改变各个浏览按钮的状态
Sub ChangeBrowseState()
With DataEnv.rssqlSeek
If .State = adStateClosed Then .Open
'如果没有任何记录，使某些按钮无效；否则则使这些按钮有效
If .BOF And .EOF Then
cmdAdd.Enabled = True
cmdEdit.Enabled = False
cmdDelete.Enabled = False
cmdUpdate.Enabled = False
cmdReport.Enabled = False
fraBrowse.Enabled = False
Else
cmdAdd.Enabled = True
cmdEdit.Enabled = True
cmdDelete.Enabled = True
cmdUpdate.Enabled = False
cmdReport.Enabled = True
fraBrowse.Enabled = True
End If
''假如处于记录的头部
If .BOF Then
If Not .EOF Then DataEnv.rsStudent.MoveFirst
cmdPrevious.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -