VFP中用SPT訪問SQL Server數據庫 - sqlserver -

VFP中用SPT訪問SQL Server數據庫

時間:2013-07-24 12:30:58   來源:   評論:加載中...   點擊:加載中...
VFP因它簡單易學,可快速建立應用軟件而深受廣大程序員喜愛,但其數據...

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



相關熱詞搜索:

 
上一篇:批量更改sql server數據庫所有者的對象
下一篇:SQL SERVER 2000 安裝(癥狀歸納)
收藏 將此文推薦給朋友
分享到:
10个数复式三中三多少组公式