【正文】 mp。 的內(nèi)容！ , vbExclamation, 提示 T1(i).SetFocus Exit Sub End If Next Dim rsadd As New With rsadd sqlstr = select * from 使用情況 where id = amp。 Val() .Open sqlstr, conn, 2, 2 If Not .EOF Then .Fields(教室編號 ) = T1(1) 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 16 .Fields(使用部門 ) = T1(2) .Fields(使用班級 ) = T1(3) .Fields(開始時間 ) = T1(4) .Fields(結(jié)束時間 ) = T1(5) .Fields(負(fù)責(zé)人 ) = T1(6) .Fields(負(fù)責(zé)人電話 ) = T1(7) .Fields(添加時間 ) = T1(8) .Update .Close MsgBox 信息修改成功！ , vbInformation, 提示 Form_Activate End If End With End Sub Private Sub Command2_Click() If Then s = MsgBox(您真的要刪除此記錄嗎？ , vbQuestion + vbYesNo + vbDefaultButton2, 提示 ) If s = vbYes Then Dim rs記錄 As New With rs記錄 .Open select * from 使用情況 where id= amp。 Val(), conn, 2, 2 .Delete .Update .Close MsgBox 記錄刪除成功！ , vbInformation, 提示 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 17 = Form_Activate End With End If Else MsgBox 請選擇記錄！ , vbExclamation, 提示 End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Activate() Dim rs記錄 As New rs記錄 .Open select ID,教室編號 ,使用部門 ,使用班級 ,開始時間 ,結(jié)束時間 ,負(fù)責(zé)人 ,負(fù)責(zé)人電話 ,添加時間 from 使用情況 , conn, 1, 1 If Not rs記錄 .EOF Then Set = rs 記錄 End If End Sub Private Sub MSHF1_Click() With MSHF1 = .TextMatrix(.Row, 0) T1(0).Text = .TextMatrix(.Row, 0) T1(1).Text = .TextMatrix(.Row, 1) T1(2).Text = .TextMatrix(.Row, 2) T1(3).Text = .TextMatrix(.Row, 3) 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 18 T1(4).Text = .TextMatrix(.Row, 4) T1(5).Text = .TextMatrix(.Row, 5) T1(6).Text = .TextMatrix(.Row, 6) T1(7).Text = .TextMatrix(.Row, 7) T1(8).Text = .TextMatrix(.Row, 8) End With End Sub 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 19 結(jié)束語 經(jīng)過八個多月的設(shè)計和開發(fā)，學(xué)校教室 信息管理與分析系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成各種信息的存儲和學(xué)生信 息的查詢以及各類相關(guān)報表的打印。并提供部分系統(tǒng)維護功能，使用戶方便進行數(shù)據(jù)備份和恢復(fù)、刪除。對于數(shù)據(jù)的一致性的問題也通過程序進行有效地解決。但由于 水平有限 ，所以該系 統(tǒng)還有許多不盡人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀 。這些都有待進一步改善，我從本次畢業(yè)設(shè)計中學(xué)到許多課外無法學(xué)到的知識。在此非常感謝老師對我的輔導(dǎo)。 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 20 參考文獻 [1] 王利福 張世琨 朱冰編著《軟件工程》北京大學(xué)出版社 2022 [2] 亓萊濱 主編《 VB開發(fā)與應(yīng)用》清華大學(xué)出版社 [3] 譚浩強編 《 VB程序設(shè)計》清 華大學(xué)出版社 2022 [4] 鄭阿奇等編《 VB實用教程》電子工業(yè)出版社 [5] 龔沛曾等編《 VB程序設(shè)計簡明教程》高等教育出版社 [6] 李存斌 郭曉鵬編著《 VB高級編程及其項目應(yīng)用開發(fā)》 中國水利出版社2022 [7] 黃維通編著《 SQL SERVER 2022簡明教程》清華大學(xué)出版社 [8] 王珊 陳紅編著《數(shù)據(jù)庫系統(tǒng)原理》清華大學(xué)出版社 [9] 李春葆 .《數(shù)據(jù)庫原理》 [M].北京 :清華大學(xué)出版社， [10] 劉亞軍 .《數(shù)據(jù)庫原理與設(shè)計習(xí)題與解析》 [M].北京 :清華 大學(xué)出版社， [11] 潘瑞芳 .《數(shù)據(jù)庫原理及應(yīng)用開發(fā)》 [M].北京 :中國水利水電出版社 ,2022 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 21 致 謝 3 個多月來，在指導(dǎo)教師的帶領(lǐng)和指導(dǎo)幫助下 ,我對 學(xué)校教室管理信息系統(tǒng)的 開發(fā)已經(jīng)基本完成。其功能基本符合用戶需求，在實現(xiàn)一般房屋出租管理系統(tǒng)的基本功能前提下，又具有本系統(tǒng)的獨特之處。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面單一，不具有 網(wǎng)絡(luò)查詢 功能，這些都有待進一步改善。 首先我要對我 的指導(dǎo)老師表示我最衷心的感謝。設(shè)計中的言傳身教 ，使我受益匪淺。趙 老師對我在設(shè)計中的細(xì)致指點，是我設(shè)計得以順利進行的根本原因，她嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、一絲不茍的工作作風(fēng)、淵博的學(xué)識和謙虛謹(jǐn)慎的學(xué)習(xí)態(tài)度時刻鞭策著我，讓我終生難忘，受益匪淺。 他無論在理論上還是在實踐中，都給予我很大的幫助，使我得到不少的提高，這對于我以后的學(xué)習(xí)和工作都有很大的幫助。在此，讓我向他 致以深深的敬意和誠摯的感謝！另外，在系統(tǒng)開發(fā)過程中身邊的同學(xué)也給予我很大的幫助，由于他們的幫助和合作解決了很多的難點，使得系統(tǒng)能及時開發(fā)完成，在這里表示感謝。 向四年來一直在學(xué)習(xí)和生活上關(guān)心我，幫助我的所有 老師和同學(xué)們致以真誠的謝意。 最后， 衷心地 感謝論文評審組的各位專家教授在百忙之中審閱我的論文，感謝所有幫助我關(guān)心我的人。