2024年4月25日发(作者：)

维普资讯

ｏｌ　霪　

ｌ　Ｖｉｓｕａｌ　

Ｂａｓｉｃ　６．０开发数据库应用程序的几个实用　

｛　

ｌｉ　

；　

黄

（新疆钢铁学校，新疆

英　

鸟鲁木齐８３００２２）　

ｉ　

Ｖｉｓｕａｌ　Ｂａｓｉｃ是Ｍｉｃｒｏｓｏｆｔ公司推出的的３２位Ｗｉｎｄｏｗｓ应　

用程序开发工具。它提供了开发Ｍｉｃｒｏｓｏｆｔ　Ｗｉｎｄｏｗｓ（Ｒ　应用程　

中提供用户对数据集需满足的条件的设置、如获取当前表含　

有的字段，以及如何选取需要的字段？（４）如何实现根据用户　

序的最迅速、最简捷的方法。不论是Ｍｉｃｒｏｓｏｆｔ　Ｗｉｎｄｏｗｓ应用程　

序的资深专业开发人员还是初学者，Ｖｉｓｕａｌ　Ｂａｓｉｃ都为他们提　

供了整套工具，以方便开发应用程序。Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０作为一　

种成熟的开发工具，从设计新型的用户界面到利用其它应用　

的选择情况动态生成数据输出窗体？（５）如何实现各窗体的切　

换？　

针对第一个问题，首先，进入ＶＢ集成环境，创建一个新　

工程，选择“工程”菜单，“添加窗体”选项，在弹出的窗口选择　

“新建”，在可选项中选择“ＯＤＢＣ登录”，单击“打开”后出现　

“ＯＤＢＣ登录”窗体，可以看见工程中增加了窗体名称为ｆｒ－　

ｍＯＤＢＣＬｏｇｏｎ的窗体。这个窗体是中文版ＶＢ　６．０提供给程序　

员直接调用的，窗体的控件及代码都已经设计好了。察看该窗　

体上各控件的属性和代码，在Ｆｏｒｍ＿Ｌｏａｄ（）事件中看见如下代　

码：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ

＿

程序的对象、从处理文字图像到使用数据库，Ｖｉｓｕａｌ　Ｂａｓｉｃ提　

供了完成这些工作的所有工具。与Ｃ＋＋Ｂｕｌｉｄｅｒ、Ｄｅｌｐｈｉ、　

Ｐｏｗｅｒ　Ｂｕｌｉｄｅｒ等快速开发工具一样，Ｖｉｓｕａｌ　Ｂａｓｉｃ支持许多公　

共的编程结构和语言元素。在开发数据库应用程序方面，ｖｉ．　

ｓｕａｌ　Ｂａｓｉｃ　６．０提供了许多工具以满足针对数据库编程的需　

要，例如数据绑定控件、设计器以及诸如格式化对象等技术。　

通常用ＶＢ６．０实现访问数据库的方法包括：通过ＶＢ　６．０　

的“ＶＢ数据窗体向导”、ＡＤＯ控件与Ｄｂｇｒｉｄ控件、ＤａｔａＣｏｍｂｏ、　

ＤａｔａＬｉｓｔ等控件的绑定、ＶＢ　６．０　Ｄａｔａ　Ｅｎｖｏｒｉｍｅｎｔ以及ＶＢ　６．０　

Ｌｏａｄ（）　

ＧｅｔＤＳＮｓＡｎｄＤｒｉｖｅｒｓ　

Ｅｎｄ　Ｓｕｂ　

集成开发环境配合ＶＢ６．０外接程序中的“可视化数据管理　

器”等。采用这些方法和控件能够实现数据库应用程序设计，　

其中调用了ＧｅｔＤＳＮｓＡｎｄＤｒｉｖｅｒｓ子过程。该过程就是获取　

当前系统中可用ＯＤＢＣ数据源的程序。在这里要注意的是必　

只是对数据库的操作不够灵活，比如在程序中要确定需要打　须在模块级变量声明中添加如下代码：　

开数据库的ＯＤＢＣ数据源等。针对这一情况，作者编写了一个　

Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ　

可以通过人机交互，由用户自由选择ＯＤＢＣ数据源、数据库、　

数据集（表）、数据项（字段），而且返回信息界面可根据用户不　

同选择动态调整的“通用ＯＤＢＣ数据库访问程序”，具体过程　

Ｐｒｉｖａｔｅ　

“ＯＤＢＣ３２

．

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳＱＬＤａｔａＳｏｕｒｃｅｓ　Ｌｉｂ　

ＤＬＬ”　（ＢｙＶａｌ　ｈｅｎｖ＆，ＢｙＶａｌ　ｆＤｉｒｅｃｔｉｏｎ％，ＢｙＶａｌ　

ｓｚＤＳＮ￥，ＢｙＶａｌ　ｃｂＤＳＮＭａｘ％，ｐｃｂＤＳＮ％，ＢｙＶａｌ　ｓｚＤｅｓｃｒｉｐｔｉｏｎ　

限于篇幅在此不便详叙，本文仅就实现过程中遇到的问题和　

几个解决技巧加以说明。　

这个程序包含三个窗体，第一个为“ＯＤＢＣ登录”窗体。该　

窗体用于通过人机对话完成用户与ＯＤＢＣ数据源的连接。由　

于连接信息是用户在程序运行期间输入的，因此，用户可以选　

择任何一个已在本机配置好的ＯＤＢＣ数据源，同时针对每一　

个数据源，用户可以选择任意可访问（有访问权限）的数据　

￥，ＢｙＶａｌ　ｃｂＤｅｓｃｒｉｐｔｉｏｎＭａｘ％，ｐｃｂＤｅｓｃｒｉｐｔｉｏｎ％）Ａｓ　Ｉｎｔｅｇｅｒ　

Ｐｒｉｖａｔｅ　

．

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＳＱＬＡｌｌｏｃＥｎｖ％Ｌｉｂ　

“ＯＤＢＣ３２

ＤＬＬ”ｅｎｖ＆）　

Ｃｏｎｓｔ　ＳＱＬ＿ＳＵＣＣＥＳＳ　Ａｓ　Ｌｏｎｇ＝０　

Ｃｏｎｓｔ　ＳＱＬ＿ＦＥＴＣＨ＿ＮＥＸＴ　Ａｓ　Ｌｏｎｇ＝ｌ　

因为在ＧｅｔＤＳＮｓＡｎｄＤｒｉｖｅｒｓ（）中调用的ＳＱＬＡｌｌｏｃＥｎｖ（）、　

ＳＱＬＤａｔａＳｏｕｒｃｅｓ（）等子过程是在ＯＤＢＣ３２．ＤＬＬ中定义的。此外　

库。第二个窗体为“数据窗体设计”窗体。该窗体用于向用户提　

还可以看到用于输入用户密码的文本框ｔｘｔＰＷＤ的Ｐａｓｓｗｏｒｄ—　

供对数据集（表）、数据项（字段）的选择，同时允许用户在此设　Ｃｈａｒ属性为空。这就意味着用户输入的密码为明码了，所以　

定需要访问的纪录必须满足的条件。这些功能，既增加了用户　

必须修改。我把该属性改为“★”，即用户输入密码时，屏幕上　

文本框中显示的是相应数目的“★”符号。通过查看该窗体的　

代码我们可以看出该窗体只具有提供用户选择ＯＤＢＣ数据源　

及获取连接ＯＤＢＣ数据源字符串的功能，我们在使用中还需　

自己添加代码来完成与ＯＤＢＣ数据源的连接。具体工作是这　

的选择性，又能加强程序的针对性，可以更好地满足用户需　

求。第三个窗体为“数据窗”窗体。它的功能是向用户输出满足　

其设定的条件的纪录。该窗体可根据用户设定的不同条件，动　

态生成满足该条件的窗体结构。　

为了实现上述三个窗体及其功能，需要解决以下几个问　

题：（１）如何获取当前系统所配置的ＯＤＢＣ数据源以及如何连　

样的：在工程菜单选择“引用”，再在弹出的对话窗中选择　

“Ｍｉｃｒｏｓｏｆｔ　ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ　２．０　Ｌｉｂｒａｒｙ”和“Ｍｉｃｒｏｓｏｆｔ　ＤＡＯ　

接到数据源？（２）如何取得当前数据库中所有的表的表名及其　

列表；用户如何从列表中选取需要访问的表？（３）如何在程序　

３６　

Ｏｂｊｅｃｔｓ　３．６　Ｌｉｂｒａｒｙ”两项可用的引用，并在该窗体的“模块声　

明”部分添加代码：　

新Ｉ气象２００２年第２５卷第３期　

维普资讯

Ｐｕｂｌｉｃ　ｄｂ　Ａｓ　Ｃｏｎｎｅｃｔｉｏｎ　

再在ｃｎｌ”按钮的ｃｌｉｃｋ事件中添加如下代码：　

．

再在“确定”按钮的代码段：Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＯＫ

Ｃｌｉｃｋ（）中　

添加如下代码：　

Ｓｅｔ　ｄｂ＝Ｎｅｗ　Ｃｏｎｎｅｃｔｉｏｎ　

ｄｂ．ＣｕｒｓｏｒＬｏｃａｔｉｏｎ　ａｄＵｓｅＣｌｉｅｎｔ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｎｌ＿』＝ｌｉｃｋ（）　

ＴｅｘｔＷｈｅｒｅ．Ｔｅｘｔ＝…’　

ＴｅｘｔＷｈｅｒｅ．ＳｅｔＦｏｃｕｓ　

Ｅｎｄ　Ｓｕｂ　

ｄｂ．Ｏｐｅｎ（ｓＡＤＯＣｏｎｎｅｃｔ）　

此外还需在Ｆｏｒｍ２窗体上再加入两个ＬｉｓｔＢｏｘ框分别命　

名为Ｌｉｓｔ１和Ｌｉｓｔ２。通过Ｌｉｓｔｌ列表框来获取当前表中含有的　

所有字段的列表；通过Ｌｉｓｔ２列表框纪录用户选定的字段列　

同时删除程序段中不需要的代码段：如：ＭｓｇＢｏｘ等，加入　

简单的出错处理，这样第一个问题就顺利解决了。　

对于第二个问题，首先在工程中添加一个窗体命名为　

Ｆｏｒｍ２，在该窗体上加入一个ＣｏｍｂｏＢｏｘ框，名为：ｃｏｍｂｏｌ，再在　

ｆｒｍＯＤＢＣｌｏｇｏｎ窗体的“确定”按钮中添加如下代码：　

Ｄｉｍ　ｍｙｄｂ　Ａｓ　Ｄａｔａｂａｓｅ　

Ｄｉｍ　ｍｙｔａｂ　Ａｓ　ＴａｂｌｅＤｅｆ　

表。为实现这两项功能，需要分别在两个列表框的ＤｂｌＣｌｉｃｋ（）　

事件中添加如下代码：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｌｉｓｔｌ

ＤｂｌＣｌｉｃｋ（）　

＿

Ｌｉｓｔ２．Ａｄｄｈｅｍ　Ｌｉｓｔ１．Ｔｅｘｔ　

Ｌｉｓｔ１．ＲｅｍｏｖｅＩｔｅｍ（Ｌｉｓｔ１．Ｌｉｓｔｌｎｄｅｘ）　

Ｅｎｄ　Ｓｕｂ　

ｅｔＳ　ｍｙｄｂ＝ＯｐｅｎＤａｔａｂａｓｅ（ｖｂＮｕｌｌＳｔｒｉｎｇ，０，０，ｓＤＡＯＣｏｎ－　

ｎｅｃｔ）　

Ｆｏｒｍ２．ｃｏｍｔａｂ．Ｃｌｅａｒ　

Ｆｏｒ　Ｅａｃｈ　ｍｙｔａｂ　Ｉｎ　ｍｙｄｂ．ＴａｂｌｅＤｅｆｓ　

Ｆｏｒｍ２．ｃｏｍｔａｂ．Ａｄｄｈｅｍ　ｍｙｔａｂ．Ｎａｍｅ　

Ｎｅｘｔ　

该程序段的功能是：当用户双击Ｌｉｓｔ１列表框中列出的某　

字段名时，表示该字段已被选中，并希望出现在程序最终输出　

窗体上，因此，该字段记入Ｌｉｓｔ２列表框，同时从Ｌｉｓｔｌ列表框　

中删除，以免用户重复误选。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｌｉｓｔ２

ＤｂｌＣｌｉｃｋ（）　

＿

其中ＯｐｅｎＤａｔａｂａｓｅ方法的定义在“Ｍｉｃｒｏｓｏｆｔ　ＤＡＯ　Ｏｂｊｅｃｔｓ　

３．６　Ｌｉｂｒａｒｙ”中，ＯｐｅｎＤａｔａｂａｓｅ方法原型为ＯｐｅｎＤａｔａｂａｓｅ　

（ｄｂｎａｍｅ，ｏｐｔｉｏｎｓ，ｒｅａｄ—ｏｎｌｙ，ｃｏｎｎｅｃｔ）。“Ｆｏｒ　ｅａｃｈ…ｉｎ．．　

Ｌｉｓｔ１．Ａｄｄｈｅｍ　Ｌｉｓｔ２．Ｔｅｘｔ　

ｉｓｔＬ２．ＲｅｍｏｖｅＩｔｅｍ（Ｌｉｓｔ２．Ｌｉｓｔｌｎｄｅｘ）　

Ｅｎｄ　Ｓｕｂ　

ｎｅｘｔ”语句的用法请参考有关ＶＢ６．０教材。至此获取当前数　

据库中所有的表的表名及其列表的工作就完成了。选取表时，　

使用Ｃｏｍｂｏ１．ｔｅｘｔ属性即可。　

该程序段的功能是：当用户双击Ｌｉｓｔ２列表框中列出的某　

字段名时，表示该字段已被选中，并且该字段不希望出现在程　

序最终输出窗体上，因此，该字段被从Ｌｉｓｔ２列表框中删除，同　

被时记入Ｌｉｓｔｌ列表框中，以便用户随后选取。　

这样第三个问题也解决了。　

第三个问题的解决办法为：在Ｆｏｒｍ２窗体上加一个　

ＴｅｘｔＢｏｘ命名为ＴｅｘｔＷｈｅｒｅ，用户设置查询条件时可在Ｔｅｘ．　

ｔＷｈｅｒｅ文本框中　接输入，但输入内容必须符合标准ＳＱＬ语　

言中的“ｗｈｅｒｅ”子句的规范。另外加入两个命令按钮，分别命　

针对第四个问题，实现方法是在程序窗体设计阶段，在主　

窗体Ｆｏｒｍｌ上事先设计好程序最终输出窗体的布局，然后再　

情况动态加载输出数据的相应控件。　

具体实现过程是：　

名为ｏｋｌ和ｃｎ１。确认输入正确后按“ｏｋｌ”按钮，否则选“ｃｎｌ”　在程序代码中根据用户选择的字段数，字段名、各字段长度等　

按钮重新输入条件。为此在“ｏｋｌ”按钮的ｃｌｉｃｋ事件中需要添　

加如下代码：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｏｋｌ－！＝ｌｉｃｋ（）　

Ｄｉｍ　ｓｔｒＷｈｅｒｅ　Ａｓ　Ｓｔｉｎｇ　ｒ

Ｄｉｍ　ｉ　Ａｓ　Ｉｎｔｅｇｅｒ　

首先，在Ｆｏｒｍ１窗体上加入两个Ｌａｂｅｌ控件：Ｌａｂｔｓ和　

Ｌａｂｔｏ，修改其Ｃａｐｔｉｏｎ属性为空和“状态统计”，修改Ｌａｂｔｓ的　

ｉｎｄｅｘ属性为０，再在窗体上加入两个ｔｅｘｔＢｏｘ控件，分别命名　

为：ｔｅｘｔｉｆ－ｅｌｄ和ｔｅｘｔｔｏｔａｌ。修改ｔｅｘｔｉｆｅｌｄ的ｉｎｄｅｘ属性为０，这是很　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｍｙｅｒｒｏｒ　

Ｓｅｔ　ａｄｏＲｓ＝Ｎｅｗ　Ｒｅｃｏｒｄｓｅｔ　

ｓｔｒＷｈｅｒｅ　＝　“　”＆ＴｅｘｔＷｈｅｒｅ

Ｔｅｘｔ　

．

重要的一点，这样就相当于隐式声明了一个名为ｔｅｘｔｉｆｅｌｄ的　

文本框数组，对于Ｌａｂｔｓ的ｉｎｄｅｘ属性也是同样的道理。这样　

．

ａｄｏＲｓ．Ｏｐｅｎ“ｓｅｌｅｃｔ★ｆｒｏｍ”＆ｅｏｍｔａｂ

Ｔｅｘｔ＆ｓｔｒＷｈｅｒｅ，　

的设计就可以在程序代码中通过：ｌｏａｄ　ｔｅｘｔｉｌｅｌｄ（ｉ）以及ｌ０ａｄ　

Ｌａｂｔｓ（ｉ）命令动态生成第ｉ个文本框（ｔｅｘｔＢｏｘ）控件和第ｉ个　

ｆｒｍＯＤＢＣＬｏｇｏｎ．ｄｂ，ａｄＯｐｅｎＳｔａｔｉｃ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ　

Ｄｉｍ　ｍｙｆｉｅ　Ａｓ　Ｆｉｅｌｄ　

ｅｔＳ　ｍｙＲｓ＝ａｄｏＲｓ　

Ｆｏｒ　Ｅａｃｈ　ｍｙｆｉｅ　Ｉｎ　ｍｙＲｓ．Ｆｉｅｌｄｓ　

标签（Ｌａｂｅ１）控件。此外，再根据用户的具体需要在Ｆｏｒｍ１窗　

体上加入若干个ＣｏｍｍａｎｄＢｕｔｔｏｎ按钮。如本程序中加入了５　

个按钮，分别命名为：“刷新”、“下一个”、“前一个”、“返回”、　

Ｌｉｓｔ１．Ａｄｄｈｅｍ　ｍｙｆｉｅ．Ｎａｍｅ　

Ｎｅｘｔ　

“结束”。调整好Ｆｏｒｍ１窗体上各个控件的初始位置。这样　

Ｆｏｒｍ１窗体就设计完了。随后再在ｆｏｒｍ２窗体上加入一个　

ＣｏｍｍａｎｄＢｕｔｔｏｎ按钮，修改其Ｃａｐｔｉｏｎ属性为“确定”。双击该按　

钮，在Ｃｌｉｃｋ事件中添加下代码：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｏｍｂＯｋ

Ｃｌｉｃｋ（）　

＿

Ｅｘｉｔ　Ｓｕｂ　

ｍｙｅｒｒｏｒ：　

ＭｓｇＢｏｘ　Ｅｒｒ．Ｄｅｓｃｒｉｐｔｉｏｎ　

Ｅｎｄ　Ｓｕｂ　

ＶｉｓｕａＩ　Ｂａｓｉｃ　６．０开冀藏量库应用程序的几个实用技巧——黄英　

Ｄｉｍ　ｉ　Ａｓ　Ｉｎｔｅｇｅｒ　

３７　

维普资讯

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｍｙｅｒｒｏｒ　

Ｆｏｒｍ２．Ｈｉｄｅ　

Ｆｏｒｍ１．Ｓｈｏｗ　

Ｆｏｒ　ｉ＝ｌ　Ｔｏ　Ｌｉｓｔ２．ＬｉｓｔＣｏｕｎｔ—ｌ　

ｍＯＤＢＣｌｏｇｏｎ窗体和Ｆｏｒｍ２窗体以及Ｆｏｒｍ１窗体间的切换我　

就是通过如下方法实现的。首先，程序运行初始从住窗体到显　

示“ＯＤＢＣ登录窗体”，这是通过Ｆｏｒｍ１的ｆｏｒｍ

ｌｏａｄ（）事件来完　

成的。响应该事件的的代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ

Ｌｏａｄ　Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（ｉ）　

Ｌｏａｄ　Ｆｏｒｍ１．Ｌａｂｔｓ（ｉ）　

Ｌｏａｄ（）　

Ｆｏｒｍ１．Ｈｉｄｅ　

ｆｒｍＯＤＢＣＬｏｇｏｎ．Ｓｈｏｗ　

Ｅｎｄ　Ｓｕｂ　

Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（ｉ）．Ｔｏｐ＝Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（ｉ—１）　

．

Ｔｏｐ＋２８５　

Ｆｏｒｍ１．Ｌａｂｔｓ（ｉ）．ＴＯｐ＝Ｆｏｒｍ１．Ｌａｂｔｓ（ｉ—１）．ＴＯｐ＋　

２８５　

其次，从ｆｍＯＤＢＣｌｒｏｇｏｎ窗体切换到Ｆｏｒｍ２窗体，是通过　

在ｆｍＯＤＢＣｌｒｏｇｏｎ窗体中的“确定”按钮中添加代码来完成的：　

Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（ｉ）．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

Ｆｏｒｍ１．Ｌａｂｔｓ（ｉ）．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

Ｎｅｘｔ　

ｆｍＯＤＢＣＬｏｇｏｎ．Ｈｉｄｅ　ｒ

Ｆｏｒｍ２．Ｓｈｏｗ　

最后，从Ｆｏｒｍ２窗体切换到Ｆｏｒｍｌ窗体，是通过在Ｆｏｒｍ２　

窗体的ｃｏｍｂＯｋ按钮的Ｃｌｉｃｋ（）事件中添加如下代码实现的：　

Ｆｏｒｍ２．Ｈｉｄｅ　

ｆｒｍＯＤＢＣＬｏｇｏｎ．Ｈｉｄｅ　

Ｆｏｒｍ１．Ｓｈｏｗ　

’在ｆｏｒｍｌ窗体上动态生成若干个Ｌａｂｅｌ控件和ｔｅｘｔＢｏｘ　

控件’　

Ｆｏｒｍ１．ＴｅｘｔＴｏｔａ１．Ｔｏｐ＝Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（Ｌｉｓｔ２．ＬｉｓｔＣｏｕｎｔ　

—

ｌ１．Ｔｏｐ＋３００　

Ｆｏｒｍ１．Ｌａｂｔｏ．Ｔｏｐ＝Ｆｏｒｍ１．Ｔｅｘｔｏｔａ１．ＴＴｏｐ　

以上，就是采用Ｖｉｓｕａｌ　Ｂａｓｉｃ实现“通用ＯＤＢＣ数据库访　

Ｆｏｒｍ１．Ｃｍｅｎｄ．Ｔｏｐ＝Ｆｏｒｍ１．ＴｅｘｔＴｏｔａ１．Ｔｏｐ＋３００　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１．Ｔｏｐ＝Ｆｏｒｍ１．Ｃｍｅｎｄ．Ｔｏｐ　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ２．ＴＯｐ＝Ｆｏｒｍ１．Ｃｍｅｎｄ．ＴＯｐ　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ３．ＴＯｐ＝Ｆｏｒｍ１．Ｃｍｅｎｄ．Ｔｏｐ　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ４．Ｔｏｐ＝Ｆｏｒｍ１．Ｃｍｅｎｄ．Ｔｏｐ　

Ｆｏｒ　ｉ＝０　Ｔｏ　Ｌｉｓｔ２．ＬｉｓｔＣｏｕｎｔ一１　

问程序”时遇到的一些问题和采取的解决办法。　

使用该程序，用户可以访问同一数据源绑定的数据库中　

的相关的表，也可在使用过程中随时通过人机交互界面更改　

要访问的数据源、数据库、表、字段等内容。该程序经过编译后　

可运行干任意一台配置了ＯＤＢＣ的ｗｉｎｄｏｗｓ　９８、ｗｉｎｄｏｗｓ　ＮＴ　

工作站。当然，这个程序也还有许多可以改进和加强的地方，　

比如，可以在程序中增加对数据库进行修改、增、删等操作的　

功能，这样才算是一个完全意义上的“通用访问ＯＤＢＣ数据库　

的程序”。　

Ｆｏｒｍ１．Ｌａｂｔｓ（ｉ）．Ｃａｐｔｉｏｎ＝Ｌｉｓｔ２．Ｌｉｓｔ（ｉ）　

Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（ｉ）．Ｔｅｘｔ＝ａｄｏＲｓ．Ｆｉｅｌｄｓ（Ｌｉｓｔ２．Ｌｉｓｔ　

（ｉ））　

Ｆｏｒｍ１．ＴｅｘｔＦｉｅｌｄｓ（ｉ）．ｗｉｄｔｈ＝Ｌｅｎ（ａｄｏＲｓ．Ｆｉｅｌｄｓ　

（Ｌｉｓｔ２．Ｌｉｓｔ（ｉ）））★３００　

Ｎｅｘｔ　

动态调整ｆ０ｒｍｌ窗体上各控件的位置’　

Ｆｏｒｍ１．ＴｅｘｔＴｏｔａｌ＿Ｔｅｘｔ＝　“Ｃｕｎ＿ｅｎｔ　Ｒｅｃｏｒｄ：”＆ａｄｏＲｓ

．　

ＡｂｓｏｌｕｔｅＰｏｓｉｔｉｏｎ＆“／Ｔｏｔａｌ”＆ａｄｏＲｓ

ＲｅｃｏｒｄＣｏｕｎｔ＆　

．

“Ｒｅｃｏｒｄｓ”　

Ｅｘｉｔ　Ｓｕｂ　

ｍｙｅｒｒｏｒ：　

ＭｓｇＢｏｘ　Ｅｒｒ．Ｄｅｓｃｒｉｐｔｉｏｎ　

Ｅｎｄ　Ｓｕｂ　

上述程序段的功能主要是向“数据窗体”动态添加需要的　

控件，以及取得用户最终需要的数据。具体各行程序代码的功　

能请参见程序段中的各注释行。这样就解决了动态生成数据　

输出窗体的技术问题。当然，要使数据输出窗体的功能完善，　

还需要对前面提到的Ｆｏｒｍｌ窗体上的另外５个ＣｏｍｍａｎｄＢｕｔ—　

ｔｏｎ按钮，分别就其Ｃｌｉｃｋ事件编写相应的代码。由于这部分代　

码相对较为简单这里就不一一列出了。　

最后一个问题只需记住任何时候保证你的程序中只有一　

个窗体是可见的，其它窗体均处于不可见状态（如：调用ｈｉｄｅ　

方法或者使ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ）就行了。比如在我的程序中ｆｒ－　

３８　

新疆气象２００２年第２５卷第３期