《電子技術應用》
您所在的位置:首頁 > 通信與網(wǎng)絡 > 設計應用 > 基于Webaccess平臺的SQL server數(shù)據(jù)庫的應用
基于Webaccess平臺的SQL server數(shù)據(jù)庫的應用
來源:微型機與應用2013年第1期
魏 凱,張?zhí)扉_,王顯靜,孫亦霖
(青島理工大學 自動化學院,山東 青島 266033)
摘要: 介紹了采用SQL數(shù)據(jù)庫,分別在Webaccess腳本、VB采集程序和Delphi的檢測程序中調用,解決大量數(shù)據(jù)的流通及存儲的問題。
Abstract:
Key words :

摘  要: 介紹了采用SQL數(shù)據(jù)庫,分別在Webaccess腳本、VB采集程序和Delphi的檢測程序中調用,解決大量數(shù)據(jù)的流通及存儲的問題。
關鍵詞: Webaccess;數(shù)據(jù)庫;SQL;ADO;ODBC

 某空調通風試驗臺以Webaccess作為軟件平臺,用于采集測點數(shù)據(jù)、執(zhí)行算法并輸出控制信號。但在空調通風試驗臺的項目中,風速、壓力和溫度總共有140個采集點,如果采用Webaccess內部點,無法進行存儲。因為這些點的數(shù)據(jù)要被實時地保存。為此,本文介紹了基于Webaccess平臺、采用SQL sever作為本工程節(jié)點的數(shù)據(jù)保存數(shù)據(jù)庫,同時也考慮了可以方便其他局域網(wǎng)的應用程序訪問本機上的數(shù)據(jù),以作為分析的依據(jù)。
 在本系統(tǒng)中,應用程序訪問SQL數(shù)據(jù)庫通過ODBC或ADO兩種方式。ODBC是微軟開發(fā)的數(shù)據(jù)庫編程接口,應用程序可以通過ODBC訪問來自不同數(shù)據(jù)庫管理系統(tǒng)的數(shù)據(jù)。在Windows系統(tǒng)中,包含有ODBC接口的管理程序,如果要使用ODBC數(shù)據(jù)源,必須首先創(chuàng)建和配置數(shù)據(jù)源。ODBC管理器根據(jù)數(shù)據(jù)源提供的數(shù)據(jù)庫的位置、數(shù)據(jù)庫的類型和ODBC驅動程序,建立與數(shù)據(jù)庫的連接,應用程序對數(shù)據(jù)庫的操作通過ODBC完成。ADO是微軟提供的一種面向各種數(shù)據(jù)源的高級接口,開發(fā)人員只需編寫訪問數(shù)據(jù)庫的代碼而不用去關心如何去實現(xiàn),即只要關心和數(shù)據(jù)庫的連接;ADO通過OLE DB訪問和操作數(shù)據(jù)庫服務器中的數(shù)據(jù),通過ADO可以連接數(shù)據(jù)庫,并且指定訪問數(shù)據(jù)源的命令,最后執(zhí)行命令。
 在本系統(tǒng)中,連接一個本地SQLserver,并在這個服務器中建立了一個shuju數(shù)據(jù)庫,這個數(shù)據(jù)庫含有10個數(shù)據(jù)表,分別為:1個存儲修正值的表,3個實時的數(shù)據(jù)保存數(shù)據(jù)表,3個數(shù)據(jù)坐標直接讀取表和3個歷史坐標存儲總表。Webaccess在采集數(shù)據(jù)之后,存入數(shù)據(jù)庫,數(shù)據(jù)庫再把數(shù)據(jù)分享到局域網(wǎng)。整個系統(tǒng)的數(shù)據(jù)流向圖如圖1所示。

1 通過ODBC訪問數(shù)據(jù)庫
 在Windows系統(tǒng)中,采用Webaccess作為軟件平臺,其本身支持對數(shù)據(jù)庫的讀寫,但需要在Windows的ODBC管理器中添加ODBC數(shù)據(jù)源。在Windows XP系統(tǒng)的控制面板的管理工具中,數(shù)據(jù)源管理器中添加SQL server驅動、命名、選擇服務器,然后添加數(shù)據(jù)庫shuju,測試連接即完成。每次在腳本中執(zhí)行SQL語句、進行操作數(shù)據(jù)庫之前,必先連接數(shù)據(jù)源。下面介紹如何連接shuju數(shù)據(jù)庫、讀寫存儲溫度的數(shù)據(jù)表TDATATABLE和存儲矯正值的數(shù)據(jù)表xiuzheng。
 (1)在xiuzheng數(shù)據(jù)表中存儲了在Webaccess中對每個點的傳感器數(shù)據(jù)的矯正值,每當每個點的數(shù)據(jù)存儲到數(shù)據(jù)庫之前,必須讀取xiuzheng表中的矯正值,加到讀入的數(shù)據(jù)值上。其代碼如下:
SQLDIRECT”CONNECT SESSION 1 TO shuju,sa,”  
 #建立與數(shù)據(jù)庫的連接,用戶名為sa,密碼為空[1]
 SQLDIRECT "USE SESSION 1"  #使用連接
 SQLPREPARE "DECLARE C1 CURSOR FOR "  
 #這一條語句從數(shù)據(jù)庫flag=1處讀取,并記錄到緩存
 SQLPREPARE"SELECTTO1,TO2,TO3,TO4,TO5,TO6,TO7,TO8,TO9,TO10,"
 …...
 SQLPREPARE "TO51,TO52,TO53,TO54,TO55,TO56,TO57,TO58,TO59,TO60"
 SQLPREPARE "FROm xiuzheng WHERE Flag=1"
 SQLEXECUTE  #sql語句執(zhí)行
 SQLDIRECT "OPEN C1"  
 #將緩存中的數(shù)據(jù)讀取到本地點中
 SQLPREPARE "FETCH NEXT C1 INTO m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,"
 ……
 SQLPREPARE"m51,m52,m53,m54,m55,m56,m57,m58,m59,m60"
 SQLEXECUTE
 SQLDIRECT "CLOSE C1"  #關閉連接
 set m1 [expr $m1+[GETVAL TT1]]  
 #將驅動讀取到傳感器的數(shù)據(jù)加上矯正值
 set m2 [expr $m2+[GETVAL TT2]]
 ……
 set m60 [expr $m60+[GETVAL VV60]]
?。?)將讀到的傳感器測量的點的數(shù)值加上矯正值存儲到TDATATABLE。其代碼如下:
 SQLDIRECT”CONNECT SESSION 1 TO shuju,sa,”
 #連接數(shù)據(jù)庫
 SQLDIRECT”USE SESSION 1”
 SQLPREPARE”INSERT INTO TDATABASE VALUES(”SQLPREPARE”'[GETVAL  %TI
 MDATE]','[GETVAL %TTMTIME]'”
 SQLPREPARE” $m1,$2, $m3,$m4,$m5,”
 ……
 SQLPREPARE”$m56,$m57,$m58,$59,$m60)”
 #將系統(tǒng)日期,時間和局部點讀取到TDATEBASE數(shù)據(jù)表中
 SQL.EXECUTE
 SQLDIRECT”DISCONNECT SESSION1”
2 通過ADO接口連接到數(shù)據(jù)庫
 (1)在Webaccess中局部點存儲了坐標值,只有當局部點文件被加載時才能把這些點賦值。本文采用在Webaccess的總體腳本中添加VB輔助程序、運行總體腳本時在VB程序中給這些局部點賦值。
 在VB輔助程序中,VB控件作為第三方控件在Webaccess平臺中實現(xiàn)與數(shù)據(jù)庫的連接。由于嵌入到Webaccess中的控件是通過bwocxrun.exe與Webaccess通信,因此要把bwocx.ocx引用到VB中。在VB中新建ActiveX控件—>工程—>部件bwocxrun ActiveX Control modole—>接口向導—>hWnd—>映射到UserControl—>數(shù)據(jù)類型為string—>在空白處添加ocx控件。
 在VB控件中建立與SQL數(shù)據(jù)庫的連接,本系統(tǒng)采用ADO連接數(shù)據(jù)庫,而在VB中采用ADO接口。主要有兩種方式:一是采用ADOdata控件連接數(shù)據(jù)庫,二是采用ADO對象與數(shù)據(jù)庫連接。在采用第二種方式時還有兩種方式:分別是ADO對象和ODBC數(shù)據(jù)源連接或者ADO對象和指定的OLE DB提供者連接數(shù)據(jù)庫。本文采用ADO對象和指定的OLE DB連接方式。以下是與TXYZTABLE的連接:
 Dim conn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 Private sub form_load()
 Set conn=New ADODB.Connection
 Set rs=New ADODB.Recordset
 Dim s1,s2 As String
 Dim ft1,ft2…..as byte
 Dim xt1,yt1,zt1…as single
 conn.ConnectionString=”driver={sqlserver};server=127.0.0.1;uid=sa;pwd=;Connection  Timeout=0;Database=shuju”  
 ′與數(shù)據(jù)庫建立連接的字符串[2]
 conn.open ′建立與數(shù)據(jù)的連接
 ft1=Bwocxrun1.GetValue(“FT1”,ME.AP)
 ′通過Bwocxrun控件將Webaccess中的點讀到VB中的變量[3]
 xt1=Bwocxrun1.GetValue(“XT1”,ME.AP)
 yt1=Bwocxrun1.GetValue(“YT1”,ME.AP)
 zt1=Bwocxrun1.GetValue(“ZT1”,ME.AP)
 ……..
 S1=”USE shuju”
 conn.Execute s1
 s2=”INSERT INTO TXYZTABLE VALUES(1,”&ft1&”’,’”&xt1&”’,’”&yt1&”’,’”&zt1&”,’……’)”
 conn.Exexute s2
 ′將這些變量存儲到shuju數(shù)據(jù)庫的TXYZTABLE表中
 (2)在本系統(tǒng)中,由于如果改變測點額定坐標,將會使以前的坐標信息全部丟失。為了存儲過去的歷史坐標,系統(tǒng)建立了一個歷史坐標數(shù)據(jù)表。利用Delphi編寫了一個輔助程序將當前的測點坐標存儲到數(shù)據(jù)庫中,當測量點修改后,可以運行該程序將改動的坐標存儲到歷史坐標數(shù)據(jù)庫中。當在使用以前的測量點時,也可以在程序中選擇以前存儲的歷史坐標加載到測量點的局部點。
 使用Delphi編寫試驗坐標處理程序時,其程序采用ADO數(shù)據(jù)庫訪問接口進行連接數(shù)據(jù)庫,采用ODBC驅動程序連接數(shù)據(jù)源。圖2為該程序的界面。

 

 

 在編寫程序時,需要在新建的窗體上添加ADOConnection和ADOQUERY控件。其中這ADOConnection的connectionstring屬性為”Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=shuju”,并為ADOQUERY添加connection屬性為ADOConnection的name[4]。
在MPXYZTABLE中,每一條記錄的第一個字段表示第幾條實驗記錄。下面是以壓力歷史坐標表演示將數(shù)據(jù)編號讀出,并將選擇的編號的數(shù)據(jù)記錄讀取到坐標數(shù)據(jù)表的示例:
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add(′SELECT*FROM MPXYZTABLE′); //連接數(shù)據(jù)庫選擇數(shù)據(jù)表
 ADOQuery1.Open; //打開數(shù)據(jù)表
 j:= ADOQuery1.RecordCount;
 ……
 ADOQuery1.FindFirst;
 for i:=0 to j-2 do
 begin ComboBox1.Items.Add(ADOQuery1.Fields[0].Value);  //將編號提取到下拉控件中顯示
 testname[i]:=ADOQuery1.Fields[0].Value;
 ADOQuery1.FindNext;  //下一條記錄
 下面是把歷史坐標中選擇的編號相應的記錄輸出到全局變量中,然后把這些變量再寫入到坐標表中的代碼:
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add(′SELECT*FROM MTXYZTABLE WHERE FLAG=′′′+ComboBox1.Text+′′′′);
 ADOQuery1.Open;
    for i:=1 to 240 do
      begin
 if ADOQuery1.Fields[i].Value=NULL then
    //檢測記錄是否為空
       begin
         data[i]:=0;
       end
 else
  data[i]=ADOQuery1.Fields[i].Value;   
         //把MTXYZTABLE中的數(shù)據(jù)讀到數(shù)組中
 end;
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add(′update TXYZTABLE setFLAG=′′′+inttostr(1)+′′′,F(xiàn)T1=′′′+floattostr(data[1])+′ ′′,XT1=′′′+floattostr(data[2])+′′′,YT1=′′′+floattostr(data[3])+′′′,ZT1=′′′+floattostr(data[4])+′′′,′?。?;
 ……
 ADOQuery1.SQL.Add(′FT2=′′′+floattostr(data[57])+′′′,XT2=′′′+floattostr(data[58])+′′′,YT2=′′′+floattostr(data[59])+′′′,ZT2=′′′+floattostr(data[60])+′′′,′);  
 //把數(shù)組中的值寫入到坐標數(shù)據(jù)表TXYZTABLE
 以上就是在Webaccess中SQL數(shù)據(jù)庫的調用和操作。在實際的應用中只要掌握簡單的查詢語句,就可以對數(shù)據(jù)庫進行操作。
參考文獻
[1] 研華(中國)公司自動化事業(yè)群.Advantech WebAccess產品使用手冊[S].2009.
[2] 陳艷峰,高文姬,邵蘊秋,等.Visul Basic 數(shù)據(jù)庫項目案例導航[M].北京:清華大學出版社,2004.
[3] 劉德生,張?zhí)扉_.基于VB的WebAccess組態(tài)功能擴展[J].微型機與應用,2011,30(12):29.
[4] 鄭阿奇.Delphi實用教程[M].北京:電子工業(yè)出版社,2006.

此內容為AET網(wǎng)站原創(chuàng),未經授權禁止轉載。