vb學(xué)生信息管理系統(tǒng)及源代碼(編輯修改稿)
2025-01-21 14:15 本頁面
【文章內(nèi)容簡介】 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 = 報(bào)表 (amp。R) = False = False mbClose = True If = adStateClosed Then 39。刷新右端用以導(dǎo)航的網(wǎng)格控件 Call RefreshGrid 39。根據(jù)記錄集中記錄的個(gè)數(shù)，改變各個(gè)按鈕的狀態(tài) Call ChangeBrowseState 39。定位到剛剛添加或者修改過的記錄 serial=39。 amp。 str amp。 39。 = True = True = True Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 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 數(shù)據(jù)正被修改，窗口不能關(guān)閉 , vbCritical, 錯(cuò)誤 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。當(dāng)前行改變，則動(dòng)態(tài)改變所要顯示的記錄 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。定義數(shù)據(jù)塊數(shù)組 Dim NumBlocks As Long 39。定義數(shù)據(jù)塊個(gè)數(shù) Dim FileLength As Long 39。標(biāo)識文件長度 Dim LeftOver As Long 39。定義剩余字節(jié)長度 Dim SourceFile As Long 39。定義自由文件號 Dim i As Long 39。定義循環(huán)變量 Const BLOCKSIZE = 4096 39。每次讀寫塊的大小 SourceFile = FreeFile 39。提供一個(gè)尚未使用的文件號 Open DiskFile For Binary Access Read As SourceFile 39。打開文件 FileLength = LOF(SourceFile) 39。得到文件長度 If FileLength = 0 Then 39。判斷文件是否存在 Close SourceFile MsgBox DiskFile amp。 無 內(nèi) 容 或 不 存 在 ! Else NumBlocks = FileLength \ BLOCKSIZE 39。得到數(shù)據(jù)塊的個(gè)數(shù) LeftOver = FileLength Mod BLOCKSIZE 39。得到剩余字節(jié)數(shù) = Null ReDim byteData(BLOCKSIZE) 39。重新定義數(shù)據(jù)塊的大小 For i = 1 To NumBlocks Get SourceFile, , byteData() 39。 讀到內(nèi)存塊中 byteData() 39。寫入 FLD Next i ReDim byteData(LeftOver) 39。重新定義數(shù) 據(jù)塊的大小 Get SourceFile, , byteData() 39。讀到內(nèi)存塊中 byteData() 39。寫入 FLD Close SourceFile 39。關(guān)閉源文件 End If End Sub Private Function ReadImage(blobColumn As ) As String 39。取得一個(gè)臨時(shí)性文件 Dim strFileName As String strFileName = ImageTmp Dim FileNumber As Integer 39。文件號 Dim DataLen As Long 39。文件長度 Dim Chunks As Long 39。數(shù)據(jù)塊數(shù) Dim ChunkAry() As Byte 39。數(shù)據(jù)塊數(shù)組 Dim ChunkSize As Long 39。數(shù)據(jù)塊大小 Dim Fragment As Long 39。零碎數(shù)據(jù)大小 Dim lngI As Long 39。計(jì)數(shù)器 On Error GoTo errHander ChunkSize = 2048 39。定義塊大小為 2K If IsNull(blobColumn) Then Exit Function DataLen = 39。獲得圖像大小
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1