關(guān)鍵詞：VB應(yīng)用程序，DDE通訊，數(shù)據(jù)交換

DDE(Dynamic Data Exchange)技術(shù)是實現(xiàn)Windows下的應(yīng)用程序之間的數(shù)據(jù)交換，通訊時，其中一應(yīng)用程序作為客戶端（Client）,另一應(yīng)用程序作為服務(wù)端（Server）,或兩者均可。

一、VB應(yīng)用程序訪問Realinfo(VB應(yīng)用程序為客戶端，Realinfo作為服務(wù)端)的編程步驟:

1．新建工程項目，將窗體命名為DDEClient：

在窗體中繪制四個標簽，分別為Label1、Label2、Label3、Label4

在窗體中繪制四個文本，分別為Text1、Text2、Text3、Text 4

2．標簽不需要做任何設(shè)置，文本框的設(shè)置如下（例Text1）：

Realinfo的應(yīng)用程序名為DB，話題名為DB，數(shù)據(jù)連接項為數(shù)據(jù)庫變量名。

LinkItem：a1.PV（數(shù)據(jù)庫變量名）

LinkMode：0,1,2,3

LinkTopic：DB|DB

（注：LinkMode初始為0，當(dāng)Realinfo已啟動可設(shè)置為1）

Text2、Text3、Text4的LinkItem的分別為a2.PV、a3.PV、a4.PV，其它設(shè)置和Text1相同。

3．在Form_Load()中編寫如下腳本：

     將各個文本設(shè)置為自動連接方式，運行時應(yīng)先啟動Realinfo，否則報錯。

4．Realinfo中的組態(tài)：在DB數(shù)據(jù)庫組態(tài)中建立四個數(shù)據(jù)庫點，分別為a1、a2、a3和a4（與VB中文本LinkItem的屬性值一致）

5．先運行Realinfo，再啟動VB程序，效果圖如下：

                                           Realinfo運行系統(tǒng)                                                VB程序

二、Realinfo訪問VB應(yīng)用程序訪 (VB應(yīng)用程序為服務(wù)端，Realinfo作為客戶端)的編程步驟:

1. 新建工程項目，將窗體更名為DDEServer：

在窗體中繪制四個標簽，分別為Label1、Label2、Label3、Label4

在窗體中繪制四個文本，分別為var1、var2、var3、var 4（四個屬性值初始為1.00000）

1. 文本和標簽均不需要做任何設(shè)置，窗體DDEServer的設(shè)置如下：

LinkMode：1-Source（表示程序作為服務(wù)端）

LinkTopic：窗體的名字（即DDEServer）

1. 生成VB應(yīng)用程序（注意應(yīng)用程序名字不能超過8個字符）
2. Realinfo中的組態(tài)：

第一步 建立DDE設(shè)備

定義設(shè)備名稱：DDE

第二步 輸入服務(wù)和主題名稱

服務(wù)器名稱：輸入生成的應(yīng)用程序名

主題名稱：VB應(yīng)用程序窗體名稱

第三步 進入數(shù)據(jù)庫組態(tài)

建立四個數(shù)據(jù)庫點：a1、a2、a3和a4

第四步 建立數(shù)據(jù)連接

DDE連接項：輸入VB窗體中文本框的名字

四個點分別對應(yīng)var1、var2、var3和var4

1. 先啟動VB程序，再啟動Realinfo運行效果如下：

                                                  VB應(yīng)用程序                                    Realinfo運行系統(tǒng)