【正文】 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。 else select course_Subp into :subp from course_Info where course_Num=:ums。 if =0 then messagebox(提示 ,課程 +trim(ames)+ 撤消成功 !) if trim(chas)=素質(zhì)選修 then select courses_Subp into :subp from courses_Info where courses_Num=:ums。各部分介紹如下： 選課查詢界面： 圖 選課查詢窗口 當(dāng)學(xué)生選課結(jié)束 以后，系統(tǒng)把學(xué)生當(dāng)前提交的課程信息保存到一個臨時(shí)的表中，等待教務(wù)員審訂通過選課，這時(shí)學(xué)生可以對已經(jīng)選擇的課程進(jìn)行查詢，確定原來選擇的課程是否選上，并且當(dāng)不滿意原來所選的選課時(shí)候，學(xué)生可以撤消不滿意的課程，然后做再次調(diào)整，直到學(xué)生滿意所有的課程選擇，選課查詢界面相當(dāng)于學(xué)生對課程選擇的修改、確認(rèn)界面。 messagebox(提示 ,trim(ame)+ +這門課選擇成功 !) end if end if else end if end if 37 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) then messagebox( 提示 , 最多選 20 個學(xué)分 + 你已經(jīng)選+trim(string(sumcent))+個學(xué)分 !+trim(ame)+ +學(xué)分為 +trim(cents)) return end if select 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,:school from course_Info 36 where course_Num=:um。then else ch=messagebox(提示 ,最多可選擇 20 個學(xué)分 !+你確定選 +trim(ame)+ 35 擇這門課程嗎？ ,question!,YesNoCancel!) if ch=1 then select choise_Snum,choise_Cnum into :a,:b from choise_Info where choise_Snum=:user and choise_Cnum=:um。 選課代碼如下： string ,sname,grade,tnum,tname,zhouci,time2,cha,term,school string um,ame,a,b,cents double cent,sumcent int time1,sump,subp long ch integer dex dex= () (dex,3, um) (dex,4,ame) (dex,6,cents) if um=39。界面如圖 圖 學(xué)期選擇窗口 專業(yè)選課界面顯示出了學(xué)生對應(yīng)學(xué)期、年級的所有可以選 擇的專業(yè)課程信息，提供給學(xué)生一個選課參考。 loop close 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é)時(shí) , Left! , 300) (8,教師號 , Left! , 300) 32 (9,教師名 , Left! , 400) (10,周次 , Left! , 300) (11,上課時(shí)間 , Left! , 400) (12,總?cè)藬?shù) , Left! , 300) (13,已選人數(shù) , Left! , 400) (14,課程性質(zhì) , Left! , 400) () declare codecur cursor for select 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_cha from course_Info where course_Grade=:users and course_Term=:getterm and course_School=:schools。 首先介紹專業(yè)課程選課功能的實(shí)現(xiàn)過程：當(dāng)學(xué)生登陸學(xué)生信息管理系統(tǒng)時(shí)，系統(tǒng)定義的全局變量 user將保存學(xué)生登陸系統(tǒng)的學(xué)號，通過學(xué)生的學(xué)號 ,用函數(shù) left()提取學(xué)號前 4為數(shù)字可以判斷出此學(xué)生所屬年級；然后在學(xué)期選擇窗口選擇要選課的學(xué)期，并將學(xué)期保存到全局變量 getterm中；最后在學(xué)生基本信息表中提取該學(xué)生所屬的學(xué)院，通過開課年級、開課學(xué)期和開課學(xué)院可以準(zhǔn)確的把此學(xué)生所有能選擇的課程顯示出來供選擇參考。 31 167。 if =0 then =歡迎學(xué)生 +trim(name)+ 光臨 ! end if else select teacher_Name into:name from teacher_Info where teacher_Num=:user。 （ 2） 窗口 w_p2 的 open事件程序代碼如下，用于顯示文本框內(nèi)容 string name if jiaose=1 then select admin_Name into:name from admin_Info where admin_Num=:user。并且所有角色類型用戶的操作主界面的 Window Type都選擇為 mdi!。用戶登陸窗口命名為： w_login。 用戶登陸模塊實(shí)現(xiàn) 本系統(tǒng)的用戶使用對象分 3種類型：學(xué)生、教師、教務(wù)員，用 戶在登陸本系統(tǒng)時(shí)就必須選擇相應(yīng)的角色，根據(jù)用戶角色的不同，本系統(tǒng)分為教務(wù)員管理系統(tǒng)、教師管理系統(tǒng)、學(xué)生管理系統(tǒng)。 在應(yīng)用程序?qū)ο蟮淖兞慷x窗口中定義了全局變量，如下： string user //登陸用戶的 ID string password //用戶密碼 string getterm //用于學(xué)生選擇學(xué)期用 string umintro //選擇課程介紹用 int jiaose //判斷用戶角色 167。PWD=39。DSN=student。單擊 OK，在 Database Profiles設(shè)置窗右鍵單擊 students選擇 connection,則和數(shù)據(jù)庫 student連接上了。 圖 創(chuàng)建 SQL Server 的新數(shù)據(jù)源 選擇先前已經(jīng)建立好的數(shù)據(jù)庫 student，其他的屬性設(shè)置中選擇默認(rèn)值，單擊下一步即可，最后測試下與數(shù)據(jù)庫的連接，連接成功則數(shù)據(jù)源設(shè)置完成。 26 圖 創(chuàng)建 SQL Server 的新數(shù)據(jù)源 在名稱欄輸 入數(shù)據(jù)源的名字（自己命名），選擇服務(wù)器（如果沒運(yùn)行的服務(wù)器則先運(yùn)行服務(wù)器），單擊下一步。 圖 創(chuàng)建新數(shù)據(jù)源 選擇 SQL Server 單擊 完成。 圖 Database 選擇 ODB ODBC?Utilities? ODBC Administrator 雙擊，出現(xiàn) ODBC Administrator 的設(shè)置窗口，如圖 。 167。 (2)啟動 SQL Server 2022中的服務(wù)管理器，再啟動“企業(yè)管理器”，并和服務(wù)管理器建立連接，新建數(shù)據(jù)庫并命名為“ student”，其他相關(guān)屬性選默認(rèn)值 [5]。 24 第四章 學(xué)生信息管理系統(tǒng)實(shí)施 167。 專業(yè)瀏覽： 本模塊實(shí)現(xiàn)瀏覽學(xué)校各學(xué)院的介紹以及各專業(yè)介紹。 選課模塊： 選課模塊實(shí)現(xiàn)學(xué)生選課功能，按照設(shè)計(jì)當(dāng)初參照學(xué)校選課系統(tǒng)，本作者把選課分為專業(yè)課程選課、公共課程選課、素質(zhì)課程選修及重修課程選課，當(dāng)選課成功以后提交到教務(wù)員處，由教務(wù)員審訂，如果審訂成功則對所選課程安排上課教室，當(dāng)選擇課程人數(shù)不夠或其他原因使得教務(wù)員審訂不成功，則選課失敗。以下對學(xué)生管理系統(tǒng)模塊功能進(jìn)行詳細(xì)介紹。 167。比如： 當(dāng)某教師授某課程結(jié)束后，對學(xué)生考試成績進(jìn)行提交存入數(shù)據(jù)庫，錄入成績就必須由教師完成，由于本作者需求分析 階段對專業(yè)課程和素質(zhì)選修課程有不同的規(guī)定，所以教師成績錄入分為站業(yè)課程成績錄入和素質(zhì)課程成績錄入，錄入的操作基本相同。 教師管理系統(tǒng)模塊詳細(xì)介紹 教師管理模塊是實(shí)現(xiàn)教師信息管理及相應(yīng)操作的模塊，主要實(shí)現(xiàn)對學(xué)生成績進(jìn)行管理的功能以及教師個人基本信息操作功能，以下對各功能進(jìn)行詳細(xì)介紹。首先，學(xué)院列出的課程要有學(xué)生選課， 如果沒學(xué)生選課，那排課也就毫無意義了；根據(jù)選擇人數(shù)的多少安排相應(yīng)的教室，這對課程的選擇總?cè)藬?shù)也是有嚴(yán)格的規(guī)定的，假如一門課程的選課人數(shù)少于 50人，那么將取消該門課程，不給予給門課程進(jìn)行排課；課程大于 50人則22 給予排課，安排上課教室，但是由于學(xué)校教室類型多樣，有大有小，則必須根據(jù)課程選擇人數(shù)的多少給予相應(yīng)的教室安排，此功能由系統(tǒng)內(nèi)部判斷給予分配。 學(xué)生信息模塊： 此模塊實(shí)現(xiàn)教務(wù)員對學(xué)校所有學(xué)生的基本信息進(jìn)行管理，比如： 每一年都招收大量的新生，所以必須先到教務(wù)員處進(jìn)行注冊登記，實(shí)現(xiàn)對新生的錄入；學(xué)校學(xué)生可能更變個人信息，比如學(xué)生當(dāng)初注冊時(shí)候由于數(shù)據(jù)量大造成的輸入錯誤等，等以后發(fā)現(xiàn)的時(shí)候就需要進(jìn)行修改，這時(shí)候需要對學(xué)生的基本信息信息進(jìn)行修改，教務(wù)員實(shí)現(xiàn)對學(xué)生信息維護(hù)修改功能； 學(xué)校每年都大量的學(xué)生畢業(yè)，所以對這些 畢業(yè)的學(xué)生應(yīng)該在系統(tǒng)中刪除相關(guān)的信息，實(shí)現(xiàn)對該學(xué)生的刪除；然而，在上面實(shí)現(xiàn)對學(xué)生信息修改和刪除功能的同時(shí)，查詢功能是必須的。以下對教務(wù)員管理模塊的各種功能模塊進(jìn)行更具體的介紹說明。 167。 模塊劃分 學(xué)生信息管理系統(tǒng)是高