?? 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 + -