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