【正文】 Form 的 load事件處理內容如下： = “\icon\” Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = “provider=。當要對當前寢室的所屬公寓進行修改時，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。 在添加一個寢室前先要選擇所要添加寢室所在的公寓。刪除操作更為簡單，選擇想要刪除的公寓名稱，點擊刪除，確認后完成此操作。 在點擊 sstab 各版的時候，要在這時重新生成寢室設置中的樹型結構， 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 startree1 End Select End Sub (1) 公寓設置 ① 公寓設置效果圖 圖 公寓設置 ② 界面制作與實現(xiàn)方法 在這個界面中主要用到了一個 Sstab 控件與一個顯示表中內容的Datagrid 控件。修改記錄即更新表中的某一條記 錄。普通用戶，只有普通的查看、查詢、備份、添加等權力。當找到記錄后，可以對其進行相對的刪除、修改等操作?！? datasource .CommandType = adCmdTable .RecordSource = “dengji” .Refresh End With With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider “。其中第三部分的代碼實現(xiàn)如下： = (“級別 ”) = (“用戶 ”) (2).Text = “當前用戶： ” (3).Text = “用戶模式： ” (4).Text = Date “ “ Time ?設置普通用戶模式 If = “普通用戶 ” Then = False = False = False = False (5).Visible = False (6).Visible = False (7).Visible = False (8).Visible = False End If 主窗體在程序運行中會遇到不斷改變其大小，最小化，最大化，以及用鼠標來改變，這里需要在窗體的 Resize 事件中添加代碼，讓程序中用到的各個控件隨時可以適應窗體改變后的大小，在這里改變的控件主要 有 DataGrid、 TreeView系列及 Frame控件、 StatusBar。 ②它的實現(xiàn)方法如下所示： Dim o As Adodc Set o = 這里主要是用到了 ado 對像的方法。菜單部分、工具欄、左側操作欄、右側顯示欄以及狀態(tài)欄。管理員擁有對數(shù)據(jù)庫操作的一切權限。如果正確，那么它屬于哪種類型用戶。隨著數(shù)據(jù)庫管理系統(tǒng)的普及以及可視化編程軟件的出現(xiàn)，使數(shù)據(jù)庫管理信息系統(tǒng)的開發(fā)變得更為簡單，因此開發(fā)一個學生公寓管理系統(tǒng)是完全可行的。 隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮越來越重要的作用。只要擁有控件的 OCX文件，就可將其加入到 VB 系統(tǒng)中，從而大大增強 VB的編程實力。利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀、動態(tài)的調整界面的風格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。 學生公寓管理軟件。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀，動態(tài)的調整界面的風格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。隨著學校寄宿人員的增多，公寓管理人員的負擔越來越重， 為了讓所有公寓管理人員能從繁重的工作中解脫出來，實現(xiàn)無紙化辦公；使工作更有條理，更方便，更有效率而開發(fā)出這套公寓管理軟件。基于這一點，開發(fā)此學生公寓管理軟件。由此而產(chǎn)生了本管理軟件 ―― 學生公寓管理軟件。這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實一些。 本系統(tǒng)的主要功能可以方便的對學生公寓進行管理，系統(tǒng)采用ACCESS 數(shù)據(jù)庫使數(shù)據(jù)具有較強的完整性、較好的數(shù)據(jù)安全性等特點以及提供了標準的幫助，使用戶方便的獲得所需的幫助。不同的對象，在程序中所賦給它的功能是不同的，比如，在圖形界面上有兩個命令按鈕，一個用來實現(xiàn)數(shù)據(jù)的統(tǒng)計計算，另一個用來實現(xiàn)數(shù)據(jù)的打印，這兩個按鈕就可視為是兩個不同的對象，為了實現(xiàn)這兩個對象各自不同的功能，接下來就應該分別針對這兩個對象編寫程序代碼，這種編程的思想和方法即為所謂的“面向對象的程序設計”。 開發(fā) 的必要性 信息資源已成為各個部門的重要財富和資源，建立一個滿足各級部門信息處理需要的信息系統(tǒng)，也一個企業(yè)或組織生存越來越重要的信息資源。學生公寓管理軟件主要是對公寓、寢室的配置、住宿人員登記、衛(wèi) 生檢查、公寓資產(chǎn)、學生違紀、值班老師記錄以及對學生住宿情況查詢，修改，更新等。本軟件的參考資料主要有兩種來源：一是參考本學校公寓的管理結構，管理方法，這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實一些。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = False = False = False = False = False = False = False = False End Sub 鼠標按下的時候設置線條的顏色如下： Private Sub Label3_MouseDown(Button As Intege r, Shift As Integer, x As Single, Y As Single) = H808080 = H808080 = HE0E0E0 = HE0E0E0 End Sub 鼠標移動到標簽的時候設置線條的顏色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = HE0E0E0 = HE0E0E0 = H808080 = H808080 = True = True = True = True End Sub (2) 用戶類型判斷 在數(shù)據(jù)庫中建了一人 yonghu表?！? datasource .CommandType = adCmdTable .RecordSource = “yonghu” .Refresh . End With 對用戶進行判斷 If = ““ Then MsgBox “請輸入用戶名 !”, 48, “提示 ” Exit Sub End If “用戶 =?“ “?“ If = False And = Trim((“pass”)) Then = (“級別 ”) = (“用戶 ”)