【正文】
box(,沒保存,現(xiàn)在要保存嗎?,question!,yesno!) if m=1 then ( ) messagebox(,成功!) close(w_cjlr) else messagebox(,修改失敗!)//關(guān)閉時檢查數(shù)據(jù)有沒有被修改,如果有則提示要保存 end ifelse close(w_cjlr)end if7.學(xué)生信息窗口open事件(sqlca)()=2180=1856if qx=2 or qx=1 then //根據(jù)登陸的帳號給出不同的權(quán)限=false=false=false=falseend if插入按鈕clicked事件(1)(1)重置按鈕clicked事件(sqlca)()保存按鈕clicked事件int i i=()if i=1 then mit。select count() into :dd from sreport where score70 and score =60。select count() into :bb from sreport where score90 and score =80。else messagebox(,修改失敗)end if重置按鈕clicked事件(sqlca)() //重新導(dǎo)入數(shù)據(jù)庫的信息保存按鈕clicked事件int i i=()if i=1 then mit。 if =0 then =aa =cc =ss //第二種查找的方法根據(jù)學(xué)號和課程號來查 =dd else messagebox(,該學(xué)號或課程號不存在) end if else messagebox(,請輸入學(xué)號和課程號)end if保存修改按鈕clicked事件string cc,aa,bb,ddstring ss cc= //學(xué)號 aa= //課程號 ss= //成績 dd= //備注update sreport set =:ss,=:dd where studentid=:cc and courseid=:aa。 closewithreturn(parent,rc) (sqlca)()=2971=1684if qx=2 or qx=0 then //根據(jù)登陸的帳號給于不同的權(quán)限,可以或不可以使用某個按扭=false=false=false=falseend ifdw_1的itemchangde事件string cc,aaint bb,eecc=(1,1)select count(*) into :bb from student where studentid=:cc。)rc=right(,len()n)rc += + + rc += 39。,exclamation!,ok!) () returnend if n=pos(,39。 //查詢出id 和passwordif b0 and = then //id、password、驗證碼的比對 open(w_main) close(w_login)else messagebox(,你的密碼或驗證碼有錯,請重新輸入!)end ifselect rank into :qx from myuser where userid=:username and password=:password。connect。UID=dba。業(yè)務(wù)流程圖:dfd圖:0層:1層代碼設(shè)計學(xué)號:xx x xx xxx學(xué)院 系 入學(xué)時間 學(xué)生編號專業(yè):xxx 編號院系:xx 編號課程:xxxx 編號 (七)學(xué)生成績管理系統(tǒng)(設(shè)計+代碼)一.數(shù)據(jù)庫設(shè)計 操作界面截圖 11