內容提要 主要介紹在數(shù)據(jù)庫管理系統(tǒng)中實現(xiàn)模糊查詢的方法與技巧，提供了能實現(xiàn)真正模糊查詢的二個通用函數(shù)的源程序，特別是介紹了結構化查詢語言SQL中鮮為人知的通配符的使用方法。

關鍵詞 FoxPro 模糊查詢 SELECT-SQL 通配符

在數(shù)據(jù)庫管理系統(tǒng)中，查詢是一個很重要的內容。然而，在多數(shù)情況下人們不能準確知道作為查詢條件的字段內容，如：某字段內容為“涪陵師范高等專科學校”，查詢者可能只知道其簡稱“涪陵師專”或“涪師專”，這時，為保證能查到滿足條件的數(shù)據(jù)記錄，只能進行模糊查詢。下面從編程的角度談談在FoxPro 2.5b中，實現(xiàn)模糊查詢的方法。

一、 簡單的模糊查詢方法

① 利用比較操作符“=”進行模糊查詢。先把SET EXACT的設置置為OFF，這時，“=”用于兩個字符表達式之間作比較，其規(guī)則是：“=”右邊的字符逐個與“=”左邊相同位置的字符進行比較，只要遇到其中一個字符不相等，或者“=”右邊的字符表達式結束，比較操作就結束。所以，"abc"="abc"，"abc"="ab"，"ab_"="ab"，"ab"=""的比較結果均為邏輯真(.T.)?？梢姡@種方法的模糊性是不能令人滿意的。

② 利用“$”進行包含比較，其模糊查詢的效果就比用“=”時好得多。這種方法是在“$”右邊的字符表達式中查找“$”左邊的字符表達式，若找到返回邏輯真 (.T.)，否則返回邏輯假(.F.)。用這種方法只要“$”左邊的字符表達式的每一個字符在“$”右邊的字符表達式中存在且位置不間斷，查找就能成功，然而對于諸如前面提到的“涪陵師專”或“涪師專”之類的簡稱，其查找結果為邏輯假(.F.)。

由此可見，直接利用“=”和“$”進行比較操作是不能太“模糊”的。

二、查詢條件為縮略語或簡稱的模糊查詢方法

縮略語或簡稱在地名、單位名稱中使用非常廣泛。通常，縮略語或簡稱是由全稱中的某些排列位置不連續(xù)的字符組成的，因此，通過設置不同長度的字符串進行比較的規(guī)則，或者利用包含比較符“$”，是不能對縮略語或簡稱進行模糊查詢的。這時可編寫一通用的自定義函數(shù)，將用戶輸入的查詢條件（<字符串 2>）與字符型字段變量（<字符串1>）進行逐字比較，如果<字符串2>是<字符串1>的縮略語或簡稱，則返回邏輯真(.T.)否則返回邏輯假(.F.)，從而實現(xiàn)模糊查詢。

下面將作者所編寫的自定義函數(shù)介紹給讀者，以供參考。

設計思想：此函數(shù)必須是一個通用函數(shù)。為此，執(zhí)行時可先接受二個參數(shù)──<字符串1>和<字符串2>。從<字符串 2>的左邊開始取其第一、二個字符X1，用AT( )函數(shù)測試X1在<字符串1>中的位置S1，如果S1不為0，就將<字符串1>中包含X1以及左邊部分的字符截掉，并取< 字符串2>中的第三、四個字符X2，用AT( )函數(shù)測試X2在<字符串1>的剩余部分中的位置S2，若S2不為0，就將<字符串1>的剩余部分中包含X2以及左邊部分的字符截掉……，直到將<字符串2>中的字符取完并在<字符串1>中測試完為止，最后本函數(shù)返回邏輯真（.T.）。在這個過程中只要有一次測試不成功（即Sn=0），則退出本函數(shù)并返回邏輯假（.F.）。因為一個漢字占二個ASCII字符，所以每次取二個相鄰字符進行測試（讓 ZFBJ.PRG中的K=2）。這樣做，一是可以減少測試比較的次數(shù)，提高程序運行速度。二是當<字符串2>中含有數(shù)字、字母等半角字符時，可以減少滿足條件的記錄數(shù)目，提高查詢的命中率。然而，若查詢條件中含有英文縮寫，則每次只能取一個ASCII字符進行測試（讓ZFBJ.PRG中的K=1）。

本函數(shù)的源程序如下：
* 程序名稱：ZFBJ.PRG
* 程序功能：比較<字符串2>是否為<字符串1>的縮略語
* 調用格式：ZFBJ(<字符串1>,<字符串2>)
* 通常<字符串1>是一個字符型字段變量
* 返 回 值：邏輯值 .T. 或 .F.
* 使用環(huán)境：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，其值為用戶輸入的用戶名稱的簡稱，如“涪師專”，現(xiàn)在要在KTJBK.DBF中查詢用戶名稱（字段名）為“涪陵師范高等?？茖W校”，或為“涪陵師專”，或為“涪師專”的全部記錄，可以先將滿足條件的記錄拷貝到一臨時數(shù)據(jù)庫TEMP.DBF中，然后再瀏覽，瀏覽完畢刪除臨時數(shù)據(jù)庫TEMP.DBF。其程序如下：

m.field="涪師專"
SELECT 0
USE KTJBK
COPY TO TEMP.DBF FOR ZFBJ(用戶名稱,m.field)
SELECT 0
USE TEMP
BROWSE NOEDIT
USE
DELETE FILE

TEMP.DBF
SELECT KTJBK
USE
通過上面介紹的自定義函數(shù)實現(xiàn)了真正的模糊查詢，然而令人遺憾的是它的速度表現(xiàn)總使人感到美中不足。幸好在FoxPro中引入了結構化查詢語言SELECT-SQL。

三、 利用FoxPro中SELECT-SQL語句的模糊查詢方法

結構化查詢語言SQL是FoxPro中值得驕傲的特色之一。利用SQL的SELECT語句
可以非常方便、極其快速地進行十分復雜的查詢操作。特別值得推薦的是ELECT-SQL語句中的WHERE參數(shù)支持通配符“%（百分符號）”和“_（下劃線符號）”，因此，對于查詢條件為縮略語或簡稱的情況，可以非常簡單地實現(xiàn)真正的模糊查詢。這里，百分符號“%”代表0個或0個以上的任意字符，下劃線符號“_”代表1個任意字符，它們只能與運算符 LIKE搭配使用。

使用舉例：設內存變量m.field，其值為用戶輸入的用戶名稱的簡稱，如“涪師專”，現(xiàn)在要在KTJBK.DBF中查詢用戶名稱（字段名）為“涪陵師范高等?？茖W校”，或為“涪陵師專”，或為“涪師專”的全部記錄，可以用下面的一段程序實現(xiàn)：

m. field="涪師專"
mc_cxtj="%"
FOR i=1 TO LEN(ALLTRIM(m.field)) STEP 2
mc_cxtj=mc_cxtj+SUBSTR(ALLTRIM(m.field),i,2)+"%"
ENDFOR
SELECT * ;
FROM KTJBK ;
WHERE KTJBK.用戶名稱 LIKE (mc_cxtj) ;
INTO CURSOR TEMP
程序說明：本程序運行時，先將m.field = "涪師專" 中插入四個通配符“%”，得到mc_cxtj ="%涪%師%專%"，然后利用SQL的SELECT語句，從數(shù)據(jù)庫KTJBK.DBF中選出字段變量“用戶名稱”符合“%涪%師%專%”格式的所有記錄，輸出到一個虛擬臨時數(shù)據(jù)庫TEMP.DBF中。

利用FoxPro中的結構化查詢語言SELECT-SQL可以編寫出很漂亮的通用查詢程序。筆者在數(shù)據(jù)庫管理系統(tǒng)的開發(fā)實踐中，曾用FoxPro的屏幕生成器編寫過一通用查詢程序，其通用性和執(zhí)行速度表現(xiàn)都非常好（本人愿拋磚引玉，奉獻給有興趣的《軟件世界》讀者，見附錄），限于篇幅這里就不詳細介紹了。

附錄：《一個真正的通用查詢程序》見磁盤文件TYCX.TXT(純文本文件)或
TYCX.DOC(WORD97文檔)

參考文獻：

1. 江英，楊欣 等翻譯. FoxPro 2.5 使用與參考大全，清華大學出版社，1995
2. 章立民. FoxPro 2.5 for DOS 程序設計——提高篇，人民郵電出版社，1994