日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

我們今天是要和大家一起討論的是在OVFP中用SPT來(lái)SQL Server數(shù)據(jù)庫(kù)進(jìn)行訪(fǎng)問(wèn)的實(shí)際操作流程，我們大家都知道VFP主要是因它簡(jiǎn)單易學(xué)，而且可快速建立應(yīng)用軟件而深受廣大程序員喜愛(ài)，但其數(shù)據(jù)庫(kù)系統(tǒng)不安全也令廣大用戶(hù)非常頭痛。

創(chuàng)新互聯(lián)主營(yíng)寧陵網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,重慶App定制開(kāi)發(fā),寧陵h5重慶小程序開(kāi)發(fā)搭建,寧陵網(wǎng)站營(yíng)銷(xiāo)推廣歡迎寧陵等地區(qū)企業(yè)咨詢(xún)

隨著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)秀的客戶(hù)/服務(wù)器(C/S)應(yīng)用軟件。現(xiàn)通過(guò)編寫(xiě)一個(gè)簡(jiǎn)單的通信錄例子和廣大VFP愛(ài)好者共同探討。

一、服務(wù)器端MS SQL Server數(shù)據(jù)庫(kù)設(shè)計(jì)

1. 在 訪(fǎng)問(wèn)SQL Server中建立名為“SFXT”的數(shù)據(jù)庫(kù)。

2. 在SFXT數(shù)據(jù)庫(kù)中建立名為“通信錄”的數(shù)據(jù)表，表結(jié)構(gòu)如下：

列名（字段名）　數(shù)據(jù)類(lèi)型　長(zhǎng)度

姓名 chr 8

生日 datetime 8

電話(huà) chr 11

email chr 30

并將姓名設(shè)置為主鍵。

3. 在“SFXT”數(shù)據(jù)庫(kù)中建立查詢(xún)出所有記錄的存儲(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 通信錄(姓名，生日，電話(huà)，email) values (@name，@birthday，@telephone，@email)

return

二、客戶(hù)端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è)置包括選擇訪(fǎng)問(wèn)SQL Server驅(qū)動(dòng)程序，通信協(xié)議，登錄標(biāo)識(shí)與密碼等。

“建立OBDC數(shù)據(jù)源”按鈕.CLICK事件：

函數(shù)說(shuō)明SQLSTRINGCONNECT([cConnectString])

省略連接字符串cConnectString時(shí)顯示""SQL數(shù)據(jù)源""對(duì)話(huà)框，可選擇或新建數(shù)據(jù)源

sqlstringconnect()

3. 兩種連接MS SQL Server數(shù)據(jù)源的方式。

使用現(xiàn)有數(shù)據(jù)源名稱(chēng)建立連接，“建立連接方式1”按鈕.CLICK事件。

public vodbc,vuser,vpwd,vconn

vodbc='sfxt' &&連接SQL SERVER數(shù)據(jù)庫(kù)ODBC數(shù)據(jù)源名稱(chēng)

vuser='sa' &&訪(fǎng)問(wèn)SQL SERVER數(shù)據(jù)庫(kù)的登錄用戶(hù)名，sa為系統(tǒng)用戶(hù)

vpwd='5213' &&用戶(hù)登錄密碼，為sa系統(tǒng)用戶(hù)設(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ò)程查詢(xún)數(shù)據(jù)”按鈕.CLICK事件。

函數(shù)說(shuō)明SQLEXEC(nConnectionHandle, [cSQLCommand， [CursorName]])

nConnectionHandle 當(dāng)前數(shù)據(jù)源活動(dòng)連接句柄

cSQLCommand執(zhí)行訪(fǎng)問(wèn)SQL SERVER存儲(chǔ)過(guò)程的SQL語(yǔ)句表達(dá)式

CursorName返回執(zhí)行結(jié)果臨時(shí)表的名稱(chēng)

sqlexec(vconn,""execute SP_SearchAll"",""我的通信錄"")

browse

6. “執(zhí)行SQL語(yǔ)句查詢(xún)數(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í)表的名稱(chēng)

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) &&電話(huà)

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)程表中提取全部查詢(xún)記錄

cursorsetprop('KeyFieldList','姓名')&&指定遠(yuǎn)程表的主關(guān)鍵字段

cursorsetprop('SendUpdates',.t.) &&當(dāng)前緩沖表更改內(nèi)容時(shí)發(fā)送SQL語(yǔ)句更新遠(yuǎn)程表

cursorsetprop('Tables','通信錄') &&指定連接的遠(yuǎn)程表名

上述的相關(guān)內(nèi)容就是對(duì)VFP中用SPT訪(fǎng)問(wèn)SQL Server數(shù)據(jù)庫(kù)的描述，希望會(huì)給你帶來(lái)一些幫助在此方面。

當(dāng)前標(biāo)題：用SPT來(lái)訪(fǎng)問(wèn)SQLServer數(shù)據(jù)庫(kù)在OVFP中
本文網(wǎng)址：http://www.dlmjj.cn/article/djhcdhc.html