vf圖書(shū)管理系統(tǒng)源代碼-資料下載頁(yè)
2025-02-10 09:09本頁(yè)面
【導(dǎo)讀】VF圖書(shū)管理系統(tǒng)源代碼。MsgBox"登錄成功",,"提示". U=..Value='字段0為用戶名稱。MsgBox"沒(méi)找到相關(guān)記錄",,"提示". MsgBox"未登錄學(xué)生或?qū)W生信息不能借書(shū),請(qǐng)先登錄!MsgBox"此書(shū)已被借出,請(qǐng)更換其它書(shū)籍!MsgBox"借書(shū)成功,歡迎下次再來(lái)!MsgBox"每人限借一本圖書(shū)，請(qǐng)還書(shū)后再借",,"提示"
【正文】 () Unload Me End Sub Private Sub Label3_Click() = 更換操作員口令，雙擊進(jìn)入。 End Sub Private Sub Label3_DblClick() Unload Me End Sub Private Sub Label4_Click() = 系統(tǒng)相關(guān)設(shè)置，雙擊進(jìn)入。 End Sub Private Sub Label4_DblClick() Unload Me End Sub Private Sub cmdadd_Click() On Error Resume Next If = 添 加 Then = 確 定 = 取消 = False = False = False = False = False Else = 添 加 = True = True = True = True End If End Sub Private Sub cmddel_Click() On Error Resume Next If MsgBox(是否真的刪除？ , vbYesNo, 提示 ) = vbYes Then If Then End If End If End Sub Private Sub cmdfirst_Click() = False = True End Sub Private Sub cmdlast_Click() = False = True End Sub Private Sub cmdnext_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub cmdprevious_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub Cmdgx_Click() If = 取消 Then Unload Me Else: MsgBox 更新完畢 , , 提示 End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() = False End Sub Private Sub cmdadd_Click() On Error Resume Next If = 添 加 Then = 確 定 = 取消 = False = False = False = False = False Else = 添 加 = True = True = True = True End If End Sub Private Sub cmddel_Click() On Error Resume Next If MsgBox(是否真的刪除？ , vbYesNo, 提示 ) = vbYes Then If Then End If End If End Sub Private Sub cmdfirst_Click() = False = True End Sub Private Sub cmdlast_Click() = False = True End Sub Private Sub cmdnext_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub cmdprevious_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub Cmdgx_Click() If = 取消 Then Unload Me Else: MsgBox 更新完畢 , , 提示 End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() = False End Sub Private Sub cmdadd_Click() On Error Resume Next If = 添 加 Then = 確 定 Else = 添 加 MsgBox 添加成功 , , 提示 End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() End Su
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1