借书表:
员工表
用户表:
11
2、连接数据
在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft
12
ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图:
3.0引用ADO连接数据库
在程序设计的公共模块中，先定义ADO连接对象。语句如下:
Public conn As New ADODB.Connection ' 标记连接对象然后在子程序中，用如下的语句即可打开数据库: Dim connectionstring As String
connectionstring = \\conn.Open connectionstring
4.0 设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。打开 控制面板中的“管理工具”→“数据源”(ODBC)，出现如图所示的对话框。
图17 ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图18所示
13
5.0创建新数据源”对话框
选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19所示对话框。
设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框
中单击“确定”按钮完成ODBC设置。
2.4． MDB数据流程图以及数据表
14
1.基本表：[书籍 ] book 字段 管理人员 图书编号 图书名称 作者 出版社 库存量 入库时间 字段 登录名 密码 身份 权限 字段 读者姓名 读者编号 性别 读者类别 工作单位 家庭地址 电话号码 登记日期 已借书数量 字段 管理人员 类型 文本 文本 文本 文本 文本 数字 日期/时间 类型 文本 文本 文本 数字 类型 文本 数字 文本 文本 文本 文本 文本 日期/时间 数字 类型 文本 字段大小 50 12 16 8 20 小数 自动 字段大小 16 16 50 1 字段大小 8 50 2 50 50 50 50 自动 自动 字段大小 50 必填字段 否 是 否 否 否 是 否 必填字段 否 否 否 否 必填字段 是 是 否 否 否 否 自动 自动 自动 必填字段 否 允许空字符串 是 否 是 是 是 是 无 允许空字符串 是 是 是 是 允许空字符串 主键 否 是 是 是 否 自动 自动 自动 允许空字符串 是 2.基本表：[用户表 ] user_table 3.基本表：[读者表]
4.基本表：[职工信息] worker
15