【聚杰网VC】VB+Access设计图书管理系统

　　在程序设计的公共模块中，先定义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 主窗体的属性

　　Windowstate的值为Maxsize，即程序启动之后自动最大化。

　　将“菜单”组件从“工具箱”拖到窗体上。创建一个 Text 属性设置为“文件”的顶级菜单项，且带有名为“关闭”的子菜单项。类似地创建一些菜单项，如表2所示。

　　表2 菜 单 项 表

　　主窗体如图21所示。

　　
　　图21 主窗体

上一页 1 2 3 4 5 6 7 8 9 10 11 下一页