【图书馆借阅管理信息系统】-Access数据库系统设计制作实例（制作过程全称录制
主界面
Option Compare Database
Option Explicit
Private Sub Command2_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "数据管理", acNormal
End Sub
Private Sub Command3_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "数据操作", acNormal
End Sub
Private Sub Command4_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "数据查询", acNormal
End Sub
Private Sub Command6_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "系统设置", acNormal
End Sub
Private Sub Command7_Click()
Application.Quit acQuitSaveAll
End Sub
借书
Option Compare Database
Option Explicit
Private Sub Command查找_Click()
Me.借书读者信息子窗体.Requery
End Sub
借书（图书）
Option Compare Database
Option Explicit
Private Sub Command查询_Click()
Me.借书_图书信息子窗体.Requery
End Sub
Private Sub Command借书_Click()
On Error GoTo 借书失败错误
If Nz(DCount("读者编号", "读者", "读者编号=" & Forms("借书").借书读者编号 & ""), 0) = 0 Then
MsgBox "未找到该读者编号！"
Exit Sub
End If
If Nz(DCount("图书编号", "图书", "图书编号='" & Me.借书图书编号 & "'"), 0) = 0 Then
MsgBox "未找到该图书编号！"
Exit Sub
End If
Dim now借书数量 As Long
now借书数量 = Nz(DLookup("借出数量", "图书", "图书编号='" & Me.借书图书编号 & "'"), 0)
If now借书数量 = Nz(DLookup("图书总数", "图书", "图书编号='" & Me.借书图书编号 & "'"), 0) Then
MsgBox "该图书已全部借书！"
Exit Sub
End If
Dim now当前借书 As Long
now当前借书 = Nz(DLookup("当前借书", "读者", "读者编号=" & Forms("借书").借书读者编号 & ""), 0)
If now当前借书 = Nz(DLookup("限借册数", "读者可借图书查询", "读者编号=" & Forms("借书").借书读者编号 & ""), 0) Then
MsgBox "超出可借数量！"
Exit Sub
End If
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "借书图书更新查询"
DoCmd.OpenQuery "读者借书更新查询"
DoCmd.OpenQuery "图书借阅记录追加查询"
MsgBox "借书成功！"
Exit Sub
借书失败错误:
MsgBox "借书失败！"
End Sub
图书查询
Option Compare Database
Option Explicit
Private Sub Command查询_Click()
Me.图书条件查询列表.Requery
End Sub
数据操作
Option Compare Database
Option Explicit
Private Sub Command5_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "主界面", acNormal
End Sub
数据查询
Option Compare Database
Option Explicit
Private Sub Command6_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "主界面", acNormal
End Sub
数据管理
Option Compare Database
Option Explicit
Private Sub Command2_Click()
DoCmd.OpenForm "图书管理", acNormal
End Sub
Private Sub Command3_Click()
DoCmd.OpenForm "读者列表", acNormal
End Sub
Private Sub Command4_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "主界面", acNormal
End Sub
系统设置
Option Compare Database
Option Explicit
Private Sub Command7_Click()
Application.Quit acQuitSaveAll
End Sub
Private Sub Command5_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "主界面", acNormal
End Sub
续借
Option Compare Database
Option Explicit
Private Sub Command查询_Click()
Me.续借信息子窗体.Requery
End Sub
Private Sub Command续借_Click()
On Error GoTo 续借失败错误
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "续借图书借阅更新查询"
MsgBox "续借成功！"
DoCmd.Close acForm, Me.Name
Exit Sub
续借失败错误:
MsgBox "续借失败！"
End Sub
续借信息子窗体
读者列表
Option Compare Database
Option Explicit
Private Sub 读者编号_DblClick(Cancel As Integer)
DoCmd.OpenForm "读者管理", acNormal, , "读者编号=" & Me.读者编号
DoCmd.Close acForm, "读者列表"
End Sub
读者查询
Private Sub Command查询_Click()
Me.读者条件查询数据表.Requery
End Sub
还书
Option Compare Database
Option Explicit
Private Sub Command查询_Click()
Me.还书信息子窗体.Requery
Dim now超期天数 As Long
now超期天数 = Nz(DLookup("逾期天数", "借书天数逾期查询", "读者编号=" & Me.还书读者编号 & " and 图书编号='" & Me.还书图书编号 & "'"), 0)
If now超期天数 > 0 Then
Me.超期天数 = now超期天数
Else
Me.超期天数 = 0
End If
End Sub
Private Sub Command还书_Click()
On Error GoTo 还书失败错误
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "还书图书更新查询"
DoCmd.OpenQuery "读者还书更新查询"
DoCmd.OpenQuery "图书借阅记录更新查询"
MsgBox "还书成功！"
DoCmd.Close acForm, Me.Name
Exit Sub
还书失败错误:
MsgBox "还书失败！"
End Sub
