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