【導讀】課編排和成績管理這三項日常比較繁重的工作。它應用計算機在數(shù)據(jù)處理和數(shù)據(jù)整理保。存方面的優(yōu)異性能，幫助工作人員提高工作的效率、減少出錯情況。同時還能提供快速。的查詢檢索功能以及按要求進行成績單的打印的功能。它采用了當前流行的C/S結(jié)構(gòu)，可以突破了原先教務系統(tǒng)使用的局限性，實現(xiàn)多。機同時工作統(tǒng)一數(shù)據(jù)庫。因而就可在多地域、任意時間段來訪問教務系統(tǒng)中的數(shù)據(jù)，大。大加強了系統(tǒng)數(shù)據(jù)共享的能力。另外采用了以上流行和標準的網(wǎng)絡技術(shù)也極大地提高了。以往大學教師由于缺乏適當?shù)能浖o其工作帶來了很多不便。所介紹的便是一個教務輔助管理系統(tǒng)，以方便其在課程安排、成績處理、學籍管理上的工作。為了教務處辦公室對學生的管理更方便；大增加，原有的單機單用戶系統(tǒng)已遠遠不能滿足需要。戶的網(wǎng)絡運行環(huán)境。的制約比較大，編寫出來的程序性能也不好。特別是無法支持如Access,MSSQLServer. 本系統(tǒng)對具有不同權(quán)限的用戶所開放的功能是不同的，最高級用

　　

【正文】 % =True % % If Session(admid)= Then 請先登錄 End If If (T1) And (T2) And (T3) Then Dim db Set db=() jiaowu Dim strsql,tno,tname,ttel tno=(T1) tname=(T2) ttel=(T3) strsql=Insert Into tea(tno,tname,ttel) Values(39。amp。tnoamp。39。,39。amp。tnameamp。39。,39。amp。ttelamp。39。) (strsql) 添加成功 End If % （三）學生信息維護 顯示學生信息 % Option Explicit % % =True% % If Session(admid)= Then 請先登錄 Else Dim db Set db=() jiaowu Dim strsql,rs strsql=Select distinct sno,sname,ssex,class From stu Set rs=(strsql) End if % form method=POST action= table border=0 width=100% id=table8 % Do While Not % tr td width=17% align=center%=rs(sno)%/td td width=16% align=center%=rs(sname)%/td td width=16% align=center%=rs(ssex)%/td td width=16% align=center%=rs(class)%/td td width=16% align=centera href=?sno=%=rs(sno)%修改 /a /td td width=16% align=centera href=?sno=%=rs(sno)%刪除 /a/td /tr % Loop % /table /form 修改學生信息 % Option Explicit % % =True % % If Session(admid)= Then 請先登錄 Else Dim sno sno=(sno) Session(sno)=sno Dim db Set db=() jiaowu Dim strsql,rs strsql=Select * From stu Where sno=39。amp。snoamp。39。 Set rs=(strsql) End If % 修改學生信息的執(zhí)行程序 % Option Explicit % % Dim snoid snoid=Session(sno) If (T1) And (T2) And (T3) And (T4) Then Dim db Set db=() jiaowu Dim sno,sname,ssex,sclass,strsql sno=(T1) sname=(T2) ssex=(T3) sclass=(T4) strsql=Update stu Set sno=39。amp。snoamp。39。,sname=39。amp。snameamp。39。,ssex=39。amp。ssexamp。39。,class=39。amp。sclassamp。39。Where sno=39。amp。snoidamp。39。 (strsql) Else 請將所有信息填寫完整 a href=39。39。重新修改 /a End If % 刪除學生信息的執(zhí)行程序 % Option Explicit % % =True % % If Session(admid)= Then 請先登錄 Else Dim db Set db=() jiaowu Dim strsql,sno sno=(sno) strsql=Delete From stu Where sno=39。amp。snoamp。39。 (strsql) End if % 添加學生信息的執(zhí)行程序 % Option Explicit % % =True % % If Session(admid)= Then End If If (T1) And (T2) And (T3) And (T4) Then Dim db Set db=() jiaowu Dim strsql,sno,sname,ssex,sclass sno=(T1) sname=(T2) ssex=(T3) sclass=(T4) strsql=Insert Into stu(sno,sname,ssex,class) Values(39。amp。snoamp。39。,39。amp。snameamp。39。,39。amp。ssexamp。39。,39。amp。sclassamp。39。) (strsql) 添加成功 End If % 4 實驗總結(jié)： 通過這 一 周的課程設計，我學到了很多從書本上學不到的知識。在此次課程設計中，我對這門課有了更加深刻的認識，把所學的理論知識和實踐聯(lián)系起來。在做這次課程設計之前，我對它了解的很少，也從來沒想到我能完成這么一個程序。但是經(jīng)過 一 周的時間，我終于弄 出了一個完整的程序。 在這次課程設計中，我覺得我最大的收獲就是學會了為了做出這個程序，我該如何去尋找有用的資料，在短時期內(nèi)學到盡量多而且有用的知識和本領 。提高 了我接受新事物的能力，讓我以后遇到新事物時，不再感到茫然，感到無從下手。當下次我接觸到新知識時，我會知道我該做些什么，該去看那些書籍資料，心中就會有一個明確的目的。 5 參考文獻 [1] 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 北京： 高等教育出版社， 2020 [2] 王華杰 . 編程實例詳解 . 北京：中國鐵道出 版社， 2020 [3] 信息系統(tǒng)開發(fā) 甘刃初 經(jīng)濟科 學出版社 1996 [4] 管理信息系統(tǒng) 黃梯云 經(jīng)濟科學出版社 1997 28 [5] 軟件開發(fā)工具 陳禹 等 經(jīng)濟科學出版社 1999 [6] 計算機實用軟件高 陽 經(jīng)濟科學出版社 1997 [7] 數(shù)據(jù)庫原理 丁寶康等 經(jīng)濟科學出版社 2020 [8] 畢業(yè)論文指導資料 復旦計算機科學系 1999