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