三、实例

　　先看如下两个图，图二表示DTS端，图三表示Client端。其中DTS已经建立了与数据库服务器的连接，数据窗口中显示的是所有的数据；Client并没有数据库接口，而是通过DTS间接的访问数据，在数据窗口中显示的是所有男性职工。


图(二)


图(三)

　　该程序的大部分源代码如下：

　　DTS端：

　　1、首先定义一个全局变量：Transport mytrans;

　　2、在"开始监听"按钮中输入如下代码：

long ll
mytrans=create transport
mytrans.driver="winsock"
mytrans.application="5000" //端口号
mytrans.location="." //本地服务器
ll=mytrans.listen() //开始监听
if ll<>0 then
messagebox(string(mytrans.errcode),mytrans.errtext)
return
end if
server.settranspool(12,16,10) //设置连接缓冲，注意"server"为应用的名称
this.text="正在监听中..."
this.enabled=false

　　3、在"结束监听"按钮中输入如下代码：

mytrans.stoplistening() //结束监听
destroy mytrans
cb_1.text="开始监听"
cb_1.enabled=true

　　4、建立一个NVO：

　　利用PB的User Objects画板建立一个classàcustom的用户对象，建立用户对象函数nvoretrieve(ref blob buffer,string filter) returns long，函数体如下：

long ll
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=person'"
connect; //建立与数据库的连接
datastore datastore_buffer
datastore_buffer=create datastore
datastore_buffer.dataobject="dw_person" //dw_person是一个数据窗口
datastore_buffer.settransobject(sqlca)
datastore_buffer.retrieve()
datastore_buffer.setfilter(filter)
datastore_buffer.filter()
ll=datastore_buffer.getfullstate(buffer) //函数getfullstate()和setfullstate()常用于分布式应用程序。
disconnect;
return ll

　　5、建立NVO的代理对象

　　在用户对象上点鼠标右健，选择"Set Proxy Name"，输入"NVO_dw"，保存用户对象。

　　打开Library画板，将"NVO_dw"输出为文件，以便在客户端导入该代理。

　　Client端：

　　　1、打开Library画板，将刚才输出的文件导入

　　　2、定义两个全局变量：

connection myconn
nvo_dw proxy_dw

　　　3、在"连接"按钮中输入如下代码：

long ll
myconn=create connection
myconn.driver="winsock"
myconn.application="5000" //必须和DTS端的端口号一致
myconn.location="192.168.6.1" //DTS的IP地址
ll=myconn.connecttoserver() //建立连接
if ll<>0 then
messagebox(string(myconn.errcode),myconn.errtext)
return
end if
this.text="正在连接中..."
this.enabled=false
cb_2.enabled=true
cb_3.enabled=true

　　3、在"断开"按钮中输入如下代码：

myconn.disconnectserver() //断开连接
destroy myconn
cb_1.enabled=true
cb_1.text="连接"
cb_3.enabled=false
this.enabled=false

　　4、在"查询"按钮中输入如下代码：

long result
blob buffer
myconn.createinstance(proxy_dw) //建立代理对象
result=proxy_dw.nvoretrieve(buffer,"sex='男'") //检索所有男性职工
result=dw_1.setfullstate(buffer) //dw_1是一个数据窗口控件

　　四、小结及注意事项

　　1、以上程序在WINDOWS'98、PB6.0环境中调试通过，在客户数量很多，数据量很大的情况下，查询的速度会快很多。

　　2、编程时注意，如果NVO的函数体发生变化，则无须重新生成代理；如果NVO的函数接口发生变化，则必须重新生成它的代理并将它输入到客户端中。

　　3、NVO对象是一个不可视对象，只能通过函数调用的方法使用它，不可将它作为一个控件放在窗口上。

上一页  [1] [2]