【正文】
lyesno=messagebox(39。提示:刪除下列信息?39。,+:+,question!,yesno!)if lyesno=2 then returnDELETE FROM studentWHERE studentID = :。(3)學(xué)生信息優(yōu)化過濾條件查詢過濾條件是通過and邏輯關(guān)系進(jìn)行連接的,那么會(huì)存在這樣的情況,第一個(gè)過濾之前是沒有其他的條件與其進(jìn)行連接的,不應(yīng)該存在and邏輯關(guān)系,主要方法是對(duì)ls_filter的前面4個(gè)字符進(jìn)行判斷,如果是and則去掉即可。核心代碼如下://檢索數(shù)據(jù)(sqlca)ls_filter=1=1//學(xué)生檢索if then ls_filter=ls_filter+ and sid=39。++39。//過濾數(shù)據(jù)(ls_filter)()教師管理模塊可以查看教師的編號(hào)、姓名、性別等基本信息并能進(jìn)行添加、修改和刪除。在新增狀態(tài)可以添加新的學(xué)生基本信息。設(shè)計(jì)時(shí)我盡可能設(shè)想各種邊界條件,如記錄為空,輸入為空,輸入出錯(cuò)等,當(dāng)輸入的信息滿足這些邊界條件時(shí),將會(huì)彈出一個(gè)提示框提醒用戶,以便用戶能及時(shí)地做出修改。添加的信息將全部存儲(chǔ)到數(shù)據(jù)庫中。圖26教師信息窗口 (1) 數(shù)據(jù)庫插入、修改及刪除數(shù)據(jù)運(yùn)用數(shù)據(jù)庫的INSERT、UPDATE及DELETE子句進(jìn)行操作。、 。核心代碼如下: select teacherID into :li_id from Teacher where teacherID=:li_id。if =新增 thenif =0 then messagebox(提示,教師編號(hào)重復(fù)) end if INSERT INTO Teacher( teacherID, ……) VALUES ( :, ……) 。 else// 修改信息 lyesno=messagebox(39。提示39。,39。是否修改當(dāng)前信息?39。,question!,yesno!) if lyesno=2 then returnli_id=trim()。 UPDATE Teacher SET teacherName=:, …… WHERE teacherID=:li_id。 // 刪除信息lyesno=messagebox(39。提示:刪除下列信息?39。,+:+,question!,yesno!)if lyesno=2 then returnDELETE FROM TeacherWHERE teacher ID = :。(2)教師信息優(yōu)化過濾條件查詢同學(xué)生查詢技術(shù)一樣,核心代碼: if then ls_filter=ls_filter+ and teachername=39。++39。點(diǎn)擊菜單中的院系信息,在該窗口中我們可以院系信息進(jìn)行修改和刪除。圖27院系資料窗口實(shí)現(xiàn)數(shù)據(jù)窗口對(duì)象的動(dòng)態(tài)修改,核心代碼如下://保存()if ()=0 and ()=0 then MessageBox(提示信息,尚無增加、刪除或修改,無須保存!) Return end ifif ()=1 then Commit。 MessageBox(提示信息,保存成功!) else RollBack。 MessageBox(提示信息,保存失敗!) end if //增加long n_rown_row=(0)(n_row)(n_row)(1)()//刪除long n_row(0)n_row=()(1,false)(n_row,true)25點(diǎn)擊右邊菜單中的學(xué)生資料管理項(xiàng),就可以查