;;VFP因它簡單易學，可快速建立應(yīng)用軟件而深受廣大程序員喜愛，但其數(shù)據(jù)庫系統(tǒng)不安全也令廣大用戶非常頭痛。隨著MS SQL Server數(shù)據(jù)庫系統(tǒng)的推廣應(yīng)用，其強大的安全性能普遍受到好評。筆者在長期的編程實踐中，發(fā)現(xiàn)利用VFP的SQL pass-through(SPT)技術(shù)結(jié)合MS SQL Server數(shù)據(jù)庫系統(tǒng)，也能像VB、Delphi、PowerBuilder一樣輕松開發(fā)出優(yōu)秀的客戶/服務(wù)器(C/S)應(yīng)用軟件。現(xiàn)通過編寫一個簡單的通信錄例子和廣大VFP愛好者共同探討。 一、服務(wù)器端MS SQL Server數(shù)據(jù)庫設(shè)計 1. 在MS SQL Server中建立名為“SFXT”的數(shù)據(jù)庫。 2. 在SFXT數(shù)據(jù)庫中建立名為“通信錄”的數(shù)據(jù)表，表結(jié)構(gòu)如下： 列名（字段名）　數(shù)據(jù)類型　長度 姓名 chr 8 生日 datetime 8 電話 chr 11 email chr 30 并將姓名設(shè)置為主鍵。 3. 在“SFXT”數(shù)據(jù)庫中建立查詢出所有記錄的存儲過程。 SP_SearchAll CREATE PROCEDURE [SP_SearchAll] AS select * from 通信錄 order by 姓名 return 4. 在“SFXT”數(shù)據(jù)庫中建立插入新記錄的存儲過程 SP_InsertData。 CREATE PROCEDURE [SP_InsertData] @name [char] (10)， @birthday [datetime] ， @telephone [char] (11)， @email [char] (30) AS insert into 通信錄(姓名，生日，電話，email) values (@name，@birthday，@telephone，@email) return 二、客戶端VFP的SQL pass-through技術(shù)設(shè)計 1. 建立如(^15020603b^)的VFP表單界面。 2. 建立名為“SFXT”的ODBC數(shù)據(jù)源連接MS SQL Server中的SFXT數(shù)據(jù)庫。 可通過執(zhí)行上面VFP表單的按鈕“建立OBDC數(shù)據(jù)源”來完成；或者通過運行Windows控制面板中的“OBDC數(shù)據(jù)源”來完成。主要設(shè)置包括選擇SQL Server驅(qū)動程序，通信協(xié)議，登錄標識與密碼等。 “建立OBDC數(shù)據(jù)源”按鈕.CLICK事件： *函數(shù)說明SQLSTRINGCONNECT([cConnectString]) *省略連接字符串cConnectString時顯示''SQL數(shù)據(jù)源''對話框，可選擇或新建數(shù)據(jù)源 sqlstringconnect() 3. 兩種連接MS SQL Server數(shù)據(jù)源的方式。 使用現(xiàn)有數(shù)據(jù)源名稱建立連接，“建立連接方式1”按鈕.CLICK事件。 public vodbc,vuser,vpwd,vconn vodbc='sfxt' &&連接SQL SERVER數(shù)據(jù)庫ODBC數(shù)據(jù)源名稱 vuser='sa' &&訪問SQL SERVER數(shù)據(jù)庫的登錄用戶名，sa為系統(tǒng)用戶 vpwd='5213' &&用戶登錄密碼，為sa系統(tǒng)用戶設(shè)置的密碼 vconn=SQLCONNECT(vodbc, vuser,vpwd) if vconn>0 messagebox('連接成功！',,'ODBC數(shù)據(jù)源') else messagebox('連接失敗！',,'ODBC數(shù)據(jù)源') endif 使用連接字符串建立數(shù)據(jù)源連接，“建立連接方式2”按鈕.CLICK事件。 public vconn vconn=SQLSTRINGCONNECT('dsn=sfxt:uid=sa:pwd=5213') if vconn>0 messagebox('連接成功！'，，'ODBC數(shù)據(jù)源') else messagebox('連接失敗！'，，'ODBC數(shù)據(jù)源') endif 4. 數(shù)據(jù)源連接的主要參數(shù)設(shè)置，“活動連接屬性設(shè)置”按鈕.CLICK事件。 * 注：用函數(shù)sqlgetprop()可返回設(shè)置的參數(shù)值 sqlsetprop(vconn，''asynchronous''，.f.) &&取假值時為結(jié)果集同步返回： 取真值時為異步返回 sqlsetprop(vconn,''ConnectTimeOut'',15) &&連接超時等待秒數(shù)設(shè)置，可取值0至600 sqlsetprop(vconn,''IdleTimeout'',0)&&空閑超時間隔秒數(shù)，取值0為無限期超時等待 sqlsetprop(vconn,''Transactions'',1) &&取值1時為自動處理遠程事務(wù)：取值2時為手工處理 5. “執(zhí)行存儲過程查詢數(shù)據(jù)”按鈕.CLICK事件。 *函數(shù)說明SQLEXEC(nConnectionHandle, [cSQLCommand， [CursorName]]) *nConnectionHandle 當前數(shù)據(jù)源活動連接句柄 *cSQLCommand執(zhí)行SQL SERVER存儲過程的SQL語句表達式 *CursorName返回執(zhí)行結(jié)果臨時表的名稱 sqlexec(vconn,''execute SP_SearchAll'',''我的通信錄'') browse 6. “執(zhí)行SQL語句查詢數(shù)據(jù)” 按鈕.CLICK事件。 *函數(shù)說明SQLEXEC(nConnectionHandle, [cSQLCommand, [CursorName]]) *nConnectionHandle 當前數(shù)據(jù)源活動連接句柄 *cSQLCommand需發(fā)送SQL語句表達式 *CursorName返回執(zhí)行結(jié)果臨時表的名稱 SQLEXEC(vconn, 'SELECT * FROM 通信錄', '我的通信錄') browse 7. “向存儲過程傳替參數(shù)插入新記錄” 按鈕.CLICK事件。 local vname,vbirthday,vtelephone,vemail,vsql *隨機產(chǎn)生新記錄舉例 vname = '姓名'+sys(3) &&姓名 vbirthday = dtoc(date()-int(rand()*10000)) &&生日 vtelephone = sys(3) &&電話 vemail = sys(3)+'@hotmail.com' &&電子郵箱 *將傳遞到存儲過程的參數(shù)轉(zhuǎn)換成字符串，并加引號形成SQL語句。 vsql=''execute SP_InsertData ''+'''''+vname+''','''+vbirthday+''','''+vtelephone+''','''+vemail+''''' if sqlexec(vconn，vsql)>0 &&發(fā)送SQL語句 messagebox('插入新記錄成功！'，，'信息') else messagebox('插入新記錄不成功！'，，'信息') endi sqlexec(vconn，''execute SP_SearchAll''，''我的通信錄'') browse 8. “設(shè)置當前表的屬性修改數(shù)據(jù)” 按鈕.CLICK事件。 * 注：用函數(shù)cursorgetprop()可返回設(shè)置的參數(shù)值 cursorsetprop('BatchUpdateCount',100) &&發(fā)送到緩沖表的遠程數(shù)據(jù)源的更新指令的數(shù)目 cursorsetprop('Buffering',3) &&設(shè)置當前表為開放式行緩沖 cursorsetprop('FetchSize',-1)&&從遠程表中提取全部查詢記錄 cursorsetprop('KeyFieldList','姓名')&&指定遠程表的主關(guān)鍵字段 cursorsetprop('SendUpdates',.t.) &&當前緩沖表更改內(nèi)容時發(fā)送SQL語句更新遠程表 cursorsetprop('Tables','通信錄') &&指定連接的遠程表名 *本地緩沖表與遠程表字段對應(yīng)關(guān)系 cursorsetprop('UpdateNameList','姓名 通信錄.姓名,生日 通信錄.生日,電話 通信錄.電話,email 通信錄.email') *指定可更新字段列表 cursorsetprop('UpdatableFieldList','姓名,生日,電話,email') cursorsetprop('UpdateType',1) &&遠程表更新方式，替換方式 cursorsetprop('WhereType',3)&&更新SQL語句中where子句包含主關(guān)鍵字與被修改過的字段 browse&&修改緩沖表數(shù)據(jù)，移動記錄指針后，自動發(fā)送SQL語句更新遠程表 9. “斷開指向數(shù)據(jù)源的連接” 按鈕.CLICK事件。 sqldisconnect(vconn) 10.“關(guān)閉” 按鈕.CLICK事件。 thisform.release 以上我們利用VFP的SQL pass-through技術(shù)編寫了一個簡單的通信錄管理程序，實現(xiàn)對SQL Server數(shù)據(jù)庫中數(shù)據(jù)的插入、查詢、修改等基本功能，是一個典型的客戶/服務(wù)器(C/S)結(jié)構(gòu)的應(yīng)用程序。希望對讀者今后開發(fā)軟件有所幫助。