191
Private Sub Form_Load()
Dim sql As String, msg As String
On Error GoTo error
sql = "select *from 图书类别"
Set rstBookStyle = ExeRecordset(sql, msg)
cmddel .Enabled = False
cmdsave .Enabled = False
DataGrid1 .AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1 .AllowUpdate = False
Set DataGrid1.DataSource = rstBookStyle
DataGrid1.Caption = "图书类别(" + msg + ")"
Exit Sub
error:
MsgBox Err.Description
End Sub

207-208
Option Explicit
Dim retbookinfo As New adodb.Recordset
Dim sql As String, msg As String
sql = ""
If checkl.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(trext2.Text & "") & "'"
Else
sql = sql & "and 作者'" & Trim(text2.Text & "") & "'"
End If
End If
If check4.Value = vbchekced Then
If Trim(sql) = "" 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 "请选择查询方式！", vbkonly + vbExclamation
Exit Sub
End If
sql = "select*from 书籍信息 where" & sql
Set rstboolintfo = exerecordset(sql, msg)
DataGrid1.Caption = "图书信息(" + msg + ")"
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rstbookinfo
End Sub

p215
sql = "select * from 读者信息 where 读者编号=' " & text1.Text & "'"
Set rstReader = ExeRecordset(sql, msg)
If rstReader.EOF Then
rstReader .AddNew
rstReader.Fields(0) = Trim(Text2.Text)
rstReader.Fields(1) = Trim(text1.Text)
rstReader.Fields(2) = sex
rstReader.Fields(3) = Trim(Combo1.Text)
rstReader.Fields(4) = Trim(Text3.Text)
rstReader.Fields(5) = Trim(Text4.Text)
rstReader.Fields(6) = Trim(text5.Text)
rstReader.Fields(7) = CDate(Text6.Text)
rstReader.Update
rstReader.Close
quanxian = "guest"
sql = "insert into 系统管理(用户名,密码,权限) values('" & Trim(text1.Text) & "','" & Trim(text1.Text) & "','" & quanxian & "')"
ExeNonQuery sql, msg
MsgBox "添加读者信息成功! ", vbOKOnly, ""
Comman3_Click
Else
MsgBox "读者编号重复!", vbOKOnly + vbExclamation, ""
text1.SetFocus
text1.Text = ""
rstReader.Close
Exit Sub
End If
End Sub

217
Private Sub Form_Load()
Dim sql As String, msg As String
If DataGrid1.DataSource Is Nothing Then Exit Sub
If Not IsNull(DataGrid1.Bookmark) Then
'将修改的读者信息内容对应更新至数据控件和数据库
sql = "update读者信息 set 读者姓名 = '" & DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark) & "'," & "性别='" & DataGrid1.Columns(2).CellValue(DataGrid1.Bookmark) & "'," & "读者类别='" & DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) & "'," & "工作部门='" & DataGrid1.Columns(4).CellValue(DataGrid1.Bookmark) & "'," & "家庭地址='" & DataGrid1.Columns(5).CellValue(DataGrid1.Bookmark) & "'," & "电话号码='" & DataGrid1.Columns(6).CellValue(DataGrid1.Bookmark) & "'," & "登记日期='" & DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark) & "'," & "where 读者编号='" & DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) & "'"
ExeNonQuery sql, msg
If InStr(msg, "SQL执行有误") = 0 Then MsgBox "成功修改记录！", vbOKOnly + vbExclamation, "提示！"
Else
MsgBox "修改记录不成功！", vbOKOnly + vbExclamation, "提示！"
End If
Else
MsgBox "请选中要修改的记录！", vbOKOnly + vbExclamation, "提示！"
End If
End Sub

219-220
On Error GoTo error
Dim sql As String, msg As String
If DataGrid1.DataSource Is Nothing Then Exit Sub
If Not IsNull(DataGrid1.Bookmark) And MsgBox("确定要删除吗？", vbYesNo, "提示") = vbYes Then
sql = "delete from 系统管理 where 用户名='" & DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) & "'"
ExeNonQuery sql, msg
sql = "delete from 读者信息 where 读者编号='" & DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) & "'"
ExeNonQuery sql, msg
MsgBox "成功删除选中记录！", vbOKOnly + vbExclamation, "提示！"
Else
Exit Sub
End If
error:
If Err.Number <> 0 Then
MsgBox Err.Description
End If

224
If DataGrid1.DataSource Is Nothing Then Exit Sub
If IsNull(DataGrid1.Bookmark) Then Exit Sub
If Trim(DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)) = "" Then
MsgBox "请选择要借阅的图书！", vbOKOnly + vbExclamation
Exit Sub
End If
If DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark) = "是" Then
MsgBox "此书已被借出！", vbOKOnly + vbExclamation
Exit Sub
End If
borrowBooknum = DataGrid1.Columns(0).CellValue(DataGrid1.Bookma)
frmborrowbook.Show

225-226
Dim rstBorrow As New ADODB.Recordset
Dim sql As String, msg As String
Dim leibie As String
Dim qixian As Integer
Dim shumu As Integer
Dim maxnum As Integer
Dim xingming As String
If MsgBox("你确定要借这本书吗？", vbYesNo, "提示！") = vbNo Then
Unload Me
Exit Sub
End If
sql = "select 读者类别.读者类别,借书期限,借书数量,已借书数量,读者信息.读者姓名 from 读者信息,读者类别 where 读者信息.读者类别 = 读者类别.读者类别 and 读者信息.读者编号.'" & userID & "'"
Set rstBorrow = ExeRecordsets(sql, msg)
leibie = rstBorrow.Fields(0)
qixian = rstBorrow.Fields(1)
maxmm = rstBorrow.Fie1ds(2)
shumu = rstBorrow.Fields(3)
xingming rstBorrow.Fields(4)
rstBorrow.Close
If shumu >= maxnum Then
MsgBox "您借书数量已满，不能在借!", vbOKOnly + vbExclamation
Exit Sub
End If
sql = "insert into 借阅信息(读者编号,读者姓名,书籍编号,书籍名称,出借日期,还书日期) values("
sql = sql & "'" & userID & "',"
sql = sql & "'" & xingming & "',"
sql = sql & "'" & borrowBooknum & "',"
sql = sql & "'" & Label9.Caption & "',"
sql = sql & "'" & Date & "',"
sql = sql & "'" & DateAdd("d", qixian, Date) & "')"
ExeNonQuery sql, msg
If InStr(msg, "SQL执行有误") <> 0 Then
MsgBox msg, vbOKOnly + vbExclamation
Exit Sub
End If
sql = "update 书籍信息 set 是否被借出='是' where 书籍编号 = '" & borrowBooknum & "'"
ExeNonQuery sql, msg
If InStr(msg, "SQL执行有误") <> 0 Then
MsgBox msg, vbOKOnly + vbExclamation
Exit Sub
End If
sql = "update 读者信息 set 已借书数量 = 已经借书数量 + 1 where 读者编号='" & userID & "'"
ExeNonQuery sql, msg
MsgBox "本书借阅成功!", vbOKOnly + vbExclamation
Unload Me

228-229
Private Sub Command1_Click()
Dim sql As String, msg As String
Dim rstBorrowInfo As New ADODB.Recordset
If Option1.Value = True Then
sql = "状态='已还'"
End If
If Option2.Value = True Then
sql = "状态='未还"
End If
If Check1.Value = 1 Then
sql = sql + " and 读者编号 = '" & text1.Text & "'"
End If
If Check2.Value = 1 Then
sql = sql + " and 读者姓名 = '" & text1.Text & "'"
End If
If userpow = "guest" Then
sql = sql + " and 读者编号 = '" & userID & "'"
End If
sql = "select *from 借阅信息 where " + sql
Set rstBorrowInfo = ExeRecordset(sql, msg)
DataGrid1.Caption = "借书信息(" + msg + ")"
DataGrid1 .AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1 .AllowUpdate = False
Set DataGrid1.DataSource = rstBorrowInfo
End Sub

232
Private Sub command1_click()
Dim rstborrow As New ADODB.Recordset
Dim sql As String, msg As String
If Option1(0).Value = True Then
sql = "select * from 借阅信息 where 读者姓名='" & combo2.Text & "'and 状态='未还'"
End If
Set rstborrow = exerecordset(sql, msg)
Set DataGrid1.DataSource = rstborrow
DataGrid1.Caption = "图书信息(" + msg + ")"
DataGrid1.allowadddnew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
End Sub

232-234
Private Sub command2_click()
Dim book_num As String
Dim reader_num As String
Dim answer As String
Dim rst As New ADODB.Recordset
Dim sql As String, msg As String
Dim qixian As Integer
Dim huanshu As String
On Error GoTo delerror
book_num = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark)
reader_num = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)
huanshu = DataGrid1.Columns(6).CellValue(DataGrid1.Bookmark)
answer = MsgBox("确定要还续借本书吗? ", vbYesNo, "")
If answer = vbYes Then
If DateDiff("d", huanshu, Date) > 0 Then
MsgBox "该书借阅过期,不能续期。"
Exit Sub
End If
If DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark) <> "" Then
MsgBox "该书已经借过了，不能续借。"
Exit Sub
End If
sql = "select * form 借阅信息 where 借阅信息 where 借阅编号=" & DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
Set rst = exerecordset(sql, msg)
rst.Fields(6) = DateAdd("d", qixian, huanshu)
rst.Fields(7) = Date
rst.Update
rst.Close
msgox "续借成功! ", vbOKOnly + vbExclamation, ""
DataGrid1.allowdete = False
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
end if
end sub

234-235
Dim rstreader As New adodb.Recordset
Dim rstbook As New adodb.Recordset
Dim sql As String, msg As String
If userpow = "guest" Then
frame1.Enabled = False
Dim rstborrow As New adodb.Recordset
sql = "select*from 借阅信息 where 读者编号='" & userid & "'and 状态='未还"
Set rstborrow = exerecordset(sql, msg)
Set DataGrid1.DataSource = rstborrow
DataGrid1.Caption = DataGrid1.Caption + "(" + msg + ")"
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Exit Sub
End If
sql = "select*from 读者信息"
Set rstreader = exerecordset(sql, msg)
If Not rstreader.EOF Then
Do While Not rstreader.EOF
combo1.AddItem rstreader.Fields(1)
combo1.AddItem rstreader.Fields(0)
rstreader.MoveNext
Loop
End If
rstreader.Close
sql = "select*from 借阅信息 where 状态='未还'"
Set rstbook = exerecordset(sql, msg)
If Not rstbook.eef Then
Do While Not rstbook.EOF
combo3.AddItem rstbool.Fields(3)
combo3.AddItem rstbool.Fields(4)
Loop
End If
rstbook.Close

238
Dim rstreader As New adodb.Recordset
Dim sql As String, msg As String
findform = True
sql = "select * from 借阅信息 where 读者姓名='" & combo2.Text & "'and 状态='未还'"
Set rstreader = exerecordset(sql, msg)
Set DataGrid1.DataSource = rstreader
DataGrid1.Caption = "图书信息(" + msg + ")"
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
----------------------------------------------------------
Dim rstbook As New adodb.Recordset
Dim sql As String, msg As String
findform = False
sql = "select *from 借阅信息 where 书记编号='" & combo3.Text & "'and 状态='未还'"
Set retbook = exerecordset(sql, msg)
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False

239-240
Dim book_num As String
Dim reader_num As String
Dim rsrback As New ADODB.Recordset
Dim sql As String, msg As String
Dim qixian As Integer
Dim fakuan As Single
Dim huanshu As String
On Error GoTo Delerror
book_num = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark)
reader_num = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)
huanshu = DataGrid1.Columns(6).CellValue(DataGrid1.Bookmark)
If MsgBox("确定要还这本书吗？", vbYesNo, "") = vbYes Then
If DateDiff("d", huanshu, Date) > 0 Then
sql = "select 借书期限,罚款额度 from 读者信息,读者类别 where 读者信息.读者类别 = 读者类别.读者类别 and 读者信息.读者编号 = '" & reader_num & "'"
Set rstBack = ExeRecordset(sql, msg)
qixian = rstBack.Fields(0)
fakuan = rstBack.Fields(1)
rstBack.Close
If Mogbox("该书借阅过期，需要罚款" & Round(fakun * DateDiff("d", huanshu, Date), 1) & "元。请确认罚款后在还书", vbYesNo) <> vbYes Then Exit Sub
sql = "select * from 借阅信息 where 借阅编号 =" & DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
Set rstBack = ExeRecordset(sql, msg)
rstBack.Fields(8) = fakun * DateDiff("d", huanshu, Date)
rstBack.Update
rstBack.Close
End If
sql = "select * from 借阅信息 where 借阅编号 =" & DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
Set rstBack = ExeRecordset(sql, msg)
rstBack.Fields(9) = "已还"
rstBack.Fields(6) = Date
rstBack.Update
rsrback.Close
sql = "select * from 书籍信息 where 书籍编号 = '" & book_num & "'"
Set rstBack = ExeRecordset(sql, msg)
rstBack.Fields(7) = "否"
rstBack.Update
rstBack.Close
sql = "select * from 读者信息 where 读者编号 = '" & reader_num & "'"
Set rstBack = ExeRecordset(sql, mag)
rstBack.Fields(8) = rstBack.Fields(8) - 1
rstBack.Update
rstBack.Close
If findform = True Then
command1_click
Else
command1_click
End If
MsgBox "还书成功！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
Delerror:
If Err.Number <> 0 Then
MsgBox Err.Description

241-242
Private Sub form_load()
Dim rst As New ADODB.Recordset
Dim sql As String, msg As String
If userow = "guest" Then
frame1.Enabled = False
frame3.Enabled = False
combo1.Enabled = False
combo2.Enabled = False
combo3.Enabled = False
combo4.Enabled = False
Command1.Enabled = False
command2.Enabled = False
Dim rstreader As New ADODB.recordest
sql = "select * from 借阅信息 where 读者编号='" & userid & "'and 状态='"
Set rstreader = exerecordset(sql, msg)
Set DataGrid1.DataSource = rstreader
DataGrid1.Caption = DataGrid1.Caption + "(" + msg + ")"
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Exit Sub
End If
sql = "select * from 读者信息"
Set rst = exerecordset(sql, msg)
If Not rst.EOF Then
Do While Not rst.EOF
combo1.AddItem rst.Fields(1)
combo2.AddItem rst.Fields(0)
rst.MoveNext
Loop
End If
rst.Close
sql = "select * from 借阅信息 where 状态='未还'"
Set rst = exerecordset(sql, msg)
If Not rst.EOF Then
Do While Not rst.EOF
combo3.AddItem rst.Fields(3)
combo4.AddItem rst.Fields(4)
rst.MoveNext
Loop
End If
rst.Close