邊曉鋆 徐玲玲 王穎 曹世華

摘 要：在現(xiàn)代控制系統(tǒng)中，上位機(jī)負(fù)責(zé)管理整個(gè)系統(tǒng)及各部分功能的實(shí)現(xiàn)、調(diào)節(jié)調(diào)度、信息處理等工作。Visual Basic是一款由微軟公司開發(fā)，用于協(xié)助開發(fā)環(huán)境事件驅(qū)動(dòng)的編程語(yǔ)言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或輕松創(chuàng)建ActiveX控件。文中針對(duì)上位機(jī)開發(fā)過(guò)程中VB與藍(lán)牙4.0通信以及VB與數(shù)據(jù)庫(kù)如何傳輸數(shù)據(jù)的問(wèn)題，采用VB語(yǔ)言編寫了上位機(jī)與PLC的通信程序、界面程序以及上位機(jī)與數(shù)據(jù)庫(kù)的通信程序。實(shí)現(xiàn)了將電腦接收到的藍(lán)牙傳輸文件內(nèi)容顯示在VB窗口，并將數(shù)據(jù)寫入MySQL數(shù)據(jù)庫(kù)并存儲(chǔ)，及查詢MySQL數(shù)據(jù)庫(kù)已存儲(chǔ)數(shù)據(jù)等功能。

關(guān)鍵詞：VB；數(shù)據(jù)庫(kù)；上位機(jī)；通信

中圖分類號(hào)：TP311 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：2095-1302（2018）01-00-03

0 引 言

上位機(jī)又稱PC機(jī)或Host Computer，是可以發(fā)送控制命令的主機(jī)或計(jì)算機(jī)。下位機(jī)是指具有數(shù)據(jù)采集、數(shù)據(jù)存儲(chǔ)、傳輸控制等功能，可以直接獲取硬件設(shè)備運(yùn)行狀態(tài)數(shù)據(jù)的主機(jī)，一般由PLC和單片機(jī)組成。上位機(jī)與下位機(jī)之間是從屬關(guān)系，上位機(jī)是控制者，利用軟件程序發(fā)送相關(guān)指令給下位機(jī)；下位機(jī)是受控制者，將該指令翻譯成相應(yīng)的時(shí)序信號(hào)，然后直接控制對(duì)應(yīng)設(shè)備完成用戶需要的對(duì)應(yīng)操作，同時(shí)下位機(jī)在完成對(duì)數(shù)據(jù)和硬件設(shè)備的讀取操作后，再將數(shù)據(jù)編碼傳回上位機(jī)[1，2]?？傮w而言，上位機(jī)主要負(fù)責(zé)系統(tǒng)管理、調(diào)配、狀態(tài)監(jiān)控、信息處理和分析等工作，下位機(jī)主要在現(xiàn)場(chǎng)進(jìn)行數(shù)據(jù)采集和和控制。在某些特殊場(chǎng)合，上位機(jī)和下位機(jī)的控制和被控制角色可以互換。上位機(jī)和下位機(jī)之間的通信是整個(gè)控制系統(tǒng)的關(guān)鍵。

Visual Basic（VB） 6.0是微軟公司開發(fā)的可視化編程語(yǔ)言，是基于Windows環(huán)境面向?qū)ο蟮膽?yīng)用程序。VB6.0擁有強(qiáng)大的可視化用戶界面設(shè)計(jì)功能，可開發(fā)數(shù)據(jù)庫(kù)系統(tǒng)、多媒體應(yīng)用系統(tǒng)和網(wǎng)絡(luò)應(yīng)用系統(tǒng)，被廣泛應(yīng)用在控制應(yīng)用領(lǐng)域，也是使用最廣泛的編程語(yǔ)言之一[3]。

1 底層通信設(shè)計(jì)

在本文介紹的上位機(jī)程序設(shè)計(jì)中，底層需與藍(lán)牙4.0匹配，并實(shí)現(xiàn)接收數(shù)據(jù)，使其在可視界面上顯示等功能（VB可調(diào)用.exe，.text等可執(zhí)行文件，由于VB中提供了多種對(duì)文件進(jìn)行操作的關(guān)鍵字，如本程序中用到的open關(guān)鍵字可對(duì)文件進(jìn)行訪問(wèn)或創(chuàng)建操作，但僅限于文本格式，因此可對(duì)藍(lán)牙4.0接收的電腦中的數(shù)據(jù)文本進(jìn)行讀寫操作）。

Visual Basic還提供了shell函數(shù)，該函數(shù)具有執(zhí)行.exe， .com，.bat等可執(zhí)行文件，打開文件夾、網(wǎng)址、任務(wù)管理器等，調(diào)用系統(tǒng)軟件（計(jì)算器、筆記本、畫圖等程序），實(shí)現(xiàn)用戶注銷、關(guān)閉系統(tǒng)、重啟系統(tǒng)等功能。在本文底層程序設(shè)計(jì)中需要考慮如何使用VB實(shí)現(xiàn)與藍(lán)牙4.0的匹配通信，當(dāng)前大部分筆記本電腦都自帶藍(lán)牙功能，但由于這些藍(lán)牙設(shè)備是硬件系統(tǒng)，而VB只能調(diào)用軟件程序，因此VB無(wú)法直接調(diào)用電腦自帶的藍(lán)牙設(shè)備。為解決該問(wèn)題，我們決定在電腦上外接一個(gè)藍(lán)牙模塊，通過(guò)VB調(diào)用外設(shè)藍(lán)牙驅(qū)動(dòng)與上位機(jī)連接的遠(yuǎn)程硬件。本程序利用shell函數(shù)執(zhí)行外設(shè)藍(lán)牙在電腦上自動(dòng)安裝的exe驅(qū)動(dòng)，并在可視界面上顯示藍(lán)牙配對(duì)窗口。

2 界面設(shè)計(jì)

用戶界面是應(yīng)用程序的重要組成部分，應(yīng)具有非常友好的人機(jī)界面，既方便使用，又能體現(xiàn)出絕大部分程序功能。Visual Basic為用戶提供了如窗體、菜單、各種命令按鈕等大量控件，用戶只需使用鼠標(biāo)將這些控件拖動(dòng)到窗體相應(yīng)位置，并對(duì)其外觀屬性進(jìn)行簡(jiǎn)單設(shè)置，便能設(shè)計(jì)出用戶所需的應(yīng)用程序界面[4]。

窗體是應(yīng)用程序的重要組成部分。在程序運(yùn)行時(shí)，每個(gè)窗體都對(duì)應(yīng)一個(gè)窗口。窗體是用戶和應(yīng)用程序之間的交互接口，是VB中的重要對(duì)象，可作為其他控件的“父對(duì)象”。即窗體除具有自身的屬性、方法外，還可以作為其他控件的容器，在其中仿真除窗體之外的其他控件，如文本框、圖片框、按鈕等。窗體文件的擴(kuò)展名為.frm，根據(jù)其功能的不同，可以分為SDI窗體（單文檔窗體）和MDI窗體（多文檔窗體）。該程序的界面設(shè)計(jì)采用多文檔窗體，可對(duì)用戶登錄界面和數(shù)據(jù)可視化界面進(jìn)行窗體操作，使得該程序更人性化和商業(yè)化。該程序界面設(shè)計(jì)如圖1，圖2所示。

3 數(shù)據(jù)庫(kù)通信設(shè)計(jì)

數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)在上位機(jī)應(yīng)用控制系統(tǒng)中占有非常重要的地位，是上位機(jī)應(yīng)用程序連接訪問(wèn)后臺(tái)數(shù)據(jù)庫(kù)的橋梁。Visual Basic作為一種功能強(qiáng)大的桌面開發(fā)軟件，為用戶提供了多種訪問(wèn)數(shù)據(jù)庫(kù)的方法。

3.1 Visual Basic訪問(wèn)數(shù)據(jù)庫(kù)的基本原理

Visual Basic設(shè)計(jì)了多種訪問(wèn)數(shù)據(jù)庫(kù)的方法，其中接口對(duì)象法和數(shù)據(jù)控件法是最基本的兩種方式。DAO、RDO和ADO是最常用的訪問(wèn)數(shù)據(jù)庫(kù)的方法。DAO是利用JET數(shù)據(jù)庫(kù)引擎面向?qū)ο蟮慕涌?；RDO是用于訪問(wèn)ODBC的面向?qū)ο蟮慕涌冢籄DO是基于面向?qū)ο竽Ｐ偷脑L問(wèn)技術(shù)，這三種方式均通過(guò)JET數(shù)據(jù)庫(kù)引擎完成[5]。主要過(guò)程為VB通過(guò)用戶界面向數(shù)據(jù)庫(kù)發(fā)送連接請(qǐng)求，成功連接后，數(shù)據(jù)庫(kù)對(duì)VB發(fā)來(lái)的數(shù)據(jù)進(jìn)行分析處理和儲(chǔ)存，最后將數(shù)據(jù)處理結(jié)果返回給VB并顯示。

3.2 關(guān)于數(shù)據(jù)庫(kù)

數(shù)據(jù)庫(kù)是計(jì)算機(jī)應(yīng)用系統(tǒng)中一種專門管理數(shù)據(jù)資源的系統(tǒng)。MySQL是一個(gè)快速、健壯的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。MySQL數(shù)據(jù)庫(kù)在數(shù)據(jù)存儲(chǔ)、處理、安全、功能等方面優(yōu)勢(shì)明顯，如MySQL的每個(gè)表可以處理多達(dá)5千萬(wàn)條記錄；MySQL數(shù)據(jù)寫入速度相比SQLServe、Access提高了約99%，并優(yōu)化了查詢算法，減少了數(shù)據(jù)查詢用時(shí)；MySQL設(shè)置了嚴(yán)格的訪問(wèn)權(quán)限，以保證已存儲(chǔ)數(shù)據(jù)的安全；MySQL提供了TCP/IP，ODBC和JDBC等多種數(shù)據(jù)庫(kù)連接方式。

此外，MySQL占用磁盤空間較少，僅100多兆，安裝、啟動(dòng)與執(zhí)行較為方便。對(duì)于一般用戶和中小企業(yè)而言，得益于MySQL的開源性，大大降低了軟件開發(fā)成本，受到了廣大使用者的歡迎[6]。

3.3 SQL語(yǔ)言

SQL語(yǔ)言是結(jié)構(gòu)化查詢語(yǔ)言的簡(jiǎn)稱。SQL語(yǔ)言是當(dāng)前應(yīng)用最廣泛的數(shù)據(jù)庫(kù)查詢和程序設(shè)計(jì)語(yǔ)言，主要用于存取數(shù)據(jù)及查詢、管理和更新關(guān)聯(lián)數(shù)據(jù)庫(kù)系統(tǒng)[7]。

SQL語(yǔ)言是高級(jí)的非過(guò)程化編程語(yǔ)言，可運(yùn)行在許多具有完全不同底層結(jié)構(gòu)的數(shù)據(jù)庫(kù)系統(tǒng)之間。SQL語(yǔ)言具有優(yōu)秀的可移植性，基本上獨(dú)立于數(shù)據(jù)庫(kù)本身，可在不同的操作系統(tǒng)、網(wǎng)絡(luò)結(jié)構(gòu)和計(jì)算機(jī)硬件系統(tǒng)上運(yùn)行。SQL語(yǔ)句可嵌套使用，具有極大地靈活性。

3.4 關(guān)鍵程序設(shè)計(jì)

通過(guò)用戶界面與數(shù)據(jù)庫(kù)的交流和通信，實(shí)現(xiàn)了數(shù)據(jù)傳輸和轉(zhuǎn)化的功能。在本程序設(shè)計(jì)過(guò)程中直接操作MySQL數(shù)據(jù)庫(kù)源碼，可實(shí)現(xiàn)上位機(jī)與數(shù)據(jù)庫(kù)引擎的鏈接，將接收的多組數(shù)據(jù)打包發(fā)送到數(shù)據(jù)庫(kù)中不同表的相應(yīng)位置。因VB只能將數(shù)據(jù)追加至SQL源碼，或?qū)υ创a進(jìn)行覆蓋，故在程序設(shè)計(jì)中用到了堆棧操作。堆棧采用先進(jìn)后出（FILO）的方式處理數(shù)據(jù)，因?yàn)閮H讀取上一條發(fā)送的數(shù)據(jù)，故使用堆棧相對(duì)于RAM更加高效。

程序運(yùn)行流程如圖 3所示。啟動(dòng)上位機(jī)后，在用戶交互界面上點(diǎn)擊藍(lán)牙并成功配對(duì)后，VB會(huì)調(diào)用shell函數(shù)（shell“Bluetooth.exe”，1）啟動(dòng)電腦上的Bluetooth設(shè)備界面，程序先判斷電腦藍(lán)牙是否已與外部收集數(shù)據(jù)的硬件中的內(nèi)部藍(lán)牙完成連接，若未成功連接，則需先啟動(dòng)電腦上自帶的驅(qū)動(dòng)藍(lán)牙。藍(lán)牙連接成功后，點(diǎn)擊測(cè)量，上位機(jī)通過(guò)藍(lán)牙接收外部硬件發(fā)送的數(shù)據(jù)，然后保存在堆棧與數(shù)據(jù)庫(kù)中，并顯示在交互界面的顯示屏上。上位機(jī)讀取數(shù)據(jù)后用戶將會(huì)進(jìn)行兩種操作，其一，將數(shù)據(jù)傳送到數(shù)據(jù)庫(kù)對(duì)應(yīng)表格進(jìn)行存儲(chǔ)和整理分析操作；其二，用戶調(diào)用上一條已傳送到數(shù)據(jù)庫(kù)中的數(shù)據(jù)并查看。

最終效果如圖 4所示。圖（a）所示為數(shù)據(jù)庫(kù)源碼中已存儲(chǔ)的數(shù)據(jù)，圖（b）是用戶點(diǎn)擊“測(cè)量”后，將上位機(jī)接收到的數(shù)據(jù)顯示在用戶交互界面上，圖（c）是用戶點(diǎn)擊“發(fā)送”后，上位機(jī)將新接收的數(shù)據(jù)發(fā)送到數(shù)據(jù)庫(kù)對(duì)應(yīng)表格存儲(chǔ)區(qū)域的狀態(tài)。在程序運(yùn)行中圖（a）和圖（c）不可見(jiàn)。

從上位機(jī)發(fā)送數(shù)據(jù)到數(shù)據(jù)庫(kù)MySQL源碼中特定表格位置的程序代碼如下（利用堆棧）：

Dim s1 As String

Open “F：＼host＼Miscellaneous＼start.txt” For Binary As #1

s1 = Input（LOF（1）， #1）

Close #1

Dim s2 As String

Open “F：＼host＼Miscellaneous＼end.txt” For Binary As #1

s2 = Input（LOF（1）， #1）

Close #1

Open “F：＼host＼Stack＼interimDate.txt” For Append As #1 //上位機(jī)存儲(chǔ)數(shù)據(jù)文件

Print #1， “（“ + Text3.Text + “，” + Text3.Text + “，” + Text2.Text + “，” + Text1.Text + “），”

Close #1

Open “F：＼host＼Stack＼last.txt” For Output As #1 //My SQL源碼文件

Print #1， “（“ + Text3.Text + “，” + Text3.Text + “，” + Text2.Text + “，” + Text1.Text + “），”

Close #1

Dim s3 As String

Open “F：＼host＼Stack＼interimDate.txt” For Binary As #1

s3 = Input（LOF（1）， #1）

Close #1

Open “F：＼host＼Datebase＼newyak.sql” For Output As #1

Print #1， s1 + s3 + s2

Close #1

4 結(jié) 語(yǔ)

Visual Basic功能強(qiáng)大，用戶界面設(shè)計(jì)方便、簡(jiǎn)潔，被廣泛應(yīng)用在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開發(fā)中[7]。相比WiFi等無(wú)線通信技術(shù)，藍(lán)牙作為一種短距離無(wú)線通信技術(shù)，具有低成本、低功耗和低輻射等特點(diǎn)，成為設(shè)計(jì)上位機(jī)短距離無(wú)線數(shù)據(jù)傳輸?shù)氖走x。在上位機(jī)與數(shù)據(jù)庫(kù)連接和傳輸數(shù)據(jù)的過(guò)程中，本文將VB6.0與MySQL結(jié)合，利用堆棧原理，將數(shù)據(jù)直接傳輸?shù)綌?shù)據(jù)庫(kù)MySQL語(yǔ)言源碼中的特定位置，以實(shí)現(xiàn)數(shù)據(jù)庫(kù)中數(shù)據(jù)的調(diào)用。

參考文獻(xiàn)

[1]關(guān)琳琳.試論VB編程語(yǔ)言在軟件開發(fā)中的應(yīng)用[J].河南科技，2003（2）：3.

[2]李霞.基于WIFI網(wǎng)絡(luò)通信遠(yuǎn)程控制上位機(jī)界面編程設(shè)計(jì)[D].呼和浩特：內(nèi)蒙古大學(xué)， 2011.

[3]郭圣路，張榮圣.Visual Basic 從入門到精通[M].北京：清華大學(xué)出版社，2008.

[4]高興，劉芳.VB訪問(wèn)數(shù)據(jù)庫(kù)的原理與方法比較及發(fā)展前景[J].科協(xié)論壇（下半月），2008（4）：80.

[5]孟小峰，周龍?bào)J，王珊.數(shù)據(jù)庫(kù)技術(shù)發(fā)展趨勢(shì)[J].軟件學(xué)報(bào)，2004，15（12）：1822-1836.

[6]楊姝，路遙，馬紅霞.SQL查詢語(yǔ)句的優(yōu)化方法研究[J].硅谷，2011（2）：95.

[7]高天哲.淺析VB中的數(shù)據(jù)庫(kù)技術(shù)[J].電腦知識(shí)與技術(shù)：學(xué)術(shù)交流，2009，5（33）：9450-9451.

[8]翁祖泉，張琪.基于物聯(lián)網(wǎng)海量數(shù)據(jù)處理的數(shù)據(jù)庫(kù)技術(shù)分析與研究[J].物聯(lián)網(wǎng)技術(shù)，2014，4（6）：88-90.