(1)可以实现图书的登记、借阅和赔偿的管理。
(2)可以实现对图书的各种信息的查询，包括逐个浏览，以及对图书信息的增加、删除和编辑操作。另外，可以根据输入的信息来检索某个图书的信息。
(3)可以实现对管理人员的投诉管理。
(4)可以实现对值班人员的管理。
系统的功能模块图如图1所示。
本实例根据上面的设计规划出的实体有图书登记实体、图书借阅实体、图书赔偿实体、查询输出实体、值班管理实体、投诉管理实体。各个实体具体的描述E-R图如下。
图书登记实体E-R图如图2所示。
图书借阅实体E-R图如图3所示。
图1系统的功能模块图
图2图书登记实体E-R图
图3图书借阅实体E-R图
图书赔偿实体E-R图如图4所示。
图4图书赔偿实体E-R图
投诉管理实体E-R图如图5所示。
图5投诉管理实体E-R图
值班管理实体E-R图如图6所示。
图6值班管理实体E-R图
查询输出实体E-R图如图7所示。
图7查询输出实体E-R图
二、结构设计
根据上面的需求分析，设计好数据库系统，然后开发应用程序可以考虑的窗体的系统，每一个窗体实现不同的功能，可以设计下面的几个模块。
●图书管理模块:用来实现图书的登记、借阅、赔偿。
●图书资料模块:用来实现图书的查询输出。
●值班管理模块:用来实现管理人员的值班浏览。
●投诉管理模块:用来实现对管理人员的投诉管理。
●系统管理模块:用来实现用户的增加、删除和修改等操作。
三、数据库设计
这里的数据库采用Access，用ADO作为连接数据对象。
1、建立Access数据库
启动Access，建立一个空的数据库book.mdb，如图8所示。使用程序设计器建立系统需要的表格如下。
图书登记表，如图9所示。
图8建立数据库book.mdb图9图书登记表
图书借阅表，如图10所示。图书赔偿表，如图11所示。
图10图书借阅表图11图书赔偿表
图书资料表，如图12所示。系统管理表，如图13所示。
+
图12图书资料表图13系统管理表投诉管理表，如图14所示。
图14投诉管理表
值班管理表，如图15所示。
图15值班管理表
2、连接数据
在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects2.0Library”，然后单击“确定”按钮，如图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
3、设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图17所示的对话框。
图17ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。
图18“创建新数据源”对话框
选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19所示对话框。
图19设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。
界面设计
设计好的界面如图20所示。
图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所示。
图21主窗体
2、创建各子窗体
选择“工程”→“添加窗体”命令，添加子窗体。
在新建Visual Basic工程时自带的窗体中，将其属性MIDChild改成True，则这个窗体成为MID窗体的子窗体。
在这个项目中，要创建的子窗体如表3所示。
表3所有子窗体
子窗体名Text
