【文章內(nèi)容簡介】 圖 111 The genral stf(1mpoyidvc,uh)0jb。5wT（ 1） 添加控件 在窗口上放置一個數(shù)據(jù)窗口控件，一個選單， 如圖 111 2 創(chuàng)建學(xué)生快速選課窗口 （ 1） 創(chuàng)建學(xué)生選課窗口命名為“ w_ksxk” ； 圖 121 （ 2） 添加控件 在窗口上放置一個數(shù)據(jù)窗口控件 ,2個靜態(tài)文本 控件， 1個單行編輯文本控件，三個按鈕控件 ，給數(shù)據(jù)窗口控件添加個數(shù)據(jù)窗口對象 d_ksxk，如圖121。 （ 3） 在 w_ksxk 的 open 事件中的腳本為： (sqlca) () （ 4） 在 cb_1的 clicked 中的腳本為： string m m=trim() insert xs_cj(xh,kch) values (:qj_id,:m) using sqlca。 if 0 then messagebox(error,選課失敗 :此課程不是可選課程或已被選 ,請檢查 !) () (1,len(m)) else messagebox(選課成功 ,你已成功選定課程號 +m) = end if 13 （ 5） 在 cb_2中的 clicked 的腳本為： = （ 6） 在 cb_3中的 clicked 的腳本為： close(parent) 3創(chuàng)建快速退課窗口 （ 1） 創(chuàng)建學(xué)生退課窗口，命名為“ w_tuike”： 圖 131 （ 2）添加控件 在窗口 上放置一個數(shù)據(jù)窗口控件 ,2個靜態(tài)文本控件， 1個單行編輯文本控件，三個按鈕控件，給數(shù)據(jù)窗口控件添加個數(shù)據(jù)窗口對象 d_kc。 如圖 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)。 if cj_kchm then messagebox(error,課程表中沒有此課程 ,請重新輸入 !) () (1,len(m)) else delete from xs_cj where(xs_cj.kch=:m) The genral stf(1mpoyidvc,uh)0jb。5wTusing sqlca。 messagebox(退選成功 ,你已成功退選課程號 +m) (qj_id) = end if （ 5） 在 cb_2 中的 clicked 的腳本為： = （ 6） 在 cb_3 中的 clicked 的腳本為： close(parent) 4 創(chuàng)建修改密碼窗口 （ 1）創(chuàng)建學(xué)生登錄密碼修改窗口，命名為“ w_password”： 圖 141 （ 2） 添加控件 在窗口上放置 2 個靜態(tài)文本框控件， 1個單行編輯控件， 2個按鈕控件。如圖 141. （ 3） 在 cb_1 的 clicked 事件中的腳本為： string l int n l=trim() n=len() if l=or n10 then messagebox(提示 ,新密碼為空或長度大于 10，請檢查 !) else update user set user.password=:l where user.id=:qj_id using sqlca。 if = 0 then messagebox(提示 ,密碼修改成功！請記住新密碼： +l) close(w_password) else messagebox(提示 ,密碼修改失敗 :~n 長度過長或有特殊字符 !) return end if end if (4) 在 cb_2 的 clicked 事件中的腳本為： 15 = 5 創(chuàng)建幫助窗口，命名為“ w_guanyu”： 如圖 151. 圖 151 創(chuàng)建教師窗口 1 創(chuàng) 建窗口，命名為“ w_teacher“ ： The genral stf(1mpoyidvc,uh)0jb。5wT 圖 161 （ 1） 在窗口上放置 1 個數(shù)據(jù)窗口控件，給數(shù)據(jù)窗口控件添加一個數(shù)據(jù)窗口對 象。 如圖 161. （ 2） 在 w_teacher 的 open 事件中的腳本為： (sqlca) (qj_id) 2創(chuàng)建 進入 錄入學(xué)生成績窗口，命名為“ w_srkch”： 圖 162 （ 1）窗口上放置 1個靜態(tài)文本框控件，一個單行編 輯框控件， 2個按鈕控件。如圖 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)。 if qj_kchm then messagebox(error,你輸入的課程號不在你的授課范圍 !請重新輸入 !) () (1,n) else open(w_lrcj) close(w_srkch) end if （ 3）在 cb_2 中的 clicked 的腳本為： = 3 創(chuàng)建錄入成績窗口，命名為“ w_lrcj” 圖 171 （ 1） 在窗口上放置 2 個靜態(tài)文本框控件， 2 個單行編輯框控件， 3 個按鈕控件。 如圖 171. （ 2） 給 sle_2 中的 getfocus 的腳本為： string m m=trim() if m= or len(m)10 then messagebox(error,學(xué)號格式不正確，請重新輸入 !) () (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)。 if 0 then messagebox(你沒有權(quán)限錄入 ,此學(xué)生沒有選擇此門課程 ) () (1,len(m)) else The genral stf(1mpoyidvc,uh)0jb。5wT () end if end if （ 3） 給 cb_1中的 clicked 的腳本為： int m,n,chengji n=integer() if = or = then messagebox(error,學(xué)號或成績不能為空 ) else select kc.xf into :m from kc where (kc.kch=:s_kch)。 if n=0 and n=100 then select xs_cj.cj into :chengji from xs_cj where(xs_cj.xh=:s_xh and xs_cj.kch=:s_kch)。 if string(chengji)= then if n=60 then update xs_cj set cj=:n,xf=:m where (xs_cj.xh=:s_xh and xs_cj.kch=:s_kch)。 messagebox(成功 ,學(xué)號 +s_xh+的成績已錄入 !) else update xs_cj set cj=:n,xf=0 where (xs_cj.xh=:s_xh and xs_cj.kch=:s_kch)。 messagebox(成功 ,學(xué)號 +s_xh+的成績已錄入 !) end if = = else messagebox(error,此學(xué)生 此門課成績已存在 ,不能重復(fù)錄入 !) () (1,len()) end if else messagebox(error,錄入成績格式錯誤 ,請檢查 !) () (1,len()) end if end if （ 4） 給 cb_2的 clicked 的腳本為： = 19 = （ 5） 給 cb_3的 clicked 的腳本為： close(parent) 4 創(chuàng)建 查詢成績窗口 （ 1） 創(chuàng)建查詢成績窗口，命名為“ w_tcj” 圖 191 （ 2） 在窗口上放置 1個靜態(tài)文本框按鈕， 1個單行編輯框控件， 2 個按鈕控件。 如圖 191. （ 3） 給 cb_1 的 clicked 的腳本為： string m int n m=trim() n=len() select teacher.kch into :qj_kch from teacher where(teacher.zg