如果你是一個對編程一無所知，而又迫切希望掌握一種快捷實用的編程語言的初學者，那選擇VB6.0就是編程的不二選擇。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接數據庫，用于高效生成類型安全和面向對象的應用程序；程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

小編在學習課程的同時，同時參考了一些資料，經過修改加以整理，發布了這篇圖書管理系統，希望對各位博友有所幫助。

登錄：

登錄代碼如下所示：

Option Explicit Dim cnt As Integer '記錄確定次數Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""txtuser.SetFocus Elsesql = "select * from 系統管理 where 用戶名='" & txtuser.Text & "'"rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""txtuser.SetFocusElse '檢驗密碼是否正確If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) ThenuserID = txtuser.Textuserpow = rs_login.Fields(2)rs_login.CloseUnload MeForm1.ShowElseMsgBox "密碼不正確", vbOKOnly + vbExclamation, ""txtpwd.SetFocusEnd IfEnd If End If cnt = cnt + 1 If cnt = 3 ThenUnload Me End If Exit Sub End SubPrivate Sub Command2_Click() Unload Me End SubPrivate Sub Form_Load() Dim connectionstring As String connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _"data source=book.mdb" conn.Open connectionstring cnt = 0 End SubPrivate Sub txtpwd_Change()End SubPrivate Sub txtuser_Change()End Sub

用戶后臺管理頁面：

修改密碼：

添加圖書信息：

修改與刪除圖書信息：

查詢圖書信息：

添加讀者信息：

還書頁面：

遇到問題可以隨時和小編聯系，小編很樂意為您回答......

總結

以上是生活随笔為你收集整理的基于VB图书管理系统的设计与实现的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。