rsview數(shù)據(jù)報(bào)表

1、1引言引言作為組態(tài)軟件，羅克韋爾RSView32提供了強(qiáng)大的數(shù)據(jù)監(jiān)控能力，方便用戶進(jìn)行上位機(jī)的畫面組態(tài)。由于RSView32并沒有提供強(qiáng)大的報(bào)表功能，如果只進(jìn)行簡單的數(shù)據(jù)分析，報(bào)表變化不是很復(fù)雜，并且對(duì)數(shù)據(jù)可移動(dòng)性無太高要求，組態(tài)軟件可實(shí)現(xiàn)。然而一旦涉及到復(fù)雜的數(shù)據(jù)處理，組態(tài)軟件往往表現(xiàn)得力不從心。但是RSView32內(nèi)嵌有VBA，VBA是VisualBasicfApplication的簡寫，它以VB語言為基礎(chǔ)，經(jīng)過修改并運(yùn)行在Micr

2、osoftOffice的應(yīng)用程序。只要使用VBA進(jìn)行簡單的編程便可以實(shí)現(xiàn)大多數(shù)報(bào)表功能了。在PLC——計(jì)算機(jī)監(jiān)控系統(tǒng)中，界面設(shè)計(jì)通常組態(tài)軟件來實(shí)現(xiàn)。2開發(fā)環(huán)境及數(shù)據(jù)記錄格式簡介開發(fā)環(huán)境及數(shù)據(jù)記錄格式簡介RSView32是RockWellSoftWare公司的組態(tài)軟件，它提供集成的、組態(tài)化的人機(jī)接口，廣泛的用來監(jiān)視和控制自動(dòng)化設(shè)備和過程。它除了可以方便的與ALLENBRADLEYPLC進(jìn)行無縫的結(jié)合應(yīng)用，也可以通過使用OPC的通訊方式與其

3、它公司的設(shè)備進(jìn)行連接。ODBC(OpenDatabaseConnectivity開放式數(shù)據(jù)庫互連)是由微軟推出的工業(yè)標(biāo)準(zhǔn)，一種開放的獨(dú)立于廠商的API應(yīng)用程序接口，可以跨平臺(tái)訪問各種個(gè)人計(jì)算機(jī)、小型機(jī)以及主機(jī)系統(tǒng)。ODBC作為一個(gè)工業(yè)標(biāo)準(zhǔn)，絕大多數(shù)數(shù)據(jù)庫廠商都為自己的產(chǎn)品提供了ODBC接口或提供了ODBC支持，這其中就包括常用的SQLSERVER、ACLE、INFMIX等，當(dāng)然也包括了Access。RSView32的數(shù)據(jù)記錄是一個(gè)在特定

4、條件下保存指定的標(biāo)記數(shù)值或數(shù)據(jù)的過程。在“數(shù)據(jù)記錄設(shè)置”編輯器里可以創(chuàng)建定義不同條件的數(shù)據(jù)記錄模式本文將數(shù)據(jù)通過ODBC接口存儲(chǔ)到數(shù)據(jù)庫Access里即將標(biāo)記值被記錄到用ODBC接口連接到的數(shù)據(jù)庫Access的三個(gè)表格里:標(biāo)記表格(TagTable):把標(biāo)記名存儲(chǔ)到一個(gè)索引里符點(diǎn)數(shù)表格(FloatTable):存儲(chǔ)模擬量和開關(guān)量標(biāo)記數(shù)值字符串表格(StringTable):存儲(chǔ)字符串?dāng)?shù)值。本文中關(guān)心的是符點(diǎn)數(shù)表格(FloatTable)

5、，但在符點(diǎn)數(shù)表格中(FloatTable)沒有代表標(biāo)記名稱的Tagname字段，代替它的是標(biāo)記索引號(hào)TagIndex字段，這樣在分析報(bào)表時(shí)很不方便而在本文中將使用VBA解決表格帶來的不便。3實(shí)現(xiàn)原理實(shí)現(xiàn)原理RSView32從PLC采集的實(shí)時(shí)數(shù)據(jù)，通過ODBC接口存儲(chǔ)到數(shù)據(jù)庫Access中，在利用RSView32自帶的VBA開發(fā)，訪問Access數(shù)據(jù)庫，對(duì)實(shí)時(shí)數(shù)據(jù)進(jìn)行復(fù)雜的操作，可以通過VBA調(diào)用Excel，顯示和打印出美觀復(fù)雜的報(bào)表也可

6、以在通過VBA的窗體，表格控件，回顯在RSView32的人機(jī)界面上，作到無縫連接本文介紹前一種方法。通過Excel可以用VBA程序生成Excel報(bào)表及圖表，并利用Excel的功能完成打印預(yù)覽、打印等功能Excel對(duì)象封裝了微軟Excel的全部元素，例如Application對(duì)象表示Excel應(yīng)用程序，Wksheet對(duì)象表示Excel工作表等，利用Excel對(duì)象提供的屬性、方法和事件，在應(yīng)用程序中生成Excel報(bào)表及圖表Excel對(duì)象模型

7、描述了Excel中對(duì)象之間的結(jié)構(gòu)關(guān)系，如圖1所示?！畡?chuàng)建新的工作簿.Application.Wkbooks.Add‘EXCEL生成報(bào)表后全屏顯示.Application.WindowState=4137‘激活一個(gè)第一個(gè)工作表.Wksheets(“Sheet1“).Activate‘定義列寬.Columns(1).ColumnWidth=23.Columns(2).ColumnWidth=15.Columns(3).ColumnWidth

8、=17.Columns(4).ColumnWidth=15.Columns(5).ColumnWidth=17‘每列的內(nèi)容居中顯示FnColumn=1To5objExcel.Columns(nColumn).HizontalAlignment=41084108=xlCenterNextnColumn定義EXCEL表的列名.Rows(1).Font.Bold=True.cells(11).Value=“DataTime“.cells(12

9、).Value=“Ingred1pv“.cells(13).Value=“Ingred1sup_pv“.cells(14).Value=“Ingred2pv“.cells(15).Value=“Ingred2sup_pv“EndWith4.2數(shù)據(jù)讀出的步驟建立與數(shù)據(jù)庫的連接從中讀出我們所需要的數(shù)據(jù)來填充我們的報(bào)表下面的代碼實(shí)現(xiàn)了這樣的功能把采集到的時(shí)間寫入EXCEL的第一列中“Ingred1pv“、“Ingred1sup_pv“、“In

10、gred2pv“和“Ingred2sup_pv“的數(shù)據(jù)寫入EXCEL的第二、三、四和五列中。(1)建立與數(shù)據(jù)庫的連接Setconn=NewADODB.Connectionstr=“FileDSN=db.dsn“conn.OpenstrSetrs=NewADODB.Recdset‘采集當(dāng)日的數(shù)據(jù)SQL=”DateTimeMillitmfromFloatTablewheredatediff(‘d’DateTimedate())=0”rs.O