【正文】 的功能都不是一樣的，它們會有所差別！ 浮動按鈕的實(shí)現(xiàn) ： 15 圖 42 登錄界面 確定和取消兩個按鈕在鼠標(biāo)沒有放上去之前看上去只是一個普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個字上面后，它會顯示凸出的效果，按下后呈現(xiàn)凹陷的效果。原理主要是在鼠標(biāo) mousemove 事件與線的顏色變化組合來實(shí)現(xiàn) 在窗體中的鼠標(biāo)移動過程中，以及在窗體初始化的時候，要把添加的線的 .Visible 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時候在改變其顏色即可。 程序主界面 程序主界面為本軟件的顯示的核心部分。整個界面主要由五部分組成。 ①界面效果圖如 圖 43 所示。 工具欄主要是由 coolbar 制作而成。這里只列出了幾個常用的按鈕。在這里值得一提的是刪除 DataGrid 的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個，所以在刪除前要確定它 的數(shù)據(jù)源，也就是它所鏈接的 adodc1 的數(shù)據(jù)源，或者是其它 ado 控件對它的數(shù)據(jù)源 進(jìn) 行重新綁定后的數(shù)據(jù)庫表，也有可能是經(jīng)過一個查詢后得到的記錄。用這個方法得到數(shù)據(jù)源。第一個為固定顯示當(dāng)前所用軟件名稱及作者。第四部分為日期與時間的顯示。 這個軟件的主要部分都在這里運(yùn)行、查看，所以在主窗體的 load 事件里要把所用的到 的東西都要加載進(jìn)來，例如所在程序運(yùn)行時所用到的表，左側(cè) treeview 部分樹形顯示的初始化。 provider = provider= datasource = data source= amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 amp。 .Refresh 17 End With treeview 部分樹形顯示的初始化在這里已經(jīng)做了幾個過程，調(diào)用即 可。 圖 44 用戶管理 ② 界面制作與實(shí)現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的 yonghu 表相聯(lián)。 在窗體初始化的時候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設(shè)置成為失效狀態(tài)，否則會出現(xiàn)錯誤。 上一條與下一條的功能一目了然，它們可以對當(dāng)前表進(jìn)行上一條記錄或下一條記錄依 次查看。上一條記錄與下一條的記錄在查看時有一個判斷。即不可以前查看或向后查看。添加的時候可以選擇所添加人物的級別。管理員擁有對此軟件管理操作等一切的權(quán)力。沒有對記錄刪除等權(quán)力。然后輸入此用戶的用 戶名和密碼即可！ 添加用戶主要代碼： 學(xué)生公寓管理信息系統(tǒng) 18 If = 添加 Then = False = False = False = 確定 = 取消 = True = True = True = True = True = ElseIf = Then MsgBox 用戶名不能為空！ , 48, 提示 ElseIf = Then MsgBox 密碼不能為空！ , 48, 提示 ElseIf Then MsgBox 密碼兩次需一致！ , 48, 提示 ElseIf = Then MsgBox 請選擇所建用戶類型！ , 48, 提示 Else = True = True = True = True = 編輯 = 添加 = False = False = False 19 = False = False = False = False = False End If 刪除操作可以把當(dāng)前記錄刪除掉。所以在操作前要想好。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時，可以進(jìn)行修改。 公寓設(shè)置 公寓設(shè)置可以說是本程序中一關(guān)鍵部分。包括公寓添加、修改、刪除。只有正確的對這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。還有一些就是對表記錄的復(fù)雜操作。 圖 45 公寓設(shè)置 學(xué)生公寓管理信息系統(tǒng) 20 ② 公寓 界面制作與實(shí)現(xiàn)方法 在這個界面中主要用到了一個 Sstab 控件與一個顯示表中內(nèi)容的 Datagrid 控件。 在右下角的文本框中可以輸入想要添加的公寓名稱。Datagrid 中會立即刷新顯示更新內(nèi)容。然后點(diǎn)擊更新就會完成此操作。刪除操作更為簡單，選擇想要刪除的公寓名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。其它表的有關(guān)此公寓的信息還會存在。 在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對數(shù)據(jù)庫表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會給出提示，不存在，添加成功。 amp。 39。 amp。 39。 amp。 圖 46 寢室設(shè)置 ④寢室 界面制作與實(shí)現(xiàn)方法 此界面實(shí)現(xiàn)相對比公寓設(shè)置來說相對復(fù)雜一些。在添加一個寢室前先要選擇所要添加寢室所在的公寓。樹中的節(jié)點(diǎn)在點(diǎn)擊后會把父節(jié)點(diǎn)顯示在選擇公寓后面的列表框中，而選中的節(jié)點(diǎn)會出現(xiàn)在寢室名稱里。添加后會把 Treeview 重新刷新一下。 修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱修改與其所屬公寓進(jìn)行修改。當(dāng)要對當(dāng)前寢室的所屬公寓進(jìn)行修改時，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。但是這種操作不是常見。實(shí)現(xiàn)的方法主要是對 qinshi 表操作，先對其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹過程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。 23 圖 47班級設(shè)置 ⑥ 界面制作與實(shí)現(xiàn)方法 此界面制作與公寓設(shè)置基本一致。以及起到美觀作用的 Frame 控件。然后點(diǎn)擊添加即可完成添加操作。要修改某條記錄時，要先對所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的名字。 Datagrid 也會即時更新其內(nèi)容。 數(shù)據(jù)備份是一個數(shù)據(jù)庫軟件必不可少的一部分，利 用它可以把當(dāng)前數(shù)據(jù)庫表進(jìn)行全面的備份，以備以后使用。 ①數(shù)據(jù)備份效果圖 如圖 48 所示。然后點(diǎn)擊數(shù)據(jù)備份即可。 點(diǎn)擊備份按鈕后開始備份，代碼如下： If txtDestination Then DoBackup PathName, txtDestination MsgBox 備份成功！ , , 提示 ElseIf txtDestination = Then MsgBox You must specify a distination for the backup, vbCritical 其中 DoBackup 為模塊中已定義的方法，在這里進(jìn)行調(diào)用。數(shù)據(jù)恢復(fù)也用到了一個方法，在模塊中也已經(jīng)定義了該方法 DoRestore。這實(shí)屬本人精力與能力有限所置。 ①界面效果圖 如圖 49 所示。選擇左面 list 中的一個表后，點(diǎn)擊導(dǎo)出后即可完成，進(jìn)度條中顯示當(dāng)前轉(zhuǎn)換進(jìn)度程度。以便進(jìn)行選擇轉(zhuǎn)換。 數(shù)據(jù)轉(zhuǎn)換成 excel 用到了一個部件，在引用中用到了 Microsoft Object library。 學(xué)生請假與違規(guī) 在一個公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。 ①學(xué)生請假記錄圖片顯示 如圖 410 所示。利用它可以把學(xué)生的基本的請假資料保存起來。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時候沒有同 Adodc 綁定，而是在代碼中與數(shù)據(jù)庫中表的字 段進(jìn)行的綁定，然后進(jìn)行添加操作。第一是窗體在初始化時不會顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮?。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫，否則會提示輸入詳細(xì)信息。 圖 411 學(xué)生違規(guī)效果圖 27 此界面與上面的請假記錄差不多。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違規(guī)操作用的也是 Adodc 控件，所有的文本框在初始的 時候也沒有同 Adodc綁定，它也是在代碼中與數(shù)據(jù)庫中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會提示的！ 公寓衛(wèi)生可以說是一個公寓管理中最常見到的問題了。所以在這個軟件中編寫了此 功能。 圖 412 公寓衛(wèi)生添加效果圖 ①在這個界面中主要用到了文本框以及起到美觀作用的 frame 控件。公寓名稱可以在下拉列表框中進(jìn)行選擇，如果在下拉列表框中沒有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱的正確性。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項可以填寫，在每一項里已經(jīng)基本設(shè)置了所不全標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可， 但是如果沒有你學(xué)生公寓管理信息系統(tǒng) 28 想輸入的記錄的話，你也可以自己輸入。然后跟據(jù)得分的分?jǐn)?shù)，你要選擇該寢室的衛(wèi)生等級，衛(wèi)生等級為必選值且為固定值，正確的選擇此項可以在主界面的左側(cè)中快速對衛(wèi)生等級進(jìn)行查看。檢查記錄時用的是 adodc 中的 find命令。確認(rèn)一切無誤后，開始對所填寫記錄進(jìn)行添加并顯示： With Adodc2 . .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .(9).Value = 29 .(10).Value = .(11).Value = . End With Set = Adodc2 公寓資產(chǎn) 公寓資產(chǎn)可以及時對公寓里進(jìn)出財務(wù)進(jìn)行統(tǒng)計，以免遺忘，造成不必要的損失或不必要的麻煩，它的實(shí)現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對比來說比上面的簡單一些。 圖 413 公寓資產(chǎn)添加效果圖 日期的設(shè)置同上面一樣，只讀屬性。窗體中的數(shù)量與單價在填寫之后會自動把總價格計算出來，類似于上圖中的得分一樣。這里主要包括四個方面的查看：衛(wèi)生查看、請假查看、違規(guī)查看、資產(chǎn)查看。 衛(wèi)生查看 ①界面效果圖 如圖 414 所示?？雌饋砭?、小巧。在查詢類別中選擇可以選擇全部查看以及按日期查看。 在進(jìn)行查詢前，要對所操作的表進(jìn)行綁定，日期后面的下拉列表框中可以顯示出所有已經(jīng)錄入記錄的日期，它是通過對當(dāng)前表進(jìn)行分類查詢后得到的結(jié)果，然后將其添加在bo 中，查看全部，即把當(dāng)前表中的記錄全部賦給當(dāng)前用來顯示的表格，按日期查看，則是在表中先進(jìn)行查詢，然后對結(jié)果進(jìn)行重綁定，再賦值。 amp。 39。 。 datasource .CommandType = adCmdText .RecordSource = sql .Refresh End With Set = Adodc3 End If Unload Me 在記錄查看中還有其它三項查看方式，分別是請假、違規(guī)、資產(chǎn)三項記錄查看。 學(xué)生公寓管理信息系統(tǒng) 32 刪除是一個數(shù)據(jù)庫軟 件中最基本的操作之一。如果一旦數(shù)據(jù)記錄很多，一條條查找比較不方便時，即可以使用此窗體進(jìn)行刪除。下面分別介紹。 圖 415 衛(wèi)生刪除效果圖 ②界面制作與實(shí)現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個刪除操作，它 已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的表相聯(lián)。 默認(rèn)為單條刪除，選擇此項后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當(dāng)這三條全部符合要求后，在表中進(jìn)行查找，找到后確認(rèn)刪除。全部即是把當(dāng)前表清空，全部刪除掉，建議使用此操作前對當(dāng)前數(shù)據(jù)庫進(jìn)行備份處理，否則數(shù)據(jù)將不會恢復(fù)。 amp。 amp。 amp。 amp。 39。 amp。 39。 amp。 39。, , adExecuteNoRecords = = = MsgBox 刪除成功 , , 系統(tǒng)提示 End If Unload Me ①效果圖 如圖 416 所示。由于在一個公寓中會有很多人要得名，但是在某一公寓某一寢室中只會有一個人，這也是一個公寓分配住宿人員時的基本標(biāo)準(zhǔn)，因?yàn)檫@樣也便于公寓本身的管理。 違規(guī)刪除 ①效果圖 如圖 417 所示 。其實(shí)現(xiàn)方法與上現(xiàn)的也差不 太多，這里就不在敘述。 amp。 amp。 39。 圖 418 資產(chǎn)刪除效果圖 ②界面制作與實(shí)現(xiàn)方法 與衛(wèi)生記錄刪除不同的是寢室改為了名稱。 值班記錄這項可以說是此軟件的一個新增功能?？梢哉f是一個小型的日記本。 圖 419 值班記錄 效果圖 ②實(shí)現(xiàn)思想與功能 此窗體的功能以及其源代碼是經(jīng)過修改之后而形成的，源文件是一個電子記事本，發(fā)學(xué)生公寓管理信息系統(tǒng) 36 現(xiàn)后經(jīng)過修改后做出一個日記本。這是一種查詢方法，當(dāng)然你也可以用右面簡單的上一條與下一條進(jìn)行快速查看，但是它只能查看當(dāng)日日期起開始的記錄，如果與你所想要查看的日期相差很遠(yuǎn)，那么你就需要使用第一種方法了。當(dāng)你想編輯或