VB+Access设计图书管理系统-源码+图示

图 28 查询子窗体 表 7 查询子窗体控件 控 件 类 别控件 Name 控件 Text OptionButton Option1 按编号查询 Option2 按购买日期查询 Label Label1 从 Label2 到 Label3 从 Label4 年 Label5 月 Label6 日 Label7 到 Label8 年 Label9 月 Label10 日 Combo(0) ComboBox Combo1 (空) Combo(1) ComboBox Combo1 (空) Comboy(0) ComboBox Comboy ( 空 ) Comboy(1) ComboBox Comboy ( 空 ) Combom(0) ComboBox Combom ( 空 ) Combom(1) ComboBox Combom ( 空 ) Combod(0) ComboBox Combod ( 空 ) Combod(1) ComboBox Combod ( 空 ) CommandButton Command1 查询 Command2 取消 (6) 用户登录子窗体如图 29 所示。 (7) 值班管理子窗体如图 30 所示，其控件如表 8 所示。
图 7 查询输出实体 E-R 图 二、结构设计 根据上面的需求分析，设计好数据库系统，然后开发应用程序可以考虑的窗体的系统，每一 个窗体实现不同的功能，可以设计下面的几个模块。 ● 图书管理模块:用来实现图书的登记、借阅、赔偿。 ● 图书资料模块:用来实现图书的查询输出。 ● 值班管理模块:用来实现管理人员的值班浏览。 ● 投诉管理模块:用来实现对管理人员的投诉管理。 ● 系统管理模块:用来实现用户的增加、删除和修改等操作。 三、数据库设计 这里的数据库采用 Access，用 ADO 作为连接数据对象。 1、建立 Access 数据库 启动 Access，建立一个空的数据库 book.mdb，如图 8 所示。 使用程序设计器建立系统需要的表格如下。 图书登记表，如图 9 所示。
(3) 修改密码子窗体如图 26 所示。 图 26 修 改 密 码 子 窗 体 (4) 库 房 管 理 子 窗 体 如 图 27 所 示 。
ห้องสมุดไป่ตู้
图 27 库房管理子窗体
其控件如表 6 所示。
表 6 库房管理子窗体控件 MSFlexGrid MSFlexGrid1
控 件 类 别控件 Name 控件 Text TextBox Text1 (空) ComboBox Combo1 (5) 查询子窗体如图 28 所示，其控件如表 7 所示。
图 8 建立数据 库 book.mdb 图 9 图书登记表图书借阅表，如图 10 所示。图书赔偿表，如图 11 所示。
• •
上一
图 10 图书借阅表 图 11 图书赔偿表图书资料表，如图 12 所示。系统管理表，如图 13 所示。
图 12 图书资料表 图 13 系统管理表投诉管理表，如图 14 所示。
图 20 图书管理系统界面 这是一个多文档界面(MDI)应用程序， 可以同时显示多个文档， 每个文档显示在各自的窗体中。 MDI 应用程序中常有包含子菜单的“窗体”选项，用于在窗体或文档之间进行切换。 菜单应用程序中，有 5 个菜单选项，每个选项对应着 E-R 图的一个子项目。 1、创建主窗体 首先创建一个工程，命名为图书管理系统，选择“工程”→“添加 MDI 窗体”命令，则在项目中 添加了主窗体。该窗体的一些属性如表 1 所示。 表 1 主窗体的属性 属 性值 Caption 图书管理系统 Name Main Menu Mainmenu1 Windowstate Maxsize Windowstate 的值为 Maxsize，即程序启动之后自动最大化。 将“菜单”组件从“工具箱”拖到窗体上。 创建一个 Text 属性设置为“文件”的顶级菜单项， 且带有名为“关 闭”的子菜单项。类似地创建一些菜单项，如表 2 所示。 表2 菜 单 项 表 菜 单 名 称 Text 属性功 能 描 述 MenuItem1 图书管理顶级菜单，包含子菜单 MenuItem2 图书登记调 出 图 书 登 记 窗 体 MenuItem3 图 书 借 阅 调 出 图 书 借 阅 窗 体 MenuItem4 图 书 赔 偿 调 出 图 书 赔 偿 窗 体 MenuItem5 图书资料顶级菜单， 包含子菜单 MenuItem6 查询输出调出查询输出窗体 MenuItem7 值班管理 顶级菜单，没有子菜单 MenuItem8 投诉管理顶级菜单，没有子菜单 MenuItem9 系统管理顶级菜单，包含 子菜单 MenuItem10 增加用户调出用户窗体 MenuItem11 修改密码调出密码窗体 MenuItem12 退出系统 退出 主窗体如图 21 所示。
图 17 ODBC 对话框 单击“添加”按钮，出现“创建新数据源”对话框，如图 18 所示。
图 18 “创建新数据源”对话框 选择 Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图 19 所示对话框。
图 19 设置连接数据源 在“数据源名”文本框中添加一个名字， 单击“确定”按钮完成系统默认连接设置。 然后在 ODBC 对话框中单击“确定”按钮完成 ODBC 设置。 界面设计 设计好的界面如图 20 所示。
一、需求分析 在进行一个项目的设计之前，先要进行必要的需求分析。 现某图书馆需要管理其各种人员和图书信息，希望实现办公的信息化，通过建立一个图书管理系统来管理 图书。其完成的功能如下: (1) 可以实现图书的登记、借阅和赔偿的管理。 (2) 可以实现对图书的各种信息的查询，包括逐个浏览，以及对图书信息的增加、删除和编辑操作。另外， 可以根据输入的信息来检索某个图书的信息。 (3) 可以实现对管理人员的投诉管理。 (4) 可以实现对值班人员的管理。 系统的功能模块图如图 1 所示。 本实例根据上面的设计规划出的实体有图书登记实体、图书借阅实体、图书赔偿实体、查询输出实体、值 班管理实体、投诉管理实体。各个实体具体的描述 E-R 图如下。 图书登记实体 E-R 图如图 2 所示。 图书借阅实体 E-R 图如图 3 所示。
图 21 主窗体 2、创建各子窗体
选择“工程”→“添加窗体”命令，添加子窗体。 在新建 Visual Basic 工程时自带的窗体中，将其属性 MIDChild 改成 True，则这个窗体成为 MID 窗体 的子窗体。 在这个项目中，要创建的子窗体如表 3 所示。 表 3 所有子窗体 子 窗 体 名 Text 图 书 登 记 frmdengji 图 书 借 阅 frmjieyue 图 书 赔 偿 frmpeichang 增 加 新 用 户 frmadduser 查询输出 frmfind 登录系统 frmlogin 修改密码 frmchangepwd 下面分别给出这些子窗体，以及它们所使用的控件。 (1) 图书登记子窗体如图 22 所示，其控件如表 4 所示。
图 23 图书借阅子窗体 图 24 图 书 赔 偿 子 窗 体 (2) 增 加 用 户 子 窗 体 如 图 25 所 示 ， 其 控 件 如 表 5 所 示 。
图 25 增加用户子窗体 表 5 增加用户子窗体控件 控 件 类 别控件 Name 控件 Text Label Label1 输入用户名 Label2 输入密码 Label3 确认密码 Label4 选 择权限 TextBox Text1 (空) Text2 (空) Text3 (空) ComboBox Comb1 (空) CommandButton Commandl 确定 Command2 取消
图 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 3、设置 ODBC VB 的 ADO 对象是通过 ODBC 来访问数据库，所以还要建立 ODBC 数据引擎接口。 打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图 17 所示的对话框。
图 29 用户登录子窗体 图 30 值班管理子窗体 (8) 投诉管理子窗体如图 31 所示，其控件如表 9 所示。
图 31 投诉管理子窗体 建立公共模块 1、显示目录 建立公共模块可以提高代码的效率，同时使得修改和维护代码都很方便。 创建公共模块的步骤如下: (1) 在菜单中选择“工程”→“添加模块”命令，则出现模块对话框，如图 32 所示。 (2) 选择模块图标后，单击“打开”按钮，则模块已经添加到项目中了。默认情况下名为 Module1。
图 32 模块对话框 (3) 在模块中定义整个项目的公共变量。 Public conn As New ADODB.Connection ' 标记连接对象 Public userID As String ' 标记当前用户 ID Public userpow As String ' 标记用户权限 Public find As Boolean ' 标记查询 Public sqlfind As String ' 查询语句 Public rs_data1 As New ADODB.Recordset Public findok As Boolean Public frmdata As Boolean Public Const keyenter = 13 ' enter 键的 ASCII 码
图 14 投诉管理表
值班管理表，如图 15 所示。
图 15 值班管理表 2、连接数据在 Visual Basic 环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择 “Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图 16 所示。