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)結構的應用程序。希望對讀者今后開發軟件有所幫助。