學生成績管理系統pb課程設計(編輯修改稿)

　

【文章內容簡介】 =:m)using sqlca。messagebox(退選成功,你已成功退選課程號+m)(qj_id)=end if（5）在cb_2中的clicked的腳本為：=（6）在cb_3中的clicked的腳本為：close(parent)4 創建修改密碼窗口（1）創建學生登錄密碼修改窗口，命名為“w_password”： 圖141（2） 添加控件在窗口上放置2個靜態文本框控件，1個單行編輯控件，2個按鈕控件。如圖141.（3） 在cb_1的clicked事件中的腳本為： string lint nl=trim()n=len()if l=or n10 thenmessagebox(提示,新密碼為空或長度大于10，請檢查!)elseupdate userset user.password=:lwhere user.id=:qj_idusing sqlca。if = 0 then messagebox(提示,密碼修改成功！請記住新密碼：+l) close(w_password) else messagebox(提示,密碼修改失敗:~n長度過長或有特殊字符!) return end ifend if (4) 在cb_2的clicked事件中的腳本為： = 5 創建幫助窗口，命名為“w_guanyu”：如圖151.圖151 創建教師窗口1 創建窗口，命名為“w_teacher“： 圖161（1） 在窗口上放置1個數據窗口控件，給數據窗口控件添加一個數據窗口對 象。如圖161.（2） 在w_teacher的open事件中的腳本為： (sqlca)(qj_id)2創建進入錄入學生成績窗口，命名為“w_srkch”：圖162 （1）窗口上放置1個靜態文本框控件，一個單行編輯框控件，2個按鈕控件。如圖162. （2）在cb_1中的clicked中的腳本為： string mint nm=trim()n=len()select teacher.kchinto :qj_kchfrom teacherwhere(teacher.zgh=:qj_id)。if qj_kchm thenmessagebox(error,你輸入的課程號不在你的授課范圍!請重新輸入!) () (1,n)else open(w_lrcj) close(w_srkch)end if（3）在cb_2中的clicked的腳本為：=3 創建錄入成績窗口，命名為“w_lrcj”圖171（1） 在窗口上放置2個靜態文本框控件，2個單行編輯框控件，3個按鈕控件。如圖171.（2） 給sle_2中的getfocus的腳本為：string mm=trim()if m= or len(m)10 then messagebox(error,學號格式不正確，請重新輸入!) () (1,len(m))else select xs_cj.xh,xs_cj.kchinto :s_xh,:s_kchfrom xs_cjwhere(xs_cj.xh=:m and xs_cj.kch=:qj_kch)。 if 0 thenmessagebox(你沒有權限錄入,此學生沒有選擇此門課程)()(1,len(m))else ()end ifend if（3） 給cb_1中的clicked的腳本為：int m,n,chengjin=integer()if = or = then messagebox(error,學號或成績不能為空)elseselect kc.xfinto :mfrom kcwhere (kc.kch=:s_kch)。if n=0 and n=100 thenselect xs_cj.cjinto :chengjifrom xs_cjwhere(xs_cj.xh=:s_xh and xs_cj.kch=:s_kch)。if string(chengji)= thenif n=60 thenupdate xs_cj set cj=:n,xf=:mwhere (xs_cj.xh=:s_xh and xs_cj.kch=:s_kch)。messagebox(成功,學號+s_xh+的成績已錄入!)else update xs_cj set cj=:n,xf=0where (xs_cj.xh=:s_xh and xs_cj.kch=:s_kch)。messagebox(成功,學號+s_xh+的成績已錄入!) end if==else messagebox(error,此學生此門課成績已存在,不能重復錄入!) () (1,len())end ifelse messagebox(error,錄入成績格式錯誤,請檢查!) () (1,len()) end ifend if （4） 給cb_2的clicked的腳本為：==（5） 給cb_3的clicked的腳本為：close(parent)4 創建查詢成績窗口（1） 創建查詢成績窗口，命名為“w_tcj”圖191（2） 在窗口上放置1個靜態文本框按鈕，1個單行編輯框控件，2個按鈕控件。如圖191.（3） 給cb_1的clicked的腳本為：string mint nm=trim()n=len()select teacher.kchinto :qj_kchfrom teacherwhere(teacher.zgh=:qj_id)。if qj_kchm then messagebox(error,你的輸入有誤!請重新輸入!) () (1,n)else =d_tcj (sqlca) (m) close(w_tcj)end if（4） 給cb_2的clicked的腳本為：close（parent） 5 創建修改密碼窗口（1）創建教師登錄密碼修改窗口，命名為“w_password”： 圖201（2）添加控件在窗口上放置2個靜態文本框控件，1個單行編輯控件，2個按鈕控件。如圖201.（3）在cb_1的clicked事件中的腳本為： string lint nl=trim()n=len()if l=or n10 thenmessagebox(提示,新密碼為空或長度大于10，請檢查!)elseupdate userset user.password=:lwhere user.id=:qj_idusing sqlca。if = 0 then messagebox(提示,密碼修改成功！請記住新密碼：+l)