知识大全 PB环境下分布式应用程序的开发（二）

Posted 2022-07-16 知

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 PB环境下分布式应用程序的开发（二）相关的知识，希望对你有一定的参考价值。

PB环境下分布式应用程序的开发（二） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

三实例

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

图(二)

图(三)

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

　　DTS端

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

　　在开始监听按钮中输入如下代码

　　long ll

　　mytrans=create transport

　　mytrans driver= winsock

　　mytrans application= //端口号

　　mytrans location= //本地服务器

　　ll=mytrans listen() //开始监听

　　if ll<> then

　　messagebox(string(mytrans errcode) mytrans errtext)

　　return

　　end if

　　server settranspool( ) //设置连接缓冲注意 server 为应用的名称

　　this text= 正在监听中

　　this enabled=false

　　在结束监听按钮中输入如下代码

　　mytrans stoplistening() //结束监听

　　destroy mytrans

　　cb_ text= 开始监听

cb_ enabled=true

　　建立一个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

　　建立NVO的代理对象

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

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

　　Client端

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

　　定义两个全局变量

　　connection myconn

　　nvo_dw proxy_dw

　　在连接按钮中输入如下代码

　　long ll

　　myconn=create connection

　　myconn driver= winsock

　　myconn application= //必须和DTS端的端口号一致

　　myconn location= //DTS的IP地址

　　ll=myconn connecttoserver() //建立连接

　　if ll<> then

　　messagebox(string(myconn errcode) myconn errtext)

　　return

　　end if

　　this text= 正在连接中

　　this enabled=false

　　cb_ enabled=true

　　在断开按钮中输入如下代码

　　myconn disconnectserver() //断开连接

　　destroy myconn

　　cb_ enabled=true

　　cb_ text= 连接

　　cb_ enabled=false

　　this enabled=false

　　在查询按钮中输入如下代码

　　long result

　　blob buffer

myconn createinstance(proxy_dw) //建立代理对象

　　result=proxy_dw nvoretrieve(buffer sex= 男 ) //检索所有男性职工

　　result=dw_ setfullstate(buffer) //dw_ 是一个数据窗口控件

　　四小结及注意事项

　　以上程序在WINDOWS PB 环境中调试通过在客户数量很多数据量很大的情况下查询的速度会快很多

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

cha138/Article/program/SQL/201311/16219