VB+Access设计图书管理系统

精品文档 1欢迎下载 VB AccessVB Access 设计图书管理系统设计图书管理系统 一 需求分析 在进行一个项目的设计之前 先要进行必要的需求分析 现某图书馆需要管理其各种人员和图书信息 希望实现办公的信息化 通过建立一个 图书管理系统来管理图书 其完成的功能如下 1 可以实现图书的登记 借阅和赔偿的管理 2 可以实现对图书的各种信息的查询 包括逐个浏览 以及对图书信息的增加 删 除和编辑操作 另外 可以根据输入的信息来检索某个图书的信息 3 可以实现对管理人员的投诉管理 4 可以实现对值班人员的管理 系统的功能模块图如图 1 所示 本实例根据上面的设计规划出的实体有图书登记实体 图书借阅实体 图书赔偿实体 查询输出实体 值班管理实体 投诉管理实体 各个实体具体的描述 E R 图如下 图书登记实体 E R 图如图 2 所示 图书借阅实体 E R 图如图 3 所示 图 1 系统的功能模块图 精品文档 2欢迎下载 图 2 图书登记实体 E R 图 图 3 图书借阅实体 E R 图 图书赔偿实体 E R 图如图 4 所示 图 4 图书赔偿实体 E R 图 投诉管理实体 E R 图如图 5 所示 精品文档 3欢迎下载 图 5 投诉管理实体 E R 图 值班管理实体 E R 图如图 6 所示 图 6 值班管理实体 E R 图 查询输出实体 E R 图如图 7 所示 二 结构设计二 结构设计 根据上面的需求分析 设计好数据库系统 然后开发应用程序可以考虑的窗体的系统 每一个窗体实现不同的功能 可以设计下面的几个模块 图书管理模块 用来实现图书的登记 借阅 赔偿 精品文档 4欢迎下载 图书资料模块 用来实现图书的查询输出 值班管理模块 用来实现管理人员的值班浏览 投诉管理模块 用来实现对管理人员的投诉管理 系统管理模块 用来实现用户的增加 删除和修改等操作 三 数据库设计三 数据库设计 这里的数据库采用 Access 用 ADO 作为连接数据对象 1 建立 Access 数据库 启动 Access 建立一个空的数据库 book mdb 如图 8 所示 使用程序设计器建立系统需要的表格如下 图书登记表 如图 9 所示 图 8 建立数据库 book mdb 图 9 图书登记表 图书借阅表 如图 10 所示 图书赔偿表 如图 11 所示 精品文档 5欢迎下载 图 10 图书借阅表 图 11 图书赔偿表 图书资料表 如图 12 所示 系统管理表 如图 13 所示 图 12 图书资料表 图 13 系统管理表 投诉管理表 如图 14 所示 图 14 投诉管理表 值班管理表 如图 15 所示 精品文档 6欢迎下载 图 15 值班管理表 2 连接数据 在 Visual Basic 环境下 选择 工程 引用 命令 在随后出现的对话框中选择 Microsoft ActiveX Data Objects 2 0 Library 然后单击 确定 按钮 如图 16 所示 图 16 引用 ADO 连接数据库 在程序设计的公共模块中 先定义 ADO 连接对象 语句如下 Public conn As New ADODB Connection 标记连接对象 然后在子程序中 用如下的语句即可打开数据库 Dim connectionstring As String connectionstring provider Microsoft Jet oledb 4 0 data source book mdb conn Open connectionstring cnt 0 End Sub 确定 按钮的作用是检查输入的数据是否与数据库中的数据一致 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 精品文档 40欢迎下载 Else 检验密码是否正确 用户名和密码通过后 要关闭本窗体并打开主窗体 If Trim rs login Fields 1 Trim txtpwd Text Then userID txtuser Text userpow rs login Fields 2 rs login Close Unload Me MDIForm1 Show Else MsgBox 密码不正确 vbOKOnly vbExclamation txtpwd SetFocus End If End If End If 只能输入 3 次 cnt cnt 1 If cnt 3 Then Unload Me End If Exit Sub 7 值班管理子窗体代码 值班管理子窗体的作用是把值班人员的时间安排形成列表 运行的值班管理子窗体如 精品文档 41欢迎下载 图 44 所示 图 44 运行的值班管理子窗体 先定义连接数据库的变量 Option Explicit Dim rs zhiban As New ADODB Recordset 然后列出窗体部分的代码 Private Sub cmdadd Click On Error GoTo adderror If cmdadd Caption 新增记录 Then 当此按钮的状态为为 增加记录 时 cmdadd Caption 确定 按钮名称改 确定 cmddel Enabled False DataGrid1 AllowAddNew True DataGrid1 AllowUpdate True 设定 DataGrid 可以增加记录 Else If Not IsNull DataGrid1 Bookmark Then If Not IsDate Trim DataGrid1 Columns 值班开始日期 CellText DataGrid1 Bookmark Then 精品文档 42欢迎下载 MsgBox 请按照格式 yyyy mm dd 输入值班开始日期 vbOKOnly vbExclamation Exit Sub End If If Not IsDate Trim DataGrid1 Columns 值班开始时间 CellText DataGrid1 Bookmark Then MsgBox 请按照格式 hh mm 输入值班开始时间 vbOKOnly vbExclamation Exit Sub End If If Not IsDate Trim DataGrid1 Columns 值班截止日期 CellText DataGrid1 Bookmark Then MsgBox 请按照格式 yyyy mm dd 输入值班截止日期 vbOKOnly vbExclamation Exit Sub End If If Not IsDate Trim DataGrid1 Columns 值班截止时间 CellText DataGrid1 Bookmark Then MsgBox 请按照格式 hh mm 输入值班截止时间 vbOKOnly vbExclamation Exit Sub End If If Trim DataGrid1 Columns 值班人 CellText DataGrid1 Bookmark Then MsgBox 值班人不能为空 vbOKOnly vbExclamation Exit Sub End If 精品文档 43欢迎下载 rs zhiban Update MsgBox 添加信息成功 vbOKOnly vbExclamation DataGrid1 AllowAddNew False DataGrid1 AllowUpdate False Else MsgBox 没有添加信息 vbOKOnly vbExclamation End If cmdadd Caption 新增记录 cmddel Enabled True End If adderror If Err Number 0 Then MsgBox Err Description End If End Sub Private Sub cmdcancel Click Unload Me MDIForm1 Show End Sub Private Sub cmddel Click Dim answer As String On Error GoTo delerror 精品文档 44欢迎下载 answer MsgBox 确定要删除吗 vbYesNo If answer vbYes Then DataGrid1 AllowDelete True rs zhiban Delete rs zhiban 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 Form Load Dim sql As String On Error GoTo loaderror sql select from 值班管理 rs zhiban CursorLocation adUseClient rs zhiban Open sql conn adOpenKeyset adLockPessimistic 打开数据库 精品文档 45欢迎下载 设定 DataGrid 控件属性 DataGrid1 AllowAddNew False 不可增加 DataGrid1 AllowDelete False 不可删除 DataGrid1 AllowUpdate False Set DataGrid1 DataSource rs zhiban Exit Sub loaderror MsgBox Err Description End Sub Private Sub Form Unload Cancel As Integer Set DataGrid1 DataSource Nothing rs zhiban Close End Sub 8 投诉管理子窗体代码 投诉管理子窗体是为了对人员进行更好的管理而设置的 可以向其添加投诉的对象 时间和内容等 投诉管理运行后的子窗体如图 45 所示 精品文档 46欢迎下载 图 45 运行的投诉管理子窗体 以下为窗体的代码 Private Sub Command1 Click On Error GoTo adderr Text1 SetFocus Adodc1 Recordset AddNew Exit Sub adderr MsgBox Err Description End Sub Private Sub Command2 Click On Error GoTo deleteerr With Adodc1 Recordset If Not EOF And Not BOF Then If MsgBox 删除当前记录吗 vbYesNo vbQuestion vbYes Then 精品文档 47欢迎下载 Delete MoveNext If EOF Then MoveLast End If End If End With Exit Sub deleteerr MsgBox Err Description End Sub Private Sub Command3 Click Adodc1 Recordset MovePrevious If Adodc1 Recordset BOF Then MsgBox 这是第一条记录 vbOKCancel vbQuestion Adodc1 Recordset MoveFirst End If End Sub Private Sub Command4 Click Adodc1 Recordset MoveNext If Adodc1 Recordset EOF Then MsgBox 这是最后一条记录 vbOKCancel vbQuestion Adodc1 Recordset MoveLast 精品文档 48欢迎下载 End If End Sub Private Sub Command5 Click If Adodc1 Recordset EOF Then MsgBox 记录空 vbOKCancel vbQuestion End Else Adodc1 Recordset MoveFirst End If Exit Sub End Sub Private Sub Command6 Click If Adodc1 Record