vb學生信息管理系統及源代碼(編輯修改稿)

　

【文章內容簡介】 r: Dim str As String str = With .Fields(Serial) = .Fields(name) = .Fields(sex) = .Fields(class) = .Fields(birthday) = .Fields(tel) = .Fields(address) = .Fields(resume) = If mstrFileName Then Call WriteImage(.Fields(photo), mstrFileName) .Update End With = 報表 (amp。R) = False = False mbClose = True If = adStateClosed Then 39。刷新右端用以導航的網格控件 Call RefreshGrid 39。根據記錄集中記錄的個數，改變各個按鈕的狀態 Call ChangeBrowseState 39。定位到剛剛添加或者修改過的記錄 serial=39。 amp。 str amp。 39。 = True = True = True Exit Sub errHandler: MsgBox , vbCritical, 錯誤 End Sub Private Sub dcbClass_Click(Area As Integer) If txtSerial = Then txtSerial = End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Not mbClose Then MsgBox 數據正被修改，窗口不能關閉 , vbCritical, 錯誤 Cancel = True End If End Sub Private Sub fraInfo_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub grdScan_Change() If 0 Then Call SeekStudent((0).CellText()) End If End Sub Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 39。當前行改變，則動態改變所要顯示的記錄 If LastRow Then If 0 Then Call SeekStudent((0).CellText()) End If End If End Sub Private Sub WriteImage(ByRef Fld As , DiskFile As String) Dim byteData() As Byte 39。定義數據塊數組 Dim NumBlocks As Long 39。定義數據塊個數 Dim FileLength As Long 39。標識文件長度 Dim LeftOver As Long 39。定義剩余字節長度 Dim SourceFile As Long 39。定義自由文件號 Dim i As Long 39。定義循環變量 Const BLOCKSIZE = 4096 39。每次讀寫塊的大小 SourceFile = FreeFile 39。提供一個尚未使用的文件號 Open DiskFile For Binary Access Read As SourceFile 39。打開文件 FileLength = LOF(SourceFile) 39。得到文件長度 If FileLength = 0 Then 39。判斷文件是否存在 Close SourceFile MsgBox DiskFile amp。 無 內 容 或 不 存 在 ! Else NumBlocks = FileLength \ BLOCKSIZE 39。得到數據塊的個數 LeftOver = FileLength Mod BLOCKSIZE 39。得到剩余字節數 = Null ReDim byteData(BLOCKSIZE) 39。重新定義數據塊的大小 For i = 1 To NumBlocks Get SourceFile, , byteData() 39。 讀到內存塊中 byteData() 39。寫入 FLD Next i ReDim byteData(LeftOver) 39。重新定義數 據塊的大小 Get SourceFile, , byteData() 39。讀到內存塊中 byteData() 39。寫入 FLD Close SourceFile 39。關閉源文件 End If End Sub Private Function ReadImage(blobColumn As ) As String 39。取得一個臨時性文件 Dim strFileName As String strFileName = ImageTmp Dim FileNumber As Integer 39。文件號 Dim DataLen As Long 39。文件長度 Dim Chunks As Long 39。數據塊數 Dim ChunkAry() As Byte 39。數據塊數組 Dim ChunkSize As Long 39。數據塊大小 Dim Fragment As Long 39。零碎數據大小 Dim lngI As Long 39。計數器 On Error GoTo errHander ChunkSize = 2048 39。定義塊大小為 2K If IsNull(blobColumn) Then Exit Function DataLen = 39。獲得圖像大小