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

三 实例

先看如下两个图 图二表示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

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的函数接口发生变化 则必须重新生成它的代理并将它输入到客户端中

lishixinzhi/Article/program/SQL/201311/16219

其实最简单的就是在windows上安装pb

1、找程序：茄物找一个pb安装程序,最新版的是pb11.2

2、安装程序：安装pb,其中会默认安装anywhere sql,如果你使用sybase的数据颤改液库，在歼薯开发的时候，这个很有用，可以当做一个小型的数据库管理软件

3、配置数据库：安装好后，你要做的是按你的要求建一个数据库，刚才说了，如果用sybase数据库，就可以用anywhere sql开发,里面有一个sybase central管理中心，可以用来配置的

4、连接数据库:最简单的就是使用odbc,在控制面版中的'数据源'进行

5、pb连接数据库：你可以看一下相关例子，其实就是设置sqlca的参数，并connect就行了

二 查询系统的制作

制作从键盘输入记录号 可查询到该人的档案记录

①制作查团历询窗口 步骤为 鼠标点按Window图标 新建一窗口 在窗口中 添加一个DataWindow控件 在DataWindow控件上按鼠标右键 选择并单击Properties快捷菜单项 在在Datawindow object name旁按Browse按钮 选择装入前面制作的aaa数据窗口 调整好窗口的大小 再在窗口上放一SingleLineEdit控件 和一CommandButton按钮控件 点中按钮控件并按右键选择Properties 将其显示文本修改为 查询 按钮名称仍为cb_ 点中按钮控件并按右键选择Script… 输入以下脚本

dw_ settransobject(sqlca)

dw_ retrieve(sle_ text)

关闭并保存 按Save图标保存该窗口 窗口取名为aaa

②将查询窗口连接入test应用程序内 点按Application图标 出现test应用程序 双击test 出现名为w_genapp_frame的窗口图标 这是应用程序为我们提供的主窗口的名字 点按w_genapp_frame不放按右键选edit 出现该主窗口 将一按钮控件放入该窗口 按钮显示的文本可改为 唯一查询 也可省略不改 点中该按钮控件并按右键选择Script… 输入 open(aaa) 保存 点按Application图标 再按script图标 出现应用程序的自动生成的主体脚本 部分内容如下 它的任务是将数据库初始化 相当于win ini 假若不要应用程序的模板 则下面的脚本需自己输入 而使用模板后 现在我们只需将//connect 前面的注释号 // 符号删除即可 除省事外还避免了因为排版引起的下面的程序格式错误 (本人经常因为书中个别字母印刷错 或排版引起的程序格式错误造成程序无法运行而痛心不已 )

sqlca DBMS = ProfileString (ls_startupfile database dbms )sqlca database = ProfileString (ls_startupfile database database )sqlca userid = ProfileString (ls_startupfile database userid )sqlca dbpass = ProfileString (ls_startupfile database dbpass )sqlca logid = ProfileString (ls_startupfile database logid )sqlca logpass = ProfileString (ls_startupfile database LogPassWord )sqlca servername = ProfileString (ls_startupfile database servername )sqlca dbparm = ProfileString (ls_startupfile database dbparm )connect

现在按Run图标运行该程序 结果如下图 为简化程序 我们只闷或粗加入了多媒体中的图片字段 成功后 读者可自已增加动画 声音蚂镇字段

讨论 假若多媒体的字段和数据个数比较少 也可用变量和函数来解决 如

temp =temp+ bmp p_ picturename=temp ole_ insertfile( sample avi )run( c:\acdsee exe c:\aa bmp normal!)

lishixinzhi/Article/program/SQL/201311/16400

---