教學(xué)管理系統(tǒng)-數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告(廣東工業(yè)大學(xué))-資料下載頁(yè)
【導(dǎo)讀】告、系統(tǒng)的主要功能和使用說(shuō)明、系統(tǒng)安裝說(shuō)明。要求論文完整、內(nèi)容詳細(xì)，格式規(guī)范。程序系統(tǒng)運(yùn)行正確；輸入、輸出功能；系統(tǒng)實(shí)現(xiàn)技術(shù)的難度。數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)規(guī)范化；數(shù)據(jù)庫(kù)物理設(shè)計(jì)合理。社會(huì)生活的各個(gè)領(lǐng)域。雖然計(jì)算機(jī)與人類(lèi)的關(guān)系愈來(lái)愈密切，但是還有人由于計(jì)。算機(jī)操作不方便而繼續(xù)用手工勞動(dòng)。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。用戶(hù)提供充足的信息和快捷的查詢(xún)手段。但一直以來(lái)人們使用傳統(tǒng)人工的方式管。理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。己各科目的學(xué)習(xí)成績(jī)以及學(xué)籍信息等。利用該系統(tǒng)，教師可以清晰全面地了解學(xué)。生的學(xué)習(xí)情況和檔案，對(duì)系統(tǒng)的不同部分設(shè)置各自不同的權(quán)限。
【正文】 件夾下面的數(shù)據(jù)庫(kù) tm 附加到本地?cái)?shù)據(jù)庫(kù)（ local）下面，然后可以運(yùn)行安裝完的程序 教學(xué)管理系統(tǒng) .Exe。若要查看本系統(tǒng)具體情況必須安裝 （或其他版本的 vb）。 使用說(shuō)明 進(jìn)入系統(tǒng)后可以點(diǎn)擊相應(yīng)菜單進(jìn)行操作。 9 參考文獻(xiàn) 18 《中文 visual basic ，沈大林主編》 《 visual basic ，電子工業(yè)出版社》 《 visual basic ，王紅等編著》 《 數(shù)據(jù)庫(kù)系統(tǒng)概論 （ 第四 版） ， 王珊 薩師煊 ，高等教育 出版社 》 10 系統(tǒng)實(shí)現(xiàn) 系統(tǒng)由 25 個(gè)窗口實(shí)現(xiàn)，其中主窗口為 frmmain 打開(kāi)跟隨的操作代碼如下 Private Sub Form_Load() End Sub 添加功能代碼如下（以添加學(xué)號(hào)為例） Private Sub Command1_Click() If Text1 = Then MsgBox 學(xué)號(hào)不能為空 , , 提示 Else With .AddNew 19 .Fields(0) = Text1 .Fields(1) = Text2 .Fields(2) = Text3 .Fields(3) = Text4 .Fields(4) = Text5 .Fields(5) = Text6 .Update End With MsgBox 記錄添加成功 , , 提示 Text1 = Text2 = Text3 = Text4 = Text5 = Text6 = End If End Sub 查詢(xún)功能代碼如下： Private Sub Command1_Click() Dim a As String If Text1 = Then 20 = adFilterNone Set = Else a = 學(xué)號(hào) =39。 amp。 Text1 amp。 39。 = a Set = End If End Sub 更新功能代碼如下： Private Sub Command1_Click() (1) = Text2 (2) = Text3 (3) = Text4 (4) = Text5 (5) = Text6 MsgBox 保存成功 , , 提示 End Sub Private Sub Form_Load() Text1 = (0) Text2 = (1) Text3 = (2) 21 Text3 = (3) Text3 = (4) Text3 = (5) = False End Sub 刪除功能代碼如下： Private Sub Command2_Click() flag = MsgBox(確定刪除當(dāng)前記錄 , vbYesNo, 警告 ) If flag = vbYes Then MsgBox 記錄已刪除 , , 提示 End If End Sub 11 總結(jié) 通過(guò)本次設(shè)計(jì)使我增加了設(shè)計(jì)經(jīng)驗(yàn)，掌握了 Visual 語(yǔ)言的使用和sql server 數(shù)據(jù)庫(kù)的使用，增長(zhǎng)了實(shí)踐經(jīng)驗(yàn)。熟悉了軟件開(kāi)發(fā)的整個(gè)過(guò)程，加深了對(duì)數(shù)據(jù)庫(kù)這門(mén)學(xué)科和這種工程思想的理解 ，掌握了編寫(xiě)相應(yīng)文檔的方法，提升了能力。 課程設(shè)計(jì)的過(guò)程中，讓我認(rèn)識(shí)每一個(gè)步驟都要認(rèn)真的對(duì)待，因?yàn)檐浖_(kāi)發(fā)一個(gè)一環(huán)扣一環(huán)的過(guò)程，哪個(gè)程序出了問(wèn)題都很可能引起最后項(xiàng)目的完成時(shí)間和質(zhì)量。
鄂ICP備17016276號(hào)-1