vb學(xué)生信息管理系統(tǒng)及源代碼-wenkub
2022-12-27 14:15:30 本頁(yè)面
【正文】 , 確認(rèn) ) = vbYes Then 39。 () End If strSQL, 39。假如處于記錄的頭部 If .BOF Then If Not .EOF Then = False = False Else = True = True End If 39。39。刷新所綁定的控件 Call RefreshBinding End If End Sub 39。 amp。否則和相應(yīng)的字段進(jìn)行綁定 txtSerial = .Fields(serial) txtName = .Fields(name) = .Fields(birthday) txtTelephone = .Fields(tel) txtAddress = .Fields(address) txtResume = .Fields(resume) = .Fields(sex) = .Fields(class) = LoadPicture(ReadImage(.Fields(photo))) End If End With End Sub 39。從 class表中讀取數(shù)據(jù)，填充到 cboClass組合框中 全部 While Not rsClass(Name) Wend = 0 = True = True mbClose = True 39。刷新所綁定的控件 Call RefreshBinding End If Exit Sub Else = True = True = True = True = True = True = True End If Dim rsDep As New , rsClass As New Set rsDep = Set rsClass = 39。 amp。標(biāo)識(shí)是否能關(guān)閉 Dim mbClose As Boolean 39。標(biāo)識(shí)當(dāng)前要顯示的照片的文件 Dim mstrFileName As String Private Sub Form_Load() On Error Resume Next If = 1 Then 39。 amp。從 Department表中讀取數(shù)據(jù)，填充 cboDep組合框到中 全部 39。調(diào)用 grdScan_Change事件顯示記錄明細(xì) Call grdScan_Change End Sub 39。39。 sSerial amp。39。用以在瀏覽時(shí)，根據(jù)當(dāng)前記錄所出的位置不同，來(lái)改變各個(gè)瀏覽按鈕的狀態(tài) Sub ChangeBrowseState() With If .State = adStateClosed Then .Open 39。39。將所查到的 rsClass中的內(nèi)容來(lái)填充 cboClass 全部 While Not rsClass(Name) Wend = 0 Set rsClass = Nothing End Sub Private Sub cmdAdd_Click() 39。通過在 SQL命令，來(lái)刪除記錄 delete from 學(xué)生信息表 where serial =39。 If Then 39。更改 cmdReport標(biāo)題 = True mbClose = False 39。針對(duì)所選的班級(jí)，列出班級(jí)中所有的學(xué)籍信息 Dim strSQL If = 全部 Then strSQL = from 學(xué)生信息表 order by serial Else strSQL = from 學(xué)生信息表 where class=39。 order by serial End If select * amp。 Call RefreshGrid Call ChangeBrowseState Call grdScan_Change End Sub Private Sub cmdNext_Click() 39。重新顯示原來(lái)數(shù)據(jù)集中的內(nèi)容 If Then Else End If Call RefreshBinding Call ChangeBrowseState = True = True = False = True = 報(bào)表 (R) mbClose = True Else 39。 39。*.jpg。*.dib|GIF 文件 (*.gif)|*.gif|JPEG 文件 (*.jpg)|*.jpg| 圖標(biāo)文 件(*.ico)|*.ico If = Then Exit Sub = LoadPicture() mstrFileName = Exit Sub errHandler: MsgBox , vbCritical, 錯(cuò)誤 End Sub Private Sub cmdUpdate_Click() 39。根據(jù)記錄集中記錄的個(gè)數(shù)，改變各個(gè)按鈕的狀態(tài) Call ChangeBrowseState 39。 39。定義數(shù)據(jù)塊個(gè)數(shù) Dim FileLength As Long 39。定義循環(huán)變量 Const BLOCKSIZE = 4096 39。得到文件長(zhǎng)度 If FileLength = 0 Then 39。得到剩余字節(jié)數(shù) = Null ReDim byteData(BLOCKSIZE) 39。重新定義數(shù) 據(jù)塊的大小 Get SourceFile, , byteData() 39。取得一個(gè)臨時(shí)性文件 Dim strFileName As String strFileName = ImageTmp Dim FileNumber As Integer 3
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1