【導(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)還書信息管理（ 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 讀者編號不能為空！ Exit Sub ElseIf = Then MsgBox 讀者姓名不能為空！ Exit Sub ElseIf = Then MsgBox 還書類別不能為空 Exit Sub ElseIf Len(Trim( amp。 )) 7 Then MsgBox 還書編號必需由 1 位類編號和 6 位數(shù)字組成！ Exit Sub ElseIf = Then MsgBox 書名不能為空！ Exit Sub ElseIf IsDate() Then = Format(, yyyymmdd) Else MsgBox 還書日期應(yīng)輸入日期（ yyyymmdd)！ , 1 + vbExclamation, 警告 Exit Sub End If Command1(0).Caption = 添加 39。判斷是否過期 no = Trim( amp。 ) d1 = Trim( amp。 ) 借書編號 =39。 amp。 no amp。 39。 If Not () Then d2 = (借書日期 ).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 過期 amp。 aDays amp。 天，罰款 amp。 Money amp。 元！ , 1 + vbExclamation, 罰款 讀者編號 =39。 amp。 amp。 39。 If Not () Then (欠款 ).Value = Val((欠款 ).Value) + Money Else MsgBox 讀者編號輸入錯誤！ , , 提示 End If End If 39。還了一本書，就把相應(yīng)的借書信息刪除 借書編號 =39。 amp。 no amp。 39。 Else MsgBox 你沒有借這本書！ , , 提示 Exit Sub End If End If Case 1 Dim nn As String nn = InputBox$(請輸入待刪除的還 書編號 , 查找窗 ) 還書編號 = 39。 amp。 nn amp。 39。 If Then MsgBox 沒有這條還書信息 !, , 提示 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 = 還書編號 =39。 amp。 Trim(Text10 amp。 ) amp。 39。 Else str = str amp。 and 還書編號 =39。 amp。 Trim(Text10 amp。 ) amp。 39。 End If End If If = vbChecked Then If Trim(str amp。 ) = Then str = 還書日期 =39。 amp。 Trim(Text11 amp。 ) amp。 amp。 Trim(Text12 amp。 ) amp。 amp。 Trim(Text13 amp。 ) amp。 39。 Else str = str amp。 and 還書日期 =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 請設(shè)置查詢條件！ , 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