【導(dǎo)讀】在任何高等學(xué)校，學(xué)生的成績管理都是學(xué)校教務(wù)管理的重要環(huán)節(jié)之一。化的管理工具和手段提高學(xué)生成績管理效率。一個應(yīng)用系統(tǒng)的開發(fā)過程包括分析、設(shè)計、實現(xiàn)、調(diào)試和發(fā)布等階段。需要通過與用戶的交流和溝通明確對系統(tǒng)的功能要求，最終列出系統(tǒng)。各班所開設(shè)課程信息的修改和查詢。學(xué)期末輸入每個學(xué)生的考試成績。查詢并打印某班某學(xué)期所有學(xué)生的各科成績。一集要收集、存儲和操縱數(shù)據(jù)信息，得到如圖2所示的系統(tǒng)E-R圖。根據(jù)系統(tǒng)E-R圖得到以下關(guān)系模式。文件夾下建立文件夾”data”，用于存儲數(shù)據(jù)文件。建立以下5個表和1個視圖。然后保存就可以了。但不是簡單的順序過程，有時需要返回為前面創(chuàng)建的。為應(yīng)用對象app_xscj的open事件編寫代碼如下。messagebox("提示","數(shù)據(jù)庫連接失?。?zhí)行此應(yīng)用時，首先鏈接數(shù)據(jù)庫“xscj”，成功后打開登陸窗口。理包括修改用戶信息，添加新用戶，刪除用戶，只有管理員級用戶有此權(quán)限。個控件的位置和大小如圖所示。

　　

【正文】 LECT xscj.xh, xsbj.xm, xscj.cj FROM xsbj, xscj WHERE ( xsbj.xh = xscj.xh ) and ( ( xscj.xq = :mxq ) AND ( xsbj.bjmc = :mbjmc ) AND ( xscj.kcmc = :mkcmc ) ) ORDER BY xscj.xh ASC 文成績信息的窗口 輸入成績的窗口如圖。首先創(chuàng)建窗口對象 w_xscj_shuru，在窗口上放置 1個分組框控件， 3個靜態(tài)文本控件， 3 個下拉列表框控件， 3個命令按鈕控件和1個數(shù)據(jù)窗口控件。 根據(jù)圖所示的布局調(diào)整數(shù)據(jù)窗口和控件大小、位置及有關(guān)屬性。其中，【保存】按鈕的 enabled屬性設(shè)置為 false；數(shù)據(jù)窗口控件調(diào)整到只顯示學(xué)號、姓名和成績 3 列， vscrollbar 屬性設(shè)為 ture，數(shù)據(jù)窗口對象為 d_xscj_shru， 3 個下拉列表框控件的列表項為空，由代碼動態(tài)生成。 33 各個窗口和控件的 事件腳本如下： （ 1）窗口的 open事件腳本如下 ( sqlca) int li_xq, li_bjmc, li_kcmc,n string ls_xq, ls_bjmc, ls_kcmc SELECT count(distinct xq) INTO :li_xq FROM bjkc。 DECLARE xqcursor CURSOR FOR SELECT xq FROM bjkc GROUP BY xq。 OPEN xqcursor 。 FOR n=1 TO li_xq FETCH NEXT xqcursor INTO :ls_xq。 ( ls_xq) NEXT CLOSE xqcursor 。 SELECT count(distinct bjbh) INTO :li_bjmc FROM bjkc。 DECLARE bjmccursor CURSOR FOR SELECT FROM bjkc, banji 34 WHERE = GROUP BY 。 OPEN bjmccursor 。 FOR n=1 TO li_bjmc FETCH NEXT bjmccursor INTO :ls_bjmc。 ( ls_bjmc) NEXT CLOSE bjmccursor。 （ 2）窗口的 closequery事件腳本如下。 integer rt () if () =0 then return 0 else rt=messagebox(提示 ,添加修改內(nèi)容未 保存，確實要退出嗎？,Question!,YesNo!) if rt=1 then return 0 end if end if return 1 (3)課程的下拉列表框的 getfocus事件腳本如下： int li_kcmc,n string ls_kcmc, ls_xq, ls_bjmc ls_xq= ls_bjmc= if not(ls_xq= or ls_bjmc=) then SELECT count (distinct ) INTO :li_kcmc FROM bjkc,banji WHERE ( = ) and (= :ls_bjmc) and ( = :ls_xq)。 DECLARE kcmccursor CURSOR FOR SELECT FROM bjkc,banji WHERE ( = ) and ( = :ls_bjmc) and ( 35 = :ls_xq) GROUP BY 。 () OPEN kcmccursor 。 FOR n=1 TO li_kcmc FETCH NEXT kcmccursor INTO :ls_kcmc。 ( ls_kcmc) NEXT CLOSE kcmccursor 。 end if （ 4）確定按鈕的 clicked事件腳本如下 int li_xh, n string ls_kcmc, ls_xq, ls_bjmc, ls_xh ls_xq= ls_bjmc= ls_kcmc= if ls_xq= or ls_bjmc= or ls_kcmc= then messagebox(提示 ,選擇項不能空！ ) else SELECT count (dissinct xh)INTO :li_xh FROM xsbj WHERE = :ls_bjmc。 DECLARE xhcursor CURSOR FOR SELECT xb FROM xsbj WHERE = :ls_bjmc。 OPEN xhcursor。 FOR n=1 TO li_xh FETCH NEXT xhcursor INTO :ls_xh。 INSERT INTO xscj (xh,xq,kcmc,cj) VALUES ( :ls_xh, :ls_xq, :ls_kcmc, null)。 NEXT CLOSE xhcursor 。 (ls_xq,ls_bjmc,ls_kcmc ) 36 end if （ 5）【保存】按鈕的 clicked事件腳本如下： if (true,false)=1 then () mit。 =false else rollback。 messagebox(錯誤 ,保存數(shù)據(jù)失??！ ) end if （ 6）【退出】按鈕的 clicked事件腳本如下 Close(parent) (7)數(shù)據(jù)窗口的 itemchanged事件腳本如下： =true 查詢學(xué)生個人成績的窗口如圖所示。數(shù)據(jù)窗口控件聯(lián)機的數(shù)據(jù)窗口對象為d_xscj_grcx。 37 (1)【查詢】按鈕的 clicked事件腳本如下： (sqlca) if = or = then messagebox(提示 ,學(xué)號和學(xué)期不能為空 ) else (,) =true end if （ 2）【打印】按鈕的 clicked事件腳本如下： (true) （ 3）【退出】按鈕的 clicked事件腳本如下： close(parent) 查詢班級成績的窗口如圖所示。數(shù)據(jù)窗口控件 dataobject 屬性為d_xscj_bjcx。 38 此窗口的 open事件腳本與輸入成績窗口的 open事件腳本相同。 查詢按鈕的 clicked事件腳本如下： (sqlca) (,) 查詢課程成績的窗口如圖所示。數(shù)據(jù)窗口控件的 dataobject 屬性為d_xscj_kccx。 此窗口的 open事件腳本、“課程”的下拉列表框的 getfocus事件腳本與輸入成績窗口的對應(yīng)事件腳本相同 ，【查詢】按鈕的 clicked事件腳本如下。 (sqlca) 39 (,) 10系統(tǒng)的編譯和發(fā)布 到此為止，系統(tǒng)的實現(xiàn)工作就完成了。在每個 模塊的實現(xiàn)過程中，對其每個功能要進行仔細(xì)的測試和調(diào)試，最好對整個應(yīng)用程序做系統(tǒng)測試，在測試工作完成后可以進行應(yīng)用程序的編譯和發(fā)布。 1) 創(chuàng)建工程對象 單擊工具條上的【 new】圖標(biāo)，打開【 new】對話框，在對話框中選擇【 project】標(biāo)簽頁，再選擇【 application wizard】圖標(biāo)，單機【 OK】按鈕，開始工程的向?qū)В詈贸霈F(xiàn)如圖所示的工程對象。 2）編譯生成可執(zhí)行程序 單機工程畫板工具條上的【 deploy】圖標(biāo)，開始編譯過程。編譯通過后，生成可執(zhí)行文件 。 3）測試分布 對可執(zhí)行成尋做系統(tǒng)的測試，最好便可發(fā)布了。 40 參考文獻(xiàn) 1. 鄭阿奇。 Powerbuilder 實用教程（第 2 版）。北京：電子工業(yè)出版社，2021 2. 孟祥雙。李宏力。 Powerbuilder程序設(shè)計教程。北京：中國電力出版社，2021 3. 華 銓 平。 Powerbuilder程序成績。北京：清華大學(xué)出版社， 2021 4. 陳剛。 Powerbuilder案例開發(fā)程序設(shè)計教程。北京：中國水利水電出版社， 2021 5. 費雅潔。王健。 Powerbuilder程序設(shè)計。北京：高等教育出版社， 2021 6. 郭興成。 ，北京：科學(xué)出版社， 2021 7. 曹然彬。 PB程序設(shè)計（基礎(chǔ)篇）。大連：大連理工大學(xué)出版社， 2021 8. 齊治文。 烏云高娃，戴世 弘 。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā) Powerbuilder 實用變成技術(shù)。北京：清華大學(xué)出版社， 2021 9. 抖文書屋。 。北京：清華大學(xué)出版社， 2021 10. 網(wǎng)冠科技。 時尚編程百例。北京：機械工業(yè)出版社，2021