工業(yè)控制系統(tǒng)數(shù)據(jù)報表實現(xiàn)最佳操作法（工程師培訓）

PAGEPAGE8工業(yè)控制系統(tǒng)數(shù)據(jù)報表實現(xiàn)最佳操作法一．概述工業(yè)控制系統(tǒng)數(shù)據(jù)報表是工業(yè)自動化應用的一個重要方面，也是工業(yè)控制領域應用的一個難點。怎樣開發(fā)一套外觀美觀又非常實用的數(shù)據(jù)報表系統(tǒng)，一直是技術(shù)人員在積極探討的一個問題。隨著計算機技術(shù)和工業(yè)控制技術(shù)的發(fā)展，工業(yè)控制系統(tǒng)開發(fā)軟件的功能越來越強大，為我們解決這一問題提供了手段。經(jīng)過不斷的實踐，利用現(xiàn)在應用非常普遍的IFIX和INTOUCH軟件和與其嵌套的VBA功能,SQLSERVER功能等通過調(diào)用ADO方式建立和訪問過程數(shù)據(jù)庫,與EXCEL電子表格相連接,從而實現(xiàn)了完美的數(shù)據(jù)報表功能的方法.包括數(shù)據(jù)報表的顯示,數(shù)據(jù)查詢,報表打印等.IFIX軟件介紹IFIX是Intellution公司工業(yè)自動化軟件FIX家族中的最新產(chǎn)品。Intellution在提供強有力的工業(yè)自動化軟件方面處于領先地位。IFIX提供的具體功能包括：監(jiān)視：將現(xiàn)場數(shù)據(jù)實時提供給操作員；監(jiān)控：監(jiān)視實時數(shù)據(jù)并對特殊數(shù)據(jù)提供必要的控制；報警：識別控制過程中的異常事件能力并予以報告；控制：提供必要的算法，調(diào)整過程數(shù)據(jù)值；另外，實時數(shù)據(jù)僅僅是處理中的一級，許多現(xiàn)場需要將實時數(shù)據(jù)作成報表并保存這些報表，供以后分析時使用。IFIX軟件提供的報表設計器(CRYSTALREPORT)通過工業(yè)標準數(shù)據(jù)交換規(guī)約如DDE和ODBCSQL,具有生成報表和文件的能力.但是,報表設計器價格昂貴,一般用戶不想在此投入過多.雖然勉強使用EXCEL電子報表可以生成簡單報表.但是,距離用戶的要求還有相當大的差距.這些問題主要表現(xiàn)在以下幾個方面:不能按照工業(yè)現(xiàn)場的實際情況自由設計報表格式;歷史數(shù)據(jù)不便查詢;歷史數(shù)據(jù)不能夠長時間保存,工業(yè)現(xiàn)場數(shù)據(jù)要求保存半年或一年的時間.因此,有必要另辟途徑解決這幾個問題.而IFIX嵌套了VBA功能,為我們解決問題提供了強大的開發(fā)工具.EXCEL的幾個特點EXCEL是一個功能強大的電子表格軟件,它具有以下幾個非常優(yōu)秀特點:軟件提供方便,熟悉者較多;具有強大的數(shù)據(jù)計算和分析功能;可以自由設計各種不同形式的表格格式;可以連接不同的數(shù)據(jù)源,獲取各種外部的數(shù)據(jù);支持DDE,ODBC等數(shù)據(jù)交換方式;支持VBA腳本的程序開發(fā);自由錄制以VBA為腳本的宏文件;正是EXCEL具有以上特點,而且也支持VBA程序的開發(fā)和執(zhí)行,使得我們有可能將IFIX和EXCEL連接起來,滿足報表的設計要求.VBA提供的數(shù)據(jù)庫開發(fā)工具和VB一樣,VBA提供了多種數(shù)據(jù)庫開發(fā)工具.最常用的包括最常見的DATA控件;DAO(數(shù)據(jù)訪問對象)技術(shù);ADO(ActiveXDataObject)技術(shù);DBGrid控件.通過這些標準的方式，用戶可以方便的訪問關(guān)系型數(shù)據(jù)庫，可以添加，查詢，修改，追加數(shù)據(jù)庫中數(shù)據(jù)。數(shù)據(jù)儲存于數(shù)據(jù)庫以后，可以使用VBA中提供的SQL語句查詢數(shù)據(jù)，使用DBGrid控件顯示數(shù)據(jù)。這些標準的數(shù)據(jù)庫開發(fā)工具使用簡單,無須任何其他的支持程序,只要支持VBA的軟件,都可以通過調(diào)用這些標準工具來訪問和管理數(shù)據(jù)庫.五．報表實現(xiàn)的方法1.建立一個能夠反映生產(chǎn)過程全部信息的關(guān)系型數(shù)據(jù)庫,根據(jù)用戶的要求,可以選用不同規(guī)模的數(shù)據(jù)庫系統(tǒng).簡單起見,選用ACCESS數(shù)據(jù)庫.使用IFIX程序開發(fā)管理數(shù)據(jù)庫的人機界面,在IFIX平臺下,與IFIX開發(fā)的監(jiān)控畫面一樣,可以顯示利用VBA開發(fā)的窗體,在窗體上,可以使用各種標準的控件,如按鈕,文本框,復選框等.以下是兩個窗體的實例.顯示所選數(shù)據(jù)的窗體打印輸出的窗體通過IFIX軟件提供的調(diào)度表功能,添加基于時間事件的VBA腳本程序,周期性的將IFIX采集的現(xiàn)場數(shù)據(jù)寫入數(shù)據(jù)庫,采用ADO的方式:(1)按指定格式取當前時間SysTimeYear=Format(Now,"YYYY")SysTimeMonth=Format(Now,"MM")SysTimeDay=Format(Now,"DD")SysDate=SysTimeYear&SysTimeMonth&SysTimeDay(2)將所要保存的數(shù)據(jù)送入數(shù)組暫存tbl(0)=Fix32.Fix.raa.f_cvtbl(2)=Fix32.Fix.rbb.f_cv(3)設定ADO數(shù)據(jù)庫連接對象,指定所連接的數(shù)據(jù)庫文件名稱cnDB.Provider="MicrosoftJet3.51OLEDBProvider"cnDB.ConnectionString="c:\Dynamics\pdb\hnky.MDB"cnDB.Mode=adModeReadWritecnDB.Open(4)向數(shù)據(jù)庫中指定的表存儲數(shù)據(jù)SetrsDB.ActiveConnection=cnDBrsDB.LockType=adLockOptimisticrsDB.CursorType=adOpenStaticrsDB.Open"select*fromhnkyb1"rsDB.AddNewrsDB.Fields(0)=SysDatersDB.Fields(1)=Format(Now,"HH:MM:SS")rsDB.Fields(2)=tbl(0)rsDB.Fields(3)=tbl(1)rsDB.UpdatersDB.ClosecnDB.CloseSetrsDB=Nothing通過ADO方式，用戶可以方便的訪問關(guān)系型數(shù)據(jù)庫，可以添加，查詢，修改，追加數(shù)據(jù)庫中數(shù)據(jù)。數(shù)據(jù)儲存于數(shù)據(jù)庫中以后，可以方便的利用VBA中提供的SQL語句查詢數(shù)據(jù)，利用DBGrid控件顯示數(shù)據(jù)。另外，IFIX的VBA功能可以建立同EXCEL之間的聯(lián)系，通過這種聯(lián)系，將數(shù)據(jù)庫中的數(shù)據(jù)在EXCEL表格中顯示出來，之后，可以進行打印操作。下面介紹詳細編程方法：建立IFIX和EXCEL之間的連接DimExcelappAsObjectDimExcelappAsExcel.ApplicationSetExcelapp=CreateObject("Excel.Application")打開一個EXCEL表格文件DimExcelFileNameAsStringExcelFileName="c:\WINNT\Profiles\Administrator\Personal\mgyl.xls"Excelapp.Workbooks.Open(ExcelFileName)Excelapp.Workbooks.OpenFileName="c:\WINNT\Profiles\Administrator\Personal\mgyl.xls"Excelapp.Workbooks.OpenFileName="c:\WINNT\Profiles\Administrator\Personal\mgyl.xls",ReadOnly:=False使用SQL語句定義的條件選擇數(shù)據(jù)庫符合條件的數(shù)據(jù)SQLDBLIST1="select*fromHNKYB1where日期like'"&MyDate2&"%'orderby日期"(4)向單元格中寫值.Workbooks("mgyl.xls").Worksheets("sheet1").range("a1").Value=TB1(0).Workbooks("mgyl.xls").Worksheets("sheet1").range("a2").Value=TB1(1)(5)打印工作表Excelapp.ActiveSheet.PrintOutCopies:=1Excelapp.Workbooks("mgyl.xls").Worksheets("sheet1").PrintOutCopies:=1設定工作表的可見性Excelapp.Visible=True選擇工作薄，工作表，單元格，另存文件Excelapp.Workbooks.AddExcelapp.DisplayAlerts=FalseCtiveWorkbook.SaveAsFileName:="c:\WINNT\Profiles\Administrator\Personal\mgyl.xls",FileFormat:=x1Normal,-Password:="",WriteResPassword:="",ReadOnlyRecommended:=False,-CreateBackup:=FalseExcelapp.Windows("mgyl.xls").ActivateExcelapp.Workbooks("mgyl.xls").Worksheets("sheet2").SelectExcelapp.Workbooks("mgyl.xls").Worksheets("sheet2").Range("f1").Select顯示信息框MsBox"OK!"退出前保存Excelapp.ActiveWorkbooks.SaveExcelapp.ActiveWorkbooks("mgyl.xls").Save(10)關(guān)閉文件Excelapp.ActiveWorkbooks.CloseExcelapp.ActiveWorkbooks("mgyl.xls").Close(11)退出EXCELExcelapp.QUIT(12)釋放變量