2024年3月19日发(作者：)

维普资讯

计算机与现代化　

２００２年第８期　

ＪＩＳＵＡＮＪＩ　ＹＵ　ＸＩＡＮＤＡＩ｝ｎＪＡ　总第８４期　

文章编号：１００６－２４７５（２００２）０８—００４４－０２　

ＶＢ６．０中如何用ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ实现　

应用程序数据的接口　

张小红　，陈贤忠　，李则鸣　

（１．南方冶金学院，江西赣州　３４１０００；２．江西省计算技术研究所，江西南昌　３３０００２）　

摘要：介绍了Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０中如何进行数据库的设计，创建ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控件，并与各种应用程序接１：７，以图像的方式　

实现数据文件的浏览、编辑等操作。　

关键词：ＡｃｔｉｖｅＸ；ＯＬＥ；应用程序；接１：７　

中图分类号：ＴＰ３１１　文献标识码：Ａ　

Ｈｏｗ　ｔｏ　Ｉｍｐｌｅｍｅｎｔ　Ａｐｐｌｉｃａｔｉｏｎ　Ｐｒｏｇｒａｍｍｉｎｇ　Ｉｎｔｅｒｆａｃｅ　ｂｙ　ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ　ｉｎ　ＶＢ　６．０　

ＺＨＡＮＧ　Ｘｉａｏ．ｈｏｎｇ　，ＣＨＥＮ　Ｘｉａｎ．ｚｈｏｎｇ　，ＬＩ　Ｚｅ．ｍｉｎｇ２　

（１．Ｓｏｕ￣ｅｍ　Ｉｎｓｔｉｔｕｔｅ　ｏｆＭｅｔａｌｌｕｒｇｙ，Ｇａｎｚｈｏｕ　３４１０００，Ｃｈｉｎａ；２．Ｊｉａｎｇｘｉ　Ｉｎｓｔｉｔｕｔｅ　ｏｆ　Ｃｏｍｐｕｔｅｒ　Ｔｅｃｈｎｏｌｏｙｇ，Ｎａｎｃｈａｎｇ　３３０００２，Ｃｈｉｎａ）　

Ａｂｓｔｒａｃｔ：Ｉｎｔｒｏｄｕｃｅｓ　ａ　ｄｅｓｉｇｎ　ｏｆ　ｄａｔａｂａｓｅ　ｉｎ　Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０，ｃｒｅａｔｅｓ　ＯＬＥ　ｃｏｎｔａｉｎｅｒ　ｃｏｎｔｒｏｌ，ｒｅａｌｉｚｉｎｇ　ｔｈｅ　ｉｎｔｅｒｆａｃｅ　ｗｉｈｔ　ｖａｒｉｏｕｓ　ａｐｐｌｉｃａ—　

ｔｉｏｎｓ，ｂｒｏｗｓｉｎｇ　ａｎｄ　ｅｄｉｔｉｎｇ　ｄａｔａｆｉｌｅｓ　ｏｎ　ｄｒａｗｉｎｇ　ｍｏｄｅ．　

Ｋｅｙｗｏｒｄｓ：ＡｃｔｉｖｅＸ；ＯＬＥ；ａｐｐｌｉｃａｔｉｏｎ；ｉｎｔｅｒｆａｃｅ　

０引　言　２创建含ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控件的窗体　

在许多应用程序的设计中，往往需要浏览多种类　

利用Ｖｉｓｕａｌ　Ｂａｓｉｃ的ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控件可以把一　

型文件的数据，如ＡｕｔｏＣＡＤ文件、位图文件、Ｗｏｒｄ文　

个ＯＬＥ对象放在窗体上。ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控件和Ｍｉ．　

档、Ｅｘｃｅｌ电子表格等，并希望以图像形式显示各自的　

ｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ数据库中的ＯＬＥ　Ｏｂｊｅｃｔ字段通过一个数　

内容，达到大家所熟悉的预览效果。Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０　

据控件绑定在一起，这个数据控件和ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控　

中嵌入的ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控件能非常完美地与各种应　

件一起管理ＯＬＥ　Ｏｂｊｃｅｔ字段的检索和更新及在窗体　

用程序进行接口，并方便地进行编辑、保存等操作。　上显示该字段的内容。　

１数据表的创建　

窗体中的对象设置值见表１，窗体外观如图１所　

不。　

在Ｍｉｃｍｓｏｆｃ　Ａｃｃｅｓｓ中创建一个数据库ｂｒｏｗｓｅ．　

有两种方式可用来向一个Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ数据　

ｍｄｂ，并新建一个数据表ｏｌｅ，该表中至少应包括以下　库ＯＬＥ　Ｏｂｊｅｃｔ字段中插入一个新对象。ＯＬＥＣｏｎｔａｉｎｅｒ　

两个字段：　

控件的ＩｎｓｅｒｔＯｂｊｅｃｔＤｌｇ框显示Ｉｎｓｅｒｔ　Ｏｂｊｅｃｔ对话框，从　

１．关键字ＩＤ；　

这个对话框中用户可以选择插入对象的类型并创建　

２．数据类型为“ＯＬＥ对象”字段Ｏｂｊｅｃｔ。　

一

个嵌入对象，或者用户也可以选择一个包含有ＯＬＥ　

Ｏｂｊｅｃｔ字段提供一个链接或一个嵌入的ＯＬＥ对　

对象的文件并指明该对象是以嵌入还是以链接方式　

象。一个嵌入的对象将保存在数据库中，而链接的对　

保存在数据库中。　

象仅在数据库中保存包含它的文件的一个引用。　

收稿日期：２００２—０１．１１　

作者简介：张小红（１９６６－），女，河北唐山人，南方冶金学院信息工程学院副教授，硕士，研究方向：计算机应用。　

维普资讯

２００２年第８期　张小红等：ＶＢ６．０中如何用ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ实现应用程序数据的接口４５　

图１窗体外观　

表１窗体中的对象设置值　

对象　属性　值　

Ｎａｌｎｅ　Ｃｍｄａｄｄ　

Ｃｏｎｍａｔｍｄｂｕｔｔｏｎ　

Ｃａｐｔｉｏｎ　新建　

Ｎａｒｎｅ　Ｄａｔａｏｂｊｅｅｔ　

Ｃｏｎｎｅｃｔ　“Ａｃｃｅｓｓ”　

Ｄａｔａ　

Ｄａｔａｂａｓｅｎａｍｅ　Ｂｒｏｗｓｅ．ｍｄｂ　

Ｒｅｃｏｌｄｓｏｕｉ￣ｅ　Ｏｌｅ　

Ｎａ／ｉ＇ｌｅ　Ｃｍｄｃａｎｃｅｌ　

Ｃｏｎｍａａｎｄｂｕｔｔｏｎ　

Ｃａｐｔｉｏｎ　退出　

Ｎａｌｎｅ　Ｔ　ｔＩＤ　

Ｔｅｘｔｂｏｘ　Ｄａｔａ．￥ｏｌｌｒｃｅ　Ｄａｔａｏｂｊｅｅｔ　

Ｄａｔａｆｉｅｌｄ　ＩＤ　

Ｌａｂｅｌ　Ｎａ　Ｌａｂｅ１３　

Ｎａｍｅ　Ｏｌｅｏｂｊｅｅｔ　

Ｏｌｅ　ｃｏｎｔａｉｎｅｒ　Ｄａｔａｓｏｕｒｃｅ　Ｄａｔａｏｂｊｅｃｔ　

Ｄａｔａｆｉｅｌｄ　Ｏｂｊｅｃｔ　

代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｍｄａｄｄ

Ｃｌｉｃｋ（）　

Ｄａｔａｏｂｊｅｃｔ．Ｒｅｃｏｒｄｓｅｔ．ＡｄｄＮｅｗ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｍｄｃａｎｃｅｌ

Ｃｌｉｃｋ（）　

Ｕｎｌｏａｄ　Ｍｅ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｄａｔａｏｂｊｅｃｔ—Ｒｅｐｏｓｉｔｉｏｎ（）　

Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＝ＯＬＥｏｂｊｅｃｔ．Ｃｌｓａｓ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＯＬＥｏｂｊｅｃｔ　ＤｂｌＣｌｉｃｋ（）　

ＯＬＥｏｂｊｅｃｔ．ＩｎｓｅｒｔＯｂｊＤｌｇ　

Ｅｎｄ　Ｓ　ｕｂ　

３运行项目　

项目运行时的窗体如图２所示，利用数据控件的　

按钮便可在记录间移动。显示一个记录时，窗体上会　

以图像的形式显示出ＯＬＥ　Ｏｂｊｅｃｔ字段的内容，ｌｍｂｅｌ３　

标签同时显示对象的类型和名称。双击ＯＬＥ　Ｃｏｎｔａｉｎ－　

ｅｒ控件，即可进行该应用程序的现场编辑，选择“文　

件”菜单中的“退出”命令，即可更新记录返回程序。　

图２项目运行时的窗体　

单击窗体上的新建按钮，然后双击ＯＬＥ　Ｃｏｎｔａｉｎｅｒ　

控件，出现如图３所示的Ｉｎｓｅｒｔ　Ｏｂｊｅｃｔ对话框。　

图３插入对象窗体　

１．如果要从对话框上列出的这些应用程序中创　

建一个新的嵌入对象，从列表框中选择对象类型，然　

后单击“确定”。　

２．如果要从文件中创建一个对象，选择“从文件　

创建（Ｆ）”选项，输入一个文件名或者单击“浏览”选　

取一个文件；如果你想选择一个链接对象，单击“链　

接”复选框，那么今后对数据库中数据的修改将影响　

到原文件。　

４结束语　

通过ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ组件提供的属性和方法，　

ＯＬＥ　Ｃｏｎｔａｉｎｅｒ控件几乎完成了这个应用程序中所有　

的工作，简单双击控件，用户便可获得嵌入或链接的　

组件的几乎所有能力，快速的响应、微小的数据库文　

件，将各种应用程序文件聚集其中等优点，是当今许　

多图形、文件浏览的极佳选择。　

参考文献：　

［１］京辉热点工作室．Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０中文版编程指南［Ｍ］．　

北京：人民邮电出版社，１９９８，５．　

［２］［美］Ｅ　Ｗｉｎｅｍｉｌｌｅｒ，Ｊ　Ｒｏｆｆ，Ｂ　Ｈｅｙｍａｎ，Ｒ　Ｇｒｏｏｍ．Ｖｉｓｕａｌ　Ｂａｓｉｃ　

６．０数据库开发［Ｍ］．北京：清华大学出版社，１９９９，１１．