【導(dǎo)讀】來(lái)，時(shí)期還不是很長(zhǎng)?，F(xiàn)在社會(huì)的發(fā)展趨勢(shì)越來(lái)越體現(xiàn)出計(jì)算機(jī)技術(shù)的重要性，許多。將計(jì)算機(jī)技術(shù)應(yīng)用到實(shí)際生活中，這一研究是現(xiàn)在最熱門(mén)的研究課題。接觸最多的也就是教育與教學(xué)，在這一環(huán)節(jié)當(dāng)中學(xué)習(xí)計(jì)算機(jī)，利用計(jì)算機(jī)相當(dāng)重要，相對(duì)的辦事能力，同時(shí)也鍛煉了自主開(kāi)發(fā)應(yīng)用計(jì)算機(jī)的一種興趣和潛力。供了完備的后備力量，為用戶(hù)省去了后顧之憂(yōu)。的要快很多倍，省去了很多的人力勞動(dòng)，進(jìn)一步真正實(shí)現(xiàn)了自動(dòng)化的教學(xué)和管理。于現(xiàn)代化教學(xué)和臨沂師范學(xué)院實(shí)際情況的要求，開(kāi)發(fā)了該院系教學(xué)管理系統(tǒng)。度，滿(mǎn)足學(xué)校的教學(xué)管理要求，實(shí)現(xiàn)學(xué)校教學(xué)管理低成本投入，提高辦公效率。用性要求，以盡可能低廉的投入而獲得盡可能高效的教學(xué)效益的經(jīng)濟(jì)性要求。目前國(guó)內(nèi)各高校的規(guī)模越來(lái)越大，進(jìn)而造成教師教學(xué)管理等工作量日趨加大。加快我校校園網(wǎng)絡(luò)化、現(xiàn)代化建設(shè)的步伐，充分提高教學(xué)管。推出后，Microsoft與Sybase在SQLServer的開(kāi)發(fā)上就分道揚(yáng)鑣了。SQLServer移植到WindowsNT系統(tǒng)上，專(zhuān)注于開(kāi)發(fā)推廣SQLServer的WindowsNT版

　　

【正文】 的界面： 圖 課程信息查詢(xún)運(yùn)行界面 w 圖 課程信息查詢(xún)結(jié)果界面 教師工作量信息查詢(xún)，輸入教師姓名，點(diǎn)擊 “查詢(xún) ”就會(huì)顯示出所要查詢(xún)的信息。 圖 工作量查詢(xún)運(yùn)行界面 w 圖 工作量查詢(xún)結(jié)果界面 在此查詢(xún)結(jié)果中，可以查詢(xún)到用戶(hù)的所有代課信息，和最終的工作量預(yù)算結(jié)果信息。 通過(guò)此測(cè)試，可以驗(yàn)證用戶(hù)登陸信息和查詢(xún)信息這兩個(gè)功能可以實(shí)現(xiàn)及投入使用。 w 結(jié)束語(yǔ) 這學(xué)期從剛一開(kāi)學(xué)，我們就開(kāi)始進(jìn)入畢業(yè)設(shè)計(jì)準(zhǔn)備階段。首先是 從需求和功能上對(duì)系統(tǒng)進(jìn)行一個(gè)全面的研究，接著對(duì)系統(tǒng)進(jìn)行設(shè)計(jì)，最后實(shí)現(xiàn)。 到目前為止，本人所負(fù)責(zé)的教學(xué)任務(wù)管理子系統(tǒng)可以實(shí)現(xiàn)的功能有：教學(xué)任務(wù)信息的添加、提交和查詢(xún)；課程信息的添加、提交和查詢(xún)；工作量預(yù)算信息的計(jì)算、添加、提交和查詢(xún)。 不足之處：工作量預(yù)算這一模塊在計(jì)算方法上還存在一些有誤的地方，原因是工作量的計(jì)算辦法和工作量登記卡上的信息不能完全配套到一起。另一個(gè)就是工作量預(yù)算模塊在計(jì)算結(jié)果時(shí)卡中各項(xiàng)不能為空，但是在數(shù)據(jù)空設(shè)計(jì)時(shí)允許為空還是不能完全實(shí)現(xiàn)。 通過(guò)這段時(shí)間的學(xué)習(xí)、實(shí)踐，學(xué)到了許多從未接觸過(guò)的知識(shí) ，感覺(jué)受益匪淺；特別是在設(shè)計(jì)的初始階段，老師建議每個(gè)人把每天的工作內(nèi)容以日記的形式記錄下來(lái)，這對(duì)于后來(lái)的論文寫(xiě)作有很大的幫助，同時(shí)本人認(rèn)為也是一個(gè)記錄本人生活的一個(gè)見(jiàn)證。 在這次畢業(yè)設(shè)計(jì)整個(gè)過(guò)程當(dāng)中，也讓本人得到了充分的鍛煉，學(xué)會(huì)了開(kāi)發(fā)一個(gè)完整的系統(tǒng)的全過(guò)程。并在實(shí)際系統(tǒng)開(kāi)發(fā)過(guò)程中深深體會(huì)到以前所學(xué)到的知識(shí)的一個(gè)貫通性，知識(shí)不能只停留在理論水平要切實(shí)的應(yīng)用到實(shí)際生活當(dāng)中去，這樣才能真正發(fā)現(xiàn)學(xué)習(xí)中的不足，方便以后對(duì)其進(jìn)行改正。對(duì)軟件工程的基本原理也有了更深的認(rèn)識(shí)和理解。同時(shí)對(duì)數(shù)據(jù)庫(kù)也有了更新的認(rèn)識(shí)，能夠很熟練 的對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作。理解了開(kāi)發(fā)一個(gè)完整的系統(tǒng)是通過(guò)軟件之間的相互協(xié)調(diào)工作支撐的。同時(shí)在這次畢業(yè)設(shè)計(jì)中，本人全身心的投入，努力把自己學(xué)習(xí)到的知識(shí)全部投入到設(shè)計(jì)中去。在設(shè)計(jì)中的團(tuán)隊(duì)精神更是一股無(wú)形的精神食糧，通過(guò)大家的相互配合使這個(gè)系統(tǒng)更加的完善，得到了老師的認(rèn)可。 w 總之，此次畢業(yè)設(shè)計(jì)是本人人生路上的一次成功的嘗試，也為本人大學(xué)的學(xué)習(xí)生涯畫(huà)上了一個(gè)圓滿(mǎn)的句號(hào)。同時(shí)這次的成功也是今后新生活的一個(gè)起點(diǎn)，為今后的工作、學(xué)習(xí)奠定了堅(jiān)實(shí)的基礎(chǔ)，也增強(qiáng)了信心，同時(shí)會(huì)更加努力的學(xué)習(xí)和工作，不斷增強(qiáng)自己各方面的能力，來(lái)繼續(xù)為大 家做貢獻(xiàn)。 致謝 本論文在寫(xiě)作的過(guò)程當(dāng)中，得到了計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 李宗璞 老師對(duì)我悉心指導(dǎo)，她針對(duì)本論文的格式和內(nèi)容，進(jìn)行精心的訂正和詳細(xì)的指導(dǎo)，才使得本文愈加完善； 在此，對(duì)她的耐心幫助和指導(dǎo)表示由衷的感謝。在這段時(shí)間里，我從 李 老師身上不僅學(xué)到了許多的專(zhuān)業(yè)知識(shí)，更感受到了她工作中的兢兢業(yè)業(yè)，生活中的平易近人。此外，她嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和忘我的工作精神值得我去學(xué)習(xí)。 感謝四年來(lái)傳授我知識(shí)的老師們和給與我?guī)椭耐瑢W(xué)們，更要感謝我的家人對(duì)我學(xué)業(yè)上的支持和鼓勵(lì)，感謝所有關(guān)心幫助過(guò)我的人；同時(shí)感謝 臨沂師范學(xué)院 ， 信息 學(xué)院能給予我在此四年間充實(shí)的學(xué)習(xí)和生活。 同時(shí)也感謝能有這次畢業(yè)設(shè)計(jì)的機(jī)會(huì)！ 總之，在以后的學(xué)習(xí)生活和工作中我將以加倍的努力作為對(duì)給予我?guī)椭膶W(xué)校、老師及同學(xué)們的回報(bào)。 本論文在具體編寫(xiě)的過(guò)程中仍有很多不盡人意的地方，懇請(qǐng)廣大教師批評(píng)指正。 最后再次感謝老師！?。? 感謝四年同班同室的兄弟?。?！ w 參考文獻(xiàn) [1]楊開(kāi)英 .數(shù)據(jù)庫(kù)系統(tǒng)概論 .武漢：武漢理工大學(xué)出版社， 20xx [2]曾建潮 .軟件工程 .武漢：武漢理工大學(xué)出版社， 20xx [3]張莉 .SQL Server 數(shù)據(jù)庫(kù)原理及應(yīng)用教程 .北京：清華大學(xué)出版社， 20xx [4]張海藩 .軟件工程導(dǎo)論 .北京：清華大學(xué)出版社， 20xx [5]劉斌、張軍 .+SQL Server 動(dòng)態(tài)網(wǎng)站案例精選 .北京：清華大學(xué)出版社， 20xx [6]陳峰棋子 .深入淺出 程序設(shè)計(jì) .北京：中國(guó)水利水電出版社， 20xx [7]薩師煊、王珊 .數(shù)據(jù)庫(kù)系統(tǒng)概論 .北京：高等教育出版社， 1991 [8]阮家棟 .Web 數(shù)據(jù)庫(kù)技術(shù) .北京：北京科技出版社， 20xx [9]閆洪亮、潘勇 . 程序設(shè)計(jì)教程 .上海：上海交通大學(xué)出版社， 20xx [10]孫少波、 吳晨 . 數(shù)據(jù)庫(kù)項(xiàng)目案例導(dǎo)航 .北京：清華大學(xué)出版社， 20xx w 附錄 1程序代碼 用戶(hù)登陸界面登錄按鈕代碼如下： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = 學(xué)生 Then Dim connection = server=LCY。uid=sa。pwd=。database=jxg Dim myconnection As New SqlConnection(connection) Dim mydatareader As SqlDataReader Dim selectstring As String = select password,type from dl where name=39。 amp。 amp。 39。and type=39。學(xué)生 39。 Dim mymand As New SqlCommand(selectstring, myconnection) () mydatareader = () If = Or = Then (script defer (39。用戶(hù)名或密碼錯(cuò)誤，請(qǐng)與管理員聯(lián)系：39。)。/script) Else If () Then If = (password) Then Session(name) = (Searching_Xcourse .aspx) End If End If End If () End If If = 教師 Then Dim connection = server=LCY。uid=sa。pwd=。database=jxg Dim myconnection As New SqlConnection(connection) Dim mydatareader As SqlDataReader Dim selectstring As String = select password,type from dl where name=39。 amp。 amp。 39。and type=39。教師 39。 Dim mymand As New SqlCommand(selectstring, myconnection) () mydatareader = () If = Or = Then w (script defer (39。用戶(hù)名或密碼錯(cuò)誤，請(qǐng)與管理員聯(lián)系：39。)。/script) Else If () Then If = (password) Then Session(name) = () End If End If End If () End If If = 教研室 Then Dim connection = server=LCY。uid=sa。pwd=。database=jxg Dim myconnection As New SqlConnection(connection) Dim mydatareader As SqlDataReader Dim selectstring As String = select password,type from dl where name=39。 amp。 amp。 39。and type=39。教研室 39。 Dim mymand As New SqlCommand(selectstring, myconnection) () mydatareader = () If = Or = Then (script defer (39。用戶(hù)名或密碼錯(cuò)誤，請(qǐng)與管理員聯(lián)系：39。)。/script) Else If () Then If = (password) Then Session(name) = () End If End If End If () End If End Sub 退出按鈕代碼如下： Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = End Sub w 教學(xué)任務(wù)信息界面確定提交按鈕代碼如下： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim connection = server=LCY。uid=sa。pwd=。database=jxg Dim myconnection As New SqlConnection(connection) Dim mydatareader As SqlDataReader 39。Dim m As String 39。 m = Now Dim selectstring As String = insert into jxrwap (teachername,teachernumber,coursename,grade,hour,coursedesignname,coursedesignstudentnumber,coursedesigngrade,coursedesignweeknumber,graduatedesignstudentnumber,graduatedesigngrade,graduatedesignweeknumber,praticename,praticestudentnumber,praticegrade,praticeweeknumber) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim mymand As New SqlCommand(selectstring, myconnection) () mydatareader = () If () Then Else () End If () End Sub 繼續(xù)添加下一個(gè)按鈕代碼： Private Sub Bu