【導(dǎo)讀】隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。熟和計(jì)算機(jī)應(yīng)用的日趨普及，然而我國(guó)大部分高校的基于SQLServer數(shù)據(jù)庫(kù)的學(xué)生管理系統(tǒng)，時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，其中有些是冗余的或者針對(duì)同一目的的數(shù)據(jù)不相吻合，這對(duì)于查找、更新和維護(hù)文件等管理工作帶來(lái)了不少的困難。同時(shí)也跟不上信息時(shí)代高速、快。擁有快速、高效的適應(yīng)力已成為當(dāng)務(wù)之急。通過(guò)這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢(xún)，從而減少管。理方面的工作量。本系統(tǒng)的開(kāi)發(fā)就是在這一背景之下進(jìn)行的，它利用了計(jì)算機(jī)和網(wǎng)絡(luò)很好的解。決了這一問(wèn)題，使原來(lái)從事手工學(xué)生信息管理工作的這部分人從原來(lái)煩瑣的工作中解脫出來(lái)。

　　

【正文】 a Source 選擇剛才建立好的數(shù)據(jù)源student。單擊 OK，在 Database Profiles 設(shè)置窗右鍵單擊 students 選擇 connection,則和數(shù)據(jù)庫(kù) student 連接上了。 （ 3） 在 Database Profiles Setup_ODBC 頁(yè)中選擇 Preview 在按 Copy 按鈕，把復(fù)制的內(nèi)容寫(xiě)到應(yīng)用程序?qū)ο蟮?open 事件中，如下： 青島百事通 日常生活百科網(wǎng) // Profile students = ODBC = False = ConnectString=39。DSN=student。UID=。PWD=39。 if 0 then messagebox(連接失敗 !,) return else open(w_login) end if 應(yīng)用程序運(yùn)行后第一個(gè)出現(xiàn)的窗口是上面語(yǔ)句打開(kāi)的 w_login 窗口。在應(yīng)用程序?qū)ο蟮淖兞慷x窗口中定義了全局變量，如下： string user //登陸用戶(hù)的 ID string password //用戶(hù)密碼 string getterm //用于學(xué)生選擇學(xué)期用 string umintro //選擇課程介紹用 int jiaose //判斷用戶(hù)角色 系統(tǒng)功能模塊的實(shí)現(xiàn) 用戶(hù)登陸模塊實(shí)現(xiàn) 本系統(tǒng)的用戶(hù)使用對(duì)象分 3 種類(lèi)型：學(xué)生、教師、教務(wù)員，用戶(hù)在登陸本系統(tǒng)時(shí)就必須選擇相應(yīng)的角色，根據(jù)用戶(hù)角色的不同，本系統(tǒng)分為教務(wù)員管理系統(tǒng)、教師管理系統(tǒng)、學(xué)生管理系統(tǒng)。并且不同的角色用戶(hù)進(jìn)入與其相應(yīng) 的操作主界面。用戶(hù)登陸窗口命名為： w_login。教師、學(xué)生、教務(wù)員進(jìn)入的操作主界面分別命名為：w_teacher_main,w_student_main,w_admin_main 。并且所有角色類(lèi)型用戶(hù)的操作主界面的 Window Type 都選擇為 mdi!。 用戶(hù)登陸界面： 青島百事通 日常生活百科網(wǎng) 圖 用戶(hù)登陸窗口 主窗口中添加圖片及文字的實(shí)現(xiàn)： （ 1） 新建窗口 w_p2,Window Type 設(shè)置為 child!,窗口中添加圖片控件，在圖 片控件 General 頁(yè) Picture Name 中選擇要添加的圖片位置，鼠標(biāo)拖動(dòng)設(shè)置圖片大小再添加 static text 控件在，調(diào)整兩個(gè)控件位置。 （ 2） 窗口 w_p2 的 open 事件程序代碼如下，用于顯示文本框內(nèi)容 。 string name if jiaose=1 then select admin_Name into:name from admin_Info where admin_Num=:user。 if =0 then =歡迎教務(wù)員 +trim(name)+ 光臨 ! end if else if jiaose=2 then select std_Name into:name from std_Info where std_Num=:user。 if =0 then =歡迎學(xué)生 +trim(name)+ 光臨 ! end if else select teacher_Name into:name from teacher_Info where teacher_Num=:user。 if =0 then =歡迎教師 +trim(name)+ 光臨 ! 青島百事通 日常生活百科網(wǎng) end if end if end if 學(xué)生操作主界面的 open 事件為： OpenSheet(w_p2, w_student_main, 0, Original!) 教師和教務(wù)員操作主界面的 open 事件類(lèi)似學(xué)生的，不在詳述。 學(xué)生選課功能的實(shí)現(xiàn) 本系統(tǒng)在學(xué)生管理模塊實(shí)現(xiàn)學(xué)生網(wǎng)上選課功能，由于 對(duì)課程開(kāi)課安排和性質(zhì)的規(guī)定，學(xué)生選課分為專(zhuān)業(yè)課程選課、素質(zhì)選修課程選課以及學(xué)生重修選課 [9]。 首先介紹專(zhuān)業(yè)課程選課功能的實(shí)現(xiàn)過(guò)程：當(dāng)學(xué)生登陸 基于 SQL SERVER 數(shù)據(jù)庫(kù)的學(xué)生管理系統(tǒng) 時(shí)，系統(tǒng)定義的全局變量 user 將保存學(xué)生登陸系統(tǒng)的學(xué)號(hào)，通過(guò)學(xué)生的學(xué)號(hào) ,用函數(shù) left()提取學(xué)號(hào)前 4 為數(shù)字可以判斷出此學(xué)生所屬年級(jí)；然后在學(xué)期選擇窗口選擇要選課的學(xué)期，并將學(xué)期保存到全局變量 getterm 中；最后在學(xué)生基本信息表中提取該學(xué)生所屬的學(xué)院，通過(guò)開(kāi)課年級(jí)、開(kāi)課學(xué)期和開(kāi)課學(xué)院可以準(zhǔn)確的把此學(xué)生所有能選擇的課程顯示出 來(lái)供選擇參考。 主要 代碼實(shí)現(xiàn)如下： 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。 open codecur。 fetch codecur into:,:num,:name,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:sump,:subp,:cha。 do while =0 (inde,trim(選課 ),1) (inde,2,trim()) (inde,3,trim(num)) 青島百事通 日常生活百科網(wǎng) (inde,4,trim(name)) (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(string(sump))) (inde,13,trim(string(subp))) (inde,14,trim(cha)) inde=inde+1 fetch codecur into:,:num,:name,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:sump,:subp,:cha。 學(xué)期選擇界面用以確定學(xué)生選課學(xué)期，每年分為春秋兩學(xué)期，由數(shù)字形式的字符串表示，比如 2020 年至 2020 年這一年中春秋兩學(xué)期分別表示為： 202020201 和202020202。界面如圖 所示 圖 學(xué)期選擇窗口 專(zhuān)業(yè)選課界面顯示出了學(xué)生對(duì)應(yīng)學(xué)期、年級(jí)的所有可以選擇的專(zhuān)業(yè)課程信息，提供給學(xué)生一個(gè)選課參考。如圖 青島百事通 日常生活百科網(wǎng) 圖 專(zhuān)業(yè)選課窗口 根據(jù)窗口中列出的所有可以選擇的課程，如果想選擇某一門(mén)課程，則單擊 選課 就可以進(jìn)行課 程選擇，如果你已經(jīng)選擇了此門(mén)課程，則提示已經(jīng)選擇此課程；系統(tǒng)規(guī)定每學(xué)期最多只能選擇 20 個(gè)學(xué)分的課程（不包括重修），要是所選擇的課程學(xué)分?jǐn)?shù)加上已經(jīng)選課程的總學(xué)分?jǐn)?shù)大于 20個(gè)學(xué)分，則選課不成功；如果所選擇的課程人數(shù)已經(jīng)選滿，則選課也不成功。 學(xué)生查詢(xún)功能的實(shí)現(xiàn) 學(xué)生查詢(xún)模塊可以查詢(xún)各種信息他主要由選課查詢(xún)、課表查詢(xún)、資費(fèi)查詢(xún)及成績(jī)查詢(xún) 4個(gè)部分組成 [8]。各部分介紹如下： 選課查詢(xún)界面： 圖 選課查詢(xún)窗口 當(dāng)學(xué)生選課結(jié)束以后，系統(tǒng)把學(xué)生當(dāng)前提交的課程信息保存到一個(gè)臨時(shí)的表中，等待教務(wù)員審 訂通過(guò)選課，這時(shí)學(xué)生可以對(duì)已經(jīng)選擇的課程進(jìn)行查詢(xún)，確定原來(lái)選擇的課程是否選上，并且當(dāng)不滿意原來(lái)所選的選課時(shí)候，學(xué)生可以撤消不滿意的課程，青島百事通 日常生活百科網(wǎng) 然后做再次調(diào)整，直到學(xué)生滿意所有的課程選擇，選課查詢(xún)界面相當(dāng)于學(xué)生對(duì)課程選擇的修改、確認(rèn)界面。 代碼如下： if ums=then else k=messagebox( 提示 , 你真的想+trim(ames)+ ?,question!,YesNoCancel!) if k=1 then delete from choise_Info where choise_Snum=:user and choise_Cnum=:ums。 if =0 then messagebox(提示 ,課程 +trim(ames)+ 撤消成功 !) if trim(chas)=素質(zhì)選修 then select courses_Subp into :subp from courses_Info where courses_Num=:ums。 subp=subp 1 update courses_Info set courses_Subp=:subp where courses_Num=:ums。 else select course_Subp into :subp from course_Info where course_Num=:ums。 subp=subp 1 update course_Info set course_Subp=:subp where course_Num=:ums。 青島百事通 日常生活百科網(wǎng) 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)) inde=inde+1 fetch codecur into:,:um,:ame,:grade,:cent,:time1,:tnum,:tname,:zhouci,:time2,:cha。 loop 青島百事通 日常生活百科網(wǎng) close codecur。 end if else end if end if 成績(jī)查詢(xún)界面： 圖 成績(jī)查詢(xún)窗口 成績(jī)查詢(xún)模塊實(shí)現(xiàn)的功能是查看以往學(xué)過(guò)所有課程的成績(jī)，根據(jù)個(gè)人要求不同可以對(duì)成績(jī)進(jìn)行統(tǒng)計(jì)，比如可以按升、降序排列成 績(jī)，統(tǒng)計(jì)以前所有課程總學(xué)分?jǐn)?shù)，查看不及格科目門(mén)數(shù)及需要重修的學(xué)分?jǐn)?shù)等等。 課表查詢(xún)界面： 圖 課表查詢(xún)窗口 當(dāng)學(xué)生選課結(jié)束后，教務(wù)員通過(guò)學(xué)生提交的選課信息，審訂課程是否給予排課安排教室，假如某課程審訂通過(guò)則對(duì)此課程安排相應(yīng)的上課教室。學(xué)生可以在課表欄查詢(xún)到所此課程對(duì)應(yīng)的上課教室、上課時(shí)間及周次等相關(guān)信息。 青島百事通 日常生活百科網(wǎng) 學(xué)生個(gè)人信息修改功能的實(shí)現(xiàn) 本模塊包括學(xué)生對(duì)本人基本信息的修改和他人基本信息查詢(xún)。 個(gè)人信息修改界面： 圖 基本信息修改窗口 個(gè)人基本信息修