學(xué)生成績管理系統(tǒng)-課程設(shè)計報告-文庫吧在線文庫
【正文】 輯系統(tǒng)用戶信息表，但對于其它表只能瀏覽。應(yīng)用程序分為：應(yīng)用程序?qū)ο螅瑪?shù)據(jù)窗口對象，管理窗口，其他窗口，系統(tǒng)菜單等。 //取得權(quán)限的代號3． 主窗口open事件opensheet(w_logo,w_main)timer(1)timer事件 //取得系統(tǒng)時間 并在標(biāo)題顯示時間和權(quán)限的簡單說明if qx=2 thentitle=(學(xué)生成績管理系統(tǒng) 當(dāng)前時間:+string(now(),hh:mm:ss)+ 您的權(quán)限是：學(xué)生您只能查詢) end if if qx=1 thentitle=(學(xué)生成績管理系統(tǒng) 當(dāng)前時間:+string(now(),hh:mm:ss)+ 您的權(quán)限是：教師您能查詢，修改) end if if qx=0 thentitle=(學(xué)生成績管理系統(tǒng) 當(dāng)前時間:+string(now(),hh:mm:ss)+ 您的權(quán)限是：管理員)end ifrbuttondown事件(xpos,ypos) //右擊事件中關(guān)聯(lián)菜單resize事件if isvalid(w_logo) then = +800 = +230end if if = then =modified end if 4． 成績查詢窗口open事件(sqlca)()關(guān)閉按鈕clickedclose(w_cjicx)查找按鈕 clicked=3067long frowstring fstropenwithparm(w_find,student) //打開窗口并提交一個值fstr=(fstr)()5．查找窗口的open事件choose case case student (學(xué)號 *studentid) (姓名 *name)end choose查找窗口中的確定按鈕clickedint nstring rcif = then messagebox(提示,沒有設(shè)置查找條件！請輸入。 if =0 then messagebox(,修改成功) //對查到的信息可以進(jìn)行修改，直接保存在數(shù)據(jù)庫中。 messagebox( 提示,保存成功!) //保存數(shù)據(jù)窗口控件中的數(shù)據(jù)到數(shù)據(jù)庫 (sqlca)()else messagebox(,保存失敗!)end if刪除按鈕clicked事件int ll=()(l) 關(guān)閉按鈕clicked事件if ()0 or ()0 then int m m=messagebox(,沒保存，現(xiàn)在要保存嗎？,question!,yesno!) if m=1 then ( ) messagebox(,成功！) close(w_xsxx) else messagebox(,修改失??！)//關(guān)閉時檢查數(shù)據(jù)有沒有被修改，如果有則提示要保存 end ifelseclose(w_xsxx)end if查找功能中的確定按鈕clicked事件string cc,aa,bb,ddstring sscc= aa= if cc then select , into:aa,:ss,:bb,:dd from student where studentid=:cc。 messagebox(,修改失??！) end ifelseclose(w_yxicx)end if添加功能中的保存按鈕clicked事件string id,nameid=name= if and and len(id)=2 then insert into college(,) values (:id,:name)。顯然，現(xiàn)有系統(tǒng)并不完美，否則你就不必再建立新系統(tǒng)了。 在深入物理設(shè)計之前要先進(jìn)行邏輯設(shè)計。 我們發(fā)現(xiàn)詢問用戶如何看待未來需求變化非常有用。設(shè)置主鍵，外鍵等功能。if =0 then messagebox(,數(shù)據(jù)添加成功)else messagebox(,數(shù)據(jù)添加失敗)end if退出按鈕clicked事件close(w_xyhzc)
數(shù)學(xué)相關(guān)推薦
鄂ICP備17016276號-1