vbsql圖書管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)(參考版)
2025-05-18 01:50本頁面
【正文】 ? = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (8) = (8) 1 If findform = True Then Command1_Click Else Command2_Click End If MsgBox 成功刪除 ！ , vbOKOnly + vbExclamation, = False Else Exit Sub End If delerror: If 0 Then MsgBox 43 End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_reader As New Dim rs_book As New Dim sql As String sql = select * from 讀者信息 。 ? = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (7) = 否 sql = select * from 讀者信息 where 讀者編號(hào) =? amp。 ? = adUseClient sql, conn, adOpenKeyset, adLockPessimistic sql = select * from 書籍信息 where 書籍編號(hào) =? amp。 ? = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Set = rs_book = False = False = False 42 End Sub Private Sub Command3_Click() Dim book_num As String Dim reader_num As String Dim answer As String Dim rs_back As New Dim sql As String On Error GoTo delerror book_num = (3).CellValue() reader_num = (1).CellValue() answer = MsgBox(確定要還這本書嗎？ , vbYesNo, ) If answer = vbYes Then sql = select * from 借閱信息 where 書籍編號(hào) =? amp。 ? = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Set = rs_reader = False = False = False End Sub Private Sub Command2_Click() Dim rs_book As New Dim sql As String findform = False sql = select * from 借閱信息 where 書籍編號(hào) =? amp。 ? sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = CInt() (2) = CInt() (3) = CInt() MsgBox 添加讀者類別成功！ , vbOKOnly, Else MsgBox 讀者類別重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub 增加用戶： Private Sub Command1_Click() Dim sql As String Dim rs_add As New If Trim() = Then MsgBox 用戶名不能為空 , vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) 40 If Trim((0)) = Trim() Then MsgBox 已有這個(gè)用戶 , vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致 , vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請選 擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = MsgBox 添加用戶成功 , vbOKOnly + vbExclamation, Unload Me End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() system guest End Sub 41 還書： Option Explicit Dim findform As Boolean Private Sub Combo1_Click() = End Sub 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 sql As String findform = True sql = select * from 借閱信息 where 讀者姓名 =? amp。 ? sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = CDate() MsgBox 添加讀者信息成功！ , vbOKOnly, Else MsgBox 讀者編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, 38 = Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 男 女 Dim rs_leibie As New Dim sql As String sql = select * from 讀者類別 sql, conn, adOpenKeyset, adLockPessimistic Do While Not (0) Loop End Sub 添加讀者類別： Option Explicit Dim rs_readerstyle As New Private Sub Command1_Click() Dim sql As String If Trim() = Then MsgBox 讀者種類不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 借書數(shù)量不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 借書期限不能為空 , vbOKOnly + vbExclamation, 39 Exit Sub End If If Trim() = Then MsgBox 有限期限不能為空 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 讀者類別 where 種類名稱 =? amp。 ? sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() MsgBox 添加圖書類別成功！ , vbOKOnly, Else MsgBox 讀者類別重復(fù)！ , vbOKOnly + vbExclamation, = Exit Sub End If End Sub 37 Private Sub Command2_Click() Unload Me End Sub 添加讀者信息： Option Explicit Dim rs_addreader As New Private Sub Command1_Click() Dim sql As String If Trim() = Then MsgBox 請選擇讀者種類 ,
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1