學(xué)生成績(jī)管理系統(tǒng)pb課程設(shè)計(jì)-文庫(kù)吧資料
2025-05-15 19:34本頁(yè)面
【正文】 !) () (1,len(m)) else select xs_cj.xh,xs_cj.kch into :s_xh,:s_kch from xs_cj where(xs_cj.xh=:m and xs_cj.kch=:qj_kch)。如圖 162. （ 2）在 cb_1 中的 clicked 中的腳本為： string m int n m=trim() n=len() select teacher.kch into :qj_kch 17 from teacher where(teacher.zgh=:qj_id)。5wT 圖 161 （ 1） 在窗口上放置 1 個(gè)數(shù)據(jù)窗口控件，給數(shù)據(jù)窗口控件添加一個(gè)數(shù)據(jù)窗口對(duì) 象。如圖 141. （ 3） 在 cb_1 的 clicked 事件中的腳本為： string l int n l=trim() n=len() if l=or n10 then messagebox(提示 ,新密碼為空或長(zhǎng)度大于 10，請(qǐng)檢查 !) else update user set user.password=:l where user.id=:qj_id using sqlca。5wTusing sqlca。 如圖 131. （ 3） 在 w_tuike 的 open 事件中的腳本為： (sqlca) () （ 4） 在 cb_1 的 clicked 中的腳本為： string m,cj_kch m=trim() select xs_cj.kch into :cj_kch from xs_cj where(xs_cj.xh=:qj_id)。 （ 3） 在 w_ksxk 的 open 事件中的腳本為： (sqlca) () （ 4） 在 cb_1的 clicked 中的腳本為： string m m=trim() insert xs_cj(xh,kch) values (:qj_id,:m) using sqlca。 11 else choose case l_qx case 管理員 open(w_admin) close(w_load) case 教師 open(w_teacher) close(w_load) case 學(xué)生 open(w_student) close(w_load) end choose end if （ 8）給 cb_1定義一個(gè)用戶(hù)事件 u_keydown，事件號(hào)為 pbm_keydown， u_keydown中的腳本為： if keydown(keyenter!) then (clicked!) end if （ 9） cb_2 的 clicked 腳本為： close(parent) （ 10）給 cb_2 定義一個(gè)用戶(hù)事件 u_2，事件號(hào)為 pbm_keydown， u_2 中的腳本為： if keydown(keyenter!) then clicked() end if 創(chuàng)建學(xué)生窗口 1 創(chuàng)建窗口，命名為“ w_student”： 圖 111 The genral stf(1mpoyidvc,uh)0jb。 end if end if （ 7）在 cb_1的 clicked 中的腳本為： l_id=trim() l_password=trim() l_qx=trim() select user.id,user.password,user.qx into :qj_id,:qj_password,:qj_qx from user where (user.id=:l_id and user.password=:l_password and user.qx=:l_qx)。 if 0 then messagebox(error,密碼錯(cuò)誤，請(qǐng)重新輸入 !) ()。 end if end if (1,len()) (6)在 ddplb_1 的 selecttionchanged 中的腳本為： l_id=trim() l_password=trim() if l_password=then messagebox(error,密碼不能為空，請(qǐng)輸入 !) ()。 if 0 then messagebox(error,用戶(hù)名不存在，請(qǐng)重新輸入 !) ()。5wT messagebox(error,用戶(hù)名不能為空，請(qǐng)輸入 !) ()。 對(duì)象 屬性 取值 W_load Title 學(xué)生成績(jī)管理系統(tǒng) Window type Response！ sle_2 Password True （ 1）定義全局變量 string qj_id,qj_password,qj_qx,qj_kch,qj_xf string s_kch,s_xh （ 2）定義實(shí)例變量 int l_n。 if 0 then messagebox(提示 ,數(shù)據(jù)庫(kù)連接失敗！ ) else open(w_load) end if 創(chuàng)建窗口 創(chuàng)建登陸窗口 new，選擇 PB Object，點(diǎn)擊 window，然后單擊 ok，窗口如下： 9 保存窗口為“ w_load”。PWD=sql39。DSN=student。5wT 表之間的具體聯(lián)系如 圖 61： 圖 61 創(chuàng)建應(yīng)用 在 ”E:\workspace”文件夾下建立 工作空間命名為“ workspace”，如 圖 71 和 72： 7 圖 71 圖 72 創(chuàng)建新的應(yīng)用，打開(kāi) new，選擇“ target”頁(yè)中的應(yīng)用“ Application”，單擊 ok，彈出保存文件對(duì)話(huà)框，選擇到新建的目錄 E:\workspace,輸入文件名為“ project”，單擊 finish，具體如 圖 81： The genral stf(1mpoyidvc,uh)0jb。 選擇 ODB ODBCUtilitiesCreate ASA Database，如圖 41 圖 41 選擇 tablenew table 設(shè)置參數(shù)如圖 42到圖 54。 關(guān)系模式如下： 學(xué)生基本信息（學(xué)號(hào)，姓名，性別，專(zhuān)業(yè)，總學(xué)分） 教師基本信息（職工號(hào)，姓名，年齡，性別，所授課程） 課程（課程號(hào)，課程名，開(kāi)課學(xué)期，學(xué)時(shí)，學(xué)分） 成績(jī)（學(xué)號(hào)，課程號(hào)，成績(jī)，所獲學(xué)分） 用戶(hù)（用戶(hù)賬號(hào)，密碼，權(quán)限） ER 圖如 圖 31： 1 n n 1 1 1 圖 31 學(xué)生 選修 課程 教師 教授 學(xué)號(hào) 姓名 性別 專(zhuān)業(yè) 總學(xué)分 職工號(hào) 姓名 年齡 性別 課程號(hào) 課程名 開(kāi)課學(xué)期 學(xué)時(shí) 學(xué)分 成績(jī) 所獲學(xué)分 工作 The genral stf(1mpoyidvc,uh)0jb。5wT 圖 21 學(xué)生成績(jī)管理系統(tǒng) 學(xué)生功能 教師功能 管理員功能 學(xué)生基本信息查詢(xún) 學(xué)生成績(jī)查詢(xún) 學(xué)生課程管理 教師基本信息查詢(xún) 教師所授課程查詢(xún) 學(xué)生成績(jī)錄入 教師基本信息輸入與維護(hù) 學(xué)生基本信息輸入與維護(hù) 全校課程信息輸入
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1