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