【正文】 北京：機械工業(yè)出版社，2021 。北京：清華大學出版社， 2021 10. 網(wǎng)冠科技。北京：清華大學出版社， 2021 9. 抖文書屋。 烏云高娃，戴世 弘 。 PB程序設(shè)計（基礎(chǔ)篇）。北京：高等教育出版社， 2021 6. 郭興成。王健。 Powerbuilder案例開發(fā)程序設(shè)計教程。 Powerbuilder程序成績。 Powerbuilder程序設(shè)計教程。北京：電子工業(yè)出版社，2021 2. 孟祥雙。 40 參考文獻 1. 鄭阿奇。編譯通過后，生成可執(zhí)行文件 。 1) 創(chuàng)建工程對象 單擊工具條上的【 new】圖標，打開【 new】對話框，在對話框中選擇【 project】標簽頁，再選擇【 application wizard】圖標，單機【 OK】按鈕，開始工程的向?qū)?，最好出現(xiàn)如圖所示的工程對象。 (sqlca) 39 (,) 10系統(tǒng)的編譯和發(fā)布 到此為止，系統(tǒng)的實現(xiàn)工作就完成了。數(shù)據(jù)窗口控件的 dataobject 屬性為d_xscj_kccx。 38 此窗口的 open事件腳本與輸入成績窗口的 open事件腳本相同。 37 (1)【查詢】按鈕的 clicked事件腳本如下： (sqlca) if = or = then messagebox(提示 ,學號和學期不能為空 ) else (,) =true end if （ 2）【打印】按鈕的 clicked事件腳本如下： (true) （ 3）【退出】按鈕的 clicked事件腳本如下： close(parent) 查詢班級成績的窗口如圖所示。 messagebox(錯誤 ,保存數(shù)據(jù)失??！ ) end if （ 6）【退出】按鈕的 clicked事件腳本如下 Close(parent) (7)數(shù)據(jù)窗口的 itemchanged事件腳本如下： =true 查詢學生個人成績的窗口如圖所示。 (ls_xq,ls_bjmc,ls_kcmc ) 36 end if （ 5）【保存】按鈕的 clicked事件腳本如下： if (true,false)=1 then () mit。 INSERT INTO xscj (xh,xq,kcmc,cj) VALUES ( :ls_xh, :ls_xq, :ls_kcmc, null)。 OPEN xhcursor。 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。 FOR n=1 TO li_kcmc FETCH NEXT kcmccursor INTO :ls_kcmc。 DECLARE kcmccursor CURSOR FOR SELECT FROM bjkc,banji WHERE ( = ) and ( = :ls_bjmc) and ( 35 = :ls_xq) GROUP BY 。 （ 2）窗口的 closequery事件腳本如下。 FOR n=1 TO li_bjmc FETCH NEXT bjmccursor INTO :ls_bjmc。 DECLARE bjmccursor CURSOR FOR SELECT FROM bjkc, banji 34 WHERE = GROUP BY 。 ( ls_xq) NEXT CLOSE xqcursor 。 OPEN xqcursor 。 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。 根據(jù)圖所示的布局調(diào)整數(shù)據(jù)窗口和控件大小、位置及有關(guān)屬性。 32 數(shù)據(jù)窗口 d_bjkc_shuru生成的 sql select語句為： SELECT 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 文成績信息的窗口 輸入成績的窗口如圖。 在【 header】條中添加 2 個計算機域控件對應的表達式分別為 mbjmc 和mkcmc， 3個文本控件，其文本分別為“成績單”“班級：”和“課程” 數(shù)據(jù)庫窗口的檢索參數(shù)為 mxq、 mbjmc、和 mkcmc，分別對應于學期、班級名稱和課程名稱。數(shù)據(jù)來源域成績表 xscj 和視圖 xsbj。修改屬性取默認值（不允許修改）。 31 在【 header[1]】 條中添加 2 個計算機域控件，對應的表達式分別為 mbjmc和 mxq， 3個文本控件，其文本分別為“成績單”、“班級：”和“學期：”。 數(shù)據(jù)窗口 d_bjkc_shuru，生成的 ssql select語句為： SELECT xscj.kcmc, xscj.cj FROM xscj WHERE ( xscj.xh = :mxh ) AND ( xscj.xq = :mxq ) 創(chuàng)建數(shù)據(jù)窗口 d_xscj_bjcx，顯示風格為“ cross tab”，數(shù)據(jù)源類型為“ sql select”，布局如圖所示。在【 summary】條中添加一個計算機域控件，計算機數(shù)據(jù)窗口中成績總和。 數(shù)據(jù)窗口的檢索參數(shù)為 mxq,mbjmc,mkmc，分別對應于學期、班級名稱和課程名稱。 選擇【 ROWS】 |【 update properties】命令，打開數(shù)據(jù)窗口的修改屬性對話框，如圖所示，設(shè)置數(shù)據(jù)窗口的修改屬性，即只有成績表 (xscj_cj)可以在數(shù)據(jù)窗口中修改，關(guān)鍵字為成績表 xscj的主關(guān)鍵字（ xh,xq,kcmc）。 29 創(chuàng)建數(shù)據(jù)窗口 d_xscj_shuru，顯示風格為“ grid” ，數(shù)據(jù)源類型為“ sql select”，布局如圖所示。 ( ls_bjmc) NEXT CLOSE bjmccursor 。 OPEN bjmccursor。 SELECT count (distinct bjmc) INTO :li_bjmc FROM banji。 FOR n=1 TO li_xq FETCH NEXT xqcursor INTO :ls_xq。 DECLARE xqcursor CURSOR FOR SELECT xq FROM bjkc GROUP BY xq。 查詢班級開設(shè)課程的窗口如圖： 首先創(chuàng)建一個窗口對象 w_bjkc_chaxun,在窗口中放置 2 個靜態(tài)文本控件（ st_1,st_2） 2個下拉 列表框控件 (ddlb_1,ddlb_2)、 1個命令按鈕（ cb_1）、 1個數(shù)據(jù)庫窗口控件 (dw_1)，調(diào)整各個控件的位置和大小。然后將數(shù)據(jù)窗口控件 dw_1的 dataobject屬性設(shè)置為 d_bjkc_shru，此窗口設(shè)計完成。 該數(shù)據(jù)窗口的修改屬性為默認值即“不允許修改”。 8 設(shè)計課程管理模塊 本模塊實現(xiàn)各班開設(shè)課程的輸入、修改和查詢。 查詢學生基本信息窗口如圖所示： 首先創(chuàng)建一個窗口對象 w_jiben_chaxun，調(diào)整大小，在窗口中放置 2 個靜態(tài)文本控件（ st_1,st_2）、 1個下拉表框控件 (ddlb_1)、 1個單行編輯器控件（ sle_1） 25 1個命令按鈕 (cb_1)、 1個數(shù)據(jù)窗口控件 (dw_1)和一個線形控件（ ln_1），調(diào)整各個控件的位置和大小。 通過繼承輸入窗口 w_xiugai生成輸入學生基本信息窗口 w_jiben_xiugai，將數(shù)據(jù)控件 dw_1的 dataobject屬性設(shè)置為 d_jiben_xiugai，將窗口的 title屬性改為“ 修改 學生基本信息”，此窗口就完成了。 數(shù)據(jù)窗口 d