第12章PBSQL Server开发与编程

1、第12章 PB/SQL Server开发与编程 12.1 连接连接SQL Server数据库数据库12.1 连接SQL Server数据库1建立建立ODBC数据源的连接数据源的连接（1）建立ODBC数据源第第1步步 在如图12.1所示的应用程序画板中，点击数据库配置图标，进入数据库配置（DataBase Profiles）画板，展开ODB ODBC图标，然后展开Utilities文件夹，如图12.2所示；12.1 连接SQL Server数据库第第2步步 在图12.2所示的界面中，单击Create ODBC Data Source图标，出现如图12.3所示的界面；第第3步步 在图12.3所示的

2、界面中，选择数据源类型为“用户数据源”（或“系统数据源”），点击“下一步”，出现如图12.4所示的界面，在此界面中选择驱动程序为“SQL Server”，点击“下一步”；12.1 连接SQL Server数据库第第4步步 按照提示步骤，进入如图12.5所示的界面，并指定数据源名称（在此为MSSQL1）和连接的服务器点击“下一步”，进入如图12.6所示的界面；12.1 连接SQL Server数据库第第5步步 图12.6所示的界面中，指定服务器登录方式，登录账号和密码，点击“下一步”，进入如图12.7所示的界面，在此界面中设置默认数据库为“XSCJ”，点击“下一步”，则完成了ODBC数据源的设置

3、。12.1 连接SQL Server数据库（2）建立数据库配置文件第第6步步 在如图12.8所示的数据库配置画板中，点击“New”按钮，出现如图12.9所示的界面，在界面中指定配置文件名（在此为myfile）、数据源（在此为mssql1）等参数，然后点击“OK”按钮；出现图12.10所示的界面 。12.1 连接SQL Server数据库2通过通过SQL Server专用接口建立数据库连接专用接口建立数据库连接第第1步步 在图12.10所示的数据库配置文件画板中，选中MSS Microsoft SQL Server专用接口图标，点击“New”命令按钮，出现如图12.11所示的界面；第第2步步 在

4、图12.11所示的界面中指定配置文件名（在此为myfile1），将登录的服务器名、登录账号及密码、要连接的数据库（XSCJ），然后点击“OK”按钮，此时在MSS Microsoft SQL Server专用接口图标下出现myfile1数据库配置文件图标，如图12.12所示。 12.1 连接SQL Server数据库前面建立了数据库配置文件myfile1，并连接到数据库XSCJ，点击图12.1所示数据库画板图标按钮，进入如图12.13所示的数据库画板 12.2 事务对象 在PB应用程序中，如果要连接和操作数据库必须首先建立事务对象，其工作原理如图12.14所示。1使用事务对象连接数据库使用事务对

5、象连接数据库在PB应用程序中，对数据库操作的步骤如下：（1）为事务对象属性赋值；（2）连接到数据库；（3）根据需要，将事务对象赋值给DataWindow控件或DataStore对象；（4）执行数据库操作；（5）断开与数据库连接。12.2 事务对象2事务对象的属性事务对象的属性1）直接在程序中通过字符串赋值）直接在程序中通过字符串赋值/如下代码对默认事务对象SQLCA的属性赋值SQLCA.DBMS=”MSS”SQLCA.Database=”XSCJ”SQLCA.ServerName=”DLGC-YPOOL0LRW4”SQLCA.LogId=”sa”SQLCA.LogPass=”liu”SQLCA

6、.AutoCommit=falseSQLCA.DBParm=”/如下代码连接到数据库CONNECT USING SQLCA; /嵌入式SQL语句必须以分号结尾IF SQLCA.SQLCode0 then MessageBox(“不能连接到数据库!”,SQLCA. SQLErrText,StopSign!,OK!) /返回代码/操作数据库的代码/断开与数据库连接的代码DISCONNECT USING SQLCA; /嵌入式SQL语句必须以分号结尾IF SQLCA.SQLCode0 then MessageBox(“断开数据库连接时出错!”,SQLCA. SQLErrText,StopSign!,

7、OK!) /返回代码12.2 事务对象 事务对象属性列表事务对象属性列表属性数据类型含义Profile字段DBMSString要连接的DBMS标识，SQL Server的DBMS标识为MSSDBMSDatabaseString要连接的数据库名Database NameUserIDString连接数据库的用户名User IDDBPassString连接数据库的口令PasswordLockString数据库的使用级别Isolatgion LevelLogIDString登录数据库服务器的账号Login IDLogPassString登录数据库服务器的密码Login PasswordServerNa

8、meString数据库服务器名Server NameAutoCommitBooleanTrue自动提交事务，False（默认）则用Commit语句提交事务AutoCommit ModeDBParmStringODBC数据源连接数据库的参数DBParmSQLReturnDataString返回的特定的DBMS信息 SQLCodeLong返回操作成功或失败的代码0：表示成功；-1：表示操作失败100：表示无有效记录。 SQLDBCodeLong返回数据库出错代码 SQLErrTextString返回与出错代码对应的数据库出错信息 12.2 事务对象2）从初始化文件读入属性值）从初始化文件读入属性值

9、(1) 建立初始化文件根据需要，修改后的myfile1.ini文件内容如下：DBMS_PROFILES /节名Profiles=myfile1 /通过关键字Profiles指定配置文件database /节名DBMS=MSS Database=xscjUserId=DatabasePassword=ServerName=dlgc-ypool0lrw4DBParm=Lock=Prompt=FALSEAutoCommit=FALSE12.2 事务对象(2) 从初始化文件读取属性值建立初始化文件后，通过函数ProfileString（）读取属性值，方法如下：ProfileString（file,se

10、ction,key,default）file：指定初始化文件名；section：指定属性所在的节名；key：指定属性所对应的关键字；default：如果没有读到指定的属性值则用此默认值。3自定义事务对象自定义事务对象用户除可使用系统默认的事务对象SQLCA外，还可自定义事务对象，其使用步骤如下：（1）定义事务对象变量，并建立事务对象实例；（2）给事务对象属性赋值并连接数据库；（3）对数据库进行操作（4）断开数据库连接并释放事务对象。12.2 事务对象第第1步步 设计如图12.16所示的应用程序界面，在该应用程序建立一个应用对象和一个窗口对象，并放置相应的控件；第第2步步 建立如前所述的数据库配

11、置文件myfile1，初始化文件myfile1.ini；12.2 事务对象（1）应用对象exp的代码l 定义全局事务变量transaction dbtrans /定义全局事务对象dbtransl 应用对象exp open事件代码open(w_1) /打开窗口对象w_1（2）窗口对象w_1及其控件的事件驱动代码l “连接”按钮cb_1的click事件代码dbtrans=create transaction / 创建事务对象实例dbtrans.DBMS= ProfileString(myfile1.ini,database,DBMS,)dbtrans.Database= ProfileString

12、(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 ,)connect using dbtrans; /如果使用SQLCA默认事务对象，using子句可省，自定义事务对象不能省第第3步步 设计代码 12.2 事务对象

13、l “插入”按钮cb_2的click事件代码string str1,str2,str3,str4int t1int t2date datstr1=sle_3.text /输入学号str2=sle_4.text /输入姓名str3=sle_5.text /输入专业名if rb_1.checked then /判断输入的性别t1=1elset1=0end ifdat=date(em_1.text) /输入出生年月t2=integer(sle_7.text) /输入总学分str4=mle_1.text /输入备注内容insert into xs values(:str1,:str2,:str3,:t1,:dat,:t2,:str4) using dbtrans; / using子句不能省略l “断开”按钮cb_3的click事件代码disconnect using dbtrans;