數(shù)計學院課程設計報告冊(編程類)(編輯修改稿)
2024-08-31 00:03 本頁面
【文章內(nèi)容簡介】 mmdd格式輸入日期, vbOKOnly + vbExclamation, Exit SubEnd If provider=。 data source= amp。 amp。 \sql = select * from 書籍信息 where 圖書編號=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 MsgBox 添加書籍信息成功!, vbOKOnly, Else MsgBox 圖書編號重復!, vbOKOnly + vbExclamation, Exit SubEnd IfEnd Sub2) 圖書詳細信息瀏覽?？赏ㄟ^選擇條件來查詢圖書的詳細信息，如圖13。圖 圖13主要代碼：Private Sub Command1_Click() Dim sql As String Dim rs_find As New Dim conn As New provider=。 data source= amp。 amp。 \ If = True Then sql = select * from 書籍信息 where 是否被借出=39。是39。 End If If = True Then sql = select * from 書籍信息 where 是否被借出=39。否39。 End If If = True And Then sql = select * from 借閱信息 where 讀者姓名=39。 amp。 amp。 39。 ElseIf = True And = Then MsgBox 請輸入讀者姓名！, vbOKOnly + vbExclamation Exit Sub End If = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findEnd Sub3) 圖書信息的修改和刪除。對圖書信息可進行修改和刪除操作,圖書的編號不可以修改，如圖14。圖14主要代碼：Private Sub cmdmodify_Click() Dim answer As String On Error GoTo cmdmodify = False = False = True = True = True Exit Subcmdmodify: If 0 Then MsgBox
高考資料相關推薦
鄂ICP備17016276號-1