VB与Realinfo之间的DDE通讯

　　DDE(Dynamic Data Exchange)技术是实现Windows下的应用程序之间的数据交换，通讯时，其中一应用程序作为客户端(Client),另一应用程序作为服务端(Server),或两者均可。

　　一、VB应用程序访问Realinfo(VB应用程序为客户端，Realinfo作为服务端)的编程步骤:

　　1.新建工程项目，将窗体命名为DDEClient：

　　在窗体中绘制四个标签，分别为Label1、Label2、 Label3、Label4

　　在窗体中绘制四个文本，分别为Text1、Text2、Text3、Text 4

　　2.标签不需要做任何设置，文本框的设置如下(例Text1)：

　　Realinfo的应用程序名为DB，话题名为DB，数据连接项为数据库变量名。

　　LinkItem：(数据库变量名)

　　LinkMode：0,1,2,3

　　LinkTopic：DB|DB

　　(注：LinkMode初始为0，当Realinfo已启动可设置为1)

　　Text2、Text3、Text4的LinkItem的分别为、、，其它设置和Text1相同。

　　3.在Form_Load()中编写如下脚本：

　　将各个文本设置为自动连接方式，运行时应先启动Realinfo，否则报错。

　　fo中的组态：在DB数据库组态中建立四个数据库点，分别为a1、a2、a3和a4(与VB中文本LinkItem的属性值一致)

　　5.先运行Realinfo，再启动VB程序，效果图如下：

　　Realinfo运行系统

　　VB程序

　　二、Realinfo访问VB应用程序访 (VB应用程序为服务端，Realinfo作为客户端)的编程步骤:

　　1.新建工程项目，将窗体更名为DDEServer：

　　在窗体中绘制四个标签，分别为Label1、Label2、 Label3、Label4

　　在窗体中绘制四个文本，分别为var1、var2、var3、var 4(四个属性值初始为1.00000)

　　2.文本和标签均不需要做任何设置，窗体DDEServer的设置如下：

　　LinkMode：1-Source(表示程序作为服务端)

　　LinkTopic：窗体的名字(即DDEServer)

　　3.生成VB应用程序(注意应用程序名字不能超过8个字符)

　　fo中的组态：

　　第一步 建立DDE设备

　　定义设备名称：DDE

　　第二步 输入服务和主题名称

　　服务器名称：输入生成的应用程序名

　　主题名称：VB应用程序窗体名称

　　第三步 进入数据库组态

　　建立四个数据库点：a1、a2、a3和a4

　　第四步 建立数据连接

　　DDE连接项：输入VB窗体中文本框的名字

　　四个点分别对应var1、var2、var3和var4

　　5.先启动VB程序，再启动Realinfo运行效果如下：

　　VB应用程序

　　Realinfo运行系统