【正文】 _jiben_shuru生成的 sql select 語句為： 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ù)源類型為“ 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語句為： SELECT jiben.xh, jiben.xm, jiben.xb, jiben.csrq, jiben.jtzz, jiben.bjbh FROM jiben 創(chuàng)建數(shù)據(jù)窗口 d_jiebn_chaxun，顯示風(fēng)格為“ grid”，數(shù)據(jù)源類型為“ sql select”其中布局如圖所示 其中，定義 3個(gè) string型檢索參數(shù)變量 mxh， mxm， mbj，分別表示學(xué)號、姓名班級，形成帶檢索參數(shù)的數(shù)據(jù)窗口。 W_banji_liulan Title 瀏覽班級信息 Window type Main! Reizable False Center False Maxbox False Minbox False Dw_1 Vscrollbar Ture Dataobject D_banji_xiugai Enabled False 窗口的 open事件腳本如下： ( sqlca) () 22 7 設(shè)計(jì)學(xué)生基本信息管理模塊 本 模塊實(shí)現(xiàn)學(xué)生基本信息的輸入，修改和查詢。 通過繼承修改窗口 w_xiugai生成修改班級信息窗口 w_banji_xiugai，將數(shù)據(jù)控件 dw_1的 DataObject屬性設(shè)置為 d_banji_xiugai，將窗口的 Title屬性改為“修改班級信息”，此窗口設(shè)計(jì)便完成了。 cb_4)，窗口布局如圖所示。 W_shuru Title 錄入 Window type Main! Resizable False Center False Maxbox False Minbox False 20 設(shè)置完屬性后開始編寫腳本代碼，其中窗口 w_shuru的 open事件 Closequery事件、命令按鈕（【添加】、【刪除】、【保存】和【退出】）的 Clicked事同前面的窗口 W_yhgl的相應(yīng)事件腳本。 創(chuàng)建窗口對象 w_shuru，調(diào)整其大小，放置 1 個(gè)數(shù)據(jù)窗口控件（ dw_1）、 8個(gè)命令按鈕控件（ cb_1 數(shù)據(jù)窗口 d_banji_shuru生成的 SQL Select語句為： SELECT banji.bjbh, banji.bjmc, banji.zymc, banji.xz, banji.rxsj, banji.rs FROM banji 信息的數(shù)據(jù)窗口 創(chuàng)建數(shù)據(jù)窗口 d_banji_xiugai，顯示風(fēng)格為“ Grid”數(shù)據(jù)源類型為“ quick select” 數(shù)據(jù)窗口 d_banjid_banji_xiugai生成的 SQL Select 語句為： SELECT banji.bjbh, banji.bjmc, banji.zymc, 19 banji.xz, banji.rxsj, banji.rs FROM banji ORDER BY banji.bjbh ASC 首先設(shè)計(jì)兩個(gè)通用的輸入窗口和修改窗口作為父對象，實(shí)現(xiàn)一般輸入和修改的功能，窗口 中的數(shù)據(jù)窗口控 件不設(shè)定具體的數(shù)據(jù)窗口對象，在繼承的窗口對象中再設(shè)定。 then .enabled=false end if 其功能是非管理員用戶計(jì)入系統(tǒng)時(shí)關(guān)閉【用戶管理】菜單項(xiàng) 6 設(shè)計(jì)班級管理模塊 本模塊實(shí)現(xiàn)班級信息的輸入、修改和查詢 。 （ 5）【班級管理】菜單需愛修改【修改班級信息】菜單項(xiàng)的 Clicked事件腳本如下： opensheet(w_xiugai,w_main,6,Original! ) （ 6）【班級管理】菜單下【修改班級信息】菜單項(xiàng)的菜單項(xiàng)的 Clicked事件腳本如下： opensheet(w_banji_liulan,w_main,6,Original!) （ 7）【學(xué)生管理】菜單下【錄入學(xué)生信息】菜單項(xiàng)的 Clicked事件腳本如下： opensheet(w_jiben_shuru,w_main,6,Original!) （ 8）【學(xué)生管理】菜單下【修改學(xué)生信息】菜單項(xiàng)的 Clicked事件腳本如下： opensheet(w_jiben_xiugai,w_main,6,Original!) （ 9）【學(xué)生管理】菜單下【查詢學(xué)生信息】菜單項(xiàng)的 Clicked事件腳本如下： opensheet(w_jiben_chaxun,w_main,6,Original! ) （ 10）【課程管理】菜單下【錄入 /修改開設(shè)課程】菜單項(xiàng)的 Clicked事件腳本如下： opensheet(w_bjkc_shuruxiugai,w_main,6,Original! ) （ 11）【課程管理】菜單 下【查詢開設(shè)課程信息】菜單項(xiàng)的 Clicked 事件 腳本如下： opensheet(w_bjkc_chaxun,w_main,6,Original! ) （ 12）【成績管理】菜單下【錄入修改成績】菜單項(xiàng)的 Clicked 事件腳本如下： opensheet(w_xscj_shuru,w_main,6,Original! ) （ 13）【成績管理】菜單下【查詢個(gè)人成績】菜單項(xiàng)的 Clicked 事件腳本如下： opensheet(w_xscj_grcx,w_main,6,Original! ) （ 14）【成績管理】菜單下【查詢班級成績】菜單項(xiàng)的 Clicked 事件腳本如下 ： opensheet(w_xscj_bjcx,w_main,6,Original! ) （ 15）【成績管理】菜單下【查詢課程成績】菜單項(xiàng)的 Clicked 事件腳本如下： opensheet(w_xscj_kccx,w_main,6,Original! ) （ 16）【窗口】菜單下【層疊窗口】菜單項(xiàng)的 Clicked事件腳本如下： 17 (cascade!) （ 17）【幫助】菜單下【關(guān)于】菜單項(xiàng)的 Clicked事件腳本如下： open(w_about) （ 18）【幫助】菜單下【 聯(lián)機(jī)幫助】菜單項(xiàng)的 Clicked事件腳本如下： showhelp(,index!) 設(shè)計(jì)主窗口 設(shè)計(jì)窗口如圖所示 創(chuàng)建窗口對象 W_main, W_main Title 學(xué)生成績管理系統(tǒng) Window type Mdihelp! Menuname M_main Windowstate maximized 窗口對象 w_main的 Open事件腳本如下 if gs_admin=39。菜單對象名為“ m_main”，菜單欄中的菜單項(xiàng)設(shè)置了訪問鍵 ，常用的菜單項(xiàng)設(shè)置了快捷鍵，最常用的菜單項(xiàng)在工具條上建立了按鈕。 messagebox(錯(cuò)誤 ,保存數(shù)據(jù)失?。?) end if （ 7）【退出】按鈕控件 cb_4的 Clicked Close(patent) 15 5 設(shè)計(jì)主窗口和菜單 主窗口和菜單是系統(tǒng)工具的主界面。 ( sqlca ) () （ 2）用戶管理窗口 w_yhgl的 closequery事件腳本如下： integer rt 14 () if ( ) =0 and ( )=0 then return 0 else rt=messagebox(提示 ,添加修改內(nèi)容未保存，確定要退出嗎？,Question!,YesNo!) if rt=1 then return 0 end if end if ret