圖書(shū)管理系統(tǒng)論文(vb版)-資料下載頁(yè)
2025-05-13 21:52本頁(yè)面
【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }
【正文】 On Error Resume Next Case 9 End Select End Sub Private Sub Form_Load() Dim path As String mpath = If Right(mpath, 1) \ Then mpath = mpath + \ = mpath + = brrow 男 女 = = = = = = Checked End Sub (2)還書(shū)信息管理（ FrmReturn）代碼： Private Sub Command1_Click(Index As Integer) Dim d1, d2 As String Dim bYear As Integer Dim eYear As Integer Dim bDays As Integer Dim eDays As Integer Dim aDays As Integer Dim Money As Single Select Case Index Case 0 If Command1(0).Caption = 添加 Then Command1(0).Caption = 確認(rèn) Else If = Then MsgBox 讀者編號(hào)不能為空！ Exit Sub ElseIf = Then MsgBox 讀者姓名不能為空！ Exit Sub ElseIf = Then MsgBox 還書(shū)類(lèi)別不能為空 Exit Sub ElseIf Len(Trim( amp。 )) 7 Then MsgBox 還書(shū)編號(hào)必需由 1 位類(lèi)編號(hào)和 6 位數(shù)字組成！ Exit Sub ElseIf = Then MsgBox 書(shū)名不能為空！ Exit Sub ElseIf IsDate() Then = Format(, yyyymmdd) Else MsgBox 還書(shū)日期應(yīng)輸入日期（ yyyymmdd)！ , 1 + vbExclamation, 警告 Exit Sub End If Command1(0).Caption = 添加 39。判斷是否過(guò)期 no = Trim( amp。 ) d1 = Trim( amp。 ) 借書(shū)編號(hào) =39。 amp。 no amp。 39。 If Not () Then d2 = (借書(shū)日期 ).Value bYear = DatePart(yyyy, d2) eYear = DatePart(yyyy, d1) bDays = DatePart(y, d2) eDays = DatePart(y, d1) If bYear = eYear Then aDays = eDays bDays Else aDays = (eYear bYear 1) * 365 + (365 bDays) + eDays End If If aDays 30 Then aDays = aDays 30 Money = aDays * MsgBox 過(guò)期 amp。 aDays amp。 天，罰款 amp。 Money amp。 元！ , 1 + vbExclamation, 罰款 讀者編號(hào) =39。 amp。 amp。 39。 If Not () Then (欠款 ).Value = Val((欠款 ).Value) + Money Else MsgBox 讀者編號(hào)輸入錯(cuò)誤！ , , 提示 End If End If 39。還了一本書(shū)，就把相應(yīng)的借書(shū)信息刪除 借書(shū)編號(hào) =39。 amp。 no amp。 39。 Else MsgBox 你沒(méi)有借這本書(shū)！ , , 提示 Exit Sub End If End If Case 1 Dim nn As String nn = InputBox$(請(qǐng)輸入待刪除的還 書(shū)編號(hào) , 查找窗 ) 還書(shū)編號(hào) = 39。 amp。 nn amp。 39。 If Then MsgBox 沒(méi)有這條還書(shū)信息 !, , 提示 Else xm = MsgBox(確認(rèn)刪除嗎？ , vbYesNo) If xm = vbYes Then MsgBox 刪除成功 !, , 提示 End If End If Case 2 If Command1(0).Caption = 確認(rèn) Then = = = = = = = Command1(0).Caption = 添加 End If Case 3 If Command1(3).Caption = 修改 Then Command1(3).Caption = 確認(rèn) Else Command1(3).Caption = 修改 MsgBox (修改成功！ ) End If Case 4 Dim str As String If = vbChecked Then str = 讀者姓名 =39。 amp。 Trim(Text9 amp。 ) amp。 39。 End If If = vbChecked Then If Trim(str amp。 ) = Then str = 還書(shū)編號(hào) =39。 amp。 Trim(Text10 amp。 ) amp。 39。 Else str = str amp。 and 還書(shū)編號(hào) =39。 amp。 Trim(Text10 amp。 ) amp。 39。 End If End If If = vbChecked Then If Trim(str amp。 ) = Then str = 還書(shū)日期 =39。 amp。 Trim(Text11 amp。 ) amp。 amp。 Trim(Text12 amp。 ) amp。 amp。 Trim(Text13 amp。 ) amp。 39。 Else str = str amp。 and 還書(shū)日期 =39。 amp。 Trim(Text11 amp。 ) amp。 amp。 Trim(Text12 amp。 ) amp。 amp。 Trim(Text13 amp。 ) amp。 39。 End If End If If Trim(str) = Then MsgBox 請(qǐng)?jiān)O(shè)置查詢(xún)條件！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else str1 = select * from return where amp。 str = str1 End If Case 5 If = True Then End If Case 6 If = True Then End If Case 7 Case 8 Case 9 End Select End Sub Private Sub Form_Load() Dim path As String mpath = If Right(mpath, 1) \ Then mpath = mpath + \ = mpath + = return = = = = = 男 女 = Checked End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1