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

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

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

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

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

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

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

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

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

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