【正文】 courses_Infowhere courses_Num=:ums。 subp=subp 1 update courses_Info set courses_Subp=:subp where courses_Num=:ums。elseselect course_Subpinto :subpfrom course_Infowhere course_Num=:ums。subp=subp 140 update course_Info set course_Subp=:subp where course_Num=:ums。end if() declare codecur cursor for select choise_Com,choise_Cnum,choise_Cname,choise_Grade,choise_Cent,choise_Time,choise_Tnum,choise_Tname,choise_Zhouci,choise_Times,choise_Cha from choise_Info where choise_Snum=:user。 open codecur。 fetch? codecur into:,:um,:ame,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:cha。 do while =0 (inde,trim(撤消),1) (inde,2,trim()) (inde,3,trim(um)) (inde,4,trim(ame)) (inde,5,trim(grade)) (inde,6,trim(string(cent))) (inde,7,trim(string(time1))) (inde,8,trim(tnum)) (inde,9,trim(tname)) (inde,10,trim(zhouci)) (inde,11,trim(time2)) (inde,12,trim(cha))41 inde=inde+1 fetch? codecur into:,:um,:ame,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:cha。 loop close codecur。end ifelseend ifend if 資費(fèi)查詢界面：圖 資費(fèi)查詢窗口 資費(fèi)查詢界面實(shí)現(xiàn)學(xué)生費(fèi)用查詢功能，即對已經(jīng)選擇的課程所交納費(fèi)用的查詢，需要交納費(fèi)用的課程科目包括素質(zhì)選修課程和重修課程（其他不需要交納費(fèi)用） ，費(fèi)用為 60 元/1 學(xué)分。資費(fèi)界面中顯示出所有需要交納費(fèi)用的課程及金額數(shù)，并計算出需要交納的總費(fèi)用。42 成績查詢界面： 圖 成績查詢窗口 成績查詢模塊實(shí)現(xiàn)的功能是查看以往學(xué)過所有課程的成績，根據(jù)個人要求不同可以對成績進(jìn)行統(tǒng)計，比如可以按升、降序排列成績，統(tǒng)計以前所有課程總學(xué)分?jǐn)?shù)，查看不及格科目門數(shù)及需要重修的學(xué)分?jǐn)?shù)等等。 課表查詢界面：圖 課表查詢窗口 當(dāng)學(xué)生選課結(jié)束后，教務(wù)員通過學(xué)生提交的選課信息，審訂課程是否給予排課安排教室，假如某課程審訂通過則對此課程安排相應(yīng)的上課教室。學(xué)生可以在課表欄查詢到所此課程對應(yīng)的上課教室、上課時間及周次等相關(guān)信息。167。 學(xué)生個人信息修改功能的實(shí)現(xiàn) 本模塊包括學(xué)生對本人基本信息的修改和他人基本信息查詢。43 個人信息修改界面：圖 基本信息修改窗口 個人基本信息修改界面只能對除學(xué)號、姓名以外的信息進(jìn)行修改，當(dāng)確認(rèn)修改后按提交按鈕，則保存修改。 查詢他人基本信息界面：圖 基本信息查詢窗口在查詢界面輸入要查詢學(xué)生的學(xué)號，及可查詢到對應(yīng)學(xué)生的基本信息，如輸入：20223789 顯示信息如圖 所示，如果輸入學(xué)生學(xué)號不正確或不符合規(guī)范，則系統(tǒng)提示輸入錯誤。167。 教務(wù)員排課功能的實(shí)現(xiàn) 此模塊實(shí)現(xiàn)功能：教務(wù)員對學(xué)生提交的選課單進(jìn)行排課，由于課程開課年級和學(xué)期的關(guān)系，把排課分為專業(yè)課程排課和素質(zhì)選修課程排課，又兩種排課實(shí)現(xiàn)都基本相44 同，所以本作者只介紹專業(yè)課程排課。 排課界面：圖 專業(yè)課程排課窗口 根據(jù)規(guī)定系統(tǒng)設(shè)定凡是選擇課程人數(shù)少于 50 人的課程不給予排課，由于課程科目交多，教務(wù)員可以查看指定的課程號對應(yīng)課程的所有信息，比如查詢已經(jīng)選擇人數(shù)，可以避免不必要的排課造成工作效率降低；當(dāng)確定要排的課程后，在排課欄輸入要排的課程號，系統(tǒng)根據(jù)設(shè)定算法，自動對課程進(jìn)行排課。代碼如下：string num,classnum,paint subp,zt=1long knum=select course_Subpinto :subpfrom course_Infowhere course_Num=:num。 //專業(yè)課程中提取已選人數(shù)if 0 thenmessagebox(提示,課程號不存在!)returnend ifselect choise_Adress45 into:pafrom choise_Infowhere choise_Cnum=:num。pa=trim(pa)if pa thenmessagebox(提示,已經(jīng)排課!)=returnend ifif subp 50 then //安排教室 k=messagebox(提示,選擇學(xué)習(xí)此課人數(shù)太少，此課取消!,question!,YesNoCancel!)if k=1 thendelete from choise_Info where choise_Cnum=:num。if 0 then messagebox(,此課取消失敗!)returnend ifupdate course_Infoset course_Subp=0where course_Num=:num。if 0 then rollback。messagebox(,此課取消失敗!)returnend ifmit。messagebox(提示,操作成功!)46 end ifreturnend if//************小教室安排***********if subp = 50 and subp = 70 thenselect class_Numinto:classnumfrom class_Infowhere class_Cha = 70 and class_Zt = 0 。update class_Infoset class_Zt=:ztwhere class_Num=:classnum。if 0 then messagebox(提示,數(shù)據(jù)庫中插入出錯!)rollback。returnend ifupdate choise_Infoset choise_Adress=:classnumwhere choise_Cnum=:num。if 0 then messagebox(提示,排課失敗!)rollback。returnend ifmessagebox(提示,排課成功!)=mit。47 returnend if//************中等大教室安排***********if subp 70 and subp = 150 thenselect class_Numinto:classnumfrom class_Infowhere class_Cha = 150 and class_Zt = 0 。update class_Infoset class_Zt=:ztwhere class_Num=:classnum。if 0 then messagebox(提示,數(shù)據(jù)庫中插入出錯!)rollback。returnend ifupdate choise_Infoset choise_Adress=:classnumwhere choise_Cnum=:num。if 0 then messagebox(提示,排課失敗!)rollback。returnend ifmessagebox(提示,排課成功!)=mit。return48 end if//**************大教室安排************if subp 150 and subp = 300 thenselect class_Numinto:classnumfrom class_Infowhere class_Cha = 300 and class_Zt = 0 。update class_Infoset class_Zt=:ztwhere class_Num=:classnum。if 0 then messagebox(提示,數(shù)據(jù)庫中插入出錯!)rollback。returnend ifupdate choise_Infoset choise_Adress=:classnumwhere choise_Cnum=:num。if 0 then messagebox(提示,排課失敗!)rollback。returnend ifmessagebox(提示,排課成功!)=mit。returnend if49 167。 教師成績錄入功能的實(shí)現(xiàn) 此模塊實(shí)現(xiàn)教師對學(xué)生成績的錄入及修改等操作 [10]。 成績錄入界面：圖 成績錄入窗口 對學(xué)生成績的錄入分新錄和修改，如果添加學(xué)生新課程成績，按添加按鈕，輸入學(xué)生對應(yīng)信息及成績，然后保存即可。假如要修改某學(xué)生成績，可以在文本框中輸入學(xué)生學(xué)號，查找該學(xué)生對應(yīng)信息，也可以輸入要修改課程的的課程號進(jìn)行查詢，當(dāng)操作完成以后保存，成績錄入成功。167。 密碼修改功能的實(shí)現(xiàn) 密碼修改界面被各角色用戶公用，當(dāng)用戶登陸此系統(tǒng)時，系統(tǒng)設(shè)置的全局變量jiaose 將保存此用戶的角色信息，當(dāng) jiaose=1 時，表示該用戶是教務(wù)員；當(dāng)jiaose=2 時，表示該用戶是學(xué)生；否則用戶是教師。系統(tǒng)根據(jù) jiaose 的取值從而判斷出該用戶是何種類型。當(dāng)各類型用戶進(jìn)行密碼修改時，系統(tǒng)從而能確定該用戶對應(yīng)的個人信息表，對密碼進(jìn)行修改，從而實(shí)現(xiàn)密碼修改功能。50 密碼修改界面：圖 密碼修改界面其他模塊如教師基本信息查詢、修改；教務(wù)員對教師、學(xué)生的添加、刪除、修改等功能，這里不在做詳細(xì)說明，本作者只對學(xué)生選課功能做了詳述。密碼修改功能實(shí)現(xiàn)代碼如下：string pw1,pw2,pw3pw1=pw2=pw3=if jiaose=1 then //教務(wù)員密碼修改if trim(password)=pw1 thenif pw2=pw3 thenupdate admin_Info set admin_Key=:pw2 where admin_Num=:user。if =0 thenmessagebox(,密碼修改成功!) close(w_modify_key)elsemessagebox(,密碼修改失敗!)end if51 elsemessagebox(,兩次輸入的密碼不一致!請重新輸入。)=39。39。 =39。39。 return end if elsemessagebox(,輸入的舊密碼不正確!)=39。39。returnend ifreturnend ifif jiaose=2 then//學(xué)生密碼修改if trim(password)=pw1 thenif pw2=pw3 thenupdate std_Info set std_Key=:pw2 where std_Num=:u