数据库管理系统中的模糊查询技术
内容提要 主要介绍在数据库管理系统中实现模糊查询的方法与技巧，提供了能实现真正模糊查询的二个通用函数的源程序，特别是介绍了结构化查询语言SQL中鲜为人知的通配符的使用方法。
关键词 FoxPro 模糊查询 SELECT-SQL 通配符
在数据库管理系统中，查询是一个很重要的内容。然而，在多数情况下人们不能准确知道作为查询条件的字段内容，如：某字段内容为“涪陵师范高等专科学校”，查询者可能只知道其简称“涪陵师专”或“涪师专”，这时，为保证能查到满足条件的数据记录，只能进行模糊查询。下面从编程的角度谈谈在FoxPro 2.5b中，实现模糊查询的方法。
一、 简单的模糊查询方法
① 利用比较操作符“=”进行模糊查询。先把SET EXACT的设置置为OFF，这时，“=”用于两个字符表达式之间作比较，其规则是：“=”右边的字符逐个与“=”左边相同位置的字符进行比较，只要遇到其中一个字符不相等，或者“=”右边的字符表达式结束，比较操作就结束。所以，"abc"="abc"，"abc"="ab"，"ab_"="ab"，"ab"=""的比较结果均为逻辑真(.T.)。可见，这种方法的模糊性是不能令人满意的。
② 利用“$”进行包含比较，其模糊查询的效果就比用“=”时好得多。这种方法是在“$”右边的字符表达式中查找“$”左边的字符表达式，若找到返回逻辑真(.T.)，否则返回逻辑假(.F.)。用这种方法只要“$”左边的字符表达式的每一个字符在“$”右边的字符表达式中存在且位置不间断，查找就能成功，然而对于诸如前面提到的“涪陵师专”或“涪师专”之类的简称，其查找结果为逻辑假(.F.)。
由此可见，直接利用“=”和“$”进行比较操作是不能太“模糊”的。
二、查询条件为缩略语或简称的模糊查询方法
缩略语或简称在地名、单位名称中使用非常广泛。通常，缩略语或简称是由全称中的某些排列位置不连续的字符组成的，因此，通过设置不同长度的字符串进行比较的规则，或者利用包含比较符“$”，是不能对缩略语或简称进行模糊查询的。这时可编写一通用的自定义函数，将用户输入的查询条件（<字符串2>）与字符型字段变量（<字符串1>）进行逐字比较，如果<字符串2>是<字符串1>的缩略语或简称，则返回逻辑真(.T.)否则返回逻辑假(.F.)，从而实现模糊查询。
下面将作者所编写的自定义函数介绍给读者，以供参考。
设计思想：此函数必须是一个通用函数。为此，执行时可先接受二个参数──<字符串1>和<字符串2>。从<字符串2>的左边开始取其第一、二个字符X1，用AT( )函数测试X1在<字符串1>中的位置S1，如果S1不为0，就将<字符串1>中包含X1以及左边部分的字符截掉，并取<字符串2>中的第三、四个字符X2，用AT( )函数测试X2在<字符串1>的剩余部分中的位置S2，若S2不为0，就将<字符串1>的剩余部分中包含X2以及左边部分的字符截掉……，直到将<字符串2>中的字符取完并在<字符串1>中测试完为止，最后本函数返回逻辑真（.T.）。在这个过程中只要有一次测试不成功（即Sn=0），则退出本函数并返回逻辑假（.F.）。因为一个汉字占二个ASCII字符，所以每次取二个相邻字符进行测试（让ZFBJ.PRG中的K=2）。这样做，一是可以减少测试比较的次数，提高程序运行速度。二是当<字符串2>中含有数字、字母等半角字符时，可以减少满足条件的记录数目，提高查询的命中率。然而，若查询条件中含有英文缩写，则每次只能取一个ASCII字符进行测试（让ZFBJ.PRG中的`K=1）。
本函数的源程序如下：
* 程序名称：ZFBJ.PRG
* 程序功能：比较<字符串2>是否为<字符串1>的缩略语
* 调用格式：ZFBJ(<字符串1>,<字符串2>)
* 通常<字符串1>是一个字符型字段变量
* 返 回 值：逻辑值 .T. 或 .F.
* 使用环境：FoxPro 2.5b
PARAMETERS m.FIELD, m.INMC
PRIVATE ALL
IF (PARAMETERS( ) < 2) ;
OR EMPTY(ALLTRIM(m.FIELD)) ;
OR EMPTY(ALLTRIM(m.INMC))
RETURN .F.
ENDIF
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
J = LEN(ALLTRIM(m.INMC))
K=2
FOR I = 1 TO J STEP K
m.MC = SUBSTR(ALLTRIM(m.INMC),I,K)
MCWZ = AT(m.MC,ALLTRIM(m.FIELD))
IF MCWZ<>0
m.FIELD = SUBSTR(ALLTRIM(m.FIELD),MCWZ+K)
fhz = .T.
ELSE
fhz = .F.
EXIT
ENDIF
ENDFOR
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
RETURN fhz
使用举例：设内存变量m.field，其值为用户输入的用户名称的简称，如“涪师专”，现在要在KTJBK.DBF中查询用户名称（字段名）为“涪陵师范高等专科学校”，或为“涪陵师专”，或为“涪师专”的全部记录，可以先将满足条件的记录拷贝到一临时数据库TEMP.DBF中，然后再浏览，浏览完毕删除临时数据库TEMP.DBF。其程序如下：
m.field="涪师专"
SELECT 0