課程設(shè)計(jì)pb90學(xué)生管理系統(tǒng)設(shè)計(jì)畢業(yè)論文-資料下載頁
2025-06-23 17:56本頁面
【正文】 ROM 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ī)的窗口如圖。首先創(chuàng)建窗口對(duì)象w_xscj_shuru，在窗口上放置1個(gè)分組框控件，3個(gè)靜態(tài)文本控件，3個(gè)下拉列表框控件，3個(gè)命令按鈕控件和1個(gè)數(shù)據(jù)窗口控件。根據(jù)圖所示的布局調(diào)整數(shù)據(jù)窗口和控件大小、位置及有關(guān)屬性。其中，【保存】按鈕的enabled屬性設(shè)置為false；數(shù)據(jù)窗口控件調(diào)整到只顯示學(xué)號(hào)、姓名和成績(jī)3列，vscrollbar屬性設(shè)為ture，數(shù)據(jù)窗口對(duì)象為d_xscj_shru，3個(gè)下拉列表框控件的列表項(xiàng)為空，由代碼動(dòng)態(tài)生成。各個(gè)窗口和控件的事件腳本如下：（1）窗口的open事件腳本如下( sqlca)int li_xq, li_bjmc, li_kcmc,nstring ls_xq, ls_bjmc, ls_kcmcSELECT 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)NEXTCLOSE xqcursor 。SELECT count(distinct bjbh) INTO :li_bjmc FROM bjkc。 DECLARE bjmccursor CURSOR FOR SELECT FROM bjkc, banji WHERE = GROUP BY 。OPEN bjmccursor 。FOR n=1 TO li_bjmc FETCH NEXT bjmccursor INTO :ls_bjmc。 ( ls_bjmc)NEXTCLOSE bjmccursor。（2）窗口的closequery事件腳本如下。integer rt()if () =0 then return 0else rt=messagebox(提示,添加修改內(nèi)容未保存，確實(shí)要退出嗎？,Question!,YesNo!) if rt=1 then return 0 end if end if return 1(3)課程的下拉列表框的getfocus事件腳本如下：int li_kcmc,nstring ls_kcmc, ls_xq, ls_bjmcls_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 ( = :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, nstring ls_kcmc, ls_xq, ls_bjmc, ls_xhls_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。 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 ) end if（5）【保存】按鈕的clicked事件腳本如下：if (true,false)=1 then () mit。 =falseelse rollback。 messagebox(錯(cuò)誤,保存數(shù)據(jù)失??！)end if（6）【退出】按鈕的clicked事件腳本如下Close(parent)(7)數(shù)據(jù)窗口的itemchanged事件腳本如下：=true查詢學(xué)生個(gè)人成績(jī)的窗口如圖所示。數(shù)據(jù)窗口控件聯(lián)機(jī)的數(shù)據(jù)窗口對(duì)象為d_xscj_grcx。(1)【查詢】按鈕的clicked事件腳本如下： (sqlca)if = or = then messagebox(提示,學(xué)號(hào)和學(xué)期不能為空)else (,) =trueend if（2）【打印】按鈕的clicked事件腳本如下：(true)（3）【退出】按鈕的clicked事件腳本如下：close(parent)查詢班級(jí)成績(jī)的窗口如圖所示。數(shù)據(jù)窗口控件dataobject屬性為d_xscj_bjcx。此窗口的open事件腳本與輸入成績(jī)窗口的open事件腳本相同。查詢按鈕的clicked事件腳本如下：(sqlca)(,)查詢課程成績(jī)的窗口如圖所示。數(shù)據(jù)窗口控件的dataobject屬性為d_xscj_kccx。此窗口的open事件腳本、“課程”的下拉列表框的getfocus事件腳本與輸入成績(jī)窗口的對(duì)應(yīng)事件腳本相同，【查詢】按鈕的clicked事件腳本如下。(sqlca)(,)10系統(tǒng)的編譯和發(fā)布到此為止，系統(tǒng)的實(shí)現(xiàn)工作就完成了。在每個(gè)模塊的實(shí)現(xiàn)過程中，對(duì)其每個(gè)功能要進(jìn)行仔細(xì)的測(cè)試和調(diào)試，最好對(duì)整個(gè)應(yīng)用程序做系統(tǒng)測(cè)試，在測(cè)試工作完成后可以進(jìn)行應(yīng)用程序的編譯和發(fā)布。1) 創(chuàng)建工程對(duì)象單擊工具條上的【new】圖標(biāo)，打開【new】對(duì)話框，在對(duì)話框中選擇【project】標(biāo)簽頁，再選擇【application wizard】圖標(biāo)，單機(jī)【OK】按鈕，開始工程的向?qū)?，最好出現(xiàn)如圖所示的工程對(duì)象。2）編譯生成可執(zhí)行程序單機(jī)工程畫板工具條上的【deploy】圖標(biāo)，開始編譯過程。編譯通過后。3）測(cè)試分布對(duì)可執(zhí)行成尋做系統(tǒng)的測(cè)試，最好便可發(fā)布了。 參考文獻(xiàn)1. 鄭阿奇。Powerbuilder實(shí)用教程（第2版）。北京：電子工業(yè)出版社，20042. 孟祥雙。李宏力。Powerbuilder程序設(shè)計(jì)教程。北京：中國電力出版社，20043. 華銓平。Powerbuilder程序成績(jī)。北京：清華大學(xué)出版社，20044. 陳剛。Powerbuilder案例開發(fā)程序設(shè)計(jì)教程。北京：中國水利水電出版社，20035. 費(fèi)雅潔。王健。Powerbuilder程序設(shè)計(jì)。北京：高等教育出版社，20046. 郭興成。，北京：科學(xué)出版社，20037. 曹然彬。PB程序設(shè)計(jì)（基礎(chǔ)篇）。大連：大連理工大學(xué)出版社，20038. 齊治文。烏云高娃，戴世弘。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)Powerbuilder實(shí)用變成技術(shù)。北京：清華大學(xué)出版社，20019. 抖文書屋。北京：清華大學(xué)出版社，2000網(wǎng)冠科技。北京：機(jī)械工業(yè)出版社，200110.
數(shù)學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1