圖書管理系統(tǒng)vb源代碼加設(shè)計(jì)-資料下載頁
2025-05-14 07:41本頁面
【導(dǎo)讀】MsgBox"用戶名不能為空，請重新輸入！MsgBox"添加讀者信息成功!MsgBox"請按照yyyy-mm-dd格式輸入日期",vbOKOnly+vbExclamation,""
【正文】 Private Sub Combo2_Click() = End Sub Private Sub Combo3_Click() = End Sub Private Sub Combo4_Click() = End Sub Private Sub Command1_Click() Dim rs_reader As New Dim connt As New Dim sql As String findform = False sql = select * from 借閱信息 where 讀者姓名 = 39。 amp。 amp。 39。 provider=。 data source= amp。 amp。 \ = adUseClient sql, connt, adOpenKeyset, adLockPessimistic Set = rs_reader = False = False = False End Sub Private Sub Command2_Click() Dim rs_book As New Dim connt As New Dim sql As String findform = False sql = select * from 借閱信息 where 書籍編號(hào) = 39。 amp。 amp。 39。 provider=。 data source= amp。 amp。 \ = adUseClient sql, connt, adOpenKeyset, adLockPessimistic Set = rs_book = False = False = False End Sub Private Sub Command3_Click() Dim book_number As String Dim reader_number As String Dim answer As String Dim rs_back As New Dim connt As New Dim sql As String provider=。 data source= amp。 amp。 \ book_number = (3).CellValue() reader_number = (1).CellValue() answer = MsgBox(確定要還這本書嗎 ?, vbYesNo, ) If answer = vbYes Then sql = select * from 借閱信息 where 書籍編號(hào) = 39。 amp。 book_number amp。 39。 39。刪除這本書在 借閱信息 中的記錄 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic sql = select * from 書籍信息 where 圖書編號(hào) = 39。 amp。 book_number amp。 39。 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic (7) = 否 sql = select * from 讀者信息 where 讀者編號(hào) = 39。 amp。 reader_number amp。 39。 = adUseClient sql, connt, adOpenKeyset, adLockPessimistic (8) = (8) 1 MsgBox 成功刪除 !, vbOKOnly + vbExclamation, = False Else Exit Sub End If If findform = True Then Command1_Click Else Command2_Click End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() Dim rs_reader As New Dim connt As New Dim rs_book As New Dim sql As String sql = select * from [讀者信息 ] provider=。 data source= amp。 amp。 \ = adUseClient sql, connt, adOpenKeyset, adLockPessimistic If Not Then Do While Not (1) (0) Loop End If sql = select * from [借閱信息 ] = adUseClient sql, connt, adOpenKeyset, adLockPessimistic If Not Then Do While Not (3) (4) Loop End If End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Su
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1