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

　　

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