图书管理系统程序源代码

源程序
1.主窗体
Private Sub add_back_Click(）frmbackbookinfo.Show
End Sub
Private Sub add_binf_Click(）frmaddbookinfo.Show
End Sub
Private Sub add_book_style_Click（）frmaddbookstyle。

Show
End Sub
Private Sub add_manager_Click（）frmadduser.Show
End Sub
Private Sub add_rinf_Click（) frmaddreaderinfo.Show
End Sub
Private Sub add_rstyle_Click(）frmaddreaderstyle.Show
End Sub
Private Sub change_binf_Click() frmmodifybookinfo。

Show
End Sub
Private Sub change_book_style_Click(）frmmodifybookstyle。

Show
End Sub
Private Sub delete_binf_Click（）frmmodifybookinfo。

Show
End Sub
Private Sub delete_book_style_Click(）frmmodifybookstyle.Show
End Sub
Private Sub delete_rstyle_Click（）frmmodifyreaderstyle。

Show
End Sub
Private Sub exit_Click（)
End
End Sub
Private Sub find_binf_Click(）frmfindbook。

Show
End Sub
Private Sub find_lend_Click（）frmfindborrowinfo。

Show
End Sub
Private Sub find_rinf_Click（）
frmfindreader.Show
End Sub
Private Sub password_Click（）
frmchangepwd。

Show
End Sub
2.Login
Option Explicit
Private Sub cmdOK_Click（）
Dim strUserName As String
Dim strPassword As String
Dim strTargetAsp As String
Dim conn As ADODB.Connection
Dim rsLogin As ADODB.Recordset
Dim strSQL As String
If Trim（txtUserName。

Text) = "" Then
MsgBox "“用户名"不能为空！”
Exit Sub
Else
strUserName = Trim（txtUserName。

Text)
End If
If Trim（txtPassword。

Text) = ”" Then
MsgBox "“口令"不能为空！”
Exit Sub
Else
strPassword = Trim（txtPassword。

Text）
End If
'检查口令、用户身份
Set conn = New ADODB。

Connection
conn。

Provider = ”Microsoft。

jet。

OLEDB.4。

0”
conn。

ConnectionString = ”D：\图书管理系统\book。

mdb"
conn。

Open
strUserName = Replace(strUserName, ”'"，”“"）
strSQL = ”select*from 系统管理where 用户名=’”＆strUserName ＆"'and 密码=’”& strPassword & ”’”
Set rsLogin = conn。

Execute(strSQL）
If rsLogin.EOF Or rsLogin.BOF Then
MsgBox "用户名或口令错误,请检查!"
txtPassword.SelStart = 0
txtPassword。

SelLength = Len（txtPassword.Text)
txtPassword。

SetFocus
Else
Select Case rsLogin("权限”）
Case ”领导"
strTargetAsp = "LeadersMain.asp"
Case "主任"
strTargetAsp = ”ZhuRenMain。

asp"
Case ”秘书”
strTargetAsp = ”Mi shuMain。

asp"
Case ”图书管理员”
strTargetAsp = ”TuShuManagerMain。

asp”
Case Else
strTargetAsp = ”OtherMain.asp"
End Select
SaveSetting ”JGYOA"，”Login", ”UserName"，strUserName
Hyperlink。

NavigateTo ”HTTP：//” & ”/oa/” & strTargetAsp
End If
'释放变量
Set rsLogin = Nothing
Set conn = Nothing
End Sub
3.frmaddbookinfo
Private Sub Command1_Click（)
Dim rs_addbook As New ADODB。

Recordset
Dim sql As String
If Trim（Combo1.Text）= ” ” Then
MsgBox ”请选择图书种类"，vbOKOnly + vbExclamation, ””
Combo1。

SetFocus
Exit Sub
End If
If Trim（Text1.Text）= " ” Then
MsgBox ”图书编号不能为空", vbOKOnly + vbExclamation, ””
Text1。

SetFocus
Exit Sub
End If
If Trim(Text2.Text) = ” " Then
MsgBox "书名不能为空”，vbOKOnly + vbExclamation, ””
Text2。

SetFocus
Exit Sub
End If
If Not IsDate（Text5.Text）Then
MsgBox ”请按照yyy—mm-dd格式输入日期”, vbOKOnly + vbExclamation，””
Text5。

SetFocus
Exit Sub
End If
If Not IsDate(Text6。

Text）Then
MsgBox ”请按照yyy—mm-dd格式输入日期"，vbOKOnly + vbExclamation, ””
Text6。

SetFocus
Exit Sub
End If
sql = "select * from 书籍信息where 书籍编号=’" ＆Text1。

Text ＆”’”rs_addbook。

Open sql, conn，adOpenKeyset, adLockPessimistic
If rs_addbook。

EOF Then
rs_addbook.AddNew
rs_addbook.Fields(0）= Trim（Text1.Text）
rs_addbook.Fields(1) = Trim（Text2。

Text）
rs_addbook。

Fields（2）= Trim（Combo1。

Text）
rs_addbook。

Fields（3) = Trim（Text3。

Text）
rs_addbook。

Fields（4）= Trim(Text4.Text)
rs_addbook.Fields（5) = Trim(Text5。

Text）
rs_addbook.Fields（6) = Trim（Text6。

Text）
rs_addbook.Fields（7）= "否”
rs_addbook.Update
MsgBox "添加图书信息成功!”, vbOKOnly, "”
rs_addbook.Close
Else
MsgBox ”图书编号重复！”, vbOKOnly + vbExclamation，””
Text1.SetFocus
Text1。

Text = ”"
rs_addbook.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click(）
Unload Me
End Sub
Private Sub Form_Load（）
Dim rs_leibie As New ADODB。

Recordset
Dim sql As String
sql = "select ＊from 图书类别"
rs_leibie。

Open sql，conn，adOpenKeyset，adLockPessimistic
rs_leibie.MoveFirst
Do While Not rs_leibie.EOF
Combo1。

AddItem rs_leibie.Fields(0）
rs_leibie.MoveNext
Loop
rs_leibie.Close
End Sub
4.frmaddbookstyle
Private Sub Command1_Click（）
Dim rs_bookstyle As New ADODB.Recordset
Dim sql As String
If Trim（Text1.Text）= "” Then
MsgBox ”图书种类不能为空"，vbOKOnly + vbExclamation，””
Text1.SetFocus
Exit Sub
End If
If Trim（Text2。

Text）= "" Then
MsgBox ”种类编号不能为空", vbOKOnly + vbExclamation，"”
Text2.SetFocus
Exit Sub
End If
sql = ”select ＊from 图书类别where 类别名称=’”＆Text1.Text & "'”rs_bookstyle。

Open sql，conn, adOpenKeyset，adLockOptimistic
If rs_bookstyle。

EOF Then
rs_bookstyle。

AddNew
rs_bookstyle.Fields（0）= Trim（Text1.Text）
rs_bookstyle.Fields(1) = Trim(Text2。

Text)
rs_bookstyle。

Update
MsgBox ”添加图书类别成功！"，vbOKOnly, ”"
rs_bookstyle.Close
Else
MsgBox ”读者类别重复！"，vbOKOnly + vbExclamation, "”
Text1.SetFocus
Text1.Text = ” ”
rs_bookstyle.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click(）
Unload Me
End Sub
5.frmaddreaderinfo
Option Explicit
Dim rs_addreader As New ADODB.Recordset
Private Sub Command1_Click（)
Dim sql As String
If Trim（Combo1.Text) = ”” Then
MsgBox ”请选择读者种类”, vbOKOnly + vbExclamation, "”
Combo1。

SetFocus
Exit Sub
End If
If Trim（Text2。

Text) = "" Then
MsgBox ”读者姓名不能为空”，vbOKOnly + vbExclamation，””
Text1.SetFocus
Exit Sub
End If
If Trim（Text3。

Text) = ”" Then
MsgBox "读者编号不能为空”, vbOKOnly + vbExclamation, ”"
Text2。

SetFocus
Exit Sub
End If
sql = ”select ＊from 读者信息where 读者编号='" & Text2。

Text & "'”rs_addreader.Open sql, conn，adOpenKeyset，adLockPessimistic
If rs_addreader。

EOF Then
rs_addreader。

AddNew
rs_addreader。

Fields（0）= Trim（Text2.Text）
rs_addreader.Fields（1) = Trim（Text3。

Text）
rs_addreader。

Fields(2）= Trim（Combo2.Text)
rs_addreader。

Fields（3) = Trim（Combo1.Text)
rs_addreader。

Fields（4）= Trim（Text5。

Text）
rs_addreader。

Fields(5）= Trim（Text6.Text）
rs_addreader。

Fields(6）= Trim(Text4。

Text）
rs_addreader。

Fields（7）= CDate（Text1。

Text）
rs_addreader。

Update
MsgBox ”添加读者信息成功！"，vbOKOnly，””
rs_addreader.Close
Else
MsgBox "读者编号重复！”，vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1。

Text = ””
rs_addreader。

Close
Exit Sub
End If
End Sub
Private Sub Command2_Click（)
Unload Me
End Sub
Private Sub Form_Load（）
Combo2。

AddItem ”男”
Combo2.AddItem ”女"
Dim rs_leibie As New ADODB.Recordset
Dim sql As String
sql = ”select * from 读者类别"
rs_leibie。

Open sql，conn, adOpenKeyset，adLockPessimistic
rs_leibie.MoveFirst
Do While Not rs_leibie。

EOF
Combo1。

AddItem rs_leibie。

Fields（0）
rs_leibie。

MoveNext
Loop
rs_leibie。

Close
End Sub
6.frmaddreaderstyle
Option Explicit
Dim rs_readerstyle As New ADODB。

Recordset
Private Sub Command1_Click（)
Dim sql As String
If Trim(Text1。

Text）= ”" Then
MsgBox ”读者种类不能为空！”, vbOKOnly + vbExclamation，”"
Text1.SetFocus
Exit Sub
End If
If Trim（Text2.Text）= "" Then
MsgBox "借书数量不能为空！"，vbOKOnly + vbExclamation，””
Text2。

SetFocus
Exit Sub
End If
If Trim（Text3。

Text) = "” Then
MsgBox ”借书期限不能为空!”，vbOKOnly + vbExclamation, ””
Text3。

SetFocus
Exit Sub
End If
If Trim(Text4。

Text）= ”" Then
MsgBox ”有限期限不能为空！”，vbOKOnly + vbExclamation，"”
Text4。

SetFocus
Exit Sub
End If
sql = ”select＊from 读者类别where 种类名称=’”& Text1。

Text ＆”’" rs_readerstyle.Open sql，conn, adOpenKeyset，adLockPessimistic
If rs_readerstyle。

EOF Then
rs_readerstyle.AddNew
rs_readerstyle。

Fields（0）= Trim（Text1。

Text）
rs_readerstyle.Fields（1) = Trim（Text2。

Text）
rs_readerstyle。

Fields（2）= Trim（Text3.Text）
rs_readerstyle.Fields(3）= Trim（Text4。

Text)
rs_readerstyle。

Update
MsgBox ”添加读者类别成功！”, vbOKOnly，””
rs_readerstyle。

Close
Else
MsgBox ”读者类别重复！”, vbOKOnly + vbExclamation, ””
Text1。

SetFocus
Text1。

Text = ””
rs_readerstyle.Close
Exit Sub
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
7.frmadduser
Private Sub Command1_Click（)
Dim sql As String
Dim rs_add As New ADODB。

Recordset
If Trim（Text1.Text）= ”” Then
MsgBox ”用户名不能为空”, vbOKOnly + vbExclamation，””
Exit Sub
Text1。

SetFocus
Else
sql = ”select ＊from 系统管理”
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While （rs_add。

EOF = False)
If Trim(rs_add.Fields（0)) = Trim(Text1。

Text）Then
MsgBox ”已有这个用户”，vbOKOnly + vbExclamation，”"
Text1。

SetFocus
Text1。

Text = ””
Text2。

Text = ””
Text3。

Text = "”
Combo1.Text = ””
Exit Sub
Else
rs_add。

MoveNext
End If
Wend
If Trim（Text2.Text）〈> Trim(Text3。

Text) Then
MsgBox "两次密码不一致”, vbOKOnly + vbExclamation，"”
Text2.SetFocus
Text2。

Text = ””
Text3.Text = "”
Exit Sub
Else
If Trim（Combo1.Text）〈〉"system” And Trim(Combo1.Text) <> ”guest" Then MsgBox ”请选择正确的用户权限", vbOKOnly + vbExclamation，””
Combo1。

SetFocus
Combo1.Text = ”"
Exit Sub
Else
rs_add.AddNew
rs_add。

Fields（0）= Text1.Text
rs_add.Fields（1）= Text2.Text
rs_add。

Update
rs_add。

Close
MsgBox "添加用户成功”, vbOKOnly + vbExclamation，””
Unload Me
End If
End If
End If
End Sub
Private Sub Command2_Click（)
Unload Me
End Sub
Private Sub Form_Load（）
Combo1.AddItem "system”
Combo1.AddItem ”guest"
End Sub
8.frmbackbookinfo
Private Sub Combo1_Click（)
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Click（）
Combo1。

ListIndex = Combo2。

ListIndex
End Sub
Private Sub Combo3_Click（)
Combo4.ListIndex = Combo3.ListIndex
End Sub
Private Sub Combo4_Click（）
Combo3.ListIndex = Combo4。

ListIndex
End Sub
Private Sub Command1_Click(）
Dim book_num As String
Dim reader_num As String
Dim answer As String
Dim rs_back As New ADODB。

Recordset
Dim sql As String
On Error GoTo delerror
book_num = DataGrid1.Columns(3)。

CellValue（DataGrid1。

Bookmark)
reader_num = DataGrid1。

Columns（1).CellValue（DataGrid1。

Bookmark）answer = MsgBox(”确定要还这本书吗？”, vbYesNo, ”")
If answer = vbYes Then
sql = ”select ＊from 借阅信息where 书籍编号='" ＆book_num ＆”’”
rs_back。

CursorLocation = adUseClient
rs_back。

Open sql, conn，adOpenKeyset，adLockPessimistic
rs_back。

Delete
rs_back。

Update
rs_back。

Close
sql = ”select ＊from 书籍信息where 书籍编号=’”＆book_num & "'”
rs_back.CursorLocation = adUseClient
rs_back.Open sql，conn，adOpenKeyset, adLockPessimistic
rs_back。

Fields（7）= ”否"
rs_back.Update
rs_back.Close
sql = ”select * from 读者信息where 读者编号='”＆reader_num ＆”'"
rs_back.CursorLocation = adUseClient
rs_back。

Open sql, conn, adOpenKeyset，adLockPessimistic
rs_back.Fields（8）= rs_back。

Fields(8）- 1
rs_back。

Update
rs_back。

Close
If findform = True Then
Command1_Click
Else
Command2_Click
End If
MsgBox ”成功删除！”，vbOKOnly + vbExclamation, "”
DataGrid1。

AllowDelete = False
Else
Exit Sub
End If
delerror：
If Err.Number 〈〉0 Then
MsgBox Err。

Description
End If
End Sub
Private Sub Command2_Click(）
Unload Me
End Sub
Private Sub Command3_Click()
Dim rs_reader As New ADODB。

Recordset
Dim sql As String
findform = Ture
sql = ”select＊from 借阅信息where 读者姓名='”& Combo2。

Text & ”'”rs_reader。

CursorLocation = adUseClient
rs_reader.Open sql，conn, adOpenKeyset，adLockPessimistic
Set DataGrid1.DataSource = rs_reader
DataGrid1.AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1。

AllowUpdate = False
End Sub
Private Sub Command4_Click（）
Dim rs_book As New ADODB。

Recordset
Dim sql As String
findform = False
sql = "select ＊from 借阅信息where 书籍编号=’" & Combo3.Text ＆”’”rs_book.CursorLocation = adUseClient
rs_book。

Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs_book
DataGrid1。

AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1。

AllowUpdate = False
End Sub
Private Sub Form_Load（)
Dim rs_reader As New ADODB。

Recordset
Dim rs_book As New ADODB.Recordset
Dim sql As String
sql = ”select * from 读者信息”
rs_reader。

CursorLocation = adUseClient
rs_reader.Open sql，conn，adOpenKeyset，adLockPessimistic
If Not rs_reader.EOF Then
Do While Not rs_reader。

EOF
Combo1。

AddItem rs_reader.Fields（1）
Combo2.AddItem rs_reader.Fields（0)
rs_reader.MoveNext
Loop
End If
rs_reader。

Close
sql = ”select ＊from 借阅信息"
rs_book.CursorLocation = adUseClient
rs_book.Open sql，conn, adOpenKeyset, adLockPessimistic
If Not rs_book。

EOF Then
Do While Not rs_book。

EOF
Combo3。

AddItem rs_book。

Fields（3）
Combo4。

AddItem rs_book。

Fields（4)
rs_book。

MoveNext
Loop
End If
rs_book。

Close
End Sub
9.frmborrowbook
Option Explicit
Dim leibie As String
Dim qixian As Integer
Dim shumu As Integer
Dim maxnum As Integer
Private Sub Combo1_Change（）
Combo2.ListIndex = Combo1.ListIndex
End Sub
Private Sub Combo2_Change(）
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Command1_Click()
Dim rs_borrowbook As New ADODB。

Recordset
Dim sql As String
sql = "select ＊from读者信息where读者编号=’" ＆Combo1。

Text & "”rs_borrowbook。

Open sql, conn。

adOpenKeyset，adLockPessimistic
leibie = rs_borrowbook.Fields（3）
shumu = rs_borrowbook.Fields(8）
rs_borrowbook。

Close
sql = ”select ＊from读者类别where种类名称=’”& leibie & ""
rs_borrowbook。

Open sql，conn。

adOpenKeyset, adLockPessimistic
qixian = rs_borrowbook.Fields（2）
maxnum = rs_borrowbook.Fields（1）
rs_borrowbook。

Close
If shumu 〉= maxnum Then
MsgBox ”该读者借书数额已满！”, vbOKOnly + vbExclamation
Exit Sub
End If
sql = "select * from借阅信息”
rs_borrowbook。

Open sql，conn。

adOpenKeyset, adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook。

Fields（1）= Combo1.Text
rs_borrowbook。

Fields(2) = Combo2.Text
rs_borrowbook.Fields（3) = Label8。

Caption
rs_borrowbook。

Fields（4）= Label9。

Caption
rs_borrowbook.Fields(5）= Date
rs_borrowbook。

Fields（6）= DateAdd（”Ww”，qixian, Date）
rs_borrowbook。

Update
rs_borrowbook。

Close
sql = ”select ＊from书籍信息where书籍编号=’”＆book_num ＆”" rs_borrowbook。

Open sql，conn。

adOpenKeyset，adLockPessimistic
rs_borrowbook。

Fields（7）= ”是”
rs_borrowbook。

Update
rs_borrowbook.Close
sql = ”select * from读者信息where读者编号=’”＆Combo1.Text & ”" rs_borrowbook。

Open sql, conn。

adOpenKeyset，adLockPessimistic
rs_borrowbook.Fields（8) = rs_borrowbook.Fields(8) + 1
rs_borrowbook。

Update
rs_borrowbook。

Close
MsgBox "本书借阅成功!", vbOKOnly + vbExclamation
Unload Me
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
Private Sub Form_Load（）
Dim rs_borrow As New ADODB。

Recordset
Dim rs_reader As New ADODB.Recordset
Dim sql As String
sql = ”select ＊from 书籍信息where 书籍编号= ’”＆book_num ＆”’”rs_borrow.Open sql，conn, adOpenKeyset，adLockPessimistic
Label8。

Caption = rs_borrow。

Fields（0)
Label9。

Caption = rs_borrow.Fields(1）
Label10。

Caption = rs_borrow。

Fields(2)
Label11.Caption = rs_borrow。

Fields（3)
Label12。

Caption = rs_borrow.Fields(4）
Label13.Caption = rs_borrow.Fields（5)
Label14.Caption = rs_borrow.Fields（6)
sql = "select ＊from 读者信息”
rs_reader。

Open sql, conn，adOpenKeyset，adLockPessimistic
If Not rs_reader.EOF Then
Do While Not rs_reader。

EOF
Combo1。

AddItem rs_reader。

Fields（1）
Combo2。

AddItem rs_reader.Fields(0)
rs_reader。

MoveNext
Loop
Else
MsgBox "请先登记读者”，vbOKOnly + vbExclamation
Exit Sub
End If
rs_borrow。

Close
rs_reader。

Close
End Sub
10.frmchangepwd
Private Sub Command1_Click(）
Dim rs_chang As New ADODB.Recordset
Dim sql As String
If Trim（Text1。

Text) 〈〉Trim（Text2。

Text）Then
MsgBox "密码不一致”，vbOKOnly + vbExclamation，"”
Text2.SetFocus
Text1。

Text = ””
Text2.Text = ””
Else
sql = "select＊from 系统管理where 用户名=’”& userID ＆"'”
rs_chang。

Open sql，conn，adOpenKeyset，adLockPessimistic
rs_chang.Fields（1）= Text1。

Text
rs_chang。

Update
rs_chang.Close
MsgBox "密码修改成功”，vbOKOnly + vbExclamation, ””
Unload Me
End If
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
11.frmfindbook
Option Explicit
Dim panduan As String
Private Sub Command1_Click（）
Dim rs_findbook As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
sql = "书名=’" & Trim(Text1.Text ＆””）＆”’"
End If
If Check2.Value = vbChecked Then
If Trim(sql）= ”" Then
sql = ”类别=’" ＆Trim(Combo1。

Text ＆””）＆"'”
Else
sql = sql ＆"and 书名='" ＆Trim(Combo1。

Text ＆"”) ＆”’”
End If
End If
If Check3.Value = vbChecked Then
If Trim(sql) = ”” Then
sql = "作者=’”& Trim(Text2。

Text ＆””）＆”'"
Else
sql = sql ＆”and 作者=’”& Trim（Text2.Text ＆"”) ＆”’”
End If
End If
If Check4.Value = vbChecked Then
If Trim(sq l) = ”" Then
sql = ”出版社=’”＆Trim（Text3。

Text & ”"）& "’”
Else
sql = sql ＆”and 出版社='" & Trim（Text3。

Text & ”") & "’"
End If
End If
If Check5。

Value = vbChecked Then
If Trim（sql) = ”” Then
sql = ”书籍编号=’" & Trim（Text4。

Text & ”"）＆”’”
Else
sql = sql & ”and 书籍编号=’" ＆Trim（Text4.Text & ””）＆"’”
End If
End If
If Trim(sql）= "” Then
MsgBox "请选择查询方式！"，vbOKOnly + vbExclamation
Exit Sub
End If
sql = ”select ＊from 书籍信息where ”＆sql
rs_findbook。

CursorLocation = adUseClient
rs_findbook。

Open sql，conn，adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1。

AllowUpdate = False
Set DataGrid1.DataSource = rs_findbook
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
Private Sub Command3_Click（）
If Trim（book_num）= ”” Then
MsgBox ”请选择要借阅的图书！”, vbOKOnly + vbExclamation
Exit Sub
End If
If panduan = "是”Then
MsgBox ”此书已被借出！”, vbOKOnly + vbExclamation
Exit Sub
End If
frmborrowbook.Show
End Sub
Private Sub DataGrid1_RowColChange（LastRow As V ariant，ByVal LastCol As Integer）book_num = DataGrid1。

Columns（0）.CellValue（DataGrid1.Bookmark)
panduan = DataGrid1。

Columns（7）.CellValue（DataGrid1。

Bookmark）
End Sub
Private Sub Form_Load(）
Dim rs_find As New ADODB。

Recordset
Dim sql As String
sql = "select ＊from 图书类别”
rs_find。

Open sql，conn, adOpenKeyset，adLockPessimistic
rs_find。

MoveFirst
If Not rs_find.EOF Then
Do While Not rs_find。

EOF
Combo1.AddItem rs_find.Fields（0）
rs_find。

MoveNext
Loop
Combo1。

ListIndex = 0
End If
rs_find。

Close
End Sub
12.frmfindborrowinfo
Private Sub Command1_Click()
Dim sql As String
Dim rs_find As New ADODB.Recordset
If Option1。

Value = True Then
sql = "select ＊from 书籍信息where 是否被借出='是'”
End If
If Option2。

Value = True Then
sql = ”select * from 书籍信息where 是否被借出=’否'"
End If
If Option3.Value = True Then
sql = ”select ＊from 书籍信息where 读者姓名=’”& Text1.Text ＆”’”End If
rs_find。

CursorLocation = adUseClient
rs_find。

Open sql，conn，adOpenKeyset, adLockPessimistic
DataGrid1。

AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1。

AllowUpdate = False
Set DataGrid1.DataSource = rs_find
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
13.frmfindreader
Option Explicit
Private Sub Command1_Click（）
Dim rs_findreader As New ADODB。

Recordset
Dim sql As String
If Check1.Value = vbChecked Then
sql = ”读者编号='”＆Trim(Text1.Text ＆"”）& "'”
End If
If Check2。

Value = vbChecked Then
If Trim（sql) = ”” Then
sql = ”读者姓名=’" & Trim(Text2.Text ＆””）& "'”
Else
sql = sql ＆"and读者姓名='”& Trim（Text2.Text ＆””）& ”’”
End If
End If
If Check3。

Value = vbChecked Then
If Trim(sql）= ”” Then
sql = "读者类别=’" & Trim(Combo1.Text & ””）＆"’”
Else
sql = sql ＆”and读者类别='”＆Trim（Combo1.Text ＆””）& ”'”End If
End If
sql = ”select ＊from 读者信息where ”& sql
rs_findreader。

CursorLocation = adUseClient
rs_findreader。

Open sql, conn, adOpenKeyset，adLockPessimistic DataGrid1.AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1。

DataSource = rs_findreader
'rs_findreader。

Close
End Sub
Private Sub Command2_Click（）
Unload Me
End Sub
Private Sub Form_Load（)
Dim rs_find As New ADODB.Recordset
Dim sql As String
sql = "select ＊from 读者类别”
rs_find。

Open sql, conn, adOpenKeyset，adLockPessimistic
If Not rs_find。

EOF Then
Do While Not rs_find。

EOF
Combo1.AddItem rs_find。

Fields（0)
rs_find。

MoveNext
Loop
Combo1。

ListIndex = 0
End If
rs_find.Close
End Sub
14.frmmodifybookinfo
Option Explicit
Dim rs_book As New ADODB.Recordset
Private Sub cmdcancel_Click（）
rs_book。

CancelUpdate
DataGrid1。

AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdmodify.Enabled = True
cmddel.Enabled = False
cmdcancel。

Enabled = False
cmdupdate.Enabled = False
End Sub
Private Sub cmddel_Click（）
Dim answer As String
On Error GoTo delerror
answer = MsgBox("确定要删除吗?”, vbYesNo，””)
If answer = vbYes Then
DataGrid1。

AllowDelete = True
rs_book。

Delete
rs_book.Update
DataGrid1.Refresh
MsgBox ”成功删除!”，vbOKOnly + vbExclamation, "”DataGrid1。

AllowDelete = False
Else
Exit Sub
End If
delerror：
If Err。

Number 〈〉0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdmodify_Click（)
Dim answer As String
On Error GoTo cmdmodify
cmddel。

Enabled = False
cmdmodify.Enabled = False
cmdupdate。

Enabled = True
cmdcancel。

Enabled = True
DataGrid1.AllowUpdate = True
cmdmodify：
If Err。

Number 〈〉0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdupdate_Click(）
If Not IsNull(DataGrid1.Bookmark) Then
rs_book。

Update
End If
cmdmodify。

Enabled = True
cmddel.Enabled = True
cmdcancel。

Enabled = False
cmdupdate。

Enabled = False
DataGrid1。

AllowUpdate = False
MsgBox ”修改成功！"，vbOKOnly + vbExclamation，”" End Sub
Private Sub Form_Load（)
Dim sql As String
On Error GoTo loaderror
sql = ”select ＊from 书籍信息"
rs_book。

CursorLocation = adUseClient
rs_book.Open sql, conn, adOpenKeyset，adLockPessimistic cmdupdate。

Enabled = False
DataGrid1。

AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1。

AllowUpdate = False
If userpow = ”guest” Then
Frame2。

Enabled = False
End If
Set DataGrid1。

DataSource = rs_book
Exit Sub
loaderror：
MsgBox Err。

Description
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_book。

Close
End Sub
15.frmmodifybookstyle
Option Explicit
Dim rs_reader As New ADODB。

Recordset
Private Sub cmdcancel_Click（)
rs_reader。

CancelUpdate
DataGrid1。

AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdmodify。

Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
cmdupdate。

Enabled = False
End Sub
Private Sub cmddel_Click(）
Dim answer As String
On Error GoTo delerror
answer = MsgBox（”确定要删除吗？"，vbYesNo，”"）
If answer = vbYes Then
DataGrid1。

AllowDelete = True
rs_reader。

Delete
rs_reader。

Update
DataGrid1.Refresh
MsgBox "成功删除！", vbOKOnly + vbExclamation，"”
DataGrid1。

AllowDelete = False
Else
Exit Sub
End If
delerror:
If Err。

Number 〈〉0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdmodify_Click()
Dim answer As String
On Error GoTo cmdmodify
cmddel。

Enabled = False
cmdmodify.Enabled = False
cmdupdate。

Enabled = True
cmdcancel。

Enabled = True
DataGrid1。

AllowUpdate = True
cmdmodify：
If Err.Number 〈〉0 Then
MsgBox Err。

Description
End If
End Sub
Private Sub cmdupdate_Click（）
If Not IsNull（DataGrid1.Bookmark) Then
rs_reader。

Update
End If
cmdmodify。

Enabled = True
cmddel.Enabled = True
cmdcancel。

Enabled = False
cmdupdate。

Enabled = False
DataGrid1。

AllowUpdate = False
MsgBox "修改成功！”，vbOKOnly + vbExclamation，””
End Sub
Private Sub Form_Load（)
Dim sql As String
On Error GoTo loaderror
sql = "select ＊from 图书类别”
rs_reader.CursorLocation = adUseClient
rs_reader。

Open sql，conn，adOpenKeyset, adLockPessimistic
cmdupdate。

Enabled = False ’窗体刚刚加载时,"取消”按钮应设置为不可用，即将其Enabled 属性设为False
'设定DataGrid控件属性
DataGrid1。

AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1。

AllowUpdate = False
If u serpow = "guest” Then
Frame2。

Enabled = False
End If
'添加错误处理语句
Set DataGrid1。

DataSource = rs_reader ’使用DataGrid控件来显示图书类型数据表中的数据信息
Exit Sub
loaderror：
MsgBox Err。

Desctiption
End Sub
Private Sub Form_Unload(Cancel As Integer）
Set DataGrid1。

DataSource = Nothing
rs_reader。

Close
End Sub
16.frmmodifyreaderstyle
Option Explicit
Dim rs_reader As New ADODB。

Recordset
Private Sub cmdcancel_Click()
rs_reader。

CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1。

AllowUpdate = False
cmdmodify。

Enabled = True
cmddel。

Enabled = True
cmdcancel.Enabled = False
cmdupdate。

Enabled = False
End Sub
Private Sub cmddel_Click(）
Dim answer As String
On Error GoTo delerror
answer = MsgBox（”确定要删除吗?"，vbYesNo，""）
If answer = vbYes Then
DataGrid1。

AllowDelete = True
rs_reader.Delete
rs_reader。

Update
DataGrid1。

Refresh
MsgBox ”成功删除！”, vbOKOnly + vbExclamation，”"
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
delerror：
If Err。

Number 〈〉0 Then
MsgBox Err。

Description
End If
End Sub
Private Sub cmdmodify_Click()
Dim answer As String
On Error GoTo cmdmodify
cmddel。

Enabled = False
cmdmodify.Enabled = False
cmdupdate.Enabled = True
cmdcancel.Enabled = True
DataGrid1。

AllowUpdate = True
cmdmodify:
If Err.Number 〈〉0 Then
MsgBox Err。

Description
End If
End Sub
Private Sub Cmmmand5_Click()
rs_reader。

Update
DataGrid1。

Refresh
End Sub
Private Sub cmdupdate_Click（）
If Not IsNull（DataGrid1。

Bookmark）Then
rs_reader。

Update
End If
cmdmodify.Enabled = True
cmddel。

Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
DataGrid1。

AllowUpdate = False
MsgBox ”修改成功!”，vbOKOnly + vbExclamation，"”End Sub
Private Sub Form_Load(）
Dim sql As String
On Error GoTo loaderror
sql = "select＊from 读者类别"
rs_reader。

CursorLocation = adUseClient
rs_reader。

Open sql, conn，adOpenKeyset, adLockPessimistic cmdupdate.Enabled = False
DataGrid1.AllowAddNew = False
DataGrid1。

AllowDelete = False
DataGrid1.AllowUpdate = False
If userpow = ”guest” Then
Frame2。

Enabled = False
End If
Set DataGrid1。

DataSource = rs_reader
’cmdcancel.Enabled=False
Exit Sub
loaderror：
MsgBox Err.Description
End Sub
Private Sub From_Unload(Cancel As Integer）
Set DataGrid1。

DataSource = Nothing
rs_reader。

Close
End Sub
17.Module1
Option Explicit
Public select_menu As String
Public userID As String
Public userpow As String
Public book_num As String
Public Function conn(）As ADODB。

Connection
Set conn = New ADODB.Connection
conn.Provider = ”Microsoft。

jet。

OLEDB.4。

0”
conn。

ConnectionString = ”D:\图书管理系统\book.mdb”conn.Open
End Function。