【文章內容簡介】 設置為 False，只有在鼠標按下的時候在改變其顏色即可。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = False = False = False14學生宿舍管理系統(tǒng)的設計與實現 = False = False = False = False = FalseEnd Sub 鼠標按下的時候設置線條的顏色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。H808080 = amp。H808080 = amp。HE0E0E0 = amp。HE0E0E0End Sub 鼠標移動到標簽的時候設置線條的顏色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。HE0E0E0 = amp。HE0E0E0 = amp。H808080 = amp。H808080 = True = True = True = TrueEnd Sub(2) 用戶類型判斷 在數據庫中建了一人 yonghu 表。在添加管理人員時有兩種默認級別。管理員、普通用戶。管理員擁有對數據庫操作的一切權限。普通用戶只有普通的查看，數據轉換等。沒有刪除等操作功能。前用戶成功登錄后，會在主窗體的狀態(tài)欄中顯示出當前用戶及其用戶類型。主要代碼如下：設置當前控件連接的數據庫Dim provider As StringDim datasource As String15第四章 程序設計provider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.End With對用戶進行判斷If = ThenMsgBox 請輸入用戶名!, 48, 提示Exit SubEnd If 用戶=39。 amp。 amp。 39。If = False And = Trim((pass)) Then = (級別) = (用戶)Unload MeElse = = MsgBox 登錄不成功,請重新登錄!, 48, 提示End If 程序主界面程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過這里完成。整個界面主要由五部分組成。菜單部分、工具欄、左側操作欄、右側顯示欄以及狀態(tài)欄。①界面效果圖如下：16 17學生宿舍管理系統(tǒng)的設計與實現圖 程序主界面菜單欄的詳見附錄內容，這里就不提了。左側操作欄和右側顯示欄會在下面的內容中做介紹，現在只簡單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個事件。工具欄主要是由 coolbar 制作而成。由它制做的工具欄的顯示效果會更有立體感一些。這里只列出了幾個常用的按鈕。其中的添加按鈕是用來對宿舍住宿人員進行添加，修改也是對所住宿人員進行修改，想要進行修改時必須顯示所有記錄時才可以進行。在這里值得一提的是刪除 DataGrid 的操作，由于不知道它的當前數據源是哪個，所以在刪除前要確定它的數據源，也就是它所鏈接的 adodc1 的數據源，或者是其它 ado 控件對它的數據源進行重新綁定后的數據庫表，也有可能是經過一個查詢后得到的記錄。②它的實現方法如下所示：Dim o As AdodcSet o = 這里主要是用到了 ado 對像的方法。用這個方法得到數據源。 下面是整個工具欄運行時代碼：Select Case Case 1 1Case 3 1Case 5On Error GoTo next2Dim s As AdodcSet s = If = users Then 118第四章 程序設計End Ifnext2:Case 7On Error Resume NextDim o As AdodcSet o = Case 9 1Case 11With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = users 39。.RefreshEnd WithSet = Adodc1Call dxCase 13Unload MeEnd Select狀態(tài)欄分四個部分。第一個為固定顯示當前所用軟件名稱及作者。其中第二個和第三部分為動態(tài)顯示的，它會顯示出每次用戶登錄名稱及其管理模式。由上圖可以看出，lf 為本軟件管理員。第四部分為日期與時間的顯示。其中第三部分的代碼實現如下： = (級別) = (用戶)(2).Text = 當前用戶： amp。 (3).Text = 用戶模式： amp。 (4).Text = Date amp。 amp。 Time39。設置普通用戶模式If = 普通用戶 Then = False19學生宿舍管理系統(tǒng)的設計與實現 = False = False = False(5).Visible = False(6).Visible = False(7).Visible = False(8).Visible = FalseEnd If主窗體在程序運行中會遇到不斷改變其大小，最小化，最大化，以及用鼠標來改變，這里需要在窗體的 Resize 事件中添加代碼，讓程序中用到的各個控件隨時可以適應窗體改變后的大小，在這里改變的控件主要有 DataGrid、TreeView 系列及 Frame 控件、StatusBar。下面就是設置它們大小的程序代碼： = = 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這個軟件的主要部分都在這里運行、查看，所以在主窗體的 load 事件里要把所用的到的東西都要加載進來，例如所在程序運行時所用到的表，左側 treeview 部分樹形顯示的初始化。在這里幾乎用到了所有的表，如下所示：provider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource20第四章 程序設計.CommandType = adCmdTable.RecordSource = users 39。.RefreshEnd WithWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasourceEnd WithWith Adodc621學生宿舍管理系統(tǒng)的設計與實現.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview 部分樹形顯示的初始化在這里已經做了幾個過程，調用即可。 系統(tǒng)設置 用戶管理①界面效果圖22第四章 程序設計圖 用戶管理② 界面制作與實現方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經連接到了數據庫，與數據庫的 yonghu 表相聯。各個控件也與數據庫中表的字段綁定。在窗體初始化的時候要判斷當前數據庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設置成為失效狀態(tài)，否則會出現錯誤。設置代碼如下：Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False23學生宿舍管理系統(tǒng)的設計與實現 = FalseEnd If = 上一條與下一條的功能一目了然，它們可以對當前表進行上一條記錄或下一條記錄依次查看。當找到記錄后，可以對其進行相對的刪除、修改等操作。上一條記錄與下一條的記錄在查看時有一個判斷。當表中記錄移到最前面（BOF）或最后面（EOF）時，會把上一條或下一條其中的一個按鈕的 enable 屬性設置為 true。即不可以前查看或向后查看。上一條與下一條主要代碼如下： 39。移動記錄 = TrueIf Then = FalseEnd If 39。移動記錄 = TrueIf Then = FalseEnd If添加用戶可以添加使用該管理軟件的用戶。添加的時候可以選擇所添加人物的級別。軟件默認為兩個級別：管理員、普通用戶。管理員擁有對此軟件管理操作等一切的權力。普通用戶，只有普通的查看、查詢、備份、添加等權力。沒有對記錄刪除等權力。在添加用戶時你可以選擇一個且必須選擇一個。然后輸入此用戶的用戶名和密碼即可！添加用戶主要代碼：If = 添加 Then = False = False = False = 確定 = 取消 = True24第四章 程序設計 = True = True = True = True = ElseIf = ThenMsgBox 用戶名不能為空！, 48, 提示ElseIf = ThenMsgBox 密碼不能為空！, 48, 提示ElseIf ThenMsgBox 密碼兩次需一致！, 48, 提示ElseIf = ThenMsgBox 請選擇所建用戶類型！, 48,