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