如果你是一個(gè)對(duì)編程一無所知，而又迫切希望掌握一種快捷實(shí)用的編程語言的初學(xué)者，那選擇VB6.0就是編程的不二選擇。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，用于高效生成類型安全和面向?qū)ο蟮膽?yīng)用程序；程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。

小編在學(xué)習(xí)課程的同時(shí)，同時(shí)參考了一些資料，經(jīng)過修改加以整理，發(fā)布了這篇圖書管理系統(tǒng)，希望對(duì)各位博友有所幫助。

登錄：

登錄代碼如下所示：

Option Explicit Dim cnt As Integer '記錄確定次數(shù)Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, ""txtuser.SetFocus Elsesql = "select * from 系統(tǒng)管理 where 用戶名='" & txtuser.Text & "'"rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, ""txtuser.SetFocusElse '檢驗(yàn)密碼是否正確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

用戶后臺(tái)管理頁面：

修改密碼：

添加圖書信息：

修改與刪除圖書信息：

查詢圖書信息：

添加讀者信息：

還書頁面：

遇到問題可以隨時(shí)和小編聯(lián)系，小編很樂意為您回答......

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。