【正文】
)()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。 if =0 then =cc =aa =ss =bb //查找的方法根據(jù)學號、姓名來查,并直接顯示在單行編輯框中以便修改 =dd else messagebox(,該姓名不存在) end if else messagebox(,請輸入姓名)end if保存按鈕clicked事件string cc,aa,bb,ddstring ss cc= aa= ss= bb= dd=update student set =:aa,=:ss,=:bb,=:dd where studentid=:cc。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ù)登陸的帳號給出不同的權(quán)限end if 插入按鈕clicked事件(1)(1)重置按鈕clicked事件(sqlca)()保存按鈕clicked事件int i i=()if i=1 then mit。elseclose(w_yhxx)end if(sqlca)()=2207=1424if qx=2 or qx=1 then //根據(jù)登陸的帳號給出不同的權(quán)限=false=falseend if插入按鈕clicked事件(1)(1)保存按鈕clicked事件int i i=()if i=1 then mit。 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)。例:opensheet(w_xsxx,w_main)(八)測試l 在登錄窗口中輸入3種不同帳號和密碼,使用權(quán)限可以查看表中不同的信息。設(shè)置主鍵,外鍵等功能。 (九)經(jīng)驗教訓 在設(shè)計一個pb系統(tǒng)時,你不但應該仔細研究業(yè)務需求而且還要考察現(xiàn)有的系統(tǒng)。顯然,現(xiàn)有系統(tǒng)并不完美,否則你就不必再建立新系統(tǒng)了。一般來說,考察現(xiàn)有系統(tǒng)對你絕對有好處。 我們發(fā)現(xiàn)詢問用戶如何看待未來需求變化非常有用?! ∫欢ㄒ涀∵^去的經(jīng)驗教訓!我們還應該通過分享自己的體會和經(jīng)驗互相幫助。 在深入物理設(shè)計之前要先進行邏輯設(shè)計。(十)對系統(tǒng)功能擴充的展望l 添加更多的錯誤檢查機制l 功能更加豐富l 更加人性化的錯誤提示l 功能代碼實現(xiàn)更加快捷l 代碼運行更加高效(十一)參考文獻l PB程序設(shè)計l 網(wǎng)絡(luò)資源(論壇)21PB程序設(shè)計開發(fā)組成員:項建斌 徐繼 2022825