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

1、數(shù)據(jù)統(tǒng)計與查詢的制作過程利用Microsoft Access數(shù)據(jù)庫和組態(tài)王的KVADODBGrid控件實現(xiàn)以暖氣、冷氣、供熱水系統(tǒng)為例（50, 5P）軟件版本：Microsoft Access 2010組態(tài)王6.53一、建立Microsoft Access數(shù)據(jù)庫文件1、在我的電腦 F盤中建立一個 Microsoft Access數(shù)據(jù)庫，命名為：5O AND 5P Database.accdb2、雙擊打開“ 5O AND 5P Database.accdb ”文件，選擇“創(chuàng)建” 表” “表 1”； 右擊“表1”，選擇“重命名”，將“表1”命名為“數(shù)據(jù)采集”右擊“數(shù)據(jù)采集”， 選擇“設(shè)計視圖”，將

2、相關(guān)的數(shù)據(jù)名寫入字段，并選擇相應(yīng)的數(shù)據(jù)類型，完成后保 存，退出；如圖01字段名稱數(shù)據(jù)類型字段名稱數(shù)據(jù)類型自動編號文*文本數(shù)字數(shù)字數(shù)字圖01名稱自動編號文*文本數(shù)字數(shù)字數(shù)字圖01名稱101Ci+ cd.t_dsp600 i5fiASE FilesDL104Exi：el FilesMS Access Hat abase 我逸據(jù)庫驅(qū)動程序Mi cru-oftMiMicros oftMi crus oftMicrosoftMicroE uftFili crosoftMicrosQftDrivermdb) Driver (*. mdb) Drivermdb) dTASE Driver C*. d Dri

3、ver (*, mdb)Escel Driver (*. xls, *. k Access Driver mdb,冰.Access Driver (*. mdb)ID采集日期采集時間生產(chǎn)車間暖氣供熱折蒸汽總量 辦公樓暖氣供熱折蒸汽總量 操能回收折蒸汽總量 生活供水供姓折莖汽總量 操作員、建立ODBC數(shù)據(jù)源選擇windows開始”菜單“控制面板”“管理工具”雙擊“數(shù)據(jù)源（ODBC）”， 彈出“OBDC數(shù)據(jù)源管理器”（如圖02）ODBC教據(jù)源管理卷用戶D朝系統(tǒng)DSN交件USS驅(qū)動程序跟蹤 連接地關(guān)于用戶數(shù)據(jù)源可）:lUU圖02“系統(tǒng)DSN” “添加”；（如圖03）f l ODBC兼據(jù)海管理舞用戶D

4、SN系統(tǒng)皿文件DSN驅(qū)動程序跟蹤 連接池關(guān)于系統(tǒng)數(shù)據(jù)源：添加(1).添加(1).505FMicruutt Access Hri ver (:+:. miib,. ：t：.:iccdb)505F朋除配置（），.圖03彈出“創(chuàng)建新數(shù)據(jù)源” “Microsoft Access Driver(*.mdb, *.accdb)” “完成”；（如圖04）彈出“ODBC Microsoft Access安裝” 數(shù)據(jù)源名為“5O5P” “選擇”，（如圖05）彈出“選擇數(shù)據(jù)庫”驅(qū)動器“F盤”數(shù)據(jù)庫名“5O AND 5P Database.accdb” “確定”。（如圖06）三、建立組態(tài)王記錄體打開組態(tài)王軟件，彈出

5、“工程管理器”，選擇相應(yīng)的工程名稱，雙擊打開，彈出“工程 瀏覽器”，選擇工程瀏覽器左側(cè)大綱項“SQL訪問管理器文件記錄體”，在工程瀏覽器右側(cè) 用鼠標(biāo)左鍵雙擊“新建”圖標(biāo)；記錄體名為“Bind”；輸入字段名稱，點擊“？ ”，選擇對應(yīng)的變量，然后點擊“增加字段”，（注：字段順序 需與數(shù)據(jù)庫，表“數(shù)據(jù)采集”，字段順序相同）如圖07所示。四、建立組態(tài)王命令語言打開組態(tài)王軟件，彈出“工程管理器”，選擇相應(yīng)的工程名稱，雙擊打開，彈出“工 程瀏覽器”。1、選擇工程瀏覽器左側(cè)大綱項“數(shù)據(jù)詞典”，在數(shù)據(jù)詞典里定義新變量，變量名稱：DeviceID，變量類型：內(nèi)存整型（如圖08）2、選擇工程瀏覽器左側(cè)大綱項“命令

6、語言應(yīng)用程序命令語言”，在工程瀏覽器右側(cè) 用鼠標(biāo)左鍵雙擊“新建”圖標(biāo)；選擇“啟動時”選項，在空白處輸入以下腳本，然后“確認”；（如圖09）SQLConnect(DeviceID,dsn=5O5P;uid=;pwd=);enablenavigate(0);應(yīng)用程序命令語言文件匹編輯田蓋港醪X選|#4吐|字啟動時|運行時j停止時|SQLConnectfDevicelD, dsn=5O5P;uid=;pw（i=）;圖09enabknavigatefO；圖09選擇“停止時”選項，在空白處輸入以下腳本，然后“確認”；（如圖10） SQLDisconnect（DeviceID）;應(yīng)用程序命令語言文件編輯國

7、X昭顯X選I料塑|宇 啟動時j運行時 停止時SQLDisconnect（DevicelD）；圖103、選擇工程瀏覽器左側(cè)大綱項“命令語言數(shù)據(jù)改變命令語言”，在工程瀏覽器右側(cè) 用鼠標(biāo)左鍵雙擊“新建”圖標(biāo)；數(shù)據(jù)改變命令語言觸發(fā)的條件為連接的變量或變量的域的值發(fā)生了變化。點擊“？ ”，選擇變量，在空白處輸入以下腳本，然后“確認”；（如圖11）敏據(jù)改變命令語言文件編制明*幽曜X選|#4血|字變量域:本站點邱秒 |SQLInsert（ DevicelD,，數(shù)據(jù)采集七Bind J；圖11五、創(chuàng)建KVADODBGrid控件選擇工程瀏覽器左側(cè)大綱項“畫面”，在工程瀏覽器右側(cè)用鼠標(biāo)左鍵雙擊“新建”圖標(biāo); 畫面名

8、稱為“報表”單擊工具箱中的“插入通用控件”按鈕，或選擇菜單命令“編輯插入通用控件”，則彈 出“插入控件”對話框。在“插入控件”對話框內(nèi)選擇KVADODBGrid Class。用鼠標(biāo)左鍵單 擊“確定”按鈕，關(guān)閉對話框。（如圖12）插入控件JC; Frogram Fi 1 eskizigzi ewKYADODEGr i d. DLLJ色LpVibp住，巾f：理？巨r(nóng) Class HC LTip-jlL 灑認匚 +. L Y- QV Cl 5 HCtrl 01. ieelfHCtri UtiiectHCtrl ULject HtfTilUlgHelper Class IcorLlI Cl assID

9、rojiIns七:HEtliReCtl Ubj e ct Kini ew Fii CurLtrol lziriri ew. Sup erGr i !. CuTitrul. ki ng3ri 礎(chǔ).tqri p sr口. curit2_oL IlOoFI ay er C o rLtro 1ISEUtiT.-t：i-Selncti on Cl ：em I；：uG。:3D otiK C cnti- cl 即.HCurve Ctrl!WAEODBGrid ClassKvAIitiK i rLEv C ontr ol JPiTieiliiiLOcii Cijntrol kvi m age o c: C u

10、ntr ul KvLqniR&vulve r C o ntrijl KvT cji i pCl i eiLtU ex Conti-ol Lanpi旦筆旦匚叮 nf i gnr at i cirtC ontrul Li ztTail clas e LieHazterCtrl Class Li eJl ay erC t rl C1:az z Lffkc tLci eS elect or Class取消圖取消圖12鼠標(biāo)變成十字形。然后在畫面上適當(dāng)位置按下鼠標(biāo)左鍵并進行拖動，畫一個矩形框，放開鼠標(biāo)左鍵，KVADODBGrid控件就放到畫面上了?？梢匀我庖苿?、縮放控件，如同處理一個單元圖素一樣。（如圖1

11、3）選擇控件，單擊右鍵，在彈出的菜單中選擇“控件屬性”。彈出控件屬性對話框。選擇數(shù)據(jù)源，點擊“瀏覽”，彈出“數(shù)據(jù)連接屬性”，在“提供程序”選項中，選擇“MicrosoftOLE DB Provider for ODBC Drivers”，然后“下一步”（如圖 14）定義“連接”屬性，選擇使用數(shù)據(jù)源名稱”，在下拉菜單中選擇“5O5P”，然后“測試連接”，確定。（如圖15）返回“控件屬性”對話框，選擇表名稱“數(shù)據(jù)采集”，并將左邊“有效字段”中的字段 名稱添加到右邊“按此順序顯示”中；（如圖16）（注：字段順序需與數(shù)據(jù)庫，表“數(shù)據(jù)采集”，字段順序相同）六、建立查詢時間段的數(shù)據(jù)1、創(chuàng)建日歷控件（Mic

12、rosoft Date and Time Picker control）在工具箱上單擊“插入通用控件”或選擇菜單“編輯插入通用控件”命令。會彈出如圖17所示的“插入控件”對話框。HS tri iLsIrLi-utE rL=ibl 巨 ClassnSyirib-ji HS tri iLsIrLi-utE rL=ibl 巨 ClassnSyirib-ji ClassLAIim ell ate ClassMacromedi a Flash Factory ObjectM匚hartill ControlH e di aLi s t Cunt i_jlMicrosoft ADO D=it：x Contr

13、-：.l 6.0EF4) (OLEIB)M i cro -ijft A自色nt Control . 0M i cr0 Edit Arii m aii on Com七=口1 E. LI I.SP4.)M i cro e ij ft BarC o de 控件 14. 0M i cru Eott Char t Control E. U (SP4 ) l,ULEDBJM i cro soft CofTim on II i al CorLtrul. ver i on 6. LlM i cr 0 E-：it t Ilat e =irLil Tirrie Pi. c ker C ontr ol &. IJ

14、L,S P=1)MieroEcftMicro soft M i cro e :t Hicrosijft M i cru E：it Micro soft M i cro e :t Hicro- ijft M i cru E：it Minrurift M i cru e : 11 HicrosijftEm七巨etl，！ It&rii FiekwvFlat Scrollbajr Control 6. 0(SF4)TijITi E Tur m 5Porni sTorfri 5 To rm e Turfi -Porm s Torfri -FmF e pLirn To rm e ToEfri g2. 02

15、. 02. 02. 02. 0. 02. 0. 02. 0. 02. 02. 0Chtji2kE；i：i：-r CcimtnjBuxComni =miU!ut t onFr；inieImaEeLabelLl S tE QXMijI tiFigeUp 11 -jriE u11 on Snr ollB!r Sp i TiJiut t cm TabS trip插入控件C； YfIRD0WSsystem32.msgomct2. ocx取消取消I圖17在對話框的列表中找到 “Microsoft Date and Time Picker control” 項， 選中它，然后單擊“確定”按鈕，或直接鼠標(biāo)雙擊

16、該項?！安迦肟丶睂υ捒蜃詣?關(guān)閉，按照本節(jié)開始所描述的方法在畫面上創(chuàng)建控件。創(chuàng)建后的控件如圖18所示。JtlT 祖JtfriU W(ll 聲用tu Lflm E1E 用而地劇勤rmB耍Time00:00福品I取消 | 應(yīng)用也）| 幕助 |的圖192、日歷控件屬性選中該控件，右擊選擇“控件屬性”，彈出對話框。（如圖19）M inDate:MawDate:Format:Time00:00福品I取消 | 應(yīng)用也）| 幕助 |的圖192、日歷控件屬性選中該控件，右擊選擇“控件屬性”，彈出對話框。（如圖19）M inDate:MawDate:Format:MousePointer:LEDropMode

17、1/ Enabled-CheckBox-UpDown|2C11- 5-1311601- 1 - 1V|1999-12-317|11 - dpShorOate10 - ccSDefault| Cl -點 LEDr口口No旭I lusfrunFnrmflFCtrl2屬性3、定義日歷控件的功能A、選擇工程瀏覽器左側(cè)大綱項“數(shù)據(jù)詞典”，在數(shù)據(jù)詞典里定義新變量變量名稱：開始日期，變量類型：內(nèi)存字符串變量名稱：結(jié)束日期，變量類型：內(nèi)存字符串B、將控件再復(fù)制一個，任意選擇一個控件，然后雙擊鼠標(biāo)，彈出對話框。在“常規(guī)” 選項中，將控件名命名為：start ；另一個控件名為：end。（如圖20）在“事件”選項中

18、，選擇事件“CloseUp”，并在相對應(yīng)的關(guān)聯(lián)函數(shù)列表單元雙擊。（如圖21）彈出“控件事件函數(shù)”對話框。圖為控件名“start”事件函數(shù)，在“函數(shù)聲明” 中輸入“CloseUp00()”在腳本編輯欄中輸入以下腳本：(如圖22) float Ayear;float Amonth;float Aday;string temp;Ayear=start.Year;Amonth=start.Month;Aday=start.Day;temp=StrFromInt( Ayear, 10 );if(Amonth10)temp=temp+-0+StrFromInt( Amonth, 10 );else tem

19、p=temp+-+StrFromInt( Amonth, 10 ); if(Aday10)temp=temp+-0+StrFromInt( Aday, 10 );else temp=temp+-+StrFromInt( Aday, 10 );本站點開始日期=temp;控件事件函數(shù)文件編輯也若帶危X選|獨塑|字事件： ClseUp 0函數(shù)聲明：忡皿|doEeupOO 0float Ayear;float Amonth；float Ad ay；string temp；Aye a r= start. Year;Amonth=start.Mo nth；Ad ay= start. Day；temp =

20、StrFromlnt( Ayear, 10)；if(Amonth10)temp=temp+ -O +StrFromlnt( Amonth, 10 ； elsetemp二temp+u +StrFromlnt Amonth, 10 ： if(Aday10)temp=temp+ -O +StrFromlnt Aday, 10 )； elsetemp=temp+ +StrFromlnt Adayf 10 ；AV*站直 開始日期二temp;彈出“控件事件函數(shù)”對話框。圖為控件名“md”事件函數(shù)，在“函數(shù)聲明”中 輸入“CloseUp01 ()”在腳本編輯欄中輸入以下腳本：(如圖23) float Ayear;float Amont