組態(tài)王報表功能實現(xiàn)方法.doc

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

2、在數(shù)據(jù)源名處填下“mydata”，并選擇數(shù)據(jù)庫路徑為“D：實驗項目mydatabase.mdb”。第三步：創(chuàng)建表格模板點擊工程瀏覽器左側(cè)的“SQL訪問管理器”下的“表格模板”，新建一個表格并命名為Table。在Table中添加所需記錄的變量及日期參數(shù)，其中“日期”為定長字符串型，字符長度為10；其它諸如年、月、日、時、分則為浮點型，字符長度為1。第四步：創(chuàng)建記錄體點擊工程瀏覽器左側(cè)的“SQL訪問管理器”下的“記錄體”，新建一個表格并命名為Record，在Record中添加所需記錄的變量及日期參數(shù)。記錄體用來定義Access數(shù)據(jù)表格字段與組態(tài)王變量之間的對應(yīng)關(guān)系。二、連接數(shù)據(jù)庫第一步：在工程瀏覽

3、器左側(cè)的“數(shù)據(jù)庫”下的“數(shù)據(jù)字典”中定義一個內(nèi)存整型變量，并命名為ConnectID。第二步：創(chuàng)立組態(tài)王與mydata數(shù)據(jù)源的連接，并以“表格模板”Table的格式在數(shù)據(jù)庫中建立名為“TheDate”的表格，命令如下：SQLConnect( ConnectID, dsn=mydata;uid=;pwd=);SQLCreateTable(ConnectID, TheDate, Table );將上面兩條命令填入“工程瀏覽器命令語言應(yīng)用程序命令語言”下的“啟動時”選項中。第三步：在工程瀏覽器左側(cè)的“命令語言事件命令語言”下新建一事件命令，在“事由描述”項內(nèi)填下“本站點$分=01”（每小時事件發(fā)生一

4、次即分變量每次為一，計算了60分鐘），在“發(fā)生時”框內(nèi)填寫SQLInsert(connectionid, TheDate, Record);/每小時向數(shù)據(jù)庫保存一條記錄。三：建立報表查詢畫面新建一個畫面，并在畫面上添加一個日期控件作日期查詢用；添加一個KVADODBGrid控件作報表顯示用；添加三個按鈕分別作查詢、打印、退出用。第一步：添加KVADODBGrid控制1菜單欄編輯插入通用控件KVADODBGrid Class，雙擊添加的控件，并命名“控件名”為dayreport2在控件屬性里的“數(shù)據(jù)源”選擇前面定義的mydata、“表名稱”選擇TheDate，此時下面的“有郊字段”將出現(xiàn)你在記錄

5、體里面加入的數(shù)據(jù)，根據(jù)需要添加到右側(cè)，并編輯好“標(biāo)題”、“格式”等內(nèi)容3根據(jù)需要可修改控件屬性里面的“字體”、“打印設(shè)置”等第二步：添加時間控件1菜單欄編輯插入通用控件Microsoft Date and Time Picker Control 6.0(SP4)2雙擊添加的控件，并命名“控件名”為DayreportSelect3根據(jù)需要可修改控件屬性第三步：添加查詢按鈕1定義按鈕的“命令語言連接”“按下時”為：dayreport.RemoveAllData();（RemoveAll RemoveAll 方法 描述RemoveAll 方法從 Dictionary 對象中刪除所有關(guān)鍵字和條目對。語

6、法object.RemoveAllobject始終是一個 Dictionary 對象的名字。說明下面的代碼舉例說明了 RemoveAll 方法的用法：Dim a, d, i 創(chuàng)建一些變量Set d = CreateObject(Scripting.Dictionary)d.Add a, Athens 添加一些關(guān)鍵字和條目d.Add b, Belgraded.Add c, Cairo.a = d.RemoveAll 清除字典 VC: CARRAY類下的操作函數(shù)，功能：刪除該數(shù)組中的所有指針。從該數(shù)組中刪除所有指針，但并不真正的刪除CObject對象。RemoveAll 函數(shù)將釋放所有用于指針存儲

7、所占用的內(nèi)存。）2定義按鈕的“命令語言連接”“彈起時”為：(下列語言中“條件句”為內(nèi)存字符串格式，在“數(shù)據(jù)詞典”里面定義)long a;long b;string str1;string str2;a=DayreportSelect.Month;（指針命令，控件DayrepotSelect中的Month變量）b=DayreportSelect.Day;if (a10)str1=-0 StrFromInt( DayreportSelect.Month, 10 );elsestr1=- StrFromInt( DayreportSelect.Month, 10 );if (b10)str2=-0

8、StrFromInt( DayreportSelect.Day, 10 );elsestr2=- StrFromInt( DayreportSelect.Day, 10 );本站點條件句=StrFromInt( DayreportSelect.Year, 10 ) str1 str2;dayreport.Where=日期= 本站點條件句 order by 時;dayreport.FetchData();dayreport.FetchEnd();注意：在控制面板區(qū)域和語言自定義下，需定義短日期格式為“yyyy-MM-dd”樣式，若不同，則上面命令代碼的判斷段需作相應(yīng)修改。第四步：添加打印按鈕定義按鈕的“命令語言連接”“彈起時”為：dayreport.Print();第五步：添加退出按鈕總體效果圖如下圖所示：總結(jié)