【正文】 高、效果更好，管理起來(lái)更方便。s apartment . Student Apartment Management System is a utility management system based on the managing mode of many universities and and easyoperating are the greatest features of the system ,which is also applicable for enterprises of the same keepers bear a increasingly heavy burden because of the gradually added number of order to free apartment keepers from the heave work,and make the work more convienent and efficient. The apartment management system is developed. The system puterized all the processes concerning the apartment management which include apartment,dormitory distribution,roomer registration,santitation examination,and the query for apartment property,students39。隨著學(xué)校寄宿人員的增多，高校固定資產(chǎn)管理系統(tǒng)人員的負(fù)擔(dān)越來(lái)越重，為了讓所有高校固定資產(chǎn)管理系統(tǒng)人員能從繁重的工作中解脫出來(lái)，實(shí)現(xiàn)無(wú)紙化辦公；使工作更有條理，更方便，更有效率而開(kāi)發(fā)出這套高校固定資產(chǎn)管理系統(tǒng)軟件。高校是科研的陣地，后勤的高校固定資產(chǎn)管理系統(tǒng)也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率?；谶@一點(diǎn)，開(kāi)發(fā)此高校固定資產(chǎn)管理系統(tǒng)。 軟件從對(duì)學(xué)生的分房開(kāi)始到最后的高校固定資產(chǎn)管理系統(tǒng)全部電腦化。 violation of discipline,teachers39。由此而產(chǎn)生了本管理軟件――高校固定資產(chǎn)管理系統(tǒng)。做起來(lái)方便，使用起來(lái)更為快捷。這些資料是本軟件的主要依據(jù)，也可以說(shuō)這些資料來(lái)源于普通的生活，比較真實(shí)一些。但是還是存在一些不足，在有些功能的實(shí)現(xiàn)上還不是十分的理想，這也是本人在時(shí)間和精力上留下的遺憾。界面友好、操作簡(jiǎn)單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。面向?qū)ο蟮某绦蛟O(shè)計(jì)是伴隨 WIDNOWS圖形界面的誕生而產(chǎn)生的一種新的程序設(shè)計(jì)思想，與傳統(tǒng)程序設(shè)計(jì)有著較大的區(qū)別， VISUAL BASIC 采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。 它還 支持第三方軟件商為其開(kāi)發(fā)的可視化控制對(duì)象，如本例中就用到了一個(gè)。 1． 1． 2 HELP 制作 制作 help文檔需要一個(gè)專業(yè)制作軟件，本人使用的是破解版的 QuickCHM，此軟件無(wú)論在功能上還在是操作上用起來(lái) 都是很方便。長(zhǎng)期以來(lái)，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。 本系統(tǒng)最大的特點(diǎn)是通用性 、 簡(jiǎn)單操作性。 可以更快地了解到每個(gè)學(xué)生的住宿情況 。 1． 3． 3 組織管理上的可行性 本單位的領(lǐng)導(dǎo)干部具有較高的素質(zhì)，它們對(duì)管理現(xiàn)代化有較高的認(rèn)識(shí)水平，并且有各級(jí)領(lǐng)導(dǎo)的大力支持和重視。二是來(lái)源于網(wǎng)絡(luò)上的各種同類軟件，通過(guò)這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來(lái)十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫(xiě)。下面介紹幾個(gè)主要的表： ⑴ 學(xué)生基本情況表主要是存放學(xué)生的基本情況，字段包括：姓名、性別、學(xué)號(hào)、班級(jí)、公寓、寢室、入學(xué)時(shí)間、年制、寢室電話、個(gè)人電話、備注。其中檢查 1到 5是為了在沒(méi)有使用者想輸入的記錄的情況下自己輸入而設(shè)計(jì)的，保證了系統(tǒng)的可修改性、可擴(kuò)展性。 運(yùn)行圖如下 : 圖 系統(tǒng)設(shè)置運(yùn)行圖 用戶 管理 可以進(jìn)行管理人員的添加和修改以及刪除操作。普通用戶只有瀏覽、及一些簡(jiǎn)單的添加操作權(quán)力。這樣操作起來(lái)會(huì)更簡(jiǎn)單、操作一目了然。 運(yùn)行圖如下 : 圖 學(xué)生請(qǐng)假 主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。 床位設(shè)置 通過(guò)床位設(shè)置可以簡(jiǎn)單查看每個(gè)公寓每個(gè)寢室的床位使用情況以及床位剩余情況。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫(xiě)，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒(méi)有你想輸入的記錄的話，也可以自己輸入。運(yùn)行圖如下 : 圖 圖 值班記錄 它的功能主要是針對(duì)值班人員開(kāi)發(fā)出來(lái)的，在這里可以讓值班人員對(duì)當(dāng)天值班情況進(jìn)行一個(gè)小記，以便日后查看。運(yùn)行圖如下 : 圖 第四章 程序設(shè)計(jì) 主程序流程圖 登錄界面 此界面是由 Photoshop制作而成。 登錄圖片顯示 圖 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。原理主要是在鼠標(biāo) mousemove事件與線的顏色變化組合來(lái)實(shí)現(xiàn)。H808080 = amp。HE0E0E0 = amp。管理員、普通用戶。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。 。 amp。整個(gè)界面主要由五部分組成。 工具欄主要是由 coolbar制作而成。在這里值得一提的是刪除 DataGrid的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的 adodc1的數(shù)據(jù)源，或者是其它 ado控件對(duì)它的數(shù)據(jù)源進(jìn)行重新綁定后的數(shù)據(jù)庫(kù)表，也有可能是經(jīng)過(guò)一個(gè)查詢后得到的記錄。 。第一個(gè)為固定顯示當(dāng)前所用軟件名稱及作者。其中第三部分的代碼實(shí)現(xiàn)如下： = (級(jí)別 ) = (用戶 ) (2).Text = 當(dāng)前用戶： amp。 Time 39。 amp。 datasource .CommandType = adCmdTable .RecordSource = users 39。 datasource .CommandType = adCmdTable .RecordSource = gongyu .Refresh End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = dengji .Refresh End With With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider amp。 。各個(gè)控件也與數(shù)據(jù)庫(kù)中表的字段綁定。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。 上一條與下一條主要代碼如下： 39。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。 刪除操作部分代碼： If = 1 Then = False End If If (MsgBox(你真的想刪除當(dāng)前記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then End If 編 輯操作可以對(duì)當(dāng)前所選擇的用戶進(jìn)行編輯，可以修改其用戶名與密碼。因?yàn)樗械脑O(shè)置都在此進(jìn)行。這里主要涉及到的問(wèn)題是 datagrid 的顯示，以及 treeview 及時(shí)形成新的結(jié)構(gòu)。 在右下角的文本框中可以輸入想要添加的公寓名稱。然后點(diǎn)擊更新就會(huì)完成此操作。其它表的有關(guān)此公寓的信息還會(huì)存在。 amp。 amp。 amp。 amp。 在添加一個(gè)寢室前先要選擇所要添加寢室所在的公寓。添加后會(huì)把 Treeview 重新刷新一下。 amp。當(dāng)要對(duì)當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí) ，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫(xiě)所要修改的寢室名稱。 amp。sql = select * form qinshi where 公寓名稱 =39。 and 寢室 =39。 update qinshi set 寢室 =39。,公寓名稱 =39。where 寢室 =39。and 公寓名稱 =39。 = = Call startree1 刪除操作可以刪除掉當(dāng)前樹(shù)型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹(shù)型節(jié)點(diǎn)中的寢 室名稱，注意的是，刪除后這個(gè)記錄只在 qinshi表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。 amp。 amp。 amp。在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。 39。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫(kù)損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來(lái)更有安全感。 amp。 \ dbasize = FileLen(PathName) err: Exit Sub 數(shù)據(jù)備份部分在本程序中用到了一個(gè)模塊，在模塊中有一個(gè)方法， dobackup。 Format(Date, ) lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLY With SHFileOp .wFunc = lFileOp .pFrom = strSourcePath amp。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) = vbDefault = Backup Complete 在備份分前先要選擇一個(gè)備份路徑，點(diǎn)擊 … 那個(gè)按鈕開(kāi)始進(jìn)行選擇，實(shí)現(xiàn)方法如下： Dim strTemp As String strTemp = fBrowseForFolder(, Select backup path) If strTemp Then txtDestination = strTemp End If 數(shù)據(jù)恢復(fù)界面同上，它的功能主要是在當(dāng)前數(shù)據(jù)庫(kù)遭到破壞后，可以利用它來(lái)進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù) 據(jù)庫(kù)路徑，如下： Dim strTemp As String strTemp = fBrowseForFolder(, Restore From) If strTemp Then txtSource = strTemp dbasize2 = FileLen(txtSource amp。File Not Found lblSelectedDba = No Backup at this location = False End Select 它主要是查看數(shù)據(jù)庫(kù)是否存在，如果所恢復(fù)的數(shù) 據(jù)不存在，則會(huì)提示錯(cuò)誤。 will replace existing database you want to Contunue, vbYesNo) = vbYes Then DoRestore , If NoDba = True Then MsgBox Database Restored Click Ok to Exit Program Unload frmRestoreDba End If Else = Database Restore Canceled End If 其中 DoRestore 實(shí)現(xiàn)的功能源碼如下所示： DEFSOURCE = PROVIDER=。 Set Db = New DEFSOURCE amp。 vbNullChar .pTo = strDestinationPath amp。這實(shí)屬本人精力與能力有限所置。 首先要在 list 中加載各表名。 \icon\ Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = provider=。 \ strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) M Then temp End If Loop = 0 On