附录(图书管理系统程序代码).doc

附录
主页面（MDImain）：
Private Sub addbook_Click()
add_book.Show
End Sub

Private Sub addreader_Click()
add_reader.Show
End Sub

Private Sub adduser_Click()
add_user.Show
End Sub

Private Sub backbook_Click()
back_book.Show
End Sub

Private Sub borrowbook_Click()
borrow_book.Show
End Sub

Private Sub cuibackbook_Click()
cuiback_book.Show
End Sub

Private Sub findbook_Click()
find_book.Show
End Sub

Private Sub findreader_Click()
find_reader.Show
End Sub

Private Sub MDIForm_Load()

End Sub

Private Sub modifybook_Click()
change_book.Show
End Sub

Private Sub modifypwd_Click()
change_pwd.Show
End Sub

Private Sub modifyreader_Click()
change_reader.Show
End Sub

Private Sub delbook_Click()
del_book.Show
End Sub

Private Sub delreder_Click()
del_reader.Show
End Sub

Private Sub quitsys_Click()
End
End Sub
登陆（login）：
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
MsgBox "欢迎登录到图书管理系统！", vbOKOnly + vbExclamation, ""
MDImain.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=图书管理系统.mdb"
conn.Open connectionstring
cnt = 0
End Sub
添加顾客（add_user）：
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
ElseIf 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.Fields(2) = Combo1.Text
rs_add.Update
rs_add.Close

MsgBox "添加顾客成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "system"
Combo1.AddItem "guest"
If userpow = "guest" Then '权限有关
Command1.Enabled = False
Command2.Enabled = False
End If
End Sub
添加读者（add_reader）：
Option Explicit
Dim rs_addreader 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
If Trim(Text5.Text) = "" Then
MsgBox "类型不能为空", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
If Trim(Text6.Text) = "" Then
MsgBox "地址不能为空", vbOKOnly + vbExclamation, ""
Text6.SetFocus
Exit Sub
End If
sql = "select * from 读者表 where 借书证号='" & Text1.Text & "'"
rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addreader.EOF Then
rs_addreader.AddNew
rs_addreader.Fields(0) = Trim(Text1.Text)
rs_addreader.Fields(1) = Trim(Text2.Text)
rs_addreader.Fields(2) = Trim(Text3.Text)
rs_addreader.Fields(3) = Trim(Text4.Text)
rs_addreader.Fields(4) = Trim(Text5.Text)
rs_addreader.Fields(5) = Trim(Text6.Text)
rs_addreader.Update
MsgBox "添加读者信息成功！", vbOKOnly, ""
Unload Me
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()
If userpow = "guest" Then '权限有关
Frame2.Enabled = False
End If
End Sub
删除读者(del_reader):
Option Explicit
Dim rs_reader As New ADODB.Recordset

Private Sub cmdcancel_Click()
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
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
rs_reader.Update
DataGrid1.Refresh
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rs_reader.Update
End If
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
'设定datagrid控件属性
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 Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_reader.Close
End Sub
修改读者(change_reader):
Option Explicit
Dim rs_reader As New ADODB.Recordset

Private Sub cmdcancel_Click()
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdquit.Enabled = True
cmdchange.Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
End Sub

Private Sub cmdchange_Click()
Dim answer As String
On Error GoTo cmdchange
cmdquit.Enabled = True
cmdchange.Enabled = False
cmdupdate.Enabled = True
cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True
cmdchange:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rs_reader.Update
End If
cmdquit.Enabled = True
cmdchange.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
'设定datagrid控件属性
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 Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_reader.Close
End Sub
查询读者(find_reader):
Option Explicit
Private Sub Command1_Click()
Dim rs_findreader As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
If Trim(sql) = "" Then
sql = "借书证号='" & Trim(Text1.Text & " ") & "'"
Else
sql = sql & "and 借书证号='" & Trim(Text1.Text & " ") & "'"
End If
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
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
添加图书(add_book):
Option Explicit
Dim rs_addbook 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
If Trim(Text5.Text) = "" Then
MsgBox "单价不能为空", vbOKOnly + vbExclamation, ""
Text5.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(Text3.Text)
rs_addbook.Fields(3) = Trim(Text4.Text)
rs_addbook.Fields(5) = Trim(Text5.Text)
rs_addbook.Fields(4) = "否"
rs_addbook.Update
MsgBox "添加书籍信息成功！", vbOKOnly, ""
Unload Me
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()
If userpow = "guest" Then '权限有关
Command1.Enabled = False
Command2.Enabled = False
End If
End Sub
删除图书(del_book):
Option Explicit
Dim rs_book As New ADODB.Recordset
Private Sub cmdcancel_Click()
rs_book.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
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_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 cmdquit_Click()
Unload Me
End Sub

Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rs_book.Update
End If
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
'设定datagrid控件属性
DataGrid1.AllowAddNew = False '不可增长
DataGrid1.AllowDelete = False '不可删除
DataGrid1.AllowUpdate = False
If userpow = "guest" Then '权限有关
Frame2.Enabled = False
End If
Set DataGrid1.DataSource = rs_book
'cmdcancel.Enabled = False
Exit Sub
loaderror:
MsgBox Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_book.Close
End Sub
修改图书(change_book):
Option Explicit
Dim rs_book As New ADODB.Recordset

Private Sub cmdcancel_Click()
rs_book.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdchange.Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
End Sub

Private Sub cmdchange_Click()
Dim answer As String
On Error GoTo cmdchange
cmdchange.Enabled = False
cmdupdate.Enabled = True
cmdcancel.Enabled = True
DataGrid1.AllowUpdate = True
cmdchange:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
rs_book.Update
DataGrid1.Refresh
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdupdate_Click()
If Not IsNull(DataGrid1.Bookmark) Then
rs_book.Update
End If
cmdchange.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
'设定datagrid控件属性
DataGrid1.AllowAddNew = False '不可增长
DataGrid1.AllowDelete = False '不可删除
DataGrid1.AllowUpdate = False
If userpow = "guest" Then '权限有关