vf圖書(shū)管理系統(tǒng)源代碼-wenkub
2023-02-25 09:09:36 本頁(yè)面
【正文】 = Exit Do Else . End If Loop End With End Sub Private Sub Command3_Click() If = Or = Then MsgBox 未登錄學(xué)生或?qū)W生信息不能借書(shū) ,請(qǐng)先登錄 !, , 提示 Else If = 是 Then MsgBox 此書(shū)已被借出 ,請(qǐng)更換其它書(shū)籍 !, , 提示 Else Dim i As Boolean With Adodc1 .Refresh Do While Not . i = .(0).Value = U If i Then If = 無(wú) Then .(5) = = .(2) = Date . = .(2).Value MsgBox 借書(shū)成功 ,歡迎下次再來(lái) !, , 提示 (5) = 是 = (5).Value Else MsgBox 每人限借一本圖書(shū)，請(qǐng)還書(shū)后再借 , , 提示 End If Exit Do Else . End If Loop End With End If End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() End End Sub Private Sub Command1_Click() Dim U As Boolean With Adodc1 .Refresh Do While Not . U = .(0).Value = If U Then = .(1).Value = .(5).Value = .(2).Value = Exit Do Else . End If Loop End With End Sub Private Sub Command2_Click() Dim P As Boolean With Adodc2 .Refresh Do While Not . P = .(0).Value = If P Then = .(1).Value = .(2).Value = .(5).Value = .(0).Value = Exit Do Else . End If Loop End With End Sub Private Sub Command3_Click() If = Or = Then MsgBox 未登錄學(xué)生或?qū)W生信息不能還書(shū) ,請(qǐng)先登錄 !, , 提示 Else Dim i As Boolean, j As Boolean Do While Not And Not i = (0).Value = j = (5).Value = If i And j Then Dim sj As Date Dim qx As Long sj = Date qx = sj (2).Value If qx 30 Then Show = True = True qx 30 End If (5) = 無(wú) (2) = 1111 1 1 (5) = 否 = 否 = 無(wú) = 1111 1 1 MsgBox 還書(shū)成功，歡迎你再次借書(shū) , , 提示 Exit Do Else End If Loop End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Command1_Click() Dim U As Boolean With Adodc1 .Refresh Do While Not . U = .(0).Value = If U Then = .(1).Value = .(5).Value = .(2).Value = Exit Do Else . End If Loop If . Then MsgBox 輸入錯(cuò)誤，請(qǐng)重新輸入 , , 提示 = End If End With End Sub Private Sub Command2_Click() (2) = Date = (2).Value End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Command1_Click() panduan = MsgBox(掛失成功后將刪除掛失圖書(shū)信息 ,是否確認(rèn)掛失！ , 48 + 1, 提示 ) If panduan = 1 Then MsgBox 掛失成功，請(qǐng)賠償圖書(shū)損失 , , 提示 Dim U As Boolean
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1