【正文】 軟件進(jìn)行快速操作。HE0E0E0End Sub 鼠標(biāo)移動到標(biāo)簽的時候設(shè)置線條的顏色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對用戶進(jìn)行判斷If = ThenMsgBox 請輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。用這個方法得到數(shù)據(jù)源。下面就是設(shè)置它們大小的程序代碼： = = 750 = 750 = 1200 = 1200 = 1200= 1500= 1500= 1500Y = x = (Y z) / 4(1).Width = u + x(2).Width = v + x(3).Width = w + x(4).Width = m + x這個軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的 load 事件里要把所用的到的東西都要加載進(jìn)來，例如所在程序運(yùn)行時所用到的表，左側(cè) treeview 部分樹形顯示的初始化。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider amp。設(shè)置代碼如下：Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。在點擊 sstab 各版的時候，要在這時重新生成寢室設(shè)置中的樹型結(jié)構(gòu)，Select Case PreviousTab Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((宿舍名稱)) I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 宿舍設(shè)置① 宿舍設(shè)置效果圖27學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)圖 宿舍設(shè)置② 界面制作與實現(xiàn)方法在這個界面中主要用到了一個 Sstab 控件與一個顯示表中內(nèi)容的 Datagrid 控件。 39。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇宿舍后面的列表框中，而選中的節(jié)點會出現(xiàn)在寢室名稱里。 39。 Trim() amp。 amp。然后點擊更新就會完成此操作。 amp。數(shù)據(jù)恢復(fù)代碼如下：If MsgBox(Restoring database from location amp。①界面效果圖圖 數(shù)據(jù)轉(zhuǎn)換效果圖②實現(xiàn)方法39學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)在這里用到了一個顯示 gif 圖片的控件。 amp。第二是當(dāng)進(jìn)行記錄輸入時，發(fā)現(xiàn)問題不用輸入時，不按添加按鈕記錄就不會進(jìn)行添加。轉(zhuǎn)換代碼如下：Select Case Case 1 Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 Format((dbasize2 / 1024) / 1024, standard) amp。然后點擊數(shù)據(jù)備份即可。在右下角的文本框中可以輸入想要添加的班級名稱。實現(xiàn)的部分代碼如下所示：If = Or = Or = 宿舍管理系統(tǒng) ThenMsgBox 選擇所要刪除的寢室, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除 amp。 amp。但是這種操作不是常見。用到的控件主要是 Sstab 與30第四章 程序設(shè)計Treeview。在添加前要判斷所寫宿舍名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對數(shù)據(jù)庫表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會給出提示，不存在，添加成功。寢室的添加、修改、刪除以及班級的添加、修改和刪除操作。移動記錄 = TrueIf Then = FalseEnd If添加用戶可以添加使用該管理軟件的用戶。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview 部分樹形顯示的初始化在這里已經(jīng)做了幾個過程，調(diào)用即可。 amp。 (4).Text = Date amp。這里只列出了幾個常用的按鈕。 amp。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = False = False = False14學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn) = False = False = False = False = FalseEnd Sub 鼠標(biāo)按下的時候設(shè)置線條的顏色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。運(yùn)行圖如下:12第三章 功能模塊設(shè)計圖 宿舍資產(chǎn)運(yùn)行圖 記錄查看與記錄刪除主要是對學(xué)生請假、學(xué)生違規(guī)、衛(wèi)生記錄，宿舍資產(chǎn)等記錄所進(jìn)行的操作，利用這兩個功能可以對任一記錄進(jìn)行查看與刪除。在這里可以添加學(xué)校所有的宿舍、所有班級、每個宿舍的所有寢室,也可以用此軟件管理一幢宿舍。分別是：用戶表、宿舍表、班級表、寢室表、衛(wèi)生等級表、學(xué)生基本情況表、學(xué)生請假情況表、學(xué)生違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。隨著學(xué)校寄宿人員的增多，宿舍管理人員的負(fù)擔(dān)越來越重，為了讓所有宿舍管理人員能從繁重的工作中解脫出來，實現(xiàn)無紙化辦公，使工作更有條理、更方便、更有效率，而開發(fā)出這套宿舍管理軟件。所謂“對象”就是現(xiàn)實生活中的每個一人，每一個可見的實體。如各個宿舍的分布特色，以及宿舍的各種管理制度。盡我所知，除文中特別加以標(biāo)注和致謝的地方外，不包含其他人或組織已經(jīng)發(fā)表或公布過的研究成果，也不包含我為獲得 及其它教育機(jī)構(gòu)的學(xué)位或?qū)W 歷而使用過的材料。學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)摘要隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個檔次，漸漸實現(xiàn)了無紙化辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。對本研究提供過幫助和做出過貢獻(xiàn)的個人或集體，均已在文中作了明確的說明并表示了謝意。這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實一些。同樣，在 VISUAL BASIC 中，用來構(gòu)成用戶圖形界面的可視化控件，也可視為是一個對象。 系統(tǒng)開發(fā)的可行性 技術(shù)上的可行性我們正走進(jìn)一個信息時代，信息技術(shù)將從根本上改變?nèi)祟惿鐣纳a(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管理現(xiàn)在都已經(jīng)相繼使用計算機(jī)來處理，可以說用計算機(jī)進(jìn)行信息管理是一個總趨勢。下面介紹幾個主要的表：⑴ 學(xué)生基本情況表主要是存放學(xué)生的基本情況，字段包括：姓名、性別、學(xué)號、班級、宿舍、寢室、入學(xué)時間、年制、寢室電話、個人電話、備注。這樣操作起來會更簡單、操作一目了然。運(yùn)行圖如下: 圖 記錄查看 圖 記錄刪除運(yùn)行圖 值班記錄它的功能主要是針對值班人員開發(fā)出來的，在這里可以讓值班人員對當(dāng)天值班情況進(jìn)行一個小記，以便日后查看。H808080 = amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。其中的添加按鈕是用來對宿舍住宿人員進(jìn)行添加，修改也是對所住宿人員進(jìn)行修改，想要進(jìn)行修改時必須顯示所有記錄時才可以進(jìn)行。 amp。 datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider amp。 系統(tǒng)設(shè)置 用戶管理①界面效果圖22第四章 程序設(shè)計圖 用戶管理② 界面制作與實現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的 yonghu 表相聯(lián)。添加的時候可以選擇所添加人物的級別。只有正確的對這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。 宿舍名稱=39。但是在程序方面比較復(fù)雜。修改源碼： 宿舍名稱=39。 39。 amp。然后點擊添加即可完成添加操作。窗體初始化部分代碼如下：35學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 MB. = TrueEnd If37學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn)Erro: Select Case Case 53 39。 DBName = vbDefault = Restore Complete說明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對其進(jìn)行修改后得到此成型作品，從功能上來講，它已經(jīng)實現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。 amp。注意的是，在添加前要確。 。 數(shù)據(jù)轉(zhuǎn)換這個功能可以把當(dāng)前列表框中的任何一個表轉(zhuǎn)換成 excel 形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對表進(jìn)行操作，保存，修改，打印等。數(shù)據(jù)恢復(fù)也用到了一個方法，在模塊中也已經(jīng)定義了該方法 DoRestore。 data source= amp。要修改某條記錄時，要先對所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的名字。 寢室為 amp。 amp。 amp。這個宿舍可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。 amp。還有一些就是對表記錄的復(fù)雜操作。管理員擁有對此軟件管理操作等一切的權(quán)力。在窗體初始化的時候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設(shè)置成為失效狀態(tài)，否則會出現(xiàn)錯誤。 amp。設(shè)置普通用戶模式If = 普通用戶 Then = False19學(xué)生宿舍管理系統(tǒng)的設(shè)計與實現(xiàn) = False = False = False(5).Visible = False(6).Visible = False(7).Visible = False(8).Visible = FalseEnd If主窗體在程序運(yùn)行中會遇到不斷改變其大小，最小化，最大化，以及用鼠標(biāo)來改變，這里需要在窗體的 Resize 事件中添加代碼，讓程序中用到的各個控件隨時可以適應(yīng)窗體改變后的大小，在這里改變的控件主要有 DataGrid、TreeView 系列及 Frame 控件、StatusBar。②它的實現(xiàn)方法如下所示：Dim o As AdodcSet o = 這里主要是用到了 ado 對像的方法。 amp。HE0E0E0 = amp。在程序中可以按 F1 或點擊幫助菜單來顯示此 文檔。（4）數(shù)據(jù)轉(zhuǎn)換利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫中的表轉(zhuǎn)換成 Excel 表格的形式，顯示更為直觀，可以進(jìn)行打印等操作。表 學(xué)生請假情況表字段名 數(shù)據(jù)類型 數(shù)據(jù)長度日期 14姓名 劉長河 8班級 信息系統(tǒng)與信息管理10宿舍 一號公寓 20寢室 603 10天數(shù) 5 天 10原因 家中有事老師 劉德華 8備注 無⑶ 學(xué)生違規(guī)情況表主要存放學(xué)生違規(guī)情況，字段包括：日期、姓名、班級、宿舍、寢室、原因、程度、處罰、備注?？梢愿斓亓私獾矫總€學(xué)生的住宿情況。它還支持第三方軟件商為其開發(fā)的可視化控制對象，如本例中就用到了一個。本軟件主要包括以下方面：系統(tǒng)設(shè)置、宿舍管理、衛(wèi)生檢查、宿舍資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。作者簽名：　　 　 　　 日　 期：　　 　 　　 abstract目 錄緒 論 ...................................