【正文】 returnend ifreturnend ifif jiaose=2 then//學(xué)生密碼修改if trim(password)=pw1 thenif pw2=pw3 thenupdate std_Info set std_Key=:pw2 where std_Num=:us。 return end if elsemessagebox(,輸入的舊密碼不正確!)=39。 =39。)=39。密碼修改功能實現(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。當(dāng)各類型用戶進行密碼修改時，系統(tǒng)從而能確定該用戶對應(yīng)的個人信息表，對密碼進行修改，從而實現(xiàn)密碼修改功能。 密碼修改功能的實現(xiàn) 密碼修改界面被各角色用戶公用，當(dāng)用戶登陸此系統(tǒng)時，系統(tǒng)設(shè)置的全局變量jiaose 將保存此用戶的角色信息，當(dāng) jiaose=1 時，表示該用戶是教務(wù)員；當(dāng)jiaose=2 時，表示該用戶是學(xué)生；否則用戶是教師。假如要修改某學(xué)生成績，可以在文本框中輸入學(xué)生學(xué)號，查找該學(xué)生對應(yīng)信息，也可以輸入要修改課程的的課程號進行查詢，當(dāng)操作完成以后保存，成績錄入成功。 教師成績錄入功能的實現(xiàn) 此模塊實現(xiàn)教師對學(xué)生成績的錄入及修改等操作 [10]。returnend ifmessagebox(提示,排課成功!)=mit。returnend ifupdate choise_Infoset choise_Adress=:classnumwhere choise_Cnum=:num。update class_Infoset class_Zt=:ztwhere class_Num=:classnum。returnend ifmessagebox(提示,排課成功!)=mit。returnend ifupdate choise_Infoset choise_Adress=:classnumwhere choise_Cnum=:num。update class_Infoset class_Zt=:ztwhere class_Num=:classnum。returnend ifmessagebox(提示,排課成功!)=mit。returnend ifupdate choise_Infoset choise_Adress=:classnumwhere choise_Cnum=:num。update class_Infoset class_Zt=:ztwhere class_Num=:classnum。messagebox(,此課取消失敗!)returnend ifmit。if 0 then messagebox(,此課取消失敗!)returnend ifupdate course_Infoset course_Subp=0where course_Num=:num。 //專業(yè)課程中提取已選人數(shù)if 0 thenmessagebox(提示,課程號不存在!)returnend ifselect choise_Adress45 into:pafrom choise_Infowhere choise_Cnum=:num。 排課界面：圖 專業(yè)課程排課窗口 根據(jù)規(guī)定系統(tǒng)設(shè)定凡是選擇課程人數(shù)少于 50 人的課程不給予排課，由于課程科目交多，教務(wù)員可以查看指定的課程號對應(yīng)課程的所有信息，比如查詢已經(jīng)選擇人數(shù)，可以避免不必要的排課造成工作效率降低；當(dāng)確定要排的課程后，在排課欄輸入要排的課程號，系統(tǒng)根據(jù)設(shè)定算法，自動對課程進行排課。167。43 個人信息修改界面：圖 基本信息修改窗口 個人基本信息修改界面只能對除學(xué)號、姓名以外的信息進行修改，當(dāng)確認修改后按提交按鈕，則保存修改。167。 課表查詢界面：圖 課表查詢窗口 當(dāng)學(xué)生選課結(jié)束后，教務(wù)員通過學(xué)生提交的選課信息，審訂課程是否給予排課安排教室，假如某課程審訂通過則對此課程安排相應(yīng)的上課教室。資費界面中顯示出所有需要交納費用的課程及金額數(shù)，并計算出需要交納的總費用。 loop close codecur。 fetch? codecur into:,:um,:ame,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:cha。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。elseselect course_Subpinto :subpfrom course_Infowhere course_Num=:ums。if =0 thenmessagebox(提示,課程 +trim(ames)+ 撤消成功!)if trim(chas)=素質(zhì)選修thenselect courses_Subpinto :subpfrom courses_Infowhere courses_Num=:ums。各部分介紹如下： 選課查詢界面：圖 選課查詢窗口 當(dāng)學(xué)生選課結(jié)束以后，系統(tǒng)把學(xué)生當(dāng)前提交的課程信息保存到一個臨時的表中，等待教務(wù)員審訂通過選課，這時學(xué)生可以對已經(jīng)選擇的課程進行查詢，確定原來選擇的課程是否選上，并且當(dāng)不滿意原來所選的選課時候，學(xué)生可以撤消不滿意的課程，然后做再次調(diào)整，直到學(xué)生滿意所有的課程選擇，選課查詢界面相當(dāng)于學(xué)生對課程選擇的修改、確認界面。messagebox(提示,trim(ame)+ +這門課選擇成功!)end ifend ifelseend ifend if38 167。insert? into? choise_Info (choise_Com,choise_Snum,choise_Sname,choise_Cnum,choise_Cname,choise_Grade,choise_Cent,choise_Time,choise_Tnum,choise_Tname,choise_Zhouci,choise_Times,choise_Cha,choise_Term,choise_School)values(:,:user,:sname,:um,:ame,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:cha,:getterm,:school)。if sumcent + double(cents) double(20) thenmessagebox(提示,最多選 20 個學(xué)分+你已經(jīng)選+trim(string(sumcent))+個學(xué)分!+trim(ame)+ +學(xué)分為+trim(cents))returnend ifselect course_Com,course_Grade,course_cent,course_Time,course_Tnum,course_Tname,course_Zhouci,course_times,course_Sump,course_Subp,course_Cha,course_School into :,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:sump,:subp,:cha,:schoolfrom course_Info37 where course_Num=:um。thenelsech=messagebox(提示,最多可選擇 20 個學(xué)分!+你確定選 +trim(ame)+ 36 擇這門課程嗎？,question!,YesNoCancel!)if ch=1 thenselect choise_Snum,choise_Cnuminto :a,:bfrom choise_Infowhere choise_Snum=:user and choise_Cnum=:um。選課代碼如下：string ,sname,grade,tnum,tname,zhouci,time2,cha,term,schoolstring um,ame,a,b,centsdouble cent,sumcentint time1,sump,subplong chinteger dexdex= () (dex,3, um)(dex,4,ame)(dex,6,cents)if um=39。界面如圖 所示圖 學(xué)期選擇窗口 專業(yè)選課界面顯示出了學(xué)生對應(yīng)學(xué)期、年級的所有可以選擇的專業(yè)課程信息，提供給學(xué)生一個選課參考。loopclose codecur。fetch? codecur into:,:num,:name,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:sump,:subp,:cha。schools=trim(schools)(1,選課 , Left! , 200)(2,授課學(xué)院 , Left! , 600)(3,課程號 , Left! , 300)(4,課程名 , Left! , 600)(5,開課年級 , Left! , 400)(6,學(xué)分 , Left! , 200)(7,總學(xué)時 , Left! , 300)(8,教師號 , Left! , 300)33 (9,教師名 , Left! , 400)(10,周次 , Left! , 300)(11,上課時間 , Left! , 400)(12,總?cè)藬?shù) , Left! , 300)(13,已選人數(shù) , Left! , 400)(14,課程性質(zhì) , Left! , 400)()declare codecur cursor forselect course_Com,course_Num,course_Name,course_Grade,course_cent,course_Time,course_Tnum,course_Tname,course_Zhouci,course_Times,course_Sump,course_Subp,course_chafrom course_Infowhere course_Grade=:users and course_Term=:getterm and course_School=:schools。 首先介紹專業(yè)課程選課功能的實現(xiàn)過程：當(dāng)學(xué)生登陸學(xué)生信息管理系統(tǒng)時，系統(tǒng)定義的全局變量 user 將保存學(xué)生登陸系統(tǒng)的學(xué)號，通過學(xué)生的學(xué)號,用函數(shù) left()提取學(xué)號前 4 為數(shù)字可以判斷出此學(xué)生所屬年級；然后在學(xué)期選擇窗口選擇要選課的學(xué)期，并將學(xué)期保存到全局變量 getterm 中；最后在學(xué)生基本信息表中提取該學(xué)生所屬的學(xué)院，通過開課年級、開課學(xué)期和開課學(xué)院可以準確的把此學(xué)生所有能選擇的課程顯示出來供選擇參考。32 167。 if =0 then =歡迎學(xué)生 +trim(name)+ 光臨! end ifelseselect teacher_Name into:name from teacher_Info where teacher_Num=:user。（2） 窗口 w_p2 的 open 事件程序代碼如下，用于顯示文本框內(nèi)容string nameif jiaose=1 thenselect admin_Nameinto:namefrom admin_Infowhere admin_Num=:user。并且所有角色類型用戶的操作主界面的 Window Type 都選擇為 mdi!。用戶登陸窗口命名為：w_login。 用戶登陸模塊實現(xiàn) 本系統(tǒng)的用戶使用對象分 3 種類型：學(xué)生、教師、教務(wù)員，用戶在登陸本系統(tǒng)時就必須選擇相應(yīng)的角色，根據(jù)用戶角色的不同，本系統(tǒng)分為教務(wù)員管理系統(tǒng)、教師管理系統(tǒng)、學(xué)生管理系統(tǒng)。在應(yīng)用程序?qū)ο蟮淖兞慷x窗口中定義