在程序设计的公共模块中，先定义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所示的对话框。
图17 ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图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 主窗体
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
