Visual Basic

1. Visual Basic 程序设计教程

2. 第十五讲 VB数据库应用（3）

3. 本章教学内容 8.1 数据库基本知识 8.2 Data控件 8.3 ADODC控件 8.4 ADO对象模型 8.5 数据窗体向导 8.6 数据环境设计器 8.7 数据报表Data Report

4. 本讲教学内容 8.5 数据窗体向导 8.6 数据环境设计器 8.7 数据报表Data Report

5. 8.5 数据窗体向导 通过VB的数据窗体向导可以方便简单地生成包含有各个被绑定控件和事件过程的窗体，管理所绑定的数据库中的信息。“数据窗体向导”只可以和ADO Data控件一起使用。使用数据窗体向导的步骤如下:

6. ⑴ 单击菜单“外接程序”---“外接程序管理器”，弹出“外接程序管理器”界面，在可用的外接程序中选择“VB 6数据窗体向导”，并选中“加载”复选框，如下图所示。

7. ⑵ 单击“确定“按钮后，将会在“外接程序”菜单中增加“数据窗体向导”子菜单，单击该子菜单弹出“数据窗体向导”窗口，如下图a所示，单击“下一步”按钮，然后选择数据库类型为“Access”，如下图b所示。 a b

8. ⑶ 在第三步中选择数据库所在的路径，这里选d:\VB\supermarket.mdb，如下图所示。

9. ⑷ 在第四步中自己定义一个窗体的名称、选择你所需的布局和绑定的类型，如下图所示。选择以单个记录形式绑定ADO数据控件，窗体名称为“供应商信息”。

10. ⑸ 在第五步中选择记录源为表“provider”以及需要显示的字段，如下图所示。

11. ⑹ 在第六步中选择所需要的控件，如下图所示。

12. ⑺ 在第七步中可以把您的设置保存在一个后缀名为.rwp的文件中，最后单击“完成”按钮。

13. 运行结果如下图所示。

14. 8.6 数据环境设计器 数据环境设计器(Data Environment designer)为访问数据库提供了一个很好的交互环境和图形接口。在设计时，可以拖动数据环境中的对象到窗体或报表中方便地创建数据绑定的控件；也可以对数据环境中的Connection和Command对象编写代码响应 ADO事件。

15. 一、打开数据环境设计器 　　从菜单“工程”中选择“添加Data Environment”可以添加一个数据环境设计器对象到一个VB工程中，如下图所示。

16. 下面是数据环境设计器窗口中常用的各个工具栏图标。下面是数据环境设计器窗口中常用的各个工具栏图标。 ⑴　　添加一个新的Connection对象。 ⑵　　添加一个新的Command对象。 ⑶　　打开“插入存储过程...”对话框。从一个特定连接中可使用的存储过程列表中创建一个或多个Command对象。 ⑷　　添加一个子Command到当前选定的Command对象。 ⑸　　删除当前选定的Command或Connection对象。

17. ⑹　刷新当前选定的Command或Connection对象。 • 刷新一个Connection对象时，如果该连接是打开的，则先关闭连接，然后重新打开它。该连接所连接的列表、存储过程、视图也被刷新。 • 刷新一个Command对象的同时也刷新了它所有的存储元数据，例如字段和参数信息。对表或存储过程定义的任何更改在刷新后会反映在Command对象中。 • 需要注意的是在刷新期间，所有用户定义的属性设置都会丢失。对于Field对象，其Caption 和Control属性被重新设置为它们的缺省值。对于Parameter对象，将重新设置Name、Direction、DataType、HostDataType、Precision、Scale、Size 和Value属性。

18. ⑺　　当command数据源是文本时，访问一个Command对象的查询设计器。 ⑻　　打开选定的Command、Connection或Field对象的“属性”对话框。 ⑼ 　　打开代码窗口。 ⑽ 　　打开“选项...”对话框。 ⑾　　按照Connection排列，显示按照连接分组的对象，与之相关联的所有Command对象列在Connection对象的下面。 ⑿　　按照Object排列，将相同类型的对象组合在一起。便于快速地定位一个对象。

19. 二、Connection对象 1. 数据环境通过Connection对象访问数据库。因此，每个数据环境至少包括一个Connection对象。 2. 在设计时，数据环境打开Connection对象的连接并从该连接中获得数据源，包括数据库名、表结构和过程参数。 3. 当把数据环境设计器添加到一个工程中，数据环境设计器就自动地创建一个Connection1对象。用户单击DataEnvironment1和Connection1，可在属性窗口修改他们的名称。例如，把Data Environmem对象名称设置为“DEsupermarket”，将Connection1对象名称设置为“Cnnsupermarket”。

20. 4. 在数据环境设计器中定义一个Connection对象的属性，就是建立了一个和数据库的连接，其步骤与ADODC控件的ConnectionString属性设置相同。在Connection对象上单击鼠标右键，在快捷菜单中选择“属性”，则弹出“数据连接属性”对话框中。在“提供者”选项卡中选“Microsoft Jet 3.51 OLE DB Provider”，单击“下一步”按钮，然后选择所需的数据库名称，例如d:\VB\supermarket.mdb，单击“测试连接”按钮，如果测试成功则建立了连接。

21. 三、Command对象 Command对象定义了从一个数据库连接中获取何种数据的详细信息。Command对象既可以基于一个数据库对象，如一个表、视图等，也可以基于一个结构化查询语言（SQL）查询。必须先设置好Connection对象的属性，也即建立了数据库的连接后，才可以有Command对象。创建Command对象的步骤如下： ⑴ 选择数据环境窗口中的Connection对象（CnnSupermarket），单击数据环境设计器工具栏上的“添加命令”按钮，或用单击鼠标右键，选择快捷菜单中的“添加命令”。

22. ⑵ 在属性窗口输入Command的对象名“CmmProvider”。 ⑶ 鼠标右键单击Command对象，选择″属性″打开属性选项卡，如下图所示。选择连接的对象为“CnnSupermarket”，数据库对象选择为“表”，对象名称中选择表“provider”。

23. 　　 完成之后将在Data Environment设计器中看到如下图所示的结构。

24. 对象 名称 属性 值 Connection Cnnsupermarket Provider Microsoft Jet 3.51 OLE DB Provider Data Source d:\vb\supermarket.mdb Command CmmProvider CommandType adCmdTable CommandText 数据表provider 　　 在前面的建立连接和创建Command对象中，分别建立一个Cnnsupermarket对象和CmmProvider对象，其属性设置如下表所示。

25. 四、创建用户界面 　　使用数据环境设计器创建一个用户界面是非常简单的。只要打开一个窗体（如果当前的工程中没有窗体，可以添加一个新的窗体），并把需要显示的字段用鼠标拖到窗体中去即可。运行该窗体就可以显示出第一条记录的内容，如下图所示。

26. 窗体中各个控件的属性已自动设置了，例如显示“供应商”字段的文本框Name属性为“txt供应商名称”，DataSource属性为“DEsupermarket”（数据环境设计器名），DataMember属性为“CmmProvider”，DataField属性为“供应商名称”（字段名）。用户可以重新设置这些控件的数据绑定属性，也可以通过增加控件并编写相应代码完善该窗体的功能。窗体中各个控件的属性已自动设置了，例如显示“供应商”字段的文本框Name属性为“txt供应商名称”，DataSource属性为“DEsupermarket”（数据环境设计器名），DataMember属性为“CmmProvider”，DataField属性为“供应商名称”（字段名）。用户可以重新设置这些控件的数据绑定属性，也可以通过增加控件并编写相应代码完善该窗体的功能。 数据环境设计器不能显示数据，它必须借助于相应的数据绑定控件来显示所连接的数据内容。这一点和前面所接触的ADODC控件是一样的。ADODC控件也不具备显示数据的能力。

27. 【例8-5】 要求通过DataGrid控件显示数据环境设计器所连接的内容。程序运行界面如下图所示。

28. 设计步骤如下： ①新建一个工程，通过“工程”---“添加Data Environment”，向该工程中添加一个数据环境设计器，默认名称为DataEnvironment1。（这里可以根据需要鼠标右键单击DataEnvironment1，从弹出的快捷菜单中选择“添加连接”，例如，添加一个新的连接Connection2。） ②鼠标右键单击Connection1，从弹出的快捷菜单中选择“属性”，设置连接到supermarket.mdb。

29. ③鼠标右键单击Connection1，从弹出的快捷菜单中选择“添加命令”,添加一个命令Command1,再鼠标右键单击该Command1，从弹出的快捷菜单中选择“属性…”，设置Command1的属性。在命令名称中重命名为Cmmprovider，在数据源中选择“表”,并从下拉列表中选择“provider”。③鼠标右键单击Connection1，从弹出的快捷菜单中选择“添加命令”,添加一个命令Command1,再鼠标右键单击该Command1，从弹出的快捷菜单中选择“属性…”，设置Command1的属性。在命令名称中重命名为Cmmprovider，在数据源中选择“表”,并从下拉列表中选择“provider”。 ④重复第二步，新建另外一个命令Command2，并重命名为CmmGoods，在数据源中选择“表”，并从下拉列表中选择“Goods”。

30. ⑤添加2个CommandButton，分别是Command1和Command2，设置其Caption属性分别为“显示供应商信息”，“显示商品信息”。⑤添加2个CommandButton，分别是Command1和Command2，设置其Caption属性分别为“显示供应商信息”，“显示商品信息”。 ⑥在程序运行中设置DataGrid控件的属性，代码如下:

31. Private Sub Command1_Click() Set DataGrid1.DataSource = DataEnvironment1 　　　‘数据环境的名称为DataEnvironment1 DataGrid1.DataMember = "Cmmprovider" 　　‘Command对象的名称为Cmmprovider End Sub  Private Sub Command2_Click() Set DataGrid1.DataSource = DataEnvironment1 DataGrid1.DataMember = "Cmmgoods" End Sub

32. 8.7 数据报表Data Report 一、创建一个简单的数据报表 　　报表在进行数据库的处理时，常常要用到，通过写程序来实现是非常麻烦的，VB提供了一个报表生成器Data Report，通过它可以进行快速简单的报表制作。 【例8-6】要求使用数据环境设计器连接数据源，利用Data Report创建一个简单数据报表。显示并打印数据库supermarket.mdb中数据表provider的内容。

33. 设计步骤如下： ⑴ 新建一个工程，通过菜单“工程”---“添加Data Environment”，向该工程中添加一个数据环境设计器，默认名称为DataEnvironment1。设置其中的Connection1对象的属性连接到d:\vb\supermarket.mdb。 ⑵ 添加一个Command对象并设置属性连接到表“provider”。

34. ⑶ 通过菜单“工程”---“添加Data Report”，添加一个Data Report到该工程中。Data Report的初始界面如下图所示。

35. 默认名从Section1至Section5每个区域均是一个对象默认名从Section1至Section5每个区域均是一个对象 它有五个区域，分别是报表标头（Section4），页标头（Section2），细节（Section1），页注脚（Section3），和报表注脚（Section4）。通过查看属性窗口，可以看到Data Report本身以及这五个区域都是对象。如下图所示。

36. ⑷ 在属性窗口中设置Data Report的DataSource属性为Data Environment1，DataMember属性为Command1。 ⑸ 从数据环境设计器中拖动需要在报表中显示的字段放到细节区域中，如下图所示。

37. ⑹ 在窗体Form1上添加一个按钮command1，改Caption属性为“显示报表”，并在其Click事件中输入如下的代码。 Private Sub Command1_Click() DataReport1.Show End Sub ⑺ 保存该窗体和工程，保存数据环境设计器,保存报表设计器，运行该工程，单击“显示报表”按钮，就可以显示报表的预览窗口了。如下图所示。