【正文】 需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來(lái)十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫(xiě)。本系統(tǒng)數(shù)據(jù)庫(kù)為 ，在數(shù)據(jù)庫(kù)中包括十個(gè)表。下面介紹幾個(gè)主要的表： ⑴ 學(xué)生基本情況表主要是存放學(xué) 生的基本情況，字段包括：姓名、性別、學(xué)號(hào)、班級(jí)、公寓、寢室、入學(xué)時(shí)間、年制、寢室電話、個(gè)人電話、備注。 數(shù)據(jù)結(jié)構(gòu)如下表： 字段名 數(shù)據(jù)類(lèi)型 數(shù)據(jù)長(zhǎng)度 日期 文本 14 姓名 文本 8 班級(jí) 文本 10 公寓 文本 20 寢室 文本 10 天數(shù) 文本 10 原因 備注 老師 文本 8 備注 備注 ⑶ 學(xué)生違規(guī)情況表主要存放學(xué)生違規(guī)情況，字段包括：日期、姓名、班級(jí)、公寓、寢室、原因、程度、處罰、備注。其中檢查 1到 5 是為了在沒(méi)有使用者想輸入的記錄的情況下自己輸入而設(shè)計(jì)的，保證了系統(tǒng)的可修改性、可擴(kuò)展性。 數(shù)據(jù)結(jié)構(gòu)如下表： 字段名 數(shù)據(jù)類(lèi)型 數(shù)據(jù)長(zhǎng)度 日期 文本 14 公寓 文本 20 名稱(chēng) 文本 20 數(shù)量 文本 4 單價(jià) 文本 10 總價(jià) 文本 10 用途 備注 備注 備注 16 第三章功能模塊設(shè)計(jì) 新系統(tǒng)功能結(jié)構(gòu)圖及運(yùn)行圖如下： 系統(tǒng)功能結(jié)構(gòu)圖： 圖 系統(tǒng)功能結(jié)構(gòu)圖 17 系統(tǒng)功能結(jié)構(gòu)圖運(yùn)行圖： 圖 經(jīng)過(guò)系統(tǒng)分析，確定了本軟件主要包括以下 方面：系統(tǒng)設(shè)置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。 運(yùn)行圖如下 : 18 圖 系統(tǒng)設(shè)置運(yùn)行圖 用戶(hù) 管理 可以進(jìn)行管理人員的添加和修改以及刪除操作?？梢砸暡煌藛T而添加。普通用戶(hù)只有瀏覽、及一些簡(jiǎn)單的添加操作權(quán)力。 公寓設(shè) 置 分為三個(gè)主要的操作：公寓設(shè)置、寢室設(shè)置、班級(jí)設(shè)置。這樣操作起來(lái)會(huì)更簡(jiǎn)單、操作一目了然。 數(shù)據(jù)轉(zhuǎn)換 利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫(kù)中的表轉(zhuǎn)換成 Excel表格的形式，顯示更為直觀 ， 可以進(jìn)行打印等操作。 運(yùn)行圖如下 : 19 圖 學(xué)生請(qǐng)假 主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。 學(xué)生違規(guī) 主要是對(duì)學(xué)生違規(guī)記錄做一個(gè)添加。 床位設(shè)置 通過(guò)床位設(shè)置可以簡(jiǎn)單查看每個(gè)公寓每個(gè)寢室的床位使用情況以及床位剩余情況。 衛(wèi)生檢查 主要完成：添加檢查記錄的功能。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫(xiě)，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒(méi)有你想輸入的記錄的話，也可以自己輸入?？梢詫?duì)公寓資產(chǎn)的收入或其它物品的入庫(kù)進(jìn)行記錄。運(yùn)行圖如下 : 圖 圖 值班記錄 它的功能主要是針對(duì)值班人員開(kāi)發(fā)出來(lái)的，在這里可以讓值班人員對(duì)當(dāng)天值班情況進(jìn)行一個(gè)小記，以便日后查看。在程 序中可以按 F1或點(diǎn)擊幫助菜單來(lái)顯示此 。運(yùn)行圖如下 : 圖 22 第四章 程序設(shè)計(jì) 主程序流程圖 23 登錄界面 此界面是由 Photoshop制作而成。又不失其莊雅。 登錄圖片顯示 圖 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷 當(dāng)前用戶(hù)輸入的信息是否正確。因?yàn)榇斯芾碥浖诘卿浐蟛煌?lèi)型的用戶(hù)顯示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！ (1) 浮動(dòng)按鈕的實(shí)現(xiàn) 確定和取消兩個(gè)按鈕在鼠標(biāo)沒(méi)有放上去之前看上去只是一個(gè)普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個(gè)字上面后，它會(huì)顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。原理主要是在鼠標(biāo)mousemove事件與線的顏色變化組合來(lái)實(shí)現(xiàn)。 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 Integer, Shift As Integer, x As Single, Y As Single) = amp。H808080 = amp。HE0E0E0 End Sub 鼠標(biāo)移動(dòng)到標(biāo)簽的時(shí)候設(shè)置線條的顏色如下： Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) = amp。HE0E0E0 = amp。H808080 = True = True = True 25 = True End Sub (2) 用戶(hù)類(lèi)型判斷 在數(shù)據(jù)庫(kù)中建了一人 yonghu表。管理員、普通用戶(hù)。普通用戶(hù)只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。前用戶(hù)成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶(hù)及其用戶(hù)類(lèi)型。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh . End With 對(duì)用戶(hù)進(jìn)行判斷 If = Then MsgBox 請(qǐng)輸入用戶(hù)名 !, 48, 提示 Exit Sub End If 用戶(hù) =39。 amp。 If = False And = Trim((pass)) Then = (級(jí)別 ) 26 = (用戶(hù) ) Unload Me Else = = MsgBox 登錄不成功 ,請(qǐng)重新登錄 !, 48, 提示 End If 程序主界面 程序主界面為本軟件的顯示的核心部分。整個(gè)界面主要由五部分組成。 ① 界面效果圖如下： 圖 27 菜單欄的詳見(jiàn)附錄內(nèi)容，這里就不提了。 工具欄主要是由 coolbar制作而成。這里只列出了幾個(gè)常用的按鈕。在這里值得一提的是刪除 DataGrid的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的 adodc1的數(shù)據(jù)源，或者是其它 ado控件對(duì)它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫(kù)表，也有可能是經(jīng)過(guò)一個(gè)查詢(xún)后得到的記錄。用這個(gè)方法得到數(shù)據(jù)源。 。 datasource .CommandType = adCmdTable .RecordSource = users 39。第一個(gè)為固定顯示當(dāng)前所用軟件名稱(chēng)及作者。由上圖可以看出， lf為本軟件管理員。其中第三部分的代碼實(shí)現(xiàn)如下： = (級(jí)別 ) = (用戶(hù) ) (2).Text = 當(dāng)前用戶(hù)： amp。 29 (4).Text = Date amp。 Time 39。下面就是設(shè)置它 們大小的程序代碼： = = 750 = 750 = 1200 = 1200 = 1200 = 1500 30 = 1500 = 1500 Y = x = (Y z) / 4 (1).Width = u + x (2).Width = v + x (3).Width = w + x (4).Width = m + x 這個(gè)軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的 load事件里要把所用的到的東西都要加載進(jìn)來(lái)，例如所在程序運(yùn)行時(shí)所用到的表，左側(cè) treeview部分樹(shù)形顯示的初始化。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = users 39。 。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh 31 End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = weisheng .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = dengji .Refresh End With 32 With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = zichan .Refresh End With treeview部分樹(shù)形顯示的初始化在這里已經(jīng)做了幾個(gè)過(guò)程，調(diào)用即可。各個(gè)控件也與數(shù)據(jù)庫(kù)中表的字段綁定。設(shè)置代碼如下： Dim provider As String Dim datasource As String provider = provider= datasource = data source= amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。當(dāng)表中記錄移到最前面（ BOF）或最后面（ EOF）時(shí)，會(huì)把上一條或下一條其中的一個(gè)按鈕的 enable屬性設(shè)置為 true。 上一條與下一條主要代碼如下： 39。移動(dòng)記錄 = True If Then = False End If 添加用戶(hù)可以添加使用該管理軟件的用戶(hù)。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶(hù)。普通用戶(hù)，只有普通的查看、查詢(xún)、備份、添加等權(quán)力。在添加用戶(hù)時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。一經(jīng)刪除即不可以在恢復(fù)。 刪除操作部分代碼： If = 1 Then = False End If If (MsgBox(你真的想刪除當(dāng)前記錄嗎？ , vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If 編 輯操作可以對(duì)當(dāng)前所選擇的用戶(hù)進(jìn)行編輯，可以修改其用戶(hù)名與密碼。修改記錄即更新表中的某一條記錄。因?yàn)樗械脑O(shè)置都在此進(jìn)行。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。這里主要涉及到的問(wèn)題是 datagrid 的顯示，以及 treeview 及時(shí)形成新的結(jié)構(gòu)。 在點(diǎn)擊 sstab 各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹(shù)型結(jié)構(gòu)， Select Case PreviousTab 38 Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱(chēng) )) I = I + 1 Loop End If Call startree1 Case 2 Call startree1 End Select End Sub (1) 公寓設(shè)置 ① 公寓設(shè)置效果圖 39 圖 ② 界面制作與實(shí)現(xiàn)方法 在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的Datagrid 控件。 在右下角的文本框中可以輸入想要添加的公寓名稱(chēng)。 Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。然后點(diǎn)擊更新就會(huì)完成此操作。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的公寓名稱(chēng)，點(diǎn)擊刪除，確認(rèn)后完成此操作。其它表的有關(guān)此公寓的信息還會(huì)存在。 在添加前要判斷所寫(xiě)公寓名稱(chēng)是否正確，即是否輸入名稱(chēng)，該記錄不能為空，不為空則對(duì)數(shù)據(jù)庫(kù)表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會(huì)給出提示，不存在，添加成功。 amp。 39。 amp。 39。 amp。 39。 amp。用到的控件主要是Sstab 與 Treeview。 在添加一個(gè)寢室前先要選擇所