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

1、一種簡(jiǎn)單的組態(tài)王報(bào)表功能實(shí)現(xiàn)方法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)目，項(xiàng)目路徑為d：實(shí)驗(yàn)項(xiàng)目。第二步：新建一個(gè)access數(shù)據(jù)庫(kù)1、在“d：實(shí)驗(yàn)項(xiàng)目”路徑下新建一個(gè) microsoft office access 應(yīng)用程序并命名為mydatabase.mdb；2、打開(kāi)“控制面板管理工具odbc數(shù)據(jù)源管理器”選擇“系統(tǒng)dsn”選項(xiàng)；3、點(diǎn)擊“添加”按鈕創(chuàng)建新數(shù)據(jù)源，選擇“microsoft access driver(*.mdb)”；

2、4、在數(shù)據(jù)源名處填下“mydata”，并選擇數(shù)據(jù)庫(kù)路徑為“d：實(shí)驗(yàn)項(xiàng)目mydatabase.mdb”。第三步：創(chuàng)建表格模板點(diǎn)擊工程瀏覽器左側(cè)的“sql訪問(wèn)管理器”下的“表格模板”，新建一個(gè)表格并命名為table。在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ù)表格字段與組態(tài)王變量之間的對(duì)應(yīng)關(guān)系。二、連接數(shù)據(jù)庫(kù)第一步：在工程

3、瀏覽器左側(cè)的“數(shù)據(jù)庫(kù)”下的“數(shù)據(jù)字典”中定義一個(gè)內(nèi)存整型變量，并命名為connectid。第二步：創(chuàng)立組態(tài)王與mydata數(shù)據(jù)源的連接，并以“表格模板”table的格式在數(shù)據(jù)庫(kù)中建立名為“thedate”的表格，命令如下：sqlconnect( connectid, "dsn=mydata;uid=;pwd=");sqlcreatetable(connectid, "thedate", "table" );將上面兩條命令填入“工程瀏覽器命令語(yǔ)言應(yīng)用程序命令語(yǔ)言”下的“啟動(dòng)時(shí)”選項(xiàng)中。第三步：在工程瀏覽器左側(cè)的“命令語(yǔ)言事件命令語(yǔ)言”下

4、新建一事件命令，在“事由描述”項(xiàng)內(nèi)填下“本站點(diǎn)$分=01”（每小時(shí)事件發(fā)生一次即分變量每次為一，計(jì)算了60分鐘），在“發(fā)生時(shí)”框內(nèi)填寫(xiě) sqlinsert(connectionid, "thedate", "record");/每小時(shí)向數(shù)據(jù)庫(kù)保存一條記錄。三：建立報(bào)表查詢(xún)畫(huà)面新建一個(gè)畫(huà)面，并在畫(huà)面上添加一個(gè)日期控件作日期查詢(xún)用；添加一個(gè)kvadodbgrid控件作報(bào)表顯示用；添加三個(gè)按鈕分別作查詢(xún)、打印、退出用。第一步：添加kvadodbgrid控制1菜單欄編輯插入通用控件kvadodbgrid class，雙擊添加的控件，并命名“控件名”為dayrep

5、ort2在控件屬性里的“數(shù)據(jù)源”選擇前面定義的mydata、“表名稱(chēng)”選擇thedate，此時(shí)下面的“有郊字段”將出現(xiàn)你在記錄體里面加入的數(shù)據(jù)，根據(jù)需要添加到右側(cè)，并編輯好“標(biāo)題”、“格式”等內(nèi)容3根據(jù)需要可修改控件屬性里面的“字體”、“打印設(shè)置”等第二步：添加時(shí)間控件1菜單欄編輯插入通用控件microsoft date and time picker control 6.0(sp4)2雙擊添加的控件，并命名“控件名”為dayreportselect3根據(jù)需要可修改控件屬性第三步：添加查詢(xún)按鈕1定義按鈕的“命令語(yǔ)言連接”“按下時(shí)”為：dayreport.removealldata();（rem

6、oveallremoveall 方法 描述removeall 方法從 dictionary 對(duì)象中刪除所有關(guān)鍵字和條目對(duì)。語(yǔ)法object.removeallobject始終是一個(gè) dictionary 對(duì)象的名字。說(shuō)明下面的代碼舉例說(shuō)明了 removeall 方法的用法：dim a, d, i '創(chuàng)建一些變量set d = createobject("scripting.dictionary")d.add "a", "athens" '添加一些關(guān)鍵字和條目d.add "b", "belg

7、rade"d.add "c", "cairo".a = d.removeall '清除字典 vc: carray類(lèi)下的操作函數(shù)，功能：刪除該數(shù)組中的所有指針。從該數(shù)組中刪除所有指針，但并不真正的刪除cobject對(duì)象。removeall 函數(shù)將釋放所有用于指針存儲(chǔ)所占用的內(nèi)存。）2定義按鈕的“命令語(yǔ)言連接”“彈起時(shí)”為：(下列語(yǔ)言中“條件句”為內(nèi)存字符串格式，在“數(shù)據(jù)詞典”里面定義)long a;long b;string str1;string str2;a=dayreportselect.month;（指針命令，控件dayrepot

8、select中的month變量）b=dayreportselect.day;if (a<10) str1="-0"+strfromint( dayreportselect.month, 10 );else str1="-"+strfromint( dayreportselect.month, 10 );if (b<10) str2="-0"+strfromint( dayreportselect.day, 10 );else str2="-"+strfromint( dayreportselect.da

9、y, 10 );本站點(diǎn)條件句=strfromint( dayreportselect.year, 10 )+str1+str2;dayreport.where="日期='"+本站點(diǎn)條件句+"' order by 時(shí)"dayreport.fetchdata();dayreport.fetchend();注意：在控制面板區(qū)域和語(yǔ)言自定義下，需定義短日期格式為“yyyy-mm-dd”樣式，若不同，則上面命令代碼的判斷段需作相應(yīng)修改。第四步：添加打印按鈕定義按鈕的“命令語(yǔ)言連接”“彈起時(shí)”為：dayreport.print();第五步：添加退出按鈕