基于VB图书管理系统的设计与实现

如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择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
Else
   sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'"
   rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
   If rs_login.EOF = True Then
      MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
      txtuser.SetFocus
   Else                                  '检验密码是否正确
      If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
          userID = txtuser.Text
          userpow = rs_login.Fields(2)
          rs_login.Close
          Unload Me
          Form1.Show
      Else
         MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
         txtpwd.SetFocus
      End If
   End If
End If
cnt = cnt + 1
If cnt = 3 Then
   Unload Me
End If
Exit Sub
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
                   "data source=book.mdb"
conn.Open connectionstring
cnt = 0
End Sub


Private Sub txtpwd_Change()

End Sub

Private Sub txtuser_Change()

End Sub

用户后台管理页面：

修改密码：

添加图书信息：

修改与删除图书信息：

查询图书信息：

添加读者信息：

还书页面：

遇到问题可以随时和小编联系，小编很乐意为您回答......