至此为止，这只是一个单机程序，还没

有分布式运行。接一去我们将要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对象分配的资源。关闭脚本