PBSQL Server開(kāi)發(fā)與編程課件

PB/SQLServer開(kāi)發(fā)與編程12.1連接SQLServer資料庫(kù)12.1連接SQLServer資料庫(kù)1．建立ODBC數(shù)據(jù)源的連接（1）建立ODBC數(shù)據(jù)源第1步

在如圖12.1所示的應(yīng)用程式畫(huà)板中，點(diǎn)擊數(shù)據(jù)庫(kù)配置圖示，進(jìn)入資料庫(kù)配置（DataBaseProfiles）畫(huà)板，展開(kāi)ODBODBC圖示，然後展開(kāi)Utilities檔夾，如圖12.2所示；12.1連接SQLServer資料庫(kù)第2步在圖12.2所示的介面中，單擊CreateODBCDataSource圖示，出現(xiàn)如圖12.3所示的介面；第3步在圖12.3所示的介面中，選擇數(shù)據(jù)源類(lèi)型為“用戶數(shù)據(jù)源”（或“系統(tǒng)數(shù)據(jù)源”），點(diǎn)擊“下一步”，出現(xiàn)如圖12.4所示的介面，在此介面中選擇驅(qū)動(dòng)程式為“SQLServer”，點(diǎn)擊“下一步”；12.1連接SQLServer資料庫(kù)第4步按照提示步驟，進(jìn)入如圖12.5所示的介面，並指定數(shù)據(jù)源名稱(chēng)（在此為MSSQL1）和連接的伺服器點(diǎn)擊“下一步”，進(jìn)入如圖12.6所示的介面；12.1連接SQLServer資料庫(kù)第5步圖12.6所示的介面中，指定伺服器登錄方式，登錄帳號(hào)和密碼，點(diǎn)擊“下一步”，進(jìn)入如圖12.7所示的介面，在此介面中設(shè)置默認(rèn)資料庫(kù)為“XSCJ”，點(diǎn)擊“下一步”，則完成了ODBC數(shù)據(jù)源的設(shè)置。12.1連接SQLServer資料庫(kù)（2）建立資料庫(kù)配置檔第6步在如圖12.8所示的資料庫(kù)配置畫(huà)板中，點(diǎn)擊“New”按鈕，出現(xiàn)如圖12.9所示的介面，在介面中指定配置檔案名（在此為myfile）、數(shù)據(jù)源（在此為mssql1）等參數(shù)，然後點(diǎn)擊“OK”按鈕；出現(xiàn)圖12.10所示的介面。12.1連接SQLServer資料庫(kù)2．通過(guò)SQLServer專(zhuān)用介面建立資料庫(kù)連接第1步在圖12.10所示的資料庫(kù)配置檔畫(huà)板中，選中MSSMicrosoftSQLServer專(zhuān)用介面圖示，點(diǎn)擊“New”命令按鈕，出現(xiàn)如圖12.11所示的介面；第2步在圖12..11所示的介面中指定配置檔案名（在此為myfile1），將登錄的伺服器名、登錄帳號(hào)及密碼、要連接的資料庫(kù)（XSCJ），然後點(diǎn)擊“OK”按鈕，此時(shí)在MSSMicrosoftSQLServer專(zhuān)用介面圖示下出現(xiàn)myfile1資料庫(kù)配置檔圖示，如圖12.12所示。12.1連接SQLServer資料庫(kù)前面建立了資料庫(kù)配置檔myfile1，並連接到資料庫(kù)XSCJ，點(diǎn)擊圖12.1所示資料庫(kù)畫(huà)板圖示按鈕，進(jìn)入如圖12.13所示的資料庫(kù)畫(huà)板12.2事務(wù)對(duì)象在PB應(yīng)用程式中，如果要連接和運(yùn)算元據(jù)庫(kù)必須首先建立事務(wù)對(duì)象，其工作原理如圖12.14所示。1．使用事務(wù)對(duì)象連接資料庫(kù)在PB應(yīng)用程式中，對(duì)數(shù)據(jù)庫(kù)操作的步驟如下：（1）為事務(wù)對(duì)象屬性賦值；（2）連接到資料庫(kù)；（3）根據(jù)需要，將事務(wù)對(duì)象賦值給DataWindow控件或DataStore對(duì)象；（4）執(zhí)行數(shù)據(jù)庫(kù)操作；（5）斷開(kāi)與資料庫(kù)連接。12.2事務(wù)對(duì)象2．事務(wù)對(duì)象的屬性1）直接在程式中通過(guò)字串賦值//如下代碼對(duì)默認(rèn)事務(wù)對(duì)象SQLCA的屬性賦值SQLCA.DBMS=”MSS”SQLCA.Database=”XSCJ”SQLCA.ServerName=”DLGC-YPOOL0LRW4”SQLCA.LogId=”sa”SQLCA.LogPass=”liu”SQLCA.AutoCommit=falseSQLCA.DBParm=””//如下代碼連接到資料庫(kù)CONNECTUSINGSQLCA; //嵌入式SQL語(yǔ)句必須以分號(hào)結(jié)尾IFSQLCA.SQLCode<0then

MessageBox(“不能連接到資料庫(kù)!”,SQLCA.SQLErrText,StopSign!,OK!)//返回代碼//運(yùn)算元據(jù)庫(kù)的代碼//斷開(kāi)與資料庫(kù)連接的代碼DISCONNECTUSINGSQLCA; //嵌入式SQL語(yǔ)句必須以分號(hào)結(jié)尾IFSQLCA.SQLCode<0then

MessageBox(“斷開(kāi)資料庫(kù)連接時(shí)出錯(cuò)!”,SQLCA.SQLErrText,StopSign!,OK!)//返回代碼12.2事務(wù)對(duì)象

事務(wù)對(duì)象屬性列表屬性數(shù)據(jù)類(lèi)型含義Profile字段DBMSString要連接的DBMS標(biāo)識(shí)，SQLServer的DBMS標(biāo)識(shí)為MSSDBMSDatabaseString要連接的資料庫(kù)名DatabaseNameUserIDString連接資料庫(kù)的用戶名UserIDDBPassString連接資料庫(kù)的口令PasswordLockString資料庫(kù)的使用級(jí)別IsolatgionLevelLogIDString登錄資料庫(kù)伺服器的帳號(hào)LoginIDLogPassString登錄資料庫(kù)伺服器的密碼LoginPasswordServerNameString資料庫(kù)伺服器名ServerNameAutoCommitBooleanTrue自動(dòng)提交事務(wù)，F(xiàn)alse（默認(rèn)）則用Commit語(yǔ)句提交事務(wù)AutoCommitModeDBParmStringODBC數(shù)據(jù)源連接資料庫(kù)的參數(shù)DBParmSQLReturnDataString返回的特定的DBMS資訊

SQLCodeLong返回操作成功或失敗的代碼0：表示成功；-1：表示操作失敗100：表示無(wú)有效記錄。

SQLDBCodeLong返回資料庫(kù)出錯(cuò)代碼

SQLErrTextString返回與出錯(cuò)代碼對(duì)應(yīng)的資料庫(kù)出錯(cuò)資訊

12.2事務(wù)對(duì)象2）從初始化檔讀入屬性值(1)建立初始化檔根據(jù)需要，修改後的myfile1.ini檔內(nèi)容如下：[DBMS_PROFILES] //節(jié)名Profiles=myfile1 //通過(guò)關(guān)鍵字Profiles指定配置檔[database] //節(jié)名DBMS=MSSDatabase=xscjUserId=DatabasePassword=ServerName=dlgc-ypool0lrw4DBParm=Lock=Prompt=FALSEAutoCommit=FALSE12.2事務(wù)對(duì)象(2)從初始化檔讀取屬性值建立初始化檔後，通過(guò)函數(shù)ProfileString（）讀取屬性值，方法如下：ProfileString（file,section,key,default）file：指定初始化檔案名；section：指定屬性所在的節(jié)名；key：指定屬性所對(duì)應(yīng)的關(guān)鍵字；default：如果沒(méi)有讀到指定的屬性值則用此默認(rèn)值。3．自定義事務(wù)對(duì)象用戶除可使用系統(tǒng)默認(rèn)的事務(wù)對(duì)象SQLCA外，還可自定義事務(wù)對(duì)象，其使用步驟如下：（1）定義事務(wù)對(duì)象變數(shù)，並建立事務(wù)對(duì)象實(shí)例；（2）給事務(wù)對(duì)象屬性賦值並連接資料庫(kù)；（3）對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作（4）斷開(kāi)資料庫(kù)連接並釋放事務(wù)對(duì)象。12.2事務(wù)對(duì)象第1步設(shè)計(jì)如圖12.16所示的應(yīng)用程式介面，在該應(yīng)用程式建立一個(gè)應(yīng)用對(duì)象和一個(gè)窗口對(duì)象，並放置相應(yīng)的控件；第2步建立如前所述的資料庫(kù)配置檔myfile1，初始化檔myfile1.ini；12.2事務(wù)對(duì)象（1）應(yīng)用對(duì)象exp的代碼定義全局事務(wù)變數(shù)transactiondbtrans //定義全局事務(wù)對(duì)象dbtrans

應(yīng)用對(duì)象expopen事件代碼open(w_1) //打開(kāi)窗口對(duì)象w_1（2）窗口對(duì)象w_1及其控件的事件驅(qū)動(dòng)代碼“連接”按鈕cb_1的click事件代碼dbtrans=createtransaction //創(chuàng)建事務(wù)對(duì)象實(shí)例dbtrans.DBMS=ProfileString("myfile1.ini","database","DBMS","")dbtrans.Database=ProfileString("myfile1.ini","database","database","")dbtrans.ServerName=ProfileString("myfile1.ini","database","servername","")dbtrans.LogId=sle_1.textdbtrans.LogPass=sle_2.textdbtrans.AutoCommit=ProfileString("myfile1.ini","database","AutoCommit","")connectusingdbtrans;//如果使用SQLCA默認(rèn)事務(wù)對(duì)象，using子句可省，自定義事務(wù)對(duì)象不能省第3步設(shè)計(jì)代碼12.2事務(wù)對(duì)象“插入”按鈕cb_2的click事件代碼stringstr1,str2,str3,str4intt1intt2datedatstr1=sle_3.text //輸入學(xué)號(hào)str2=sle_4.text //輸入姓名str3=sle_5.text //輸入專(zhuān)業(yè)名ifrb_1.checkedthen //判斷輸入的性別

t1=1else t1=0endifdat=date(em_1.text) //輸入出生年月t2=integer(sle_7.text) //輸入總學(xué)分str4=mle_1.text //輸入備註內(nèi)容insertintoxsvalues(:str1,:str2,:str3,:t1,:dat,:t2,:str4)usingdbtrans;//using子句不能省略“斷開(kāi)”按鈕cb_3的click事件代碼disconnectusingdbtrans; //斷開(kāi)與資料庫(kù)的連接destroy