在VB+SQL Server 2000系统中利用ADO进行各种查询的实现

维普资讯

＿ｌ０　■　１露　

Ｄ　ｌ　Ａ聃ＡＳＥ　

拄ｉ　Ｂ＋　

摘要本文以学生档案数据库Ｓｔｕｄａｔａ为例，介绍利用ＡＤＯ在ＶＢ＋ＳＱＬ　Ｓｅｒｖｅｒ　２０００　

系统中实现单项与多项条件查询的程序设计方法。　

关键词数据库，ＡＤＯ，查询，事件代码　

一

、

刖吾　

学生信息表　

对数据库信息进行查询检索是数据库管理软件的主要功　

字段名　数据类型　宽度　

能，也是其难点之一。ＡＤＯ（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ）是一种提　

学号　ｃｈａｒ　８　

供访问各种数据类型的连接机制。是当前非常流行的访问各种　

姓名　ｖａＴ℃ｈａ　５０　

数据库的方法。使用ＡＤＯ之前必须先引用。方法为：从ＶＢ　

性别　ｃｈａｒ　２　

的“工程”菜单中，选择“引用”项，从库的列表中选择　

班级　ｖａｒｅｈａｒ　５０　

“Ｍｉｃｒｏｓｏｆｔ　ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ　２．８　Ｌｉｂｒａｒｙ”，单击“确　

入学总分　ｌｆｏａｔ　８　

定”。便可使用ＡＤＯ对象库提供的所有对象进行编程了。　

本文以学生档案数据库为例，介绍在Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０中　

家庭电话　ｖａｒｃｈａｒ　ｌ５　

文版中，通过ＡＤＯ对象模型访问ＳＱＬ　Ｓｅ￣ｅｒ　２０００数据库，对　

家庭住址　ｖａｒｅｈａｒ　４０　

数据库中的Ｓｔｕｄｅｎｔｓ表进行各种查询及显示查询到的记录的实　

出生年月　ｄａｔｅｆｉｍｅ　８　

现方法。本程序包含一个数据库Ｓｔｕｄａｔａ，其中包含表Ｓｔｕ—　

备注　ｖａｒｃｈａｒ　５００　

ｄｅｎｔｓ。一个存放所有学生照片的文件夹Ｐｈｏｔｏ，一个标准模块　

Ｍｏｄｕｌｅ１．ｂａｓ，一个查询主窗体ＦｒｍＳｅａｒｃｈ．ｆｒｍ，一个单项条件　

ＰＵｂｌｉｃ　ｑｕｅ￣Ｓｔｒ　Ｓｔｒｉｎｇ　查询冬ｔ件每符罱　

设置窗体ＦｒｍＳＣｏｎｄｉｔｉｏｎ．ｆｒｍ，一个多项条件设置窗体ＦｒｍＭ—　

ＰｕｂｉＪｃ　ｃｅｎｔ　Ａｓ　ＡＤＯＤＢ　Ｃｏｎｎｅｃｔｉｏｎ　定义连接对敦变量　

Ｃｏｎ￣ｔｉｏｎ．ｆｒｍ。　

ＰＵｂｌｉＣ　毫Ａｓ　ＡＤＯＤＢ　Ｒｅｃｏｒ￣ｅｔ　是义记京煞碱象袭置　

Ｐｕｂｌｉｃ　ｆ　ｎｄｓｔａｔｅ　Ａｓ　Ｂｏｏｌｅａｎ　是否是查询状态　默认值为否　

二、数据库中的表及其字段　

四、查询主窗体　

假设学生档案数据库Ｓｔｕｄａｔａ已经生成（位于当前路径　

查询主窗体ＦｒｍＳｅａｒｃｈ．ｆｒｍ，用来显示Ｓｔｕｄｅｎｔｓ表中所有记　

下），库中有学生信息表Ｓｔｕｄｅｎｔｓ，表中有若干条记录。为简　

录或查询到的记录，同时显示相关记录的照片，如图１所示。　

化说明，假设表中仅有如下字段，如右表所示。　

１．该窗体上包含如下主要控件　

另外为了存放所有学生的照片，在当前路径下建一文件夹　

（１）一个图像框Ｉｍａｇｅｌ，用来显示照片。　

Ｐｈｏｔｏ，在其中存放所有学生的个人照片，每副照片以．ｊｐｇ文　

（２）八个文本框，分别是ｔｘｔｌｄ、ｔｘｔＮａｍｅ、ｔｘｔＳｅｘ、　

件格式存放，为了读取方便，每个学生的照片文件名为其学　

ｔｘｔＣｌａｓｓ、ｔｘｔＳｃｏｒｅ、ｔｘｔＢｉｒｔｈｄａｙ、ｔｘｔＡｄｄｒｅｓｓ、ｔｘｔＴｅ１分别用来显示　

号，即每个学生的照片文件全名格式为：学号．ｊｐｇ。　

学号、姓名、性别、班级、入学总分、出生年月、家庭住址和　

三、标准模块的变量　

家庭电话等字段的值。　

（３）一个富文本框控件（ＲｉｃｈＴｅｘｔＢｏｘ），名称为Ｒｔｅｘｔ１，　

在标准模块（Ｍｏｄｕｌｅ１．ｂａｓ）中，定义全局变量如下：　

用来显示个人简历，即备注字段的内容。　

与　

ｉｌ　∥一一　ｔ　ｌｌｌｌ０　＿　ｌ　００　ｌ

ｌ　ｌｌ　

ｌ　ｌ　

００一　一０　ｌｌｌ０　

＿　ｌｌ１０　Ｊ＇｜　ｌｌ－　

＿　ｌ　ｌｌ　ｌ

｜　

？　ｌ　ｉ　尊　；　｜｜　

维普资讯

譬　瑟慧　ｌ慧　＿　

壤　熊一ｔ驾鹗隔麓　

氇　《ｒ氇镱交　豁　遘ｌ　ｌ精　０　

ｌ

ｌｌ＿　ｌｌ　ｌ　蠹　。　Ｉ数　

ｌ＿Ａ聃ＡＳｊ　

（４）一个数据网格控件（ＭＳＦｌｅｘＧｒｉｄ），名称为Ｇｒｉｄｌ，显　

示所有记录或查询到的所有记录。　

（５）八个命令按钮（ＣｏｍｍａｎｄＢｕｔｔｏｎ），名称分别为ｃｍｄ—　

Ｔｏｐ　ｃｍｄＢｏｔｔｏｍ　ｃｍｄＰｒｅ　ｃｍｄＮｅｘｔ　ｃｍｄＳｆｉｎｄ　ｃｍｄＭｆｉｎｄ　

ｃｍｄＣｆｉｎｄ、ｃｍｄＥｘｉｔ，分别用来显示第一条记录、最后一条记　

录、前一条、后一条，以及显示单项条件设置窗体、多项条件　

设置窗体、清除查询的条件和退出程序。　

２．窗体的通用——声明段中的代码　

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

Ｄｉｍ　ｒｓ２　Ａｓ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　查询后的记录集　

Ｄｉｍ　ｓｑｌ　Ａｓ　Ｓｔｒｉｎｇ　存放ＳＥＬＥＣＴ命令的字符串　

３．窗体的Ｌｏａｄ事件过程代码　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ上ｏａｄ《）　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｓｑｌ

＿

ｅｒｒｏｒ　

Ｓｅｔ　ｃｏｎｔ＝Ｎｅｗ　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ　

Ｓｅｔ　ｒｓ＝Ｎｅｗ　ＡＤＯＤＢ　Ｒｅｃｏｒｄｓｅｔ　

ｃｏｎｔ．Ｏｐｅｎ　

Ｐｒｏｖｉｄｅｒ＝ＳＱＬＯＬＥＤＢ，１ｌ：Ｉｎｔｅｇｒａｔｅｄ　Ｓｅｃｕｒｉｔｙ＝ｓＳＰＩ；Ｐｅｒｓｉｓｔ　

Ｓｅｃｕｒｉｙｔ　ｌｎｆｏ＝Ｆａｌｓｅ；ＵｓｅｒｌＤ＝ｓａ　Ｉｎｉｔｉａｌ　Ｃａｔａｌｏｇ　ｓｔｕｄａｔａ；　

Ｄａｔａ　Ｓｏｕｒｃｅ＝Ｉｚｙｄｓ　连接ＳＯＬ　Ｓｅｒｖｅｒ数据库，服务器名为　

Ｉｚｙｄｓ，用户名为ｓａ　

ｓｑｌ＝　ｓｅｌｅｃｔ￥ｆｒＯｍ　ｓｔｕｄｅｎｔｓ　

ｒｓ．Ｏｐｅｎ　ｓｑ１　ｃｏｎｔ　ａｄＯｐｅｎＫｅｙｓｅｔｉ　ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ　

Ｇｒｉｄ１　

．

Ｃｏｌｓ　ｒｓ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ　

ＴｅｘｔＭａｔｒｉｘ（Ｏ　０、　攀号　

．

ＴｅｘｔＭａｔｒｉｘ（　１】＝　姓名　

．

ＴｅｘｔＭａｔｒｉｘ　０ｉ　２、＝　性　Ｉ　

．

ＴｅＸｔＭａｔｒｉｘ　３、＝　班级　一　

．

ＴｅｘｔＭａｔｒｉｘ　４、：　入学　食　ｒ　

．

ＴｅｘｔＭａｔｒｉｘ（ｏ　５１：　生年只　

．

ＴｅｘｔＭａｔｒｉｘ（０　：　家艇住址　

－　

砌ｘ（０１　京　隔　－　－

．

１＇ｅｘｔＭａｔｒｉ￣（　８１：　备｛　

￣

ＣｏｌＷｉｄｔｈ　、０００　ｆ；　｜　

．

ＣｏＰＺＶｉｄｔｈ　、毫１０００　

．

ＣｏｌＷｉｄｔｈ　２＼：５００　

．

ＣｏｌＷｉｄｔｈ（３）＝　Ｑ∞　｜　

．

ＣｏＩＷｉｄｔｈ（４、每１０ｏ０　｜　

．

ＣｏｌＷｉｄｔｈ　黾、＝、０００　。　

ＣｏｌＷｉｄｔｈ　、毒撇　　。

ＣｏｌＷｉｄｔｈ　、＝　１０ｏ０　－　

．

Ｃｏ￣ｉｄｔｈ　：：２０００　．Ｉ　

Ｅｎｄ　。　

Ｉｄ．Ｌｏｃｋ￣；Ｔｒｕｅ　设置文苯框　只读　

ｔｘｔＮａｍｅｉ　Ｌ￣ｋｅｄ暑　ｕｅ　｜　ｉ｜ｌ　。　

￣ｔＳｅｘ　Ｌ￣ｋｅｄ＝Ｔｒｕｅ｜－｜　

ｔｘｔＣｌａｓｓ：Ｌｏｃｋｅｄ童Ｔｒｕｅ　。　ｉ　。　｜‘　

ＭｓｇＢ（ｏｘ　查询错误：　＆　Ｅｒｒ．Ｄｅｓｃｒｉ　ｐｔｉｏｎ　

。

ＴｅｘｔＭａｔｒｉｘ（　Ｒｏｗｓ－、Ｉ　４、＝ｒｓ　４１　

｜

Ｉ

Ｇｒｉｄ　Ｒｅｆ

ｒｅｓ

ｈ　｜｜。　｜　｜｜　．　｜　｜Ｉ　　｜｜　

Ｅ

ｎｄ　Ｓｕｂ　

ｓ　．Ｑ　吼　牾幅锋＿冬　Ｉ　｜　。｜　．　

Ｐｒｉｖａ　ｔｅ　Ｓｕｂ　ＬｏａｄＤａｔａｌｎＣｏｎｔｒｏＩｓ　ｒｓ　Ａｓ　ＡＤＯＤＢ　Ｒｅｃｏｒｄｓｅｔ）　

Ｉｆ　ｒｓ．ＢＯＦ＝Ｔｒｕｅ　Ｏｒ　ｒｓ．＼ＥＯＦ＝Ｔｒｕｅ　Ｔｈｅｎ　

Ｅｎｄ　Ｉｆ　。｜　

ｔｘｔＩｄ．Ｔｅｘｔ　ｒｓ．Ｆｉｅｌｄｓ（＂学号　Ｖａｌｕｅ—　

ｔｘｔＮａｍｅ．Ｔｅｘｔ篇　Ｆｉｅｌｄｓ　姓名＂）．Ｖａｌｕｅ　

ｔｘｔＳｅｘ．Ｔｅｘｔ　＝俜　Ｆｉｅｌｄｓ（｜　’、．　｜　

ｔｘｔＣｌａｓｓ．Ｔｅｘｔ；ｒｓ．Ｆｉ　ｅ＼｛　斑级　、．。Ｖａｌｕｅｔ　一　

ｔｘｔＳｃｏｒｅ，Ｔｅｘｔ…＝ｒｓ．Ｆｉｅｌｄｓ（＂．，ｋ，．　余　）．Ｖａｌｕｅ｜　｜　

ｔｘｔＢｉｒｔｈｄａｙ．Ｔ　ｔ未｝Ｓ　氧　？她茔年　’、．Ｖａｌｕｅ　

ｔｘｔＡｄｄｒｅ

。

ｓｓ，Ｔｅｘｔ专　家寝洼　！．　ａ　．　｜：　

ｔｘｔＴｅ１．Ｔｅｘｔ警　Ｆｉｅｌｄｓ（　家庭电话　Ｖａｌｕｅ　÷　｜　｜　

ｒｔｅｘｔ１．Ｔｅｘｔ＝ｒｓ．Ｆｉｅｌｄｓ　备注－１。　ａ＼、ｌ色　｜Ｉ　｜　｜　

Ｉｍａｇｅ１．Ｐｉｃｔｕｒｅ　ｊ：ＬｏａｄＰｉｃｔｕｒｅ（Ａｐｐ．Ｐ蠢ｔ１．｜＿＋＂＼ｐｈｏｔｏ＼＂＋　

维普资讯

１）　ｌ　Ｂ人Ｓ　

Ｉｆ　ｒｓ２　ＥＯＦ＝ＴｒｕｅＴｈｅｎ　

ｒｓ２．ＭｏｖｅＬａｓｔ　

ＭｓｇＢｏｘ　已到查询到的尾记录　，６４　

Ｅｎｄ　Ｉｆ　

Ｃａｌｌ　ＬｏａｄＤａｔａ　ＩｎＣｏｎｔｒｏｌｓ（ｒｓ２）　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

９．“前一条”命令按钮的单击事件过程代码　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＰｒｅ＿Ｃｌｉｃｋ（）　

Ｉｆ　ｉｆｎｄｓｔａｔｅ＝ＦａＩｓｅ　Ｔｈｅｎ　不是查询状态　

ｓ　ＭｏｖｅＰｒｅｖｉｏｕｓ　

Ｉｆ　ｒ　Ｓｌ　ＢＯＦ＝Ｔｒｕｅ　Ｔｈｅｎ　

ＭｓｇＢｏｘ　已到首记录　，６４　

图１　

俺．ＭｏｖｅＦｉｒｓｔ　

Ｅｎｄ　

ｔｘｔｌｄ．Ｔｅｘｔ＋　．ｊｐｇ　｝　照片文件名格式为：学号．ｊＰｇ　

Ｃａｌｌ　Ｌｏａｄ　ＤａｔａＩｎＣｏｎｔｒｏｌｓ（ｒＳ）　

Ｅｎｄ　Ｓｕｂ　

ＥＩｓｅ　是查询状态　

６．“首记录”命令按钮的单击事件过程代码　

ｒｓ２．ＭｏｖｅＰｒｅｖｉｏｕｓ　不是查询状态　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍ￣ｏｐ＿ＣＩｉｃｋ（　

ｌｆ　ｒｓ２．ＢＯＦ＝ＴｒｕｅＴｈｅｎ　

Ｉｆ　ｆｉｎｄｓｔａｔｅ＝Ｆａｌｓｅ　Ｔｈｅｎ　不是查询状态　则显示表中所有记　

ＭｓｇＢｏｘ　已到查询到的酋记录　６辱　

录的第一条记录　

ｒｓ２．ＭｏｖｅＦｉｒｓｔ　｜　

ｒｓ．ＭｏｖｅＦｉｒｓｔ　

Ｉｆ　

Ｃａｌｌ　ＬＯａｄＤａｔａＩｎＣＯｎｔｒＯＩｓ（ｒｓ）　

ＣａＩ　ＩＬｏａｄＤａｔａＩｎＣｏｎｔｒｏｌｓ（ｒｓ２）　

Ｅｌｓｅ　是查询状态，则显示查询到的记录集中的第一条记录　

Ｅｎｄ¨ｆ　

ｒｓ２．ＭｏｖｅＦｉｒｓｔ　

Ｅｎｄ　Ｓｕｂ　

Ｃａｌｌ　ＬｏａｄＤａｔａｌ　ｎＣｏｎｔｒｏｌｓ（ｒｓ２）　

１Ｏ．“单项查询”命令按钮的单击事件过程代码　

Ｅｎｄ　Ｉｆ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＳＦｉｎｄ＿Ｃｌｉｃｋ（）　

Ｅｎｄ　Ｓｕｂ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

７．“尾记录”命令按钮的单击事件过程代码　

ｍｓｑ＼Ａｓ　Ｓｔｒｉｎｇ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＢｏｔｔｏｍ

Ｃｌ￣ｃｋ（、　

Ｓｅｔ　ｒＳ２＝Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

＿

Ｉｆ　ｆｉｎｄｓｔａｔｅ＝Ｔｒｕｅ　Ｔｈｅｎ　是查询状态　

ｆｉｎｄｓｔａｔｅ＝ＴｒＭｅ　

ｒｓ２．ＭｏｖｅＬａｓｔ　

ｆｒｍＳｃｏｎｄｉｔｉｏｎ．Ｓｈｏｗ　ｖｂＭｏｄａＩ　

ＣａＩｌ　ＬｏａｄＤａｔａＩｎＣｏｎｔｆｏｌｓ（ｒｓ２）　

ＩｆｑｕｅｒｙＳｔｒ＝　Ｔｈｅｎ　ＥｘｉｔＳｕｂ　查询窗体中单击了取消键　

ＥＩｓｅ　不是查询状态　

ｓｑｌ＝　８ｅｌｅｃｔ　ｆｒｏｍ　ｓｔｕｄｅｎｔｓ　ｗｈｅｒｅ　＆ｑｕｅｒｙＳｔｒ　

鸭．ＭｏｖｅＬａｓｔ　

ｒｓ２．Ｏｐｅｎ　ｓｑ１．ｃｏｎｔ　ａｄＯｐｅｎＫｅｙｓｅｔ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ　

ＣｏｌＩ　ＬｏａｄＤａｔａｌｎＣｏｎｔｒｏｌｓ（ｒｓ）　

Ｉｆ　ｒｓ２．ＥＯＦ＝Ｔｒｕｅ　Ａｎｄ　ｒｓ２　ＢＯＦ＝Ｔｒｕｅ　Ｔｈｅｎ　

Ｅｎｄ　

ＭｓｇＢｏｘ　没有符合条件的记录　

Ｅｎｄ　Ｓｕｂ　

Ｅｘｉｔ　Ｓｕｂ　

８．“后一条”命令按钮的单击事件过程代码　

Ｅｎｄ　Ｉｆ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＮｅｘｔ＿Ｃ¨ｃ　ｋ（）　

ＬｏａｄＤａｔａＩｎＣｏｎｔｒｏｌｓ『Ｓ２　在文本框中显示查询到的第—条记录　

Ｉｆ　ｆｉｎｄｓｔａｔｅ＝ＦａＩｓｅ　Ｔｈｅｎ　不是查询状态　

ｌｏａｄｒｓｄａｔａ　ｒｓ２　在表格申显示查询到的所有记录ｌ　ｌ

Ｅｘｉｔ　Ｓｕｂ　

【ｓ．ＭｏｖｅＮｅｘｔ　。　。

Ｉｆ　ｒｓ：ＥＯＦ＝Ｔｒｕｅ　Ｔｈｅｎ　

ｅｒｒｄｏ１　

ｒｓ．ＭｏｖｅＬａｓｔ　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ）。ｖｂＣｍＩｃａＩ，　单项信息查询　

Ｅｎｄ　Ｓｕｂ　

ＭｓｇＢｏｘ　已到尾记录　，６４　

Ｅｎｄ　Ｉｆ　

１１．“多项查询”命令按钮的单击事件过程代码：　

Ｃｏｌ、ＬｏａｄＤａｔａＩｎＣｏｎｔｒｏｌｓ　ｒｓ）　

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

ＥＩｓｅ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

ｒｓ２．ＭｏｖｅＮｅｘｔ｜　Ｅ｜。　

ｆｒｍＭｃｏｎｄｉｔｉｏｎ．Ｓｈｏｗ　ｖｂＭｏｄａｌ　。　

Ｄｉｍ　ｓｏ　ｌＡｓＳｔｒｉｎｇ｜｜　一　

与　

维普资讯

｛％　０　■　

蓑麓错一翻誓　密壤　

撬．霹　

ｌ　Ａ酶ＡＳ　

Ｓｅｔ　ｒｓ２＝Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

ｆｉｎｄｓｔａｔｅ＝Ｔｒｕｅ　

Ｉｆ　ｑｕｅｒｙＳｔｒ＝～Ｔｈｅｎ　Ｅｘｉｔ　Ｓｕｂ　查询窗体中单击了取消键　

ｓｑｌ＝　ｓｅｌｅｃｔ女ｆｒｏｍ　ｓｔｕｄｅｎｔｓ　ｗｈｅｒｅ　＆ｑｕｅｒｙＳｔｒ　

ｒｓ２．Ｏｐｅｎ　ｓｑＩ，ｃｏｎｔ，ａｄＯｐｅｎＫｅｙｓｅｔ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ　

Ｉｆ　ｒｓ２．ＥＯＦ＝ＴｒｕｅＡｎｄ　ｒｓ２．．ＢＯＦ＝Ｔｒｕｅｍｅｎ　

ＭｓｇＢｏｘ　没有符合条件的记录　

ＥｘｉｔＳｕｂ　

ＥｎｄＩｆ　

ＬｏａｄＤａｔａｌｎＣｏｎｔｒｏｌｓ　ｒｓ２　在文本框中显示查询到的第－条记录．　

Ｉｏａｄｒｓｄａｔａ　ｒｓ２　在表格中显示查询到的所有记录　

Ｅｘｉｔ　Ｓｕｂ　

ｅｒｒｄＯ：　

图２　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ）．ｖｂＣｒｉｔｉｃａｌ，　多项信息查询　

Ｅｎｄ　Ｓｕｂ　

（３）两个命令按钮（ＣｏｍｍａｎｄＢｕｔｔｏｎ），名称分别为Ｃｍ－　

ｄＯｋ和ＣｍｄＣａｎｃｅｌ。　

１２．“清除条件”命令按钮的单击事件过程代码　

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

重新在表格和文本框中显示所有记录　

ｑｕｅｒｙ，Ｓｔｒ＝　

ｆｉｎｄｓｔａｔｅ＝Ｆａｌｓｅ　

　－

２．窗体的Ｌｏａｄ事件过程代码　

在组合框ＣｍｂＳｅａｒＩｔｅｍ和ＣｍｂＲｅｌａｔｉｏｎ中发别添加查询项目　

字段名称和关系运算符。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｌｏａｄ（）　

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

ｑｕｅｒｙＳｔｒ＝　

Ｆｏｒ　＝０　Ｔｏ　ｒｓ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ一２　

ＬｏａｄＤａｔａｌｎＣｏｎｔｒｏｌｓ　ｒｓ　

Ｉｏａｄｒｓｄａｔａ　ｒｓ　

Ｓｅｔ　ｒｓ２＝Ｎｏｔｈｉｎｇ　

Ｅｎｄ　Ｓｕｂ　

１３．“退出”命令按钮的单击事件过程代码　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＥｘｉｔ

Ｃｌｉｃｋ（）　

＿

添加除备注宇段以外的所有字段名称　

ｃｍｂＳｅａｒｌｔｅｍ．Ａｄｄｌｔｅｍｌ　ｒｓ．ＦｉｅｌｄＳ（．）ｌ　Ｎａｍｅ　

Ｎｅｘｔ　

Ｅｎｄ　

Ｓｅｔ　ｒｓ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　ｒｓ２＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　ｃｏｎｔ＝Ｎｏｔｈｉｎｇ　

Ｅｎｄ　Ｓｕｂ　

。　　－

ｃｍｂＳｅａｒＩｔｅｍ．ＬｉｓｔＩｎｄｅｘ＝０　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄ　Ｉｔｅｍ　＝。　

ｃｍｂＲｅｌａｔｉｏｎ．ＡｄｄＩｔｅｍ　＞ｌ＿　

ＣｍｂＲｅｌａｔｉｏｎ．ＡｄｄＩｔｅｍ　＞　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄｌｔｅｍ　《　

ｃｍｂＲｅＩａｔｉｏｎ．Ａｄｄｌｔｅｍ　＜＝　

五、单项查询条件　

在查询主窗体中单击“单项查询”命令按钮后，显示单项　

条件设置窗体（ＦｒｍＳｃｏｎｄｉｔｉｏｎ．ｆｒｍ），如图２所示。在该窗体　

ｃｍｂＲｅｌａｔｉｏｎ．ＡｄｄＩｔｅｍ　《＞＾　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄｌｔｅｍ＂ｌｉｋｅ　

ｃｍｂＲｅｌａｔｉｏｎ　Ｌｉｓｔｌｎｄｅｘ＝Ｏ　

ｔｘｔｆｉｎｄｖａｌｕｅ．Ｔｅｘｔ＝～　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ　

Ｅｎｄ　Ｓｕｂ　

Ｆａｌｓｅ　

中选择要查询的字段、运算符和查询的值，单击“确定”后，　

该窗体消失，在查询主窗体中显示查询到的记录。单击“取　

消”时，该窗体消失，不进行查询。　

１．该窗体上包含如下主要控件　

（１）三个组合框（ＣｏｍｂｏＢｏｘ），名称分别为Ｃｍｂ．　

Ｓｅａｒｌｔｅｍ、ＣｍｂＲｅｌａｔｉｏｎ、ＣｍｂＦｉｎｄｖａｌｕｅ（隐藏）。分别用来显示　

要查询的字段和关系运算符“＝、＜、＞、＜＞、＜＝、＞＝、　

３．单击组合框ｃｍｂＳｅａｒＩｔｅｍ时的单击事件过程代码　

当查询项目为“性别”或“班级”时，能在组合框　

ＣｍｂＦｉｎｄｖａｌｕｅ中显示“男”和“女”或表中所有班级字段值，　

供用户选择。　

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

Ｄ｛ｍ　ｒｓｃｌａｓｓｈａｍｅ　Ａｓ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

Ｌｉｋｅ（包含）”。当选择查询项目“性别”和“班级”时，组　

合框ＣｍｂＦｉｎｄｖａｌｕｅ显示。　

（２）一个文本框（ＴｅｘｔＢｏｘ），名称为ＴｘｔＦｉｎｄｖａｌｕｅ。用来　

输入查询的值。当选择查询项目“性别”和“班级”时，该文　

本框隐藏，选择其它查询项目时，该文本框显示。　

用来在查询信息后的组合框中添加班级宇段值　

Ｄｉｍ　ｓｑｌＡｓ　ｓｔｒｉ嗵　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

ｓｅｔ　ｓｃｌａｓｓｎａｍｅ；Ｎｅｗ　ＡＤＯＤＢ　ＲｅＣｏｒｄｓｅｔ　

维普资讯

｝１）Ａ１．Ａ　ＡＳ　

ｓｑｌ＝＂ｓｅｌｅｃｔ　ｄｉｓｔｉｎｃｔ班级ｆｒｏｍ　ｓｔｕｄｅｎｔｓ　

ｑｕｅｒｙＳｔｒ＝Ｔｒｉｍ（ｃｍｂＳｅａｒｌｔｅｍ．Ｔｅｘｔ）＆Ｔｒｉｍ　

ｒｓｃｌａｓｓｎａｍｅ．０ｐｅｎ　ｓｑｌ，ｃｏｎｔ，ａｄＯｐｅｎＫｅｙｓｅｔ，ａｄＬｏｃｋＯｏ

．

ｔｉ—　

（ｃｍｂＲｅｌａｔｉｏｎ．Ｔｅｘｔ　Ｊ＆　＆ｆｉｎｄＳｔｒ＆　

ｍｉｓｔｉｃ　

Ｃａｓｅ　学号　，　姓名　，　性别　，　班级　，　家庭住址　，　家　

Ｓｅｌｅｃｔ　Ｃａｓｅ　ｃｍｂＳｅａｒｌｔｅｍ．．Ｔｅｘｔ　

庭电话　

Ｃａｓｅ　性别　

ｑｕｅｒｙＳｔｒ＝Ｔｒｉｍ（ｃｍｂＳｅａｒｌｔｅｍ．Ｔｅｘｔ）＆Ｔｒｉｍ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

（ｃｍｂＲｅｌａｔｉｏｎ．Ｔｅｘｔ）＆　一＆ｆｉｎｄＳｔｒ＆　一　

ｔｘｔｆｉｎａｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

Ｃａｓｅ　入学总分　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｃｌｅａｒ　

ｑｕｅｒｙＳｔｒ＝Ｔｒｉｍ（ｃｍｂＳｅａｒＩｔｅｍ．Ｔｅｘｔ）＆Ｔｒｉｍ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ａｄｄｌｔｅｍ　男　

（ｃｍｂＲｅｌａｔｉｏｎ．Ｔｅｘｔ）＆　ｄｓｔｒ　

ｃｍｂＦｉｎｄｖａｌｕｅ，Ａｄｄｌｔｅｍ　女　

．　

Ｅｎｄ　Ｓｅｌｅｃｔ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｌｉｓｔｌｎｄｅｘ＝０　

Ｅｎｄ　Ｉｆ　

Ｃａｓｅ　班级　

Ｍｅ．Ｈｉｄｅ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ：Ｔｒｕｅ　

Ｅｘｉｔ　Ｓｕｂ　’　

ｔｘｔｆｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　ｅ｜　ｄＱ　

ｃｍｂＦｉｎｄｖａｌｕｅ．ＣＩｅａｒ　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ），ｖｂＣｒｉｔｉｃａｌ，　单项条件查询　

Ｄｏ　Ｗｈｉｌｅ　Ｎｏｔ　ｒｓｃｌａｓｓｎａｍｅ—ＥＯＦ。　

Ｒｅｓｕｍｅ　Ｎｅｘｔ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ａｄｄｌｔｅｍ　ｒｓｃｌａｓｓｎａｍｅ．ＦｉｅＩｄｓ（Ｏ）．Ｖａｌｕｅ　

Ｅｎｄ　Ｓｕｂ　

ｒｓｃｌａｓｓｎａｍｅ．ＭｏｖｅＮｅｘｔ　

５．“取消”命令按钮的单击事件过程代码　

ＬＯＯＤ

—　

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

Ｓｅｔ　ｒｓｃｌａｓｓｎａｍｅ＝Ｎｏｔｈｉｎｇ　

ｑｕｅｒｙＳｔｒ＝～　

ｃｍｂＦＩｎｄｖａｌｕｅ．Ｌｉｓｔｌｎｄｅｘ＝０　

Ｍｅ．Ｈｉｄｅ　

Ｃａｓｅ　ＥＩｓｅ　

Ｅｎｄ　Ｓｕｂ　

ｃｍＤＦｉｎｄｖａＩｕｅ．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

、　

ｔｘｔｆｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

Ｅｎｄ　Ｓｅｌｅｃｔ　

六、多项查询条件　

Ｅｘｉｔ　Ｓｕｂ　’　

ｅｒｒｄｏ：　

在查询主窗体中单击“多项查询”命令按钮后，显示多项　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ），ｖｂＣｒｉｔｉｃａｌ，　单项条件查询　

条件设置窗体（ＦｒｍＭｃｏｎｄｉｔｉｏｎ．ｆｒｍ），如图３所示。在该窗体　

Ｒｅｓｕｍｅ　Ｎｅｘｔ　

中选择要查询的字段、运算符和查询的值，单击“添加查询条　

Ｅｎｄ　Ｓｕｂ　

件”按钮后，添加条件到下面的表格中，在表格中选中一个条　

４．“确定”命令按钮的单击事件过程代码　

件后，单击“删除查询条件”，则从表格中将该条件删除，单　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＯｋ＿Ｃｌｉｃｋ（）　

Ｏｎ　ＥｒｒｏｒＧｏＴｏｅｒｒｄｏ　

击“确定”按钮后，该窗体消失，在查询主窗体中显示查询到　

Ｄｉｍ　ｆｉｎｄＳｔｒ　Ａｓ　Ｓｔｒｉｎｇ　在文本框或组合框中输入或选择的信息　

的记录。单击“取消”时，该窗体消失，不进行查询。　

ＣｌＵｅｒｙＳｔｒ＝　

１．该窗体包含如下主要控件　

ｌｆ　ｃｍｂＦｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　Ｔｈｅｎ　

（１）二个单选按钮（ＯｐｔｉｏｎＢｕｔｔｏｎ），名称分别为ＯｐｔＡｎｄ　

ｉｆｎｄＳｔｒ＝ｅｍｂＦｉｎｄｖａｌｕｅ．Ｔｅｘｔ　

和ＯｐｔＯｒ　，用来选择条件之间的关系运算符。一开始不可用，　

Ｅｌｓｅ　

表格中添加一个条件后，变为可用。　

Ｉｆ　Ｔｒｉｍ（ｔｘｔｆｉｎｄｖａｌｕｅ．Ｔｅｘｔ　＝～Ｔｈｅｌｌ　

ＭｊｓｇＢｏｘ＂请输入查询信息　ｖｂＣｒｉｔｉｃａＩ，　单项条件查询　

（２）三个组合框（ＣｏｍｂｏＢｏｘ），名称分别为Ｃｒａｂ—　

Ｅｘｉｔ　Ｓｕｂ　

ＳｅａｒＩｔｅｍ、ＣｍｂＲｅｌａｔｉｏｎ、ＣｍｂＦｉｎｄｖａｌｕｅ（隐藏）。分别用来显示　

Ｅｎｄ｝ｆ　

要查询的字段和关系运算符“＝、＜、＞、＜＞、＜＝、＞：、　

ｆｉｎｄＳｔｒ＝ｔｘｔｆｉｎｄｖａｌｕｅ．Ｔｅｘｔ　

Ｌｉｋｅ（包含）”。当选择查询项目“性别”和“班级”时，组　

Ｅｎｄ　Ｉｆ　

合框ＣｍｂＦｉｎｄｖａｌｕｅ显示。　

ＩｆＴｒｉｍ（Ｌｅｆｔ（ｃｍｂＲｅｌａｔｉｏｎ．Ｔｅｘｔ　４））＝　ｌｉｋｅ＂’Ｔｈｅｎ　

ＣｌＵｅｒｙＳｔｒ＝ｃｍｂＳｅａｒｌｔｅｒｎ．Ｔｅｘｔ　ｌｉｋｅ　＆　％　ｆｉｎｄ—　

（３）一个文本框（ＴｅｘｔＢｏｘ），名称为ＴｘｔＦｉｎｄｖａｌｕｅ。用来　

Ｓｔｒ＆　％一　ＬＩＫＥ两边有空格　通配符为％　

输入查询的值。当选择查询项目“性别”和“班级”时，该文　

ＥＩｓｅ　

本框显示，组合框ＣｍｂＦｉｎｄｖａｌｕｅ隐藏。　

ＳｅＩｅｃｔ　Ｃａｓｅ　Ｔｒｉｍ（ｃｍｂＳｅａｒＩｔｅｍ．Ｔｅｘｔ）　

（４）一个数据网格控件（ＭＳＦｌｅｘＧｒｉｄ），名称为Ｇｒｉｄ１。　

Ｃａｓｅ　出生年月　日期型字段两边加愕　

用来显示查询的条件。　

与　

糍％毽穗ｌ。毫一ｕ　警　强甏％强蠢　薄　毪强　甏Ｉ臻ｌ誊ｌｌ蠹鬟骥§甏零舞赣嚣强甏毳｜薯ｌ《　缮　强垂％氍善｜Ｉ魏　赣　疆程　誊赣辫罄ｌ甍　氇｜ｕ强爨蠹鼍　

ｌ强　强　蕊　ｇ爨强强警％津｜ｌ琵　强　罐毫薯　强　臻强拜｜≯　｜｜§　

维普资讯

％∞瓤麓ｊ｝　《筏｜　

ｌ　００◇＿ｌｌ　ｌ０ｌｌｌ＿０　ｊ　０　ｌ　Ｉ

　ｌｌ　叠　｜　｜　÷｜繇　爨一鬻鞭强　

｜　

　ｊｌ　｜　撬一簿　

ｌｌＡ　ＡＳ　

（５）四个命令按钮（ＣｏｍｍａｎｄＢｕｔｔｏｎ），名称分别为Ｃｍ—　

ｄＡｄｄｃｏｎｄｉｔｉｏｎ、ＣｍｄＤｅｌｃｏｎｄｉｔｉｏｎ、ＣｍｄＯｋ和ＣｍｄＣａｎｃｅｌ。刚显示　

Ｗｉｔｈ　Ｇｒｉｄ１　设置表格的列数、列宽及固定行显示的列表头　

．

ＦｉｘｅｄＲｏｗｓ＝１　固定的行数为１　

该窗体时，命令按钮ＣｍｄＤｅｌｃｏｎｄｉｔｉｏｎ和ＣｍｄＯｋ不可用。　

图３　

２．窗体的通用——声明段中的代码　

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

Ｄ１ｍ　ｃｏｎｄｉｔｉｏｎＮｏ　Ａｓ　Ｉｎｔｅｇｅｒ　表格中的条件数　

３．窗体的Ｌｏａｄ事件过程代码　

在组合框ＣｍｂＳｅａｒｈｅｍ和ＣｍｂＲｅｌａｔｉｏｎ中分别添加查询项目　

字段名称和关系运算符，在表格控件Ｇｆｉｄｌ中设置列数、列表　

头名称及规定每列的宽度。　

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

＿

Ｌｏａｄ（Ｊ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

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

ｑｕｅｒｙＳｔｒ＝　

Ｆｏｒ　ｉ＝０　Ｔｏ　ｒｓ．Ｆｉｅｌｄｓ，Ｃｏｕｎｔ一２　

ｃｍｂＳｅａｒｌｔｅｍ：Ａｄｄｌｔｅｍ　ｒｓ．Ｆｉｅｌｄｓ㈣，Ｎａｍｅ　

Ｎｅｘｔ　

ｃｍｂＳｅａｒｌｔｅｍ：Ｌｉｓｔｌｎｄｅｘ＝０　

ｃｍｂＲｅｌａｔｉｏｎ　Ａｄｄｌｔｅｍ　：　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄｌｔｅｍ　＞＝　

ｃｍｂＲｅｌａｔｉｏｎ，Ａｄｄｌｔｅｍ　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄｌｔｅｍ　‘　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄｌｔｅｍ　（＝　

ＣｍｂＲｅｌａｔｉｏｎ　Ａｄｄｌｔｅｍ　《＞　

ｃｍｂＲｅｌａｔｉｏｎ．Ａｄｄｌｔｅｍ＂ｌｉｋｅ　

ｃｍｂＲｅｌａｔｉＯ　ｎ．Ｌｉｓｔｌｎｄｅｘ＝Ｏ　

ｔｘｔｆｉｎｄｖａｌｕｅ　Ｔｅｘｔ　

ｃｍｂＦｉｎ￣ａｌＵｅ　Ｖｉｓ　ｅ＝Ｆａｌｓｅ　

ＯｐｔＡｎｄ．Ｅｎａｂｌｅｄ＝ＦａＩｓｅ　

添加第一个条件时　逻辑运算符不可用　

ｏｐｔＯｒ．Ｅｎａｂｌｅｄ＝ＦａＩｓｅ　

．

Ｃｏｌｓ；５　

。

ＣｏｌＷｉｄｔｈ（Ｏ）：１０００　

．

ＣｏｌＷｉｄｔｈ（１）＝１０００　

．

ＣｏｌＷｉｄｔｈ（２）＝１８００　

．

ＣｏｌＷｉｄｔｈ《３）＝１　０００　

。

ＣｏｌＷｉｄｔｈ《４）＝２３００　

．

ＴｅｘｔＭａｔｒｉｘ（Ｏ．Ｏ）＝　序号　

。

ＴｅｘｔＭａｔｒｉｘ（Ｏ，１）；　逻辑关系　

．

ＴｅｘｔＭａｔｒｉｘ（Ｏ，２）　查询项目　

．

ＴｅｘｔＭａｔｒｉｘ（０　３）：　条件关系　

ＴｅｘｔＭａｔｒｉｘ（Ｏ，４）＝　查询信息　

ＥｎｄＷｉｔｈ　

ｃｍｄｄｅｌｃｏｎｄｉｔｉｏｎ．Ｅｎａｂｌｅｄ　Ｆａｌｓｅ　没有添加条件时，删除条　

件无效　

ｃｍｄＯｋ．Ｅｎａｂｌｅｄ，　Ｆａｌｓｅ　确定按钮无效　

ＥｘｉｔＳｕｂ　

ｅｒｒｄｏ：　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ），ｖｂＣｒｉｔｉｃａ　Ｊ，　多项条件查询　

ＥｎｄＳｕｂ　

４．单击组合框ｃｍｂＳｅａｒｈｅｍ时的单击事件过程代码　

当查询项目为“性别”或“班级”时，能在组合框　

ＣｍｂＦｉｎｄｖａｌｕｅ中显示“男”和“女”或表中所有班级字段值，　

供用户选择。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｂＳｅａｒｌｔｅｍ＿Ｃｌｉｃｋ（）　

Ｄｉｍ　ｒｓｃｌａｓｓｎａｍｅ　Ａｓ　ＡＤＯＤＢ．ＲｅＣＯｒｄｓｅｔ　用来在查询的组合　

框中添加字段值　

Ｄｉｍ　ｓｑｌ　Ｓｔｒｉｎｇ　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

Ｓｅｔ　ｒｓｃｌａｓｓｎａｍｅ　Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ　

ｓｑｌ＝＂ｓｅｌｅｃｔ　ｄｉｓｔａｒｃｔ班级ｆｒｏｍ　Ｓｔｕｄｅｎｔｓ＂　

ｒｓｃｌａｓｓｎａｍｅ．　Ｏｐｅｎ　ｓｑｌ，ｃｏｎｔ，ａｄＯｐｅｎＫｅｙｓｅｔ，ａｄＬｏｃｋＯｐｔＩ＿　

ｍｉｓｔｉＣ　

Ｓｅｌｅｃｔ　Ｃａｍｅ　ｃｍｂＳｅａｒｌｔｅｍ　Ｔｅｘ０　

Ｃａｓｅ　性别　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

ｔｘｔｆ　　ｎ　ｄｖａｉｕｅ　ｌ＼ｂ＼售　Ｆａｌｓｅ　、　

ｃｍｂＦｉｎｄｖａＪｕｅ　Ｃｌｅａｒ　

ｅｍｂＦｉｎｄｖａｌｕｅ．Ａｄｄｌｔｅｍ　男　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ａｄｄｌｔｅｍ　女　

ＣｍｂＦｉｎｄｖａｌｕｅ　Ｌｉｓｔｌｎｄｅｘ　０　

Ｃａｓｅ　班级　

ＣｍｂＦｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

ｔｘｔｆｉｎｄｖａｌｕｅ．Ⅵｓｉｂｌｅ＝Ｆａｌｓｅ　

ｃｍｂＦｉｎ

ｄｖａｌｕｅ．ＣＩｅａｒ　清除前面显示在组合框中的内容　

Ｏｏ　Ｗｈｉｌｅ　Ｎｏｔ　ｒｓｃｌａｓｓｎａｍｅ．ＥＯＦ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ａｄｄｌｔｅｍ　ｒｓｃｌａｓｓｎａｍｅ．Ｆｉｅｌｄｓ（Ｏ）．ＶａＩｕｅ　

礴　ｌａｓｓｎａｍｅ．ＭｏｖｅＮｅｘｔ　

Ｌ｛ｏＯｐ　

承ＩＩ　

维普资讯

ｌ　）　ｌ　抟ＡＳ　

Ｓｅｔ　ｒｓｃｌａｓｓｎａｍｅ＝Ｎｏｔｈｉｎｇ　

ｃｍｂＦｉｎｄｖａｌｕｅ．Ｌｉｓｔｌｎｄｅｘ＝０　

Ｃａｓｅ　Ｅｌｓｅ　

ｃｍｂＦｉｎｄｖａｌｕｅ　Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

ｔｘｔｆｉｎｄｖａｌｕｅ。Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

Ｅｎｄ　Ｓｅｌｅｃｔ　

Ｅｘｉｔ　Ｓｕｂ　

ｅｒｒｄｏ：　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ），ｖｂＣｒｉｔｉｃａｌ，　多项条件查询　

Ｒｅｓｕｍｅ　Ｎｅｘｔ　、　

Ｅｎｄ　Ｓｕｂ　

５．“添加查询条件”命令按钮的单击事件过程代码　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＡｄｄｃｏｎｄｉｔｉｏｎ＿Ｃｌｉｃｋ（）　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

Ｉｆ　ｔｘｔｆｉｎｄｖａｌｕｅ。Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　Ｔｈｅｎ　

Ｉｆ　ｔｘｔｆｉｎｄｖａｌｕｅ．Ｔｅｘｔ＝　Ｔｈｅｎ　

ＭｓｇＢｏｘ　请输入查询信息　ｖｂＣｒｉｔｉｃａ１．　多项条件查询　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

ｃｏｎｄｉｔｉｏｎＮｏ：ｃｏｎｄｉｔｉｏｎＮｏ＋１　条件数加１　

Ｇｒｉｄ１。Ｒｏｗｓ：ｃｏｎｄｉｔｉｏｎＮｏ＋１，行数为条件数加　

ｏｐｔＡｎｄ，Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　逻辑运算符有效　

ｏｐｔＯｒ．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

添加查询条件到表格中　

Ｇｒｉｄ１，ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ，０）＝Ｆｏｒｍａｔ（ｃｏｎｄｉｔｉｏｎＮｏ，　

Ｏ０　）　

Ｉｆ　ｃｏｎｄｉｔｉｏｎＮｏ＞１　Ｔｈｅｎ　

Ｉｆ　ｏｐｔＡｎｄ．Ｖａｌｕｅ＝Ｆａｌｓｅ　Ａｎｄ　ｏｐｔＯｒ．Ｖａｌｕｅ＝Ｆａｌｓｅ　Ｔｈｅｎ　

ＭｓｇＢｏｘ　请选择逻辑运算符　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｎｄ　Ｉｆ　

Ｇｒｉｄ１．ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ，１）＝　ｌｌｆ（ｏｐｔＡｎｄ　Ｖａｌｕｅ＝　

Ｔｒｕｅ，　ＡＮＤ　，　ＯＲ　）　

Ｅｌｓｅ　

Ｇ　１，ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ，１）＝～　

第一行不显示逻辑关系　

Ｅｎｄ　Ｉｆ　

Ｇ　ｒｉｄ１．ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ，２）＝ｃｍｂＳｅａｒｌｔｅｍ，Ｔｅｘｔ　

Ｇｒｉｄ１，ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ，３）＝ｃｍｂＲｅｌａｔｉｏｎ，Ｔｅｘｔ　

Ｉｆ　ｔｘｔｆｉｎｄｖａｌｕｅ．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　Ｔｈｅｎ　

Ｇｒｉｄ１．ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ　４》＝ｔｘｔｆｉｎｄｖａｌｕｅ．Ｔｅｘｔ　

Ｅｌｓｅ　

Ｇｒｉｄ１．ＴｅｘｔＭａｔｒｉｘ（ｃｏｎｄｉｔｉｏｎＮｏ，４）＝ｃｍｂＦｉｎｄｖａｌｕｅ　Ｔｅｘｔ　

Ｅｎｄ　Ｉｆ　

ｃｍｄｄｅｌｃＯｎｄｉｔｉＯｎ，Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

ｃｍｄＯｋ．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

Ｅｘｉｔ　Ｓｕｂ　

ｅｒｒｄＯ：　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ），ｖｂＣｒｉｔｉｃａ１．　多项条件查询　

２００６．１０　

毫■■翟技巧与　

６．“删除查询条件”命令按钮的单击事件过程代码　

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

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

Ｉｆ　Ｇｒｉｄ１１．Ｒｏｗｓ＜＝１　Ｔｈｅｎ　Ｅｘｉｔ　Ｓｕｂ　无条件时不删除　

ＤｉｍＩ　ｉ　Ａｓ　Ｉｎｔｅｇｅｒ，ｊＡｓ　Ｉｎｔｅｇｅｒ　将选择的行后面的所有行向前移　

Ｆｏｒ　Ｇｒｉｄ　ＲｏｗＳｅｌｌ＋１　Ｔｏ　Ｇｒｉｄ１。Ｒｏｗｓ一１　｛为行号　

Ｆｏｒ　Ｊ＝０　Ｔｏ４　、　号　

Ｇｒｉｄ１．ＴｅｘｔＭａｔｒｉｘ（＿ｌ一，．ｊ）＝Ｇｒｉｄ１．ＴＩｅｘｔＭａｔｒｉｘ　ｊ）　

Ｎｅｘｔ。Ｊ　Ｉ　

Ｇｒｉｄ、．ＴｅｘｔＭａｔｒｉｘ　ｉ一、１　０、　Ｆｏｒｍａｔ（ｉ一、．　Ｑ　、　

一　

愚。薅号逢镶　ｌｌ。　

Ｎ　

Ｇ

ｅｘｔ

ｒ－ｄ

Ｉ　ＴｅｘｔＭａｔ　

１

　ｉ

．　

ｒｉｘ　

（１、　１　、：～．）＝～　．第一行不显示逻第　警　辑运算符　Ｉ　

ｌｆ　Ｇｒｉｄ１．Ｒｏｗｓ＞　Ｔｈｅｎ　Ｇｒｉｄ１．Ｒｏｗｓ＝Ｇｒｉｄ１．Ｒｏｗｓ－１　

。　数憾　。　

ｃｏｎｄｉｔｉｏｎＮｏ；０ＤｎｄｉｔｉｏｎＮｏ一，　

ＩｆＧｒｉｄ１．Ｒｏｗｓ《＝１　Ｔｈｅｎ　

ｃｍｄｄｅＩｃｏｎｄｉｔｉｏｎ．Ｅｎａｂｌｅｄ；ＦａＩｓｅ　

ｃｍｄＯｋ　Ｅｎａｂｌｅｄ；Ｆａｌｓｅ　

ＥｎｄＩｆ　

ＥｘｉｔＳｕｂ　

ｅｒｒｄｏ：　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅ　ｒｒ）￣ｖｂＣｒｉｔｉｃａｌ，　多项条件查询　

７．“确定”命令按钮的单击事件过程代码　

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

＿

Ｃｌｉｃｋ（、　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒｄｏ　

Ｄｌｍ　ｓｔｒ　Ａｓ　Ｓｔｒｉｎｇ　每一行的条件表达式　＿　

ｍ　ｃｏＩ、Ａｓ　Ｓｔｒｉｎｇ　镰—　值　

趴ｍ　ｃｏｌ２　Ａｓ　Ｓｔｒｉｎｇ　镰二　值　

Ｄｉｍ　ｃｏｌ３　Ａｓ　Ｓｔｒｉｎｇ　第三列的值　

Ｄｉｍ　ｃｏｌ４　Ａｓ　Ｓｔｒｉｎｇ　第四列的值　

ｃｏｎｄｉｔｉｏｎＮｏ；０　Ｔｈｅｎ　ＭｓｇＢｏｘ　请选择查询条件　

ｑｕｅｒｙＳｔ　＝　

Ｄ＿ｍ　ｉ　Ａ　ｎｔｅｇｅｒ　

Ｑ¨ｉ＝、Ｔｏ　ｃｏｎｄｉｔｉｏｎＮｏ　

ｓｔｒ＝　

ｃｏ门＝Ｔｒｉｍ（Ｇｒｉｄｌ　ＴｅｘｔＭａｔｒｉｘ（『Ｊ１））　得到逻辑关系运算符　

ｃｏ１２＝Ｔｒｉｍ（Ｇｒｉｄ　ＴｅｘｔＭａｔｒｉｘ（ｉ．２Ｉ）　查询项目　

ｃｏｌ３；Ｔｎｍ（Ｇｒｉｄ１￣ＴｅｘｔＭａｔｒｉｘ（ｉ，３Ｉ）　关系运算符　

ｃｏｌ４＝Ｔｒｉｍ（Ｇｒｉｄ１．ＴｅｘｔＭａｔＦ＿ｘＩ　ｉ．４）　查询值　＿　

Ｉｆ　ｃｏｌ３＝　ｌｉｋｅ　Ｔｈｅｎ　

ｓｔｒ＝ｃｏｌ２＆　＆ｃｏｌ３＆　％　＆ｃｏｌ４＆　％　

Ｅｌｓｅｌ’ｃｏ　＝　出　｛　主｝旯　＿【　ｅｎ　

ｓｔｒ＝ｃｏｌ２＆。ｃｏｌ３＆　＆ｃｏｌ４＆　日期型字段力皿井号　

Ｅｌｓｅ　ｃｏｌ＼２；　入学息　＂Ｔｈｅｎ　ｔ数谨字段　

ｓｔｒ；ｃｏｌ２＆Ｃｏｌ３＆　ｃｏｌ４　

｜ｌ｜　

（下转第６７页）　

维普资讯

ｄｅｅｐＣｌｏｎｅＯｂｊｅｃｔｓ（ｏｂｊＬｉｓｔ．ｍｏｄｅｌＳｐａｃｅｌｄ．ｉｄＭａｐ）　

ＡｃＤｂｌｄＭａｐｐｉｎｇｌｔｅｒ　ｉｔｅｒ（ｉｄＭａｐ）：　

ｆｏｒ（ｉｔｅｒ．ｓｔａｒｔ（）：！ｉｔｅｒ．ｄｏｎｅ（）：ｉｔｅｒ．ｎｅｘｔ（））（　

ＡｃＤｂｌｄＰａｉｒ　ｉｄＰａｉｒ：　

＃ｉｍｐｏｒｔ　ｔ　Ｐｒｏｇｒａｍ　Ｆｉｌｅｓ＼Ｃｏｍｍｏｎ　Ｆｉｌｅｓ＼ＳＹＳＴＥＭ＼ＡＤＯ｜　

ｍｓａｄｏｌ　５．ｄｌｌ　ｒｅｎａｍｅ（＂ＥＯＦ　．　ＡＤＯＥＯＦ　）　

ｕｓｉｎｇ　ｎａｍｅｓｐａｃｅ　ＡＤＯＤＢ；　

ｉｔｅｒ．ｇｅｔＭａｐ（ｉｄＰａｉｒ）：　

ｉｆ（！ｉｄＰａｉｒ．ｉｓＣｌｏｎｅｄ（））　

ｃｏｎｔｉｎｕｅ；　

三、结语　

本文所描述的是通过ＡＵＴＯＣＡＤ的二次开发，通过操作　

ｄｅｓｉｄ．ｓｅｔＦｒｏｍＯＩｄｌｄ《ｉｄＰａｉｒ．ｖａｌｕｅ（）．ａｓＯＩｄｌｄ（））　

）　

）　

ＣＡＤ二维图的部件轮廓，可以快速精确计算出该部件三维实体　

的体积和Ｉ重量，在产品设计中很有使用意义。　

６．ＡＲＸ程序中使用ＡＤＯ数据库技术　

参考文献　

１．ａｖｉｄ　Ｊ．Ｋｒｕｇｌｉｎｓｋｉ，Ｓｃｏｔ　Ｗｉｎｇｏ，Ｇｅｏｒｇｅ　Ｓｈｅｐｈｅｒｄ著．　

将部件的材料信息存储在数据库中，并在对话框中对数据　

库记录进行添加、修改、删除，在项目中是利用ＡＤＯ数据库　

技术进行操作的（注意：在ｓｔｄＡｆｘ．ｈ文件中添加组件的引　

用）。　

ＶＩＳＵＡｌ＿　Ｃ＋＋技术内幕６．０第五版．北京希望电子出版社，　

２０００　

２．俊昌、李旭东编著．ＡｕｔｏＣＡＤ　ｏｂｊｅｃｔＡＲＸ　２０００开发　

技术指南．电子工业出版社，１９９９　

／／Ｃ０Ｍ接口支持类　

＃ｉｎｃｌｕｄｅ＜ａｔｌｃｏｎｖ．ｈ＞　

ｎｃｌｕｄｅ＜ｃｏｒｅｄｅｆ．ｈ＞　

３．李世国编著．ＡＵＴＯＣＡＤ高级开发技术一ＡＲＸ编程及　

应用．机械工业出版社，１９９９　

（收稿日期：２００６年８月６　Ｅ１）　

／／描述ＡＤＯ接口　

（上接第５０页）　

Ｅｌｓｅ　字符字段加单引号　

ｓｔｒ＝ｃｏｌ２＆ｃｏｌ３＆…

Ｅｎｄ　Ｉｆ　

成了单项条件查询。单项查询是多项查询的特例。该程序可以　

满足各种查询条件的需要。　

２．设置连接数据库的字符串时，可在窗体上添加ＡＤＯ数　

＆ｃｏｌ４＆…　

据控件，在其属性页中通过“生成”连接字符串向导来生成，　

将生成的字符串复制到程序代码中，然后再将ＡＤＯ数据控件　

删除即可。这样可避免繁琐的输入或出错。　

３．无论是单项查询还是多项查询，生成查询条件字符串　

时，要根据查询的字段类型和运算符生成合法的表达式，这是　

最容易出错的地方。　

４．所有照片文件单独放在一个文件夹中，而不是按照通　

常的做法放在数据库中，这样可简化照片的显示。不过照片文　

ｑｕｅｒｙＳｔｒ＝ｑｕｅｒｙＳｔｒ＆ｃｏｌ１＆　

Ｎｅｘｔｉ　

Ｍｅ．Ｈｉｄｅ　

＆ｓｔｒ＆　

Ｅｘｉｔ　Ｓｕｂ　

ｅｒｒｄＯ：　

ＭｓｇＢｏｘ　Ｅｒｒｏｒ（Ｅｒｒ），ｖｂＣｒｉｔｉｃａｌ，　多项条件查询　

Ｍｅ．Ｈｉｄｅ　

Ｅｎｄ　Ｓｕｂ　

８．“取消”命令按钮的单击事件过程代码　

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

ｑｕｅｒｙＳｔｒ＝　

Ｍｅ．Ｈｉｄｅ　

Ｅｎｄ　Ｓｕｂ　

件名最好要有规律，如：该文中以学号为－文件名。　

此程序在ＶＢ６＋ＳＱＬ　Ｓｅｒｖｅｒ２０００环境下调试通过。　

参考文献　

１．李晓黎等．Ｖｉｓｕａｌ　Ｂａｓｉｃ＋ＳＱＬ　Ｓｅ￣ｅｒ数据库应用系统　

开发与实例．人民邮电出版社，　２００３．８　

七、总结　

１．‘本程序提供了利用ＡＤＯ对象对ＳＱＬ　Ｓｅｒｖｅｒ２０００数据库　

２．龚沛曾等．Ｖｉｓｕａｌ　Ｂａｓｉｃ程序设计简明教程（第二版）　

高等教育出版社，２００３．３　

３．刘中甫．在ＶＢ＋Ａｃｃｅｓｓ系统中实现多项条件查询．电　

脑编程技巧与维护，２００３．９　

（收稿日期：２００６年７月９日）　

进行连接并查询记录的方法，按照某一个字段查询时，可采用　

单项条件查询。对于多个字段进行查询时可采用多项条件查　

询，其中多项条件查询时，如果只对单个字段进行查询，则变