組態(tài)王數據統(tǒng)計與查詢的制作過程

數據統(tǒng)計與查詢的制作過程利用MicrosoftAccess數據庫和組態(tài)王的KVADODBGrid控件實現以暖氣、冷氣、供熱水系統(tǒng)為例（50,5P）軟件版本：MicrosoftAccess2010組態(tài)王6.53一、建立MicrosoftAccess數據庫文件1、在我的電腦F盤中建立一個MicrosoftAccess數據庫，命名為：5OAND5PDatabase.accdb2、雙擊打開“5OAND5PDatabase.accdb”文件，選擇“創(chuàng)建”>>>"表”>>>“表1”；右擊“表1”，選擇“重命名”，將“表1”命名為“數據采集”右擊“數據采集”，選擇“設計視圖”，將相關的數據名寫入字段，并選擇相應的數據類型，完成后保存，退出；如圖01字段名稱數據類型字段名稱數據類型自動編號文*文本數字數字數字圖01名稱101Ci+cd.t_dsp600i5fiASEFilesDL104Exi：elFiles自動編號文*文本數字數字數字圖01名稱101Ci+cd.t_dsp600i5fiASEFilesDL104Exi：elFilesMSAccessHatabase我逸據庫驅動程序Micru-oftMiMicrosoftMicrusoftMicrosoftMicroEuftFilicrosoftMicrosQftDrivermdb)Driver(*.mdb)Drivermdb)dTASEDriverC*.dDriver(*,mdb)EscelDriver(*.xls,*.kAccessDrivermdb,冰.AccessDriver(*.mdb)、建立ODBC數據源選擇windows"開始”菜單>>>“控制面板”>>>“管理工具”>>>雙擊“數據源（ODBC）”，彈出“OBDC數據源管理器”（如圖02）〉〉〉ODBC教據源管理卷用戶D朝系統(tǒng)DSN交件USS驅動程序跟蹤連接地關于用戶數據源可）:lUU圖02“系統(tǒng)DSN”>>>“添加”；（如圖03）

彈出“創(chuàng)建新數據源”>>>“MicrosoftAccessDriver(*.mdb,*.accdb)”>>>“完成”；(如圖04)彈出“ODBCMicrosoftAccess安裝”>>>數據源名為“5O5P”>>>“選擇…”，（如圖05）

彈出“選擇數據庫”>>>驅動器“F盤”>>>數據庫名“5OAND5PDatabase.accdb”>>>“確定”。（如圖06）三、建立組態(tài)王記錄體打開組態(tài)王軟件，彈出“工程管理器”，選擇相應的工程名稱，雙擊打開，彈出“工程瀏覽器”，選擇工程瀏覽器左側大綱項“SQL訪問管理器文件'記錄體”，在工程瀏覽器右側用鼠標左鍵雙擊“新建”圖標；記錄體名為“Bind”；輸入字段名稱，點擊“？”，選擇對應的變量，然后點擊“增加字段”，（注：字段順序需與數據庫，表“數據采集”，字段順序相同）如圖07所示。

四、建立組態(tài)王命令語言打開組態(tài)王軟件，彈出“工程管理器”，選擇相應的工程名稱，雙擊打開，彈出“工程瀏覽器”。1、選擇工程瀏覽器左側大綱項“數據詞典”，在數據詞典里定義新變量，變量名稱：DeviceID，變量類型：內存整型（如圖08）2、選擇工程瀏覽器左側大綱項“命令語言'應用程序命令語言”，在工程瀏覽器右側用鼠標左鍵雙擊“新建”圖標；選擇“啟動時”選項，在空白處輸入以下腳本，然后“確認”；（如圖09）SQLConnect(DeviceID,〃dsn=5O5P;uid=;pwd=〃);enablenavigate(0);■應用程序命令語言文件匹］編輯田］蓋港醪X選|#4吐|字啟動時|運行時j停止時|SQLConnectfDevicelD,"dsn=5O5P;uid=;pw（i=）;圖09enabknavigatefO］；選擇“停止時”選項，在空白處輸入以下腳本，然后“確認”；（如圖10）SQLDisconnect（DeviceID）;■應用程序命令語言文件編輯國］圖09X昭顯X選I料塑|宇啟動時j運行時停止時SQLDisconnect（DevicelD）；圖103、選擇工程瀏覽器左側大綱項“命令語言'數據改變命令語言”，在工程瀏覽器右側用鼠標左鍵雙擊“新建”圖標；數據改變命令語言觸發(fā)的條件為連接的變量或變量的域的值發(fā)生了變化。點擊“？”，選擇變量，在空白處輸入以下腳本，然后“確認”；（如圖11）■敏據改變命令語言文件?編制明*幽曜X選|#4血|字變量［?域］:本站點邱秒SQLInsert（DevicelD,，數據采集七'"Bind"'J；圖11五、創(chuàng)建KVADODBGrid控件選擇工程瀏覽器左側大綱項“畫面”，在工程瀏覽器右側用鼠標左鍵雙擊“新建”圖標;畫面名稱為“報表”單擊工具箱中的“插入通用控件”按鈕，或選擇菜單命令“編輯插入通用控件”，則彈出“插入控件”對話框。在“插入控件”對話框內選擇KVADODBGridClass。用鼠標左鍵單擊“確定”按鈕，關閉對話框。（如圖12）

插入控件±JC;\FrogramFi1es\kizigziew^KYADODEGrid.DLL±J}{色LpVibp住，巾'f：理？巨rClass}{HCLTip-jlL灑認匚+.LY-^\QVCl5}{HCtrl01.ieel]fHCtriUtiiect}{HCtrlULjectHtfTilUlgHelperClassIcorLlIClassIDrojiIns七:±HEtl§iReCtlUbjectKin^iewFiiCurLtroll?ziri^riew.SuperGri■!.CuTitrul.king3ri礎.tqripsr口.curit2_oLIlOoFIayerCorLtro1ISEUtiT.-t：i-SelnctionCl：±emI；：uG。。:3DotiKCcnti-cl即.HCurveCtrl!:WAEODBGridClassKvAIitiKirLEvControlJPi'Tie^iliiiLOciiCijntrolkvimageoc:<CuntrulKvLqniR&vulverContrijlKvTcjiipClieiLtUexConti-olLanpi旦筆旦匚叮nfignraticirtContrulLiztT'ailclaseLi^eHazterCtrlClassLi^eJ'layerCtrlC1:azzL'ffkctLcieSelectorClass取消圖取消圖12鼠標變成十字形。然后在畫面上適當位置按下鼠標左鍵并進行拖動，畫一個矩形框，放開鼠標左鍵，KVADODBGrid控件就放到畫面上了?？梢匀我庖苿印⒖s放控件，如同處理一個單元圖素一樣。（如圖13）圖13圖13選擇控件，單擊右鍵，在彈出的菜單中選擇“控件屬性”。彈出控件屬性對話框。選擇數據源，點擊“瀏覽”，彈出“數據連接屬性”，在“提供程序”選項中，選擇“MicrosoftOLEDBProviderforODBCDrivers”，然后“下一步”（如圖14）?數據魅接屬性區(qū)]提供程序I連接I高/I所有I選擇您希望連接的數據：□LEUE提供程序-~Cl-TlTl2ctivity5c巨Fi?「E，iMicrosoftJet4.U0LEDBFroviderMicroeu±tLIftice12.IJA_ccessDatalaseEngineOLEDEP;-uvMicrosoftOLEDEFrc-vl-Igttc-risE巨twi己巨三10.0MicrosoftOLEDBFruvliertorIrniexingServiceMicrozu±tOLEDEPruvllertorTiLt^rrLetF'ulilizlLinp;MicrosoftOLEDBProvilertorODBCDrivereMicrosoftOLEDEFrovilerforOracleHicrosoftOLEDEFrovi.lerforSQLServerMicroso￡tOLEDESimpleProviderMSBataShape□LEDBFrovidarforMicrosoftDirectoryServices<I>下一步項）?褊一I取消|葩助|圖14定義“連接”屬性，選擇'使用數據源名稱”，在下拉菜單中選擇“5O5P”，然后“測試連接”，確定。（如圖15）用;數據錐接屬性[X提供程序連接I高^I所有I指定下列設置以屋接到ODBC數據：指定數據潺：由使用數據源名稱但）|505F刷新?|C使用連接字符串敏連接字符串您）;|編譯（W...|輸入登錄服會器的TOC\o"1-5"\h\z用戶名禰（W:|密碼（￡）：|r空白密碼⑥r允許保存密碼芭輸入要使用的初蛤目錄①：I3確定|取消|希助|

返回“控件屬性”對話框，選擇表名稱“數據采集”，并將左邊“有效字段”中的字段名稱添加到右邊“按此順序顯示”中；（如圖16）（注：字段順序需與數據庫，表“數據采集”，字段順序相同）六、建立查詢時間段的數據1、創(chuàng)建日歷控件（MicrosoftDateandTimePickercontrol）在工具箱上單擊“插入通用控件”或選擇菜單“編輯\插入通用控件”命令。會彈出如圖17所示的“插入控件”對話框。C；mRDOWSVsystemSEVmH'StriiLsIrLi-utEn^bl巨ClassnSyirib-jiClassL'A'IimellateClassMacromediaFlashFactoryObjectM匚hartillControlHediaListMicrosc￡tMicro-ijftMicroECiftHicruSijftMicruEottMicrosijftControlADOContrcl6.0CSP4)(OLEIB)A自色ntCuntrLil￡.0AnimaiionCom七=口1E.LII.SP4.)BarCode控件14.0CKartControl6.0(SP4)(OLEDB)CofTimonHialt促CorLtrul.version6.LlMicr0E-：ittIlate=irLilTirriePi.ckerControl&.IJL,SP=1)MieroEcftMicrosoftMicroe■:?￡tHicrosijftMicruE?：i￡tMicrosoftMicroe■:?￡tHicro-ijftMicruE?：i￡tMinru^riftMicrue■:?11Hicrosijft±1Em七巨上?骯邑1It&riiFiekwvFlatScrollbajrControl6.0(SF4)TijITiETurm5PornisTorfri5TormeTurfi-PormsTorfri-FmFepLirn￡TormeToEfrig2.02.02.02.02.0￡.02.0￡.02.0￡.02.02.0Chtji2kE；i：i：-rCcimtnjBuxComni=miU!uttonFr；inieImaEeLabelLlStEDXMijItiFigeUp11-jriEu11onSnrollB!±rmpiiiEuttTabStrip圖17在對話框的列表中找到“MicrosoftDateandTimePickercontrol”項，選中它，然后單擊“確定”按鈕，或直接鼠標雙擊該項。“插入控件”對話框自動關閉，按照本節(jié)開始所描述的方法在畫面上創(chuàng)建控件。創(chuàng)建后的控件如圖18所示。彎也引fFMCU工ERDIM園I?!EW新如HI圖182、日歷控件屬性選中該控件，右擊選擇“控件屬性”，彈出對話框。（如圖19）3、定義日歷控件的功能A、選擇工程瀏覽器左側大綱項“數據詞典”，在數據詞典里定義新變量變量名稱：開始日期，變量類型：內存字符串變量名稱：結束日期，變量類型：內存字符串B、將控件再復制一個，任意選擇一個控件，然后雙擊鼠標，彈出對話框。在“常規(guī)”選項中，將控件名命名為：start；另一個控件名為：end。（如圖20）在“事件”選項中，選擇事件“CloseUp”，并在相對應的關聯函數列表單元雙擊。（如圖21）彈出“控件事件函數”對話框。圖為控件名“start”事件函數，在“函數聲明”中輸入“CloseUp00()”在腳本編輯欄中輸入以下腳本：(如圖22)floatAyear;floatAmonth;floatAday;stringtemp;Ayear=start.Year;Amonth=start.Month;Aday=start.Day;temp=StrFromInt(Ayear,10);if(Amonth<10)temp=temp+〃-0〃+StrFromInt(Amonth,10);elsetemp=temp+〃-〃+StrFromInt(Amonth,10);if(Aday<10)temp=temp+〃-0〃+StrFromInt(Aday,10);elsetemp=temp+〃-〃+StrFromInt(Aday,10);\\本站點'開始日期=temp;■控件事件函數文件?編輯也若帶危X選|獨塑|字事件：Cl^seUp0函數聲明：忡皿|doEeupOO0floatAyear;floatAmonth；floatAday；stringtemp；Ayear=start.Year;Amonth=start.Month；Aday=start.Day；temp=StrFromlnt(Ayear,10)；if(Amonth<10)temp=temp+'-O'+StrFromlnt(Amonth,10]；elsetemp二temp+’u+StrFromlnt[Amonth,10]：if(Aday<10)temp=temp+'-O'+StrFromlnt[Aday,10)；elsetemp=temp++StrFromlnt[Adayf10]；AV*站直'開始日期二temp;彈出“控件事件函數”對話框。圖為控件名“md”事件函數，在“函數聲明”中輸入“CloseUp01()”在腳本編輯欄中輸入以下腳本：(如圖23)floatAyear;floatAmon