Database 版 (精华区)

发信人: zhaowei (小燕子), 信区: Database
标  题: 17．4 把 NVO 移到Server中
发信站: 紫 丁 香 (Fri Jun 11 17:38:11 1999), 转信

至此为止，这只是一个单机程序，还没有分布式运行。接一去我们将要NVO移到另外一
个PB库中，形成服务端运行的程序。
   单击New按钮，系统弹出一个对话框，输入一个新的库名Server，再为Server生
成一个新的应用名，名字也为Server，我们不需要系统自动生成的框架。接着，我们
想把Clients库中的Cnvo_discount移至Server库中。打开Library画板，单击Clients
点PBL，选择NVO对象Cnvo_discount，单击右键，选择Move。再查看Server库，可以
发现在Server库中，原来在Clients中的Cnvo_discount已经移到了Server中（图17-5）。


图17-5

下一步，与客户端程序相类似，我们为服务端程序定义、初始化Transport对象。单击
Server Application，打开脚本，打开Declare中的全程变量定义框。输
入transport mytrans，创立一个名为mytrans的transport对象，关闭全程变量定义框。
在脚本编辑器中，mytrans =  create transport，初始化这个对象。然后，
与Connection对象一样，我们还需要mytrans对象设置两个基本属性：应用
名Application，驱动程序名Driver。我们暂时把它们设为空（图17-6）。
    随后，找开应用对象的Close事件，输入destroy mytrans，以便系统回收mytrans对
象分配的资源。关闭脚本编辑器。

--
________________________________________________________________
 我和一个朋友去散步，遇见一个漂亮的少妇带着一个小孩平时极腼腆的朋友一改
平日恹恹睡态，勇敢的走上前去， ∴
         《||||||||||||||||||||■※※◎    亲切的看着那小孩说：
                               ∵    ."   多可爱的孩子啊，
                                 ...''   抬头看看少妇，“还有孩子他妈！”

※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.226.249]