【文章內容簡介】 sgBox(你真的想刪除公寓名稱為 amp。 amp。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc1③寢室設置效果圖如圖46所示。圖46 寢室設置④寢室界面制作與實現(xiàn)方法此界面實現(xiàn)相對比公寓設置來說相對復雜一些。用到的控件主要是Sstab與Treeview。在添加一個寢室前先要選擇所要添加寢室所在的公寓。這個公寓可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇公寓后面的列表框中，而選中的節(jié)點會出現(xiàn)在寢室名稱里。你也可以自己進行添寫，確認公寓后即可添加完成了。添加后會把Treeview重新刷新一下。以顯示更新后的記錄。修改操作可以把當前選中的寢室進行名稱修改與其所屬公寓進行修改。當要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。當要對當前寢室的所屬公寓進行修改時，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點擊修改后完成此操作。但是這種操作不是常見。刪除操作可以刪除掉當前樹型顯示中的任何一個子節(jié)點，也就是這個樹型節(jié)點中的寢室名稱，注意的是，刪除后這個記錄只在qinshi表中刪除，其相關記錄不會被刪除掉的，如果想刪除，還需要人工操作。實現(xiàn)的方法主要是對qinshi表操作，先對其進行查詢，查詢當前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調用生成樹過程，把當前寢室設置中的樹型結構重新生成，更新記錄。⑤班級設置效果圖如圖47所示。圖47班級設置⑥界面制作與實現(xiàn)方法此界面制作與公寓設置基本一致。在這個界面中主要用到了一個Sstab控件與一個顯示表中內容的Datagrid控件。以及起到美觀作用的Frame控件。在右下角的文本框中可以輸入想要添加的班級名稱。然后點擊添加即可完成添加操作。Datagrid中會立即刷新顯示更新內容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的名字。然后點擊更新就會完成此操作。Datagrid也會即時更新其內容。刪除操作更為簡單，選擇想要刪除的班級名稱，點擊刪除，確認后完成此操作。數(shù)據(jù)備份是一個數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當前數(shù)據(jù)庫表進行全面的備份，以備以后使用。因為在操作中可能會導致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。①數(shù)據(jù)備份效果圖如圖48所示。圖48 數(shù)據(jù)備份效果圖②功能實現(xiàn) 界面制作相對程序來說比較簡單，用到的是coolbar控件，點擊按鈕可以選擇備份路徑。然后點擊數(shù)據(jù)備份即可。數(shù)據(jù)備份部分在本程序中用到了一個模塊，在模塊中有一個方法，dobackup。點擊備份按鈕后開始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！, , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中DoBackup為模塊中已定義的方法，在這里進行調用。數(shù)據(jù)恢復界面同上，它的功能主要是在當前數(shù)據(jù)庫遭到破壞后，可以利用它來進行數(shù)據(jù)恢復，在數(shù)據(jù)恢復前要選擇所要恢復的數(shù)據(jù)庫路徑。數(shù)據(jù)恢復也用到了一個方法，在模塊中也已經(jīng)定義了該方法DoRestore。說明：本程序中此部分內容參考了網(wǎng)上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經(jīng)實現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。這實屬本人精力與能力有限所置。 數(shù)據(jù)轉換這個功能可以把當前列表框中的任何一個表轉換成excel形式，轉換后你可以看到表中的內容，也可以對表進行操作，保存，修改，打印等。①界面效果圖如圖49所示。圖49 數(shù)據(jù)轉換效果圖②實現(xiàn)方法在這里用到了一個顯示gif圖片的控件。選擇左面list中的一個表后，點擊導出后即可完成，進度條中顯示當前轉換進度程度。首先要在list中加載各表名。以便進行選擇轉換。添加表名部分在load進行加載，其中的導出與取消按鈕是由coolbar制作而成。數(shù)據(jù)轉換成excel用到了一個部件，在引用中用到了Microsoft Object library。轉換代碼如附錄C。學生請假與違規(guī)在一個公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。用它們可以隨時記錄請假記錄。①學生請假記錄圖片顯示如圖410所示。圖410學生請假效果圖②界面制作與實現(xiàn) 此界面主要是對學生請假記錄做一個添加。利用它可以把學生的基本的請假資料保存起來。其中的日期是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以。這里的添加操作用的是Adodc控件，所有的文本框在初始的時候沒有同Adodc綁定，而是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。這樣做在使用的時候有很大的方便之處。第一是窗體在初始化時不會顯示任何記錄，不用設置文本框為空等一系列的操作。第二是當進行記錄輸入時，發(fā)現(xiàn)問題不用輸入時，不按添加按鈕記錄就不會進行添加。注意的是，在添加前要確定所有的文本框都要進行詳細填寫，否則會提示輸入詳細信息。添加主要代碼如下：If = Or = Or = Or = Or = Or = Or = Or = Or = ThenMsgBox 請輸入詳細信息！, , 系統(tǒng)提示ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .End WithSet = Adodc1End If①學生違規(guī)記錄圖片顯示如圖411所示。圖411學生違規(guī)效果圖此界面與上面的請假記錄差不多。它主要是對學生的違規(guī)記錄做一個添加。其中的日期也是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以這里的違規(guī)操作用的也是Adodc控件，所有的文本框在初始的時候也沒有同Adodc綁定，它也是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。其它操作同上面基本是一致的，對于違規(guī)在主界面的左側并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會提示的！公寓衛(wèi)生可以說是一個公寓管理中最常見到的問題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來進行填寫，一定會十分麻煩，且保存也不是十分方便，在一些評比中也會忙的很遭。所以在這個軟件中編寫了此功能。 公寓衛(wèi)生添加效果圖公寓衛(wèi)生添加效果圖如圖412所示。圖412 公寓衛(wèi)生添加效果圖①在這個界面中主要用到了文本框以及起到美觀作用的frame控件。日期已經(jīng)設置成只讀屬性，檢查記錄的日期是不能隨便改寫的。公寓名稱可以在下拉列表框中進行選擇，如果在下拉列表框中沒有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱的正確性。寢室名稱需要自己輸入。這里的衛(wèi)生標準一共有五項可以填寫，在每一項里已經(jīng)基本設置了所不全標準的記錄，你可以在下拉列表框中進行選擇即可，但是如果沒有你想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對此寢室減掉的分數(shù)，單擊得分后面的文本框會自動算出應該得到的分數(shù)。然后跟據(jù)得分的分數(shù)，你要選擇該寢室的衛(wèi)生等級，衛(wèi)生等級為必選值且為固定值，正確的選擇此項可以在主界面的左側中快速對衛(wèi)生等級進行查看。②公寓選擇欄中代碼的實現(xiàn)：Dim I As IntegerI = 1If 0 ThenDo While I ((公寓名稱))I = I + 1LoopEnd If衛(wèi)生選擇欄中的代碼實現(xiàn)基本同上，它也是一個表中的字段值！由于此窗體中涉及到公寓與寢室，在填寫時要確定其名稱的正確，所以在添加記錄前要對它們進行檢查，如發(fā)現(xiàn)不存在的記錄，則顯示提示。檢查記錄時用的是adodc中的find命令。類似于用戶登錄時的判斷，同樣記錄的輸入也要詳細。確認一切無誤后，開始對所填寫記錄進行添加并顯示：With Adodc2..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .(9).Value = .(10).Value = .(11).Value = .End WithSet = Adodc2 公寓資產(chǎn) 公寓資產(chǎn)可以及時對公寓里進出財務進行統(tǒng)計，以免遺忘，造成不必要的損失或不必要的麻煩，它的實現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對比來說比上面的簡單一些。不足的是目前只做出了入庫管理，對于出庫記錄還沒有實現(xiàn)。圖413 公寓資產(chǎn)添加效果圖日期的設置同上面一樣，只讀屬性。公寓名稱與寢室名稱要人工輸入，沒有選擇，這是因為考慮到它不會像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進程，它沒有使用bo，沒有在窗體中進行加載。窗體中的數(shù)量與單價在填寫之后會自動把總價格計算出來，類似于上圖中的得分一樣。部分代碼如下：If = “” Or = “” Or = “” Then MsgBox “請輸入詳細信息！”, , “提示”ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .End WithSet = Adodc1 = “” = “” = “” = “” = “” = “”End If記錄查看可以讓你對已錄入的記錄進行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個方面的查看：衛(wèi)生查看、請假查看、違規(guī)查看、資產(chǎn)查看。下面分別介紹。 衛(wèi)生查看①界面效果圖如圖414所示。圖414 衛(wèi)生查看效果圖②界面制作與實現(xiàn)方法這是一個比較簡單的窗體操作。看起來精簡、小巧。它主要的功能是對已經(jīng)錄入的衛(wèi)生記錄進行符合條件的查詢。在查詢類別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點擊確定后即可以看到該日期的記錄。在進行查詢前，要對所操作的表進行綁定，日期后面的下拉列表框中可以顯示出所有已經(jīng)錄入記錄的日期，它是通過對當前表進行分類查詢后得到的結果，然后將其添加在bo中，查看全部，即把當前表中的記錄全部賦給當前用來顯示的表格，按日期查看，則是在表中先進行查詢，然后對結果進行重綁定，再賦值。它們的判斷主要是通過單選框的選取來完成的，實現(xiàn)方法如下：s = If = True ThenSet = Adodc1ElseIf = True Thensql = select * from weisheng where 日期=39。 amp。 Trim(s) amp。 39。With Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me在記錄查看中還有其它三項查看方式，分別是請假、違規(guī)、資產(chǎn)三項記錄查看。它們的實現(xiàn)方法與窗體與上面的衛(wèi)生查看基本相同。刪除是一個數(shù)據(jù)庫軟件中最基本的操作之一。在本軟件的工具欄中也有一個刪除按鈕，其功能也是將所找到的記錄刪除，但是它每次只能刪除一條記錄，且此刪除記錄的前提是在右側的顯示中容易找出，即記錄不多的情況下使用。如果一旦數(shù)據(jù)記錄很多，一條條查找比較不方便時，即可以使用此窗體進行刪除。這里的刪除也有四個窗體，分別為衛(wèi)生刪除、請假刪除、違規(guī)刪除、資產(chǎn)刪除。下面分別介紹。 衛(wèi)生刪除①效果圖如圖415所示。圖415 衛(wèi)生刪除效果圖②界面制作與實現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個刪除操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的表相聯(lián)。且有三種刪除記錄方式可以選擇。默認為單條刪除，選擇此項后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當這三條全部符合要求后，在表中進行查找，找到后確認刪除。選擇批量刪除后，在下面只有一個日期可以選擇，這樣將會把所選日期內的所有記錄都將刪除掉，所以稱其為批量刪除。全部即是把當前表清空，全部刪除掉，建議使用此操作前對當前數(shù)據(jù)庫進行備份處理，否則數(shù)據(jù)將不會恢復。首先要進行數(shù)據(jù)庫連接，接下來要對本窗體中的日期進行加載，在單條刪除前要確定所有條件符合要求，單條刪除操作的代碼主要部分如