【正文】 111幫助關(guān)于窗口 1． 應(yīng)用對(duì)象open 事件 // Profile mydb = ODBC = False = ConnectString=39。3．資源需求：（三）項(xiàng)目的必要性和可行性一個(gè)學(xué)生成績(jī)信息管理系統(tǒng)，可以解決繁雜的學(xué)生的各門(mén)學(xué)科成績(jī)的匯總，對(duì)信息資源進(jìn)行高級(jí)管理，方便用戶對(duì)信息的查找，修改和編輯。管理窗口應(yīng)具有瀏覽和編輯兩種操作方式，并具有瀏覽，重載，添加，刪除和更新等數(shù)據(jù)操作功能。 + + 39。if =0 then messagebox(,數(shù)據(jù)添加成功)else messagebox(,數(shù)據(jù)添加失敗)end if退出按鈕clicked事件close(w_xyhzc)(sqlca)()=2327=1620if qx=2 or qx=1 then=false=false //根據(jù)登陸的帳號(hào)給出不同的權(quán)限end if 插入按鈕clicked事件(1)(1)重置按鈕clicked事件(sqlca)()保存按鈕clicked事件int i i=()if i=1 then mit。 我們發(fā)現(xiàn)詢問(wèn)用戶如何看待未來(lái)需求變化非常有用。顯然，現(xiàn)有系統(tǒng)并不完美，否則你就不必再建立新系統(tǒng)了。 messagebox( 提示,保存成功!) //保存數(shù)據(jù)窗口控件中的數(shù)據(jù)到數(shù)據(jù)庫(kù) (sqlca)()else messagebox(,保存失敗!)end if刪除按鈕clicked事件int ll=()(l) 關(guān)閉按鈕clicked事件if ()0 or ()0 then int m m=messagebox(,沒(méi)保存，現(xiàn)在要保存嗎？,question!,yesno!) if m=1 then ( ) messagebox(,成功！) close(w_xsxx) else messagebox(,修改失敗！)//關(guān)閉時(shí)檢查數(shù)據(jù)有沒(méi)有被修改，如果有則提示要保存 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。 //取得權(quán)限的代號(hào)3． 主窗口open事件opensheet(w_logo,w_main)timer(1)timer事件 //取得系統(tǒng)時(shí)間 并在標(biāo)題顯示時(shí)間和權(quán)限的簡(jiǎn)單說(shuō)明if qx=2 thentitle=(學(xué)生成績(jī)管理系統(tǒng) 當(dāng)前時(shí)間:+string(now(),hh:mm:ss)+ 您的權(quán)限是：學(xué)生您只能查詢) end if if qx=1 thentitle=(學(xué)生成績(jī)管理系統(tǒng) 當(dāng)前時(shí)間:+string(now(),hh:mm:ss)+ 您的權(quán)限是：教師您能查詢，修改) end if if qx=0 thentitle=(學(xué)生成績(jī)管理系統(tǒng) 當(dāng)前時(shí)間:+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． 成績(jī)查詢窗口open事件(sqlca)()關(guān)閉按鈕clickedclose(w_cjicx)查找按鈕 clicked=3067long frowstring fstropenwithparm(w_find,student) //打開(kāi)窗口并提交一個(gè)值fstr=(fstr)()5．查找窗口的open事件choose case case student (學(xué)號(hào)