一、引言

基于数据库的信息管理系统，最核心的功能是将数据存储到数据库中，并可以对数据进行增加、修改、删除、查询等功能。其中查询功能更是用户经常使用的功能，一个可改变条件的灵活、快捷、准确的查询会给用户带来极大的方便，也给软件本身带来了更大的价值。

二、设计

1.对象的添加

在VB6.0环境中，建立一个标准的EXE工程，在工程的部件中添加ADO、MSHFlexGrid两个控件，然后在窗体中添加两个MSHFlexGrid对象，分别改名为Grid1和Grid2，添加三个Command按钮Command1，做成控件数组，添加两个Command按钮，分别改名为Cmd_confirm、Cmd_cancel，最后添加四个Combo控件Combo1，做成控件数组。

2.控件的功能

Grid1：查询条件输入区，初始值设为2行，5列。

Grid2：查询结果显示区，可根据查询结果，自动调整行列，并显示记录。

Command1(0): Caption属性为“增加行”，具有为Grid1增加行数的功能。

Command1(1): Caption属性为“删除行”，具有为Grid1删除行数的功能。

Command1(2): Caption属性为“清除条件”，具有清除查询条件的功能。

Cmd_confirm：根据Grid1中的查询条件，查询数据的功能。

Cmd_cancel：退出查询功能。

Combo1(0)：提供连接条件“And”和“or”。

Combo1(1)：提供查询的内容（表或视图中字段对用的汉字别名）。

Combo1(2)：提供查询的关系条件（“=”、“>”等）。

Combo1(3)：提供Combo1(4)对应的查询字段的值。

Combo1(4)：与Combo1(1)同步，提供查询的内容（表或视图中的字段名）。

三、代码

1.自定义的对象及变量

Option Explicit

Public cn As ADODB.Connection         '数据库的连接对象

Public rs As ADODB.Recordset          '数据库的记录集对象

Public strsumdemand As String         '通用查询求和语句

Public strcondition As String         '通用查询条件

'-------------------------需要编程者根据要查询的表或视图来改变的条件

Public constr As String               '数据库连接字符串

Public strsql As String               '传递查询条件（字段无汉字别名）

Public strtable As String             '传递查询表名

Public strdemand As String             '通用查询语句（字段具有汉字别名）

'-------------------------------------------------------