組態(tài)王對(duì)關(guān)系數(shù)據(jù)庫的查詢說明文檔

組態(tài)王對(duì)關(guān)系數(shù)據(jù)庫的查詢例程說明文檔“組態(tài)王對(duì)關(guān)系數(shù)據(jù)庫的査詢”例程說明文檔“組態(tài)王對(duì)關(guān)系數(shù)據(jù)庫的査詢”例程說明文檔TOC\o"1-5"\h\z\o"CurrentDocument"功能概述 1\o"CurrentDocument"工程實(shí)例 1\o"CurrentDocument"操作步驟 1\o"CurrentDocument"3.1數(shù)據(jù)庫以及表 1\o"CurrentDocument"3.2設(shè)置ODBC數(shù)據(jù)源 2\o"CurrentDocument"3.3利用SQL函數(shù)進(jìn)行查詢 53.4利用KVADODBGnd控件進(jìn)行査詢 11\o"CurrentDocument"注意事項(xiàng) 221?功能概述常規(guī)需求：很多工業(yè)現(xiàn)場(chǎng)要求對(duì)關(guān)系數(shù)據(jù)庫的數(shù)據(jù)根據(jù)不同的條件進(jìn)行查詢處理。組態(tài)王中的實(shí)現(xiàn)方法：1） 利用組態(tài)王的SQL函數(shù)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的數(shù)據(jù)的查詢處理。2） 利用組態(tài)王的KVADODBGnd控件實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的查詢處理。這兩種實(shí)現(xiàn)方法的不同之處在于:第一種方式是將查詢結(jié)果對(duì)應(yīng)到組態(tài)王的變量上,可以通過組態(tài)王的變量進(jìn)行相關(guān)的計(jì)算處理以及在命令語言中使用，但是如果符合條件的記錄有許多條則無法同時(shí)看到所有的查詢選擇結(jié)果。第二種方式是將查詢結(jié)果顯示到控件的表格中，可以看到所有符合條件的查詢記錄，并且可以另存為其他文件以及進(jìn)行打印操作，還可以通過控件的屬性、方法進(jìn)行其他的處理。工程實(shí)例我們以上一個(gè)例程“組態(tài)王數(shù)據(jù)存儲(chǔ)到外部數(shù)據(jù)庫”中所存儲(chǔ)的數(shù)據(jù)為例，上一個(gè)例程中我們把原料的生產(chǎn)廠家、原料編號(hào)、稱量日期、稱量時(shí)間，值班人員、原料重量的信息存到了Access數(shù)據(jù)庫中，現(xiàn)在我們要求對(duì)存儲(chǔ)的原料信息按照“稱量日期”進(jìn)行查詢。我們假設(shè)的前提是這個(gè)Access數(shù)據(jù)庫己經(jīng)存在，并且己經(jīng)存數(shù)據(jù)在數(shù)據(jù)庫中。具體的存儲(chǔ)數(shù)據(jù)到外部Access數(shù)據(jù)庫的過程我們可以參考其他文檔來實(shí)現(xiàn)。下面就以此為例來演示完成這一需求的具體步驟。操作步驟3.1數(shù)據(jù)庫以及表1） 假設(shè)在工程文件夾中己經(jīng)存在Access數(shù)據(jù)庫，數(shù)據(jù)庫為“數(shù)據(jù).mdb”。2） 在數(shù)據(jù)庫“數(shù)據(jù).mdb”中有一個(gè)數(shù)據(jù)表：表的名稱為：原料數(shù)據(jù)。字段為：稱量日期、稱量時(shí)間、原料重量、原料廠家、原料編號(hào)、值班人員。如下圖一所示：原料重量為數(shù)字類型（單精度），其余為文本類型。3）在數(shù)據(jù)庫的原料數(shù)據(jù)表中己經(jīng)存儲(chǔ)了許多數(shù)據(jù)。宇段名稱稱量日期稱量時(shí)間原料重量原料廠家文本文本文本原糾編號(hào)字段Ji性圖一原料數(shù)據(jù)表宇段名稱稱量日期稱量時(shí)間原料重量原料廠家文本文本文本原糾編號(hào)字段Ji性圖一原料數(shù)據(jù)表3.2設(shè)置ODBC數(shù)據(jù)源在“控制面板”一“管理工具”一“ODBC數(shù)據(jù)源”中建立ODBC數(shù)據(jù)源，點(diǎn)擊"ODBC數(shù)據(jù)源”彈出“ODBC數(shù)據(jù)源管理器”,如下圖二所示：在“系統(tǒng)DSN”中點(diǎn)擊“添加”,彈出“選擇數(shù)據(jù)源驅(qū)動(dòng)程序”窗口，如下圖三所示：選擇"MicrosoftAccessDnvei(*.mdb)”驅(qū)動(dòng)，點(diǎn)擊"完成”。彈出如圖四所示窗口，填寫ODBC數(shù)據(jù)源的名稱，名稱可以根據(jù)需要任意命名，我們命名為“數(shù)據(jù)”，點(diǎn)擊“選擇(S)”,如圖五示，選擇工程路徑下面的數(shù)據(jù)庫文件“數(shù)據(jù).mdb”。點(diǎn)擊“確定”完成ODBC數(shù)據(jù)源的定義，如圖六所示。其他數(shù)據(jù)庫如SQLSeiver的ODBC定義請(qǐng)參考相關(guān)文檔。圖二ODBC數(shù)據(jù)源管理器創(chuàng)建新數(shù)據(jù)源選擇您想為其安裝數(shù)據(jù)源的馳動(dòng)程序⑤-名稱Driv^yDriverDriv-erDriverDriv^yDriverdodododeFflierosoftMicrosoftMieros^ftFflicroso￡tFflierO5o￡tparaairquivostexto(*.Access(冰.mdb)(?.dbf)Excel〔*.xls)Far&Acbx(*.d'b)MicrosoftMicrosoftparaoMicrosoftVisualFoxProdBaseDriver(*.dbf)dBaseVTPDriver&.dbf)nr% m?- /l、I完成取消|圖三選擇數(shù)據(jù)源的驅(qū)動(dòng)程序圖四數(shù)據(jù)源定義圖五選擇數(shù)據(jù)庫圖六ODBC數(shù)據(jù)源定義3.3利用SQL函數(shù)進(jìn)行查詢利用組態(tài)王的SQL函數(shù)可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的記錄進(jìn)行查詢、插入、刪除等操作，我們這里只講述如何進(jìn)行查詢，其他的使用請(qǐng)參考組態(tài)王使用手冊(cè)以及函數(shù)手冊(cè)。組態(tài)王利用SQL函數(shù)進(jìn)行查詢時(shí)必須首先建立記錄體。3.3.1定義變量新建工程，然后定義變量，變量為內(nèi)存變量。在組態(tài)王中定義八個(gè)變量：原料廠家（內(nèi)存字符串）、原料編號(hào)（內(nèi)存字符串）、原料重量（內(nèi)存實(shí)數(shù)）、日期（內(nèi)存字符串）、時(shí)間（內(nèi)存字符串）、值班人員（內(nèi)存字符串）、査詢?nèi)掌冢▋?nèi)存字符串）、DevicelD（內(nèi)存整數(shù)）。3.3.2定義記錄體記錄體是用來連接數(shù)據(jù)庫的表格的字段和組態(tài)王數(shù)據(jù)詞典中的變量。創(chuàng)建記錄體：如圖七所示：記錄體名：Bindl,字段名稱為數(shù)據(jù)庫中表的字段需稱，變量名稱為組態(tài)王數(shù)據(jù)詞典中的變量。字段類型與變量類型需要一致。字段名稱要與數(shù)據(jù)庫中表的字段名稱一致。變量名稱與字段名稱可以不同。記錄體名稱可以根據(jù)需要命名。圖七定義記錄體3.3.3建立組態(tài)王與數(shù)據(jù)庫的關(guān)聯(lián)組態(tài)王與數(shù)據(jù)庫建立與斷開關(guān)聯(lián)主要是通過SQL函數(shù)來實(shí)現(xiàn)。通過SQLCoimectQ函數(shù)建立組態(tài)王與數(shù)據(jù)庫的連接。通過SQLDiscoimectO函數(shù)斷開組態(tài)王與數(shù)據(jù)庫的連接。本例程中數(shù)據(jù)庫無用戶名和密碼，具體用法如下：SQLComiect(DevicelD,Hdsn=數(shù)據(jù);uid=;pwd-*);其中DevicelD是用戶在數(shù)據(jù)詞典中創(chuàng)建的內(nèi)存整型變量，用來保存SQLCoimect()為每個(gè)數(shù)據(jù)庫連接分配的一個(gè)數(shù)值。建議將建立數(shù)據(jù)庫連接的命令函數(shù)放在組態(tài)王的應(yīng)用程序命令語言的啟動(dòng)時(shí)執(zhí)行，這樣當(dāng)組態(tài)王進(jìn)入運(yùn)行系統(tǒng)后自動(dòng)連接數(shù)據(jù)庫。如下圖八所示：建議將斷開數(shù)據(jù)庫連接的命令函數(shù)放在組態(tài)王的應(yīng)用程序命令語言的停止時(shí)執(zhí)行，這樣當(dāng)組態(tài)王退出運(yùn)行系統(tǒng)時(shí)自動(dòng)斷開數(shù)據(jù)庫的連接。如下圖圖九所示：注意：此函數(shù)在組態(tài)王運(yùn)行中只須進(jìn)行一次連接，不要把此語句寫入“運(yùn)行時(shí)”，多次執(zhí)行此命令而造成錯(cuò)誤。圖八建立與數(shù)據(jù)庫的連接圖九斷開與數(shù)據(jù)庫的連接3.3.4査詢數(shù)據(jù)庫數(shù)據(jù)庫連接成功后，我們就可以通過執(zhí)行SQL函數(shù)對(duì)Access數(shù)據(jù)庫的表中的數(shù)據(jù)進(jìn)行查詢了，查詢主要用到的SQL函數(shù)包括SQLSelectQ.SQLLast().SQLFustQ.SQLPieQ.SQLNext()等。詳細(xì)的函數(shù)使用請(qǐng)參考函數(shù)使用手冊(cè)。首先利用組態(tài)王提供的畫圖工具新建一個(gè)組態(tài)王畫面“SQLPic”,如下圖十所示：日期、時(shí)間、值班人員、原料廠家、原料編號(hào)動(dòng)畫連接為字符串輸出，連接的變量為\\本站點(diǎn)\日期、\\本站點(diǎn)\時(shí)間、\\本站點(diǎn)\值班人員。原料重量動(dòng)畫連接為模擬值輸出，連接的變量為\\本站點(diǎn)\原料重量。查詢?nèi)掌趧?dòng)畫連接為字符串輸出、字符串輸入，連接的變量為\\本站點(diǎn)\査詢?nèi)掌凇?數(shù)據(jù)庫查詢例程演示;?????????????????????????????????????* 審?扌白FT?????????????????????????????????????* 審?扌白FT沮3b itit ?????????????????????????????????????系OtfJ??????????????????????????????????■■??????????■?# # # # # #??????????????????????????????????????????????*??????????????????????????????????■■??????????■ # 用 # 屮 屮 #???????????????????????????????????????????■??????????????????????????????????????????????*??????????????????????????????????????????????*??????????????????????????????????????????????*??????????????????????????????????????????????*??????????????????????????????????????????????* J ■ r-?r-■??????? )25. 0貝???? □〒????旦里????????J 一 才町 -?????人：…?k<?…編.…?亶?? / …；；；；；；；；班；；料…料；；料…?.■????■A??????????????????????????????????????????????????????????????????????■圖十組態(tài)王畫面“數(shù)據(jù)查詢”按鈕的彈起時(shí)命令語言為SQL查詢函數(shù)，進(jìn)行數(shù)據(jù)查詢：stringwhe;whe=”稱量日期=”嶺\\本站點(diǎn)\查詢?nèi)掌?””；SQLSelect(DevicelD,”原料數(shù)據(jù)”,”Bmdl”,Whe,””);“畫面切換”按鈕的彈起時(shí)命令語言為畫面切換函數(shù)，進(jìn)行畫面的切換：ShowPictuie(nKVADODBGndPicu);“下一條記錄”按鈕的彈起時(shí)命令語言為SQL函數(shù)，進(jìn)行下一條記錄的選擇:SQLNext(DevicelD);“上一條記錄”按鈕的彈起時(shí)命令語言為SQL函數(shù)，進(jìn)行上一條記錄的選擇:SQLPiev(DevicelD);“首記錄”按鈕的彈起時(shí)命令語言為SQL函數(shù)，進(jìn)行首項(xiàng)記錄的選擇：SQLFirst(DevicelD);“末記錄”按鈕的彈起時(shí)命令語言為SQL函數(shù)，進(jìn)行末項(xiàng)記錄的選擇：SQLLast(DevicelD);“系統(tǒng)退出”按鈕的彈起時(shí)命令語言為系統(tǒng)退出函數(shù)：Exit(0);關(guān)于使用到的函數(shù)的詳細(xì)使用方法請(qǐng)參考函數(shù)使用手冊(cè)或者幫助文檔。3.3.5進(jìn)入運(yùn)行系統(tǒng)畫面開發(fā)完成后保存畫面，在工程瀏覽器的“系統(tǒng)設(shè)置”一“設(shè)置運(yùn)行系統(tǒng)”一“主畫面配置”中，將新建的“SQLPic”畫面設(shè)置為主畫面。確認(rèn)后點(diǎn)擊工程瀏覽器的“View”按鈕切換到運(yùn)行系統(tǒng)。系統(tǒng)運(yùn)行后會(huì)將主畫面打開，在查詢?nèi)掌谔幪顚懸樵償?shù)據(jù)的日期，點(diǎn)擊“數(shù)據(jù)查詢”按鈕則會(huì)根據(jù)查詢?nèi)掌诓樵兊较鄳?yīng)日期的數(shù)據(jù)，如下圖十一所示：通過點(diǎn)擊相應(yīng)的按鈕會(huì)實(shí)現(xiàn)相應(yīng)的功能。數(shù)據(jù)庫查詢例程演示日 期：2007-03-01 查詢?nèi)掌冢?007-03-01吋 ： 11：14：數(shù)掘查詢畫而切換值班人員：李四 1下一條記*上一條記濃原料廠家：邯鄲化工原料廠首記錄末記錄原料編號(hào)：YLHD200700系統(tǒng)邃出原料重量：500.00圖^一運(yùn)行系統(tǒng)畫面3.4利用KVADODBGrid控件進(jìn)行查詢KVADODBGrid控件的介紹在工程中經(jīng)常需要訪問開放型數(shù)據(jù)庫中的大量數(shù)據(jù)，如果通過SQL函數(shù)編程查詢，因?yàn)榉蠗l件的記錄比較多，無法同時(shí)瀏覽所有的記錄，并且無法形成報(bào)表進(jìn)行打印，不易使用。針對(duì)這種情況，組態(tài)王提供了一個(gè)通過ADO訪問開放型數(shù)據(jù)庫中數(shù)據(jù)的ActiveX控件一KVADODBGridc通過該控件，在組態(tài)王畫面中用戶可以很方便的訪問數(shù)據(jù)庫、編輯數(shù)據(jù)庫?？梢酝ㄟ^數(shù)據(jù)庫查詢窗口對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行查詢，也可以用控件的統(tǒng)計(jì)函數(shù)計(jì)算出控件中數(shù)據(jù)的最大、最小值和平均值等。具體的此函數(shù)的屬性、方法以及詳細(xì)的使用請(qǐng)參考組態(tài)王使用手冊(cè)或者組態(tài)王幫助。KVADODBGrid控件的使用在工程中新建畫面“KVADODBGndPic”，單擊工具箱中的“插入通用控件”按鈕則彈出“插入控件”對(duì)話框。在“插入控件”對(duì)話框內(nèi)選擇“KVADODBGndClass"控件，如圖十二所示，在此畫面中放入此控件。雙擊此控件，為控件命-名，控件名稱可以根據(jù)需要確定，我們命名為“KV”o插入控件 岡CAProgramFiLes\KingvievVKVADOIBGrid.DLLHtrriLDlgH^lperCIaes aIERJCtlClassIIS證書向?qū)ncludeControlInstalLEngin^CtlObj-actJavaClass：com.ms.vid.grid.GridClass：com.ms.wfc.htrril.BhComponentWr&pper$DhIraKingviewPidControlkingview.SuperGrid.Controlkingview.tempare.controlK￥.Hciirv^ctrlxKraDUEGridClassKvAlnnWinEvC^ntr^lK'ZCaptureClassKVBevfilanOcxContrcrLkvi(nag：eocxControlKvLqmReyqIverControlKvTopipClientOexControlL^belDTCLayoutFootQ”EndL^-youtFooterSt=artLayoutHea.derEndL^-youta.derSt=artUEDPro.LJEIILinkBarListViewListboxDTC確定|職消I圖十二插入通用控件選擇控件，單擊右鍵，在彈出的菜單中選擇“控件屬性”。彈出控件固有屬性對(duì)話框，如下圖十三所示。點(diǎn)擊“瀏覽”按鈕彈出“數(shù)據(jù)鏈接屬性”如圖十四所示，選擇“連接”選項(xiàng)卡，在“指定數(shù)據(jù)源”處選擇“使用數(shù)據(jù)源名稱”選項(xiàng)，通過下拉列表選擇我們前面所定義的ODBCo

圖十三KV控件屬性數(shù)據(jù)源“數(shù)據(jù)”，點(diǎn)擊“確定”，返回圖十三畫面，“數(shù)據(jù)源”與“數(shù)據(jù)庫”連接完成，下面進(jìn)行數(shù)據(jù)表的配置。在“表名稱”處選擇我們需要查詢的數(shù)據(jù)表“原料數(shù)據(jù)”。選擇完成后，數(shù)據(jù)表的字段會(huì)顯示在“有效字段”欄，我們可以將需要的字段添加到右邊，在添加過程中可以對(duì)標(biāo)題以及格式等進(jìn)行相應(yīng)的修改，如圖十五所示：點(diǎn)擊“確定”完成對(duì)KV控件的配置。圖十四數(shù)據(jù)鏈接屬性圖十五KV控件配置配置完成后KVADODBGud控件在畫面上的顯示如圖十六所示：同時(shí)按下鍵盤的“CtH”+“Alt”+“O”可以對(duì)控件的列寬進(jìn)行設(shè)置，我們可以根據(jù)字段內(nèi)容的多少設(shè)置合適的列寬以增加畫面的美觀程度。設(shè)置完成后的畫面如圖十七所示：

圖十六KV控件在此基礎(chǔ)上，我們進(jìn)行數(shù)據(jù)查詢功能的實(shí)現(xiàn)。如圖十八所示為最后完成的畫面。其中查詢?nèi)掌诘膭?dòng)畫連接為字符串輸入、字符串輸出，連接的變量為\\本站點(diǎn)\查詢?nèi)掌?。“?shù)據(jù)查詢”按鈕的彈起時(shí)命令語言為調(diào)用KV控件的屬性方法進(jìn)行記錄查詢:stringwhe;whe=”稱量日期=”嶺\\本站點(diǎn)\查詢?nèi)掌谑?””；KV.Where=whe;KV.FetcliDataQ;KV.FetcliEndQ;控件.Where屬性：設(shè)置查詢條件，如果不需要任何條件，則可以設(shè)置為空?？丶?FetchData方法：執(zhí)行數(shù)據(jù)查詢，并將查詢到的數(shù)據(jù)集填充到控件中?？豧t.FetcliEnd方法：結(jié)束查詢。稱墾日期稱量時(shí)間原料廠家原料編號(hào)原料重墾值班人員圖十七KV控件查詢?nèi)掌冢?#Ft印|:西而切後圖十八KVADODBGnd控件查詢畫面“打印”按鈕的彈起時(shí)命令語言為KV控件的打印的方法，進(jìn)行打印操作：KV.PnntO；“畫面切換”按鈕的彈起時(shí)命令語言為畫面切換函數(shù)，進(jìn)行畫面的切換：ShowPictureC，SQLPicH）;“按條件查詢”按鈕的彈起時(shí)命令語言為調(diào)用控件的QueiyDialogO方法在彈出的對(duì)話框中填入查詢條件實(shí)現(xiàn)數(shù)據(jù)査詢，具體用法請(qǐng)參看組態(tài)王幫助：longaa;aa=KV.QueiyDialogQ;if（aa=l）{KV.FetcliData（）;KV.FetcliEndQ;}“保存”按鈕的彈起時(shí)命令語言為調(diào)用控件的SaveToCSV（）方法，把查詢出來的數(shù)據(jù)保存成CSV格式文件，可以用EXCEL打開查看：stringfilename;filename=hifbAppDu（）+StiFioniReal（\\本站點(diǎn)\$年，0, '）+StiFroniReal（\\本站點(diǎn)月,0、”儼）+StrFioniReal（\\本站點(diǎn)\$日，0,'T'）+StrFromReal（\\本站點(diǎn)\$時(shí)，0,”儼）+StiFioniReal（\\本站點(diǎn)\$分,0,吩）+StrFromReal（\\本站點(diǎn)\$秒,0,nf'）十”.csv";KV.SaveToCSV（filename）;在使用KVADODBGnd控件過程中用到的控件的屬性、方法請(qǐng)參考手冊(cè)或者幫助文檔。3.4.3利用日期時(shí)間控件實(shí)現(xiàn)按日期查詢也是利用KVADODBGnd控件來實(shí)現(xiàn)的，上面介紹的是直接在文本對(duì)話框里輸入日期實(shí)現(xiàn)數(shù)據(jù)查詢，下面介紹通過調(diào)用通用控件里的日期時(shí)間控件來查詢數(shù)據(jù)，這種方法是可以直接選擇日期時(shí)間，使用起來簡(jiǎn)單方便，具體實(shí)現(xiàn)方法如下：1） 在組態(tài)王畫面中添加兩個(gè)口期時(shí)間控件即：MicrosoftDateandTimePickerControl6.0,控件名稱分別為datel和date2；2） 在datel控件的CLOSEUP事件中輸入如下命令語言：longyearl;longmonth1;longdayl;yeail=datel.Year;monthl=date1.Month;dayl=datel.Day;string查詢開始時(shí)間；if(montlil<10&&day1v10){查詢開始時(shí)間=StrFromInt(yeail,10)+,,-,'+',0"+StrFioniIiit(monthl,10)十叮屮O'十SuRomIiH(day1,10);}if(montlil<l0&&dayl>=10){查詢開始時(shí)間=StrFromInt(yeail,10)+',-,'+',0"+StrFioniIiit(monthl,10)+,f-n+SuTromIiit(day1,10);}if(monthl>=10&&dayl<10){查詢開始時(shí)間=StrFiomlnt(year1, 10)+n-H+StiFiomhit(month1,10)十叮屮O'十SuRomlngay1,10);}if(montlil>=10&&dayl>=l0){查詢開始時(shí)間 =StrFiomlnt(year1, 10)+n-n+StiFiomhit(month1,10)+,f-n+SuTromIiit(day1,10);}\\本站點(diǎn)\開始時(shí)間=查詢開始時(shí)間；在date2控件的CLOSEUP事件中輸入如下命令語言：longyear2;longmontli2;longday2;yeai2=date2.Year;montli2=date2.Month;day2=date2.Day;string查詢結(jié)束時(shí)間；if(montli2<l0&&day2<l0){查詢結(jié)束時(shí)間=StrFiomInt(yeai2,10)+',-,'+',0"+StiFioniIiit(month2,10)十叮屮O'十SuRomIiH(day2,10);}if(montli2<l0&&day2>=10){查詢結(jié)束時(shí)間=StrFiomInt(yeai2,10)+',-,'+',0"+StiFioniIiit(montli2,10)+”」十StrFn)mInt(day2,10);}if(montli2>=10&&day2<10){查詢結(jié)束時(shí)間=StrFiomlnt(year2, 10)+n-,f+SuFiomhit(month2,10)十叮屮O'十SuRomIiH