組態(tài)王報(bào)表功能實(shí)現(xiàn)方法

1、一種簡(jiǎn)單的組態(tài)王報(bào)表功能賣(mài)現(xiàn)方法創(chuàng)作：歐陽(yáng)道時(shí)間：2021.03. 06創(chuàng)作：歐陽(yáng)道2010年04月24目星期六15:18前段時(shí)間用組態(tài)王6. 53做了一個(gè)小的畫(huà)面組態(tài)，其中用到了 KVADODBGrid控件來(lái)做報(bào)表，現(xiàn)總結(jié)如下。一、準(zhǔn)備工作第一步：在組態(tài)王工程管理器中新建一個(gè)項(xiàng)l_h項(xiàng)IJ路徑為D： 實(shí)驗(yàn)項(xiàng)口。第二步：新建一個(gè)ACCESS數(shù)據(jù)庫(kù)1、在D： 實(shí)驗(yàn)項(xiàng)U”路徑下新建一個(gè)Microsoft Office Access應(yīng)用程序并命名為my database, mdb：2、打開(kāi)“控制面板管理工具ODBC數(shù)據(jù)源管理器”選擇“系統(tǒng)DS”選項(xiàng)；3、點(diǎn)擊添加”按鈕創(chuàng)建新數(shù)據(jù)源,選擇Microso

2、ft Access Driver (*. mdb) n ；4、在數(shù)據(jù)源名處填下“mydatr ,并選擇數(shù)據(jù)庫(kù)路徑為“D： 實(shí)驗(yàn)項(xiàng)Umydatabase.mdb。第三步：創(chuàng)建表格模板點(diǎn)擊工程瀏覽器左側(cè)的“SQL訪問(wèn)管理器”下的“表格模板”，新建一個(gè)表格并命名為T(mén)ableo在Table中添加 所需記錄的變量及日期參數(shù)，其中“日期”為定長(zhǎng)字符串型，字符長(zhǎng)度為10；其它諸如年、月、日、時(shí)、分則為浮 點(diǎn)型，字符長(zhǎng)度為1。第四步：創(chuàng)建記錄體點(diǎn)擊工程瀏覽器左側(cè)的“SQL訪問(wèn)管理器”下的“記錄體”，新建一個(gè)表格并命名為Record,在Record中添加 所需記錄的變量及日期參數(shù)。記錄體用來(lái)定義Access數(shù)據(jù)

3、表格字段與組態(tài)王變量之間的對(duì)應(yīng)關(guān)系。二、連接數(shù)據(jù)庫(kù)第一步：在工程瀏覽器左側(cè)的“數(shù)據(jù)庫(kù)”下的“數(shù)據(jù)字典”中定義一個(gè)內(nèi)存整型變量，并命名為ConnectIDo第二步：創(chuàng)立組態(tài)王與mydata數(shù)據(jù)源的連接，并以“表格模板” Table的格式在數(shù)據(jù)庫(kù)中建立名為“TheDate”的表 格，命令如下：SQLConnect ( ConnectID, z，dsn=mydata;uid=;pwd= z);SQLCreateTable(ConnectID, TheDate , Table);歐陽(yáng)道創(chuàng)編2021.03.06將上面兩條命令填入“工程瀏覽器命令語(yǔ)言應(yīng)用程序命令語(yǔ)言”下的“啟動(dòng)時(shí)”選項(xiàng)中。第三步：在工程瀏

4、覽器左側(cè)的“命令語(yǔ)言事件命令語(yǔ)言”下新建一事件命令，在“事山描述”項(xiàng)內(nèi)填下“本站點(diǎn)$分=01”(每小時(shí)事件發(fā)生一次即分變量每次為一，訃算了 60分鐘)，在發(fā)生時(shí)”框內(nèi)填寫(xiě)SQLInsert (connectionid, TheDate, Record) ;/每小時(shí)向數(shù)據(jù)庫(kù)保存一條記錄。三：建立報(bào)表査詢畫(huà)面新建一個(gè)畫(huà)面，并在畫(huà)面上添加一個(gè)日期控件作日期查詢用；添加一個(gè)KVADODBGrid控件作報(bào)表顯示用；添加 三個(gè)按鈕分別作查詢、打印、退出用。第一步：添加KVADODBGrid控制菜單欄編輯插入通用控件KVADODBGrid Class,雙擊添加的控件，并命名“控件名”為dayreport在控

5、件屬性里的“數(shù)據(jù)源”選擇前面定義的mydata. “表名稱(chēng)”選擇TheDate,此時(shí)下面的“有郊字段”將 出現(xiàn)你在記錄體里面加入的數(shù)據(jù)，根據(jù)需要添加到右側(cè)，并編輯好“標(biāo)題”、“格式”等內(nèi)容根據(jù)需要可修改控件屬性里面的“字體”、“打印設(shè)置”等第二步：添加時(shí)間控件菜單欄編輯插入通用控件Microsoft Date and Time Picker Control 6. 0 (SP4)雙擊添加的控件，并命名控件名”為DayreportSelect根據(jù)需要可修改控件屬性第三步：添加查詢按鈕定義按鈕的“命令語(yǔ)言連接”“按下時(shí)”為：dayreport. RemoveAllDataO ;(RemoveAll

6、RemoveAll方法描述RemoveAll方法從Dictionary對(duì)象中刪除所有關(guān)鍵字和條口對(duì)。語(yǔ)法 object. RemoveAllobject始終是一個(gè)Dictionary對(duì)象的名字。說(shuō)明下面的代碼舉例說(shuō)明了 RemoveAl 1方法的用 法：Dim a, d, i，創(chuàng)建一些變量 Set d = CreateObject (Scripting. Dictionary) d. Add a, Athens添加一 些關(guān)鍵字和條U d. Add b, ，zBelgrade/zd. Add c, Cairo. a = d. RemoveAll 清除字典VC:CARRAY類(lèi)下的操作函數(shù)，功能：刪

7、除該數(shù)組中的所有指針。從該數(shù)組中刪除所有指針，但并不真正的刪除CObject對(duì)象。 RemoveAll函數(shù)將釋放所有用于指針存儲(chǔ)所占用的內(nèi)存。)定義按鈕的“命令語(yǔ)言連接”“彈起時(shí)”為：(下列語(yǔ)言中“條件句”為內(nèi)存字符串格式，在“數(shù)據(jù)詞典” 里面定義)long a;long b;string strl;string str2;a=DayreportSelect. Month;(指針命令,控件 DayrepotSelect 中的 Month 變量) b=DayreportSelect Day;辻(a10)strl= -0,+StrFromInt( DayreportSelect.Month, 10

8、 );elsestrl= -z/+StrFromInt ( Dayrepor tSelect .Month, 10 );辻(b10)str2= -0z +StrFromInt( DayreportSelect.Day, 10 );elsestr2= -z +StrFromInt( DayreportSelect.Day, 10 );本站點(diǎn)條件句=StrFromInt ( DayreportSelect. Year, 10 )+strl+str2;dayreport. Where=，?: I WJ=, +本站點(diǎn)條件句 + order by W;dayreport FetchDatd();dayr

9、eport FetchEnd();注意：在控制面板區(qū)域和語(yǔ)言自定義下，需定義短日期格式為“yyyy-MM-dd”樣式，若不同，則上面命令代碼的判斷段需作相應(yīng)修改。第四步：添加打印按鈕定義按鈕的“命令語(yǔ)言連接”“彈起時(shí)”為：dayreport Print();第五步：添加退出按鈕總體效果圖如下圖所示：4 1K參4次日?qǐng)?bào)表查詢請(qǐng)選擇查詢的日期：1!010-01-1!3 二n查詢I II打印11退出時(shí)間（小時(shí)1濃度(ppm)壓力（kpa)055.0-10.028556. 031.064.01&9.082. 027834. 031.065.02T7.010S.O28913 030.065.0379.0

10、120.028748. 030.064.0495.036.026386. 031.065.0595.033. 027834. 032.065.0&6.0113.027110.030.064.0782.084.029281.031.065.0850.0100.027110.032.065.0945.079. 027834. 030.064.01053.069.026386. 028.063.01155.0E4. Li26386. 028.063.01274.0121.026T4& 032.065.013&1.031.027472. 031.065.01458.054. 026024. 033.066.015&6.060.027834. 032.065.01687.088.028024. 032.065.017&6.074.026024. 032.066.01858.060.026748. 032.08S.019&6.080.025662. 033.066.020B3.072. 025662.0