學(xué)生成績管理系統(tǒng)pb課程設(shè)計-在線瀏覽
2025-05-25 23:06本頁面
【正文】 g 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 )。 string ls_passwordif trim()gs_password then messagebox(提示,舊密碼錯誤)else if trim()=() then ls_password=trim() UPDATE users SET password = :ls_password WHERE (users.name = :gs_username ) AND (users.password = :ls_password)。 Close(parent)2） 設(shè)計用戶管理的數(shù)據(jù)窗口和窗口設(shè)計數(shù)據(jù)窗口創(chuàng)建數(shù)據(jù)窗口“d_yhgl”,顯示風(fēng)格為“Grid”，數(shù)據(jù)源類型為“Quick Select”，布局如圖4所示。( sqlca )()(2)用戶管理窗口w_yhgl的Closequery事件腳本如下。=true //激活“保存”按鈕(4)[添加]按鈕控件cb_1的Clicked事件腳本如下。(0)=true(6)[保存]按鈕控件cb_3的Clicked事件腳本如下。 =falseelse rollback。close(parent)四、設(shè)計主窗口和菜單1）創(chuàng)建菜單對象菜單結(jié)構(gòu)如圖6所示。）下面編寫各個菜單項的腳本。（1）[系統(tǒng)]菜單下[密碼修改]菜單的Clicked事件腳本如下。Open(w_yhgl)（3）[系統(tǒng)]菜單下[退出系統(tǒng)]菜單的Clicked事件腳本如下。opensheet(w_banji_shuru,w_main,6,Original!)5）[班級管理]菜單下[修改班級信息]菜單的Clicked事件腳本如下。opensheet(w_banji_liulan,w_main,6,Original!)（7）[學(xué)生管理]菜單下[錄入學(xué)生信息]菜單的Clicked事件腳本如下。opensheet(w_jiben_xiugai,w_main,6,Original!)（9）[學(xué)生管理]菜單下[查詢學(xué)生信息]菜單的Clicked事件腳本如下。opensheet(w_bjkc_shurnxiugai,w_main,6,Original!)（11）[課程管理]菜單下[查詢開設(shè)課程]菜單的Clicked事件腳本如下。opensheet(w_xscj_shuru,w_main,6,Original!) （13）[成績管理]菜單下[查詢個人成績]菜單的Clicked事件腳本如下。opensheet(w_xscj_bjcx,w_main,6,Original!)（15）[成績管理]菜單下[查詢課程成績]菜單的Clicked事件腳本如下。 (cascade!)（17）[幫助]菜單下[關(guān)于]菜單的Clicked事件腳本如下。ShowHelp(d:\xscj\help\,index!)2） 設(shè)計窗口本次學(xué)生成績管理系統(tǒng)的主窗口界面如圖7所示：圖7 主窗口界面創(chuàng)建窗口對象w_main，其Open事件腳本如下。n39。五、設(shè)計班級管理模塊1） 設(shè)計訪問班級信息的數(shù)據(jù)窗口設(shè)計輸入班級信息的數(shù)據(jù)窗口創(chuàng)建數(shù)據(jù)窗口d_banji_shuru，顯示風(fēng)格為“Freeform”，數(shù)據(jù)源類型為“Quick Select”，其布局如圖8所示。圖10 輸入窗口設(shè)置完屬性后開始編寫腳本代碼，其中窗口w_shuru的Open事件、命令按鈕（[添加]、[刪除]、[保存]、[退出]）的Clicked事件同窗口w_yhgl的相應(yīng)事件腳本。(1)（2）[]按鈕的Clicked事件腳本如下。()（4）[|]按鈕的Clicked事件腳本如下。設(shè)計輸入班級信息窗口通過繼承輸入窗口w_shuru生成輸入班級信息窗口w_banji_shuru，將數(shù)據(jù)控件dw_1的DataObject屬性設(shè)置為d_banji_shuru，將窗口的Tile屬性改為“錄入班級信息”，此窗口設(shè)計便完成了。如圖13所示：圖13 修改班級信息窗口設(shè)計瀏覽班級信息窗口創(chuàng)建窗口對象w_banji_liulan，調(diào)整其大小，放置一個數(shù)據(jù)窗口控件dw_1，調(diào)整窗口布局如圖14所示。2）設(shè)計訪問學(xué)生基本信息的窗口設(shè)計輸入學(xué)生基本信息的窗口 通過繼承窗口輸入窗口w_shuru生成輸入學(xué)生基本信息窗口w_jiben_shuru,將數(shù)據(jù)控件dw_1的DataObject屬性設(shè)置為 d_jiben_shuru，將窗口的Title屬性改為“錄入學(xué)生基本信息”，如圖18。窗口如圖20所示：圖19 修改學(xué)生基本信息窗口圖20 查詢學(xué)生基本信息窗口[查詢]按鈕的Open事件腳本如下。七、設(shè)計課程管理模塊1）設(shè)計訪問課程信息的數(shù)據(jù)窗口設(shè)計輸入班級課程信息的數(shù)據(jù)窗口創(chuàng)建數(shù)據(jù)窗口d_bjkc_shuru，顯示風(fēng)格為“Grid”，數(shù)據(jù)源類型為“Quick Select”，其布局如圖21所示：圖20 數(shù)據(jù)窗口d_bjkc_shuru數(shù)據(jù)窗口d_bjkc_shuru生成的SQL Seleect語句為： SELECT bjkc.bjbh, bjkc.xq, bjkc.kcmc, bjkc.xs, bjkc.jsxm FROM bjkc .設(shè)計查詢班級課程信息的數(shù)據(jù)窗口創(chuàng)建數(shù)據(jù)窗口d_bjkc_chaxun，顯示風(fēng)格為“Grid”，數(shù)據(jù)源類型為“Quick Select”，其布局如圖21所示。 該數(shù)據(jù)窗口的修改屬性為默認(rèn)值即“不允許修改”。圖22 輸入修改班級課程信息的窗口首先，從祖先窗口w_xiugai繼承生成窗口對象w_bjkc_shuruxiugai，調(diào)整其大小。設(shè)計查詢班級開設(shè)課程的窗口 首先創(chuàng)建一個窗口對象w_bjkc_chaxun，調(diào)整大小，在窗口中放置2個靜態(tài)文本控件（st_1,st_2）、2個下拉列表框控件（ddlb_1,ddlb_2）
公司管理相關(guān)推薦
鄂ICP備17016276號-1