【導讀】任務要求：1）分析和總結各種管理信息系統(tǒng)及格式，為設計與實現(xiàn)基于超市信息管理系統(tǒng)提供技術基礎；2）探討一種快捷方便的管理信息系統(tǒng)以支持超市信息管理的方法；3）提出收集、驗證超市信息管理系統(tǒng)的解決方案；參考文獻：[1]何旭洪，余建英：PowerBuilder數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航.北京：人民郵電出版社,2002.[2]崔杜武，姚全珠，范艷華：PowerBuilder從基礎到應用.本系統(tǒng)的目的是實現(xiàn)超市管理業(yè)務的計算機化管理,由計算機處理代替人工處理,使管理趨于規(guī)范化、標準化。數(shù)據(jù)源是數(shù)據(jù)窗口對象同數(shù)據(jù)庫之間的紐帶，數(shù)據(jù)窗口可以從不同的數(shù)據(jù)源中獲得數(shù)據(jù)后顯示?？蛻?服務器是一種將任務進行分解，然后協(xié)同解決的計算模式。比如說，可以從Oracle中查詢數(shù)據(jù)，然后將結果放入到Foxpro中。對大型數(shù)據(jù)庫來說，PowerBuilder提供了旨在充分發(fā)揮其性能的專用接口，而小型數(shù)據(jù)庫則可通過ODBC接口靈活地訪問。而且，SQLAnywhere，利用它可以脫離網(wǎng)絡環(huán)境單要運行應用程序。。

　　

【正文】 窗口程序編寫完畢。Power 。在實際應用過程中，數(shù)據(jù)統(tǒng)計、報表查詢工作非常多，不可避免要制作大量報表。特別是在為企業(yè)工發(fā)的應用程序中，報表的問題非常突出。在應用程序中可以有多種方法來制作報表。本程序中利用Group風格的數(shù)據(jù)窗口來制作報表。本程序報表管理模塊由入庫統(tǒng)計報表和出庫統(tǒng)計報表兩個窗口組成。入庫統(tǒng)計報表，可以用來統(tǒng)計出每次商品入庫的總數(shù)量和總價錢。出庫統(tǒng)計報表，也是用來統(tǒng)計每次商品出庫的數(shù)量等，然后，將其打印成報表。報表管理模塊是以商品入庫基本信息窗口為基礎的。入庫統(tǒng)計報表如圖所示在入庫統(tǒng)計報表窗口（report_winodw）中間放置一個數(shù)據(jù)窗口控件dw_1,dw_1連接數(shù)據(jù)窗口對象（rk_report）來顯示入庫商品的詳細信息。該窗口的最上方放置了7個GroupBox控件?？s小放大GroupBox控件上放置了2個按鈕控件和一個EditMask控件，用于對報表縮小放大，可以在EditMask控件直接輸入要顯示的百分比大小。頁數(shù)GroupBox控件上也放置2個按鈕控件和一個EditMask控件，當數(shù)據(jù)窗口報表有多頁內容時用于前后翻頁。后面的5個GroupBox控件上的按鈕分別用于實現(xiàn)另存為、打印機設置、打印預覽和退出的功能。在入庫統(tǒng)計報表窗口的open事件中輸入如下的代碼：(=yes)(Sqlca)=string(1)ii_pagecount=integer((evaluate(39。pagecount()39。,1)))=1+string(ii_pagecount)triggerevent(em_page,39。modified39。)(sqlca)()用于在窗口打開的時候設置數(shù)據(jù)窗口的transobject對象，設置打印預覽模式為True。Report_window窗口增加了2個函數(shù)，一個是ue_se_page函數(shù)，用于設置em_page控件，也就是頁數(shù)顯示控件的顯示范圍。變量ii_pagecount是一個instance變量，用于保存報表數(shù)據(jù)窗口的頁數(shù)。程序代碼如下：=string(1)ii_pagecount=integer((evaluate(39。pagecount()39。,1)))=1+string(ii_pagecount)triggerevent(em_page,39。modified39。)ue_zoom（integer ai_size）函數(shù)根據(jù)參數(shù)ai_size來放大縮小數(shù)據(jù)窗口中報表的顯示。程序代碼如下：(39。=39。+string(ai_size))return 0（1）在cb_3的Click事件中輸入下面的程序代碼：int li_sizeif integer()10 then li_size=integer()10 trigger ue_zoom(li_size) =string(li_size)end if單擊該按鈕控件，將縮小報表的顯示。（2）在cb_4的Click事件中輸入下面的程序代碼：int li_sizeli_size=integer()+10 trigger ue_zoom(li_size)=string(li_size)單擊該按鈕控件，將增大報表的顯示。（3）在cb_5的Click事件中輸入下面的程序代碼：if integer()1 then =string(integer()1) () =string(integer()1)end if單擊該按鈕控件，將報表數(shù)據(jù)窗口前翻一頁。（4）在cb_6的Click事件中輸入如下程序代碼：ii_pagecount=integer((evaluate(39。pagecount()39。,1)))if integer()ii_pagecount then =string(integer()+1)()=string(integer()+1)end if單擊該按鈕控件，將報表數(shù)據(jù)窗口后翻一頁。（5）在cb_7的Click事件中輸入程序代碼：()單擊該按鈕控件，將保存報表數(shù)據(jù)窗口的內容到文件中，用戶可以指定要保存的文件格式。（6）在cb_8的Click事件中輸入程序代碼：printsetup()單擊該按鈕控件，用于打開Windows NT系統(tǒng)中的打印機設置窗口。在其中可以進行打印機屬性的設置。（7）在cb_9的Click事件中輸入如下程序代碼：=39。6039。triggerevent(,39。modified39。)triggerevent(parent,39。us_set_page39。)（8）在cb_10的Click事件中輸入下面的程序代碼：close(report_window)單擊該按鈕控件，將用退出該報表窗口。（9）在em_1控件的Modified事件中輸入下面的程序代碼：(integer())改變該控件的數(shù)字，將觸發(fā)窗口的放大縮小函數(shù)，以實現(xiàn)任意倍數(shù)的放大和縮小。（10）在“查詢”按鈕控件的Click事件中輸入如下的程序代碼：string sqlstring inisqlstring inti sql= where barcode=39。++39。 (sqlca) inisql= =inisql+sql () =inisql SELECT 入庫表.barcode INTO :inti FROM 入庫表 WHERE 入庫表.barcode = : ；if inti= then messagebox(提示,查詢失敗) end if其功能是查詢某種商品，對所需要的商品入庫進行統(tǒng)計，并打印出來。在查詢中還進行判斷，如果輸入錯誤，將給提示信息，可以重新輸入查詢條件。其查詢窗口信息如下圖所示數(shù)據(jù)窗口對象rk_report在數(shù)據(jù)窗口對象畫筆中，如圖所示。rk_report是Group風格的，所連接的數(shù)據(jù)表格是入庫信息表。該窗口增加三個Text，其標題分別為“小計”、“入庫數(shù)量”、“總計”，它們分別用計算按鈕控件來實現(xiàn)的?！叭霂鞌?shù)量”是按商品編號來進行分類匯總的。“小計”是用來計算商品的金額，“總計”是用來計算所有商品的價錢。至此，用于各個報表的窗口就創(chuàng)建好了。出庫統(tǒng)計報表窗口也是如此創(chuàng)建，其窗口結構如下圖所示。 查詢管理模塊的設計查詢程序窗口有兩類，一類是一行行瀏覽表格中的數(shù)據(jù)，還有一類是能夠根據(jù)用戶所輸入的查詢條件，在數(shù)據(jù)庫表格中找到符合其查詢條件的記錄。下面以出庫基本信息表為例來進行說明。出庫信息條件查詢窗口界面如下圖所示。該條件查詢dw_1窗口控件連接數(shù)據(jù)窗口對象是ck1_window。在出庫信息條件查詢窗口中放置一個GroupBox控件，顯示窗口的用途“出庫信息查詢”。在GroupBox中放置了一個Static Text控件（商品編號）、一個Commondan Button控件（查詢）和一個Tab控件，Tab控件共有3個頁面，分別用來實現(xiàn)按“商品編號”、“商品名稱”和“出庫時間”的查詢功能。Tab控件的”page order”屬性標簽設置如下圖所示，出庫信息查詢窗口f_4window的Open事件中輸入如下的程序代碼：connect。(sqlca)“查詢”按鈕控件的Click事件用于執(zhí)行條件查詢，并將結果顯示在數(shù)據(jù)窗口中，其程序代碼如下：string sqlstring inisqlstring inti sql= where barcode=39。++39。 (sqlca) inisql= =inisql+sql () =inisql SELECT 出庫表.barcode INTO :inti FROM 出庫表 WHERE 出庫表.barcode = : 。if inti= then messagebox(error!,查詢失敗，請重新輸入) end if上面這段程序根據(jù)用戶在單行編輯框中所輸入的查詢內容，形成一個條件查詢。根據(jù)這個條件查詢語句，使用SELECT查詢條件過濾數(shù)據(jù)窗口。在這段程序中還加了一些校驗功能，如通過判斷查詢條件是否正確，并根據(jù)判斷結果來執(zhí)行相應的語句。另一個查詢也是如同。至此條件查詢應用程序已經編寫完畢。在實際編寫中，可以編寫員工各種信息的查詢程序。結束語