【正文】 最后， 衷心地 感謝論文評審組的各位專家教授在百忙之中審閱我的論文，感謝所有幫助我關(guān)心我的人。在此，讓我向他 致以深深的敬意和誠摯的感謝！另外，在系統(tǒng)開發(fā)過程中身邊的同學(xué)也給予我很大的幫助，由于他們的幫助和合作解決了很多的難點，使得系統(tǒng)能及時開發(fā)完成，在這里表示感謝。趙 老師對我在設(shè)計中的細(xì)致指點，是我設(shè)計得以順利進(jìn)行的根本原因，她嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、一絲不茍的工作作風(fēng)、淵博的學(xué)識和謙虛謹(jǐn)慎的學(xué)習(xí)態(tài)度時刻鞭策著我，讓我終生難忘，受益匪淺。 首先我要對我 的指導(dǎo)老師表示我最衷心的感謝。其功能基本符合用戶需求，在實現(xiàn)一般房屋出租管理系統(tǒng)的基本功能前提下，又具有本系統(tǒng)的獨特之處。在此非常感謝老師對我的輔導(dǎo)。但由于 水平有限 ，所以該系 統(tǒng)還有許多不盡人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀 。并提供部分系統(tǒng)維護(hù)功能，使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、刪除。 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ā)完畢。 的內(nèi)容！ , vbExclamation, 提示 T1(i).SetFocus Exit Sub End If Next Dim rsadd As New With rsadd sqlstr = select * from 使用情況 where id = amp。如圖新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 15 圖 窗體主要代碼如下： Private Sub Command1_Click() For i = 0 To 8 If T1(i).Text = Then MsgBox 請輸入 amp。 窗體加載時，設(shè)編輯 框架（ fraEss）的 Enabled=False（可使框架中的控件無效 ）。為了避免出 現(xiàn) 日期字段為 NULL 值時導(dǎo)致程序出錯，對該字段的顯示和賦值不采用綁定方式，而是通過代碼完成相關(guān)操作。將這三個控件的 DataSource屬性均設(shè)為 adoEdit， DataField 屬性分別設(shè)為學(xué)號、姓名和性別字段。 5設(shè)置其他控件 在 DataGrid 控件右側(cè)放置一個框架（ Frame），名稱為 fraEss， Caption 為“編輯”。右擊該控件，在快捷菜單中選擇檢索字段 菜單項，在對話框中單擊 是 。 4設(shè)置 DataGrid 控件 在添加或修 改 選項卡中放置一個 DataGrid 控件，名稱為 DataGrid1，用于顯示學(xué)號和姓名以及移動指針選擇記錄。該語句的作用是生成含有各字段結(jié)構(gòu)的空記錄集，以供DataGrid 控件檢索字段使用。 在上述語句中，等號后面是一對單引號，表示空字符串。將其與數(shù)據(jù)庫連接，設(shè)記錄源為 SQL 語句： SELECT * FROM 教室可用情況 WHERE 教室編號 =39。 2. 教室可用情況設(shè)置 程序運行時，在 TreeView 控件中選擇系、專業(yè)和班級，若當(dāng)前節(jié)點為班級，新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 14 則在 DataGrid 中顯示本班學(xué)生名單，此時可通過按鈕進(jìn)行添加、編輯、刪除等操作，界面如圖 。 1. 使用 TreeView 控件 為了便于用戶操作，教室 管理窗體界面設(shè)計中采用 TreeView 控件供 教室編號，教室名稱，教室簡稱， 在設(shè)置 TreeView 控件相關(guān)屬性時，注意將 LabelEdit（標(biāo)簽編輯）屬性設(shè)為 1tvwManual，即不允許用戶修 改節(jié)點標(biāo)簽。 39。 amp。 and _ amp。 用戶名 amp。 的內(nèi)容！ , 48, 提示 T1(i).SetFocus Exit Sub End If Next sql = SELECT * FROM 管理員 where 用戶名 =39。 如圖 圖 窗體主要代碼如下： Private Sub Command1_Click(Index As Integer) Dim a(1), b(1) If Index = 0 Then 新疆財經(jīng) 大學(xué) 本科畢業(yè)論文 13 For i = 0 To 3 If T1(i).Text = Then MsgBox 請輸入 amp。在窗體上添加一個ADO 數(shù)據(jù)控件，名稱為 Adodc1， 設(shè) Visible=False，記錄源為空（運行時設(shè)為 SQL語句）。如果無同名用戶，將用戶名和密碼添加到數(shù)據(jù)庫“用戶”表中，并設(shè)默認(rèn)權(quán)限為“普通”，用 MsgBox語句提示添加用戶成功。 3 個文本框用于輸入用戶名和密碼，名稱分別為 txtUserName、 txtPassword1 和 txtPassword2，設(shè)輸入和確認(rèn)密碼的文本框的 PasswordChar 屬性為“ *”。