【正文】 istinct xh)into :li_xh from xsbj where =:ls_bjmc。數(shù)據(jù)窗口控件的dataobject屬性為d_xscj_bjcx。(1)創(chuàng)建工程對(duì)象單擊工具條上的new圖標(biāo)，打開new對(duì)話框，在對(duì)話框中選擇rpoject 標(biāo)簽，再選擇application wizard圖標(biāo)，單擊ok按鈕，開始工程的向?qū)?，露出馬最后出現(xiàn)工程對(duì)象。窗口是應(yīng)用程序的圖形用戶界面的基本元素，其他的應(yīng)用程序組件往往是通過窗口聯(lián)系起來的，所以對(duì)于一個(gè)應(yīng)用程序來說，創(chuàng)建窗口對(duì)象是極其基本的一步工作。參考文獻(xiàn)1. 鄭阿奇。
北京：高等教育出版社，2004
6. 郭興成。
北京：中國(guó)水利水電出版社，2003
5. 費(fèi)雅潔，王健。在設(shè)計(jì)窗口時(shí)，用到了窗口繼承的方法，那樣既方便又快捷，還節(jié)約了工作量。在數(shù)據(jù)庫(kù)管理與操作中，表與表之間都會(huì)有各種關(guān)聯(lián)：可能某一個(gè)表會(huì)用到其他表的字段或內(nèi)容，或者在查詢過程中某一個(gè)字段進(jìn)行排序，所以必須建立主關(guān)鍵字與外關(guān)鍵字，主關(guān)鍵字用來唯一標(biāo)識(shí)一條記錄的一個(gè)或多個(gè)列的組合，用以確保數(shù)據(jù)庫(kù)的實(shí)體完整性；外關(guān)鍵字是用于與另一個(gè)表進(jìn)行聯(lián)系的列，用來確保數(shù)據(jù)庫(kù)的參照完整性。(1)查詢按鈕的clicked事件腳本如下(sqlca)if =or =or = then messagebox(提示,班級(jí)　學(xué)期和課程不能為空)else (,) =trueend if圖31 查詢課程成績(jī)的窗口九、系統(tǒng)的編譯和發(fā)布到此為止，系統(tǒng)的實(shí)現(xiàn)工作就完成了。 (ls_xq,ls_bjmc,ls_kcmc)end if設(shè)計(jì)查詢學(xué)生個(gè)人成績(jī)窗口 查詢學(xué)生個(gè)人成績(jī)的窗口如圖30所示。 (ls_kcmc)nextclose kcmccursor。for n=1 to li_bjmc fetch next bjmccursor into :ls_bjmc。 (sqlca)int li_xq,li_bjmc,li_kcmc,nstring ls_xq,ls_bjmc,ls_kcmcselect count(distinct xq)into :li_xqfrom bjkc。然后，單擊工具條上的[Tab Order]圖標(biāo)，將列控件sxcj_cj的Tab Order值設(shè)為10，在單擊[Tab Order]圖標(biāo)回到原設(shè)計(jì)狀態(tài)。declare bjmccursor cursor forselect from 課程, 班級(jí)where = group by 。然后將數(shù)據(jù)窗口控件dw_1的DataObject屬性設(shè)置為d_bjkc_shuru，此窗口設(shè)計(jì)即完成。圖18 錄入學(xué)生基本信息窗口2．設(shè)計(jì)輸入學(xué)生基本信息的窗口通過繼承窗口輸入窗口w_xiugai生成修改學(xué)生基本信息窗口w_jiben_xiugai, 將數(shù)據(jù)控件dw_1的DataObject屬性設(shè)置為 d_jiben_xiugai，將窗口的Title屬性改為“修改學(xué)生基本信息”，如圖19： 3．設(shè)計(jì)查詢學(xué)生基本信息的窗口 要求此窗口中能夠根據(jù)學(xué)生的姓名或?qū)W號(hào)查詢出學(xué)生的基本信息，能夠根據(jù)班級(jí)名稱查詢出該班所有學(xué)生的基本信息。()（3）[]按鈕的Clicked事件腳本如下。if gs_admin=39。opensheet(w_bjkc_chaxun,w_main,6,Original!)（12）[成績(jī)管理]菜單下[錄入修改成績(jī)]菜單的Clicked事件腳本如下。Close(parentwidow)（4）[班級(jí)管理]菜單下[錄入班級(jí)信息] 菜單的Clicked事件腳本如下。 messagebox(提示,保存數(shù)據(jù)失敗!)end if(7)[退出]按鈕控件cb_4的Clicked事件腳本如下。圖4 數(shù)據(jù)窗口d_yhgl數(shù)據(jù)窗口d_yhgl生成的SQL Select語句為：SELECTusers. name, users. password, users. admin FROM users 創(chuàng)建窗口并設(shè)置屬性創(chuàng)建用戶管理窗口w_yhgl，調(diào)整其大小，在窗口上放置1個(gè)數(shù)據(jù)窗口控件（dw_1）、4個(gè)命令按鈕控件（ cb_cb_cb_cb_4），設(shè)計(jì)完后的窗口如圖5所示：圖5 用戶管理窗口為窗口編寫腳本(1)用戶管理窗口w_yhgl的Open事件腳本如下。（2）定義實(shí)例變量 int li_n 存儲(chǔ)登錄時(shí)用戶輸入密碼錯(cuò)誤的嘗試次數(shù)，控制在最多3次機(jī)會(huì)。（3） ：// Profile liudi = ODBC = False = ConnectString=39。（2）班級(jí)信息管理 它包括班級(jí)信息修改，班級(jí)信息查詢，班級(jí)信息輸入。（6） 各班所開設(shè)課程信息的修改和查詢。學(xué)生成績(jī)管理系統(tǒng)需要完成的主要功能如下:（1） 班級(jí)信息的輸入和存儲(chǔ),包括班級(jí)編號(hào)、班級(jí)名稱、所屬專業(yè)、入學(xué)時(shí)間和學(xué)制等。（9） 查詢某個(gè)學(xué)生。（4）成績(jī)信息管理 包括成績(jī)查詢，成績(jī)修改，成績(jī)輸入。PWD=39。string ls_username,ls_passwordls_username=trim()ls_password=trim()if ls_username= or ls_password= then messagebox(提示,用戶名和密碼不能為空)else SELECT users.name,users.password,users.admin INTO :gs_username,:gs_password,:gs_admin FROM users WHERE (users.name = :ls_username ) AND (users.password = :ls_password )。=true //激活“保存”按鈕(4)[添加]按鈕控件cb_1的Clicked事件腳本如下。）下面編寫各個(gè)菜單項(xiàng)的腳本。opensheet(w_banji_liulan,w_main,6,Original!)（7）[學(xué)生管理]菜單下[錄入學(xué)生信息]菜單的Clicked事件腳本如下。opensheet(w_xscj_bjcx,w_main,6,Original!)（15）[成績(jī)管理]菜單下[查詢課程成績(jī)]菜單的Clicked事件腳本如下。五、設(shè)計(jì)班級(jí)管理模塊1） 設(shè)計(jì)訪問班級(jí)信息的數(shù)據(jù)窗口設(shè)計(jì)輸入班級(jí)信息的數(shù)據(jù)窗口創(chuàng)建數(shù)據(jù)窗口d_banji_shuru，顯示風(fēng)格為“Freeform”，數(shù)據(jù)源類型為“Quick Select”，其布局如圖8所示。設(shè)計(jì)輸入班級(jí)