組態(tài)王報表功能實現(xiàn)方法_第1頁
組態(tài)王報表功能實現(xiàn)方法_第2頁
組態(tài)王報表功能實現(xiàn)方法_第3頁
組態(tài)王報表功能實現(xiàn)方法_第4頁
組態(tài)王報表功能實現(xiàn)方法_第5頁
已閱讀5頁,還剩5頁未讀 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

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

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

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

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

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

6、RemoveAll方法描述RemoveAll方法從Dictionary對象中刪除所有關(guān)鍵字和條口對。語法 object. RemoveAllobject始終是一個Dictionary對象的名字。說明下面的代碼舉例說明了 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類下的操作函數(shù),功能:刪

7、除該數(shù)組中的所有指針。從該數(shù)組中刪除所有指針,但并不真正的刪除CObject對象。 RemoveAll函數(shù)將釋放所有用于指針存儲所占用的內(nèi)存。)定義按鈕的“命令語言連接”“彈起時”為:(下列語言中“條件句”為內(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 );本站點條件句=StrFromInt ( DayreportSelect. Year, 10 )+strl+str2;dayreport. Where=,?: I WJ=, +本站點條件句 + order by W;dayreport FetchDatd();dayr

9、eport FetchEnd();注意:在控制面板區(qū)域和語言自定義下,需定義短日期格式為“yyyy-MM-dd”樣式,若不同,則上面命令代碼的判斷段需作相應(yīng)修改。第四步:添加打印按鈕定義按鈕的“命令語言連接”“彈起時”為:dayreport Print();第五步:添加退出按鈕總體效果圖如下圖所示:4 1K參4次日報表查詢請選擇查詢的日期:1!010-01-1!3 二n查詢I II打印11退出時間(小時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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論