【文章內(nèi)容簡(jiǎn)介】 750 = 750 = 1200 = 1200 = 1200 = 1500 = 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部分樹形顯示的初始化。在這里幾乎用到了所有的表，如下所示： provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource . .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = zichan .Refresh End With treeview部分 樹形顯示的初始化在這里已經(jīng)做了幾個(gè)過(guò)程，調(diào)用即可。 系統(tǒng)設(shè)置 用戶管理 ①界面效果圖 圖 ② 界面制作與實(shí)現(xiàn)方法 這個(gè)界面總體來(lái)說(shuō)各個(gè)控件比較簡(jiǎn)單，但是作為一個(gè)添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫(kù)，與數(shù)據(jù)庫(kù)的 yonghu表相聯(lián)。各個(gè)控件也與數(shù)據(jù)庫(kù)中表的字段綁定。 在窗體初始化的時(shí)候要判斷當(dāng)前數(shù)據(jù)庫(kù)表中是否有記錄，如果沒有記錄那么有些按鈕將會(huì)被設(shè)置成為失效狀態(tài)，否則會(huì)出現(xiàn)錯(cuò)誤。 上一條與下一條的功能一目了然，它們可以對(duì)當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。當(dāng) 找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。上一條記錄與下一條的記錄在查看時(shí)有一個(gè)判斷。當(dāng)表中記錄移到最前面（ BOF）或最后面（ EOF）時(shí)，會(huì)把上一條或下一條其中的一個(gè)按鈕的 enable屬性設(shè)置為 true。即不可以前查看或向后查看。 上一條與下一條主要代碼如下： 39。移動(dòng)記錄 = True If Then = False End If 39。移動(dòng)記錄 = True If Then = False End If 添加用戶可以添加使用該管理軟件的用戶。添加的時(shí)候可以選擇所添加人物的級(jí)別。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。管理員擁有對(duì)此軟件管理操作等一切的權(quán)力。 普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。沒有對(duì)記錄刪除等權(quán)力。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。然后輸入此用戶的用戶名和密碼即可！ 添加用戶主要代碼： If = 添加 Then = False = False = False = 確定 = 取消 = True = True = True = True = True End If 刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。 刪除操作部分代碼： If = 1 Then = False End If If (MsgBox(你真的想刪除當(dāng)前記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then End If 編輯操作可以對(duì)當(dāng)前所選擇的用戶進(jìn)行編輯，可以修改其用戶名與密碼。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時(shí)，可以進(jìn)行修改。修改記錄即更新表中的某一條記錄。 公寓設(shè)置 公寓設(shè)置可以說(shuō)是本程序中一關(guān)鍵部分。因?yàn)樗械脑O(shè)置都在此進(jìn)行。包括公寓添加、修改、刪除。寢室 的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。只有正確的對(duì)這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。這里主要涉及到的問(wèn)題是 datagrid 的顯示，以及 treeview 及時(shí)形成新的結(jié)構(gòu)。還有一些就是對(duì)表記錄的復(fù)雜操作。 在點(diǎn)擊 sstab 各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹型結(jié)構(gòu)， (1) 公寓設(shè)置 ① 公寓設(shè)置效果圖 圖 ② 界面制作與實(shí)現(xiàn)方法 在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。以及起到美觀作用的 Frame 控件。 在右下角的文本框中可以輸入想要添加的公寓名稱。然后點(diǎn)擊添加即可完成添加操作。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改公寓的名稱，此時(shí)即可輸入要修改的名字。然后點(diǎn)擊更新就會(huì)完成此操作。 Datagrid 也會(huì)即時(shí)更新其內(nèi)容。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的公寓名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。但是刪除后不會(huì)影響其它表中的數(shù)據(jù)。其它表的有關(guān)此公寓的信息還會(huì)存在。 在進(jìn)行所有操作前，先要確 定數(shù)據(jù)庫(kù)已連接。 在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對(duì)數(shù)據(jù)庫(kù)表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會(huì)給出提示，不存在，添加成功。 公寓名稱 =39。 amp。 amp。 39。 If = False Then MsgBox 此公寓已存在 , , 提示 Exit Sub End If = If = Then MsgBox 輸入所要添加公寓的名稱 , , 提示 Exit Sub End If 添加： (公寓名稱 ) = = gongyu = Set = Adodc1 修改公寓名稱： If = Then MsgBox 選擇要修改的公寓 , , 提示 Exit Sub End If = Set = Adodc1 (2) 寢室設(shè)置 ①寢室設(shè)置效果圖 圖 ②界面制作與實(shí)現(xiàn)方法 此界面實(shí)現(xiàn)相對(duì)比公寓設(shè)置來(lái)說(shuō)相對(duì)復(fù)雜一些。用到的控件主要是 Sstab 與 Treeview。但是在程序方面比較復(fù)雜。 在添加一個(gè)寢室前先要選擇所要添加寢室所在的公寓。這個(gè)公寓可以點(diǎn)擊下面的樹中的節(jié)點(diǎn)，也可以在列表框中選擇。樹中的節(jié)點(diǎn)在點(diǎn)擊后會(huì)把父節(jié)點(diǎn)顯示在選擇公寓后面的列表框中，而選中的節(jié)點(diǎn)會(huì)出現(xiàn)在寢室名稱里。你也可以自己進(jìn)行添寫，確認(rèn)公寓后即可添加完成了。添加后會(huì)把 Treeview 重新刷新一下。以顯示更新后的記錄。 修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱修改與其所屬公寓進(jìn)行修改。當(dāng)要對(duì)名稱進(jìn)行修改時(shí)，先要選擇所要修改的寢室名，選擇后會(huì)在寢室名稱里顯示出來(lái)，把當(dāng)前寢室名稱改成要修改 的寢室名稱，然后點(diǎn)擊修改即完成名稱修改操作。當(dāng)要對(duì)當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點(diǎn)擊修改后完成此操作。但是這種操作不是常見。 刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹型節(jié)點(diǎn)中的寢室名稱，注意的是，刪除后這個(gè)記錄只在 qinshi表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。實(shí)現(xiàn)的方法主要是對(duì) qinshi表操作，先對(duì)其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄， 則在表中把它刪除掉，刪除后調(diào)用生成樹過(guò)程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。實(shí)現(xiàn)的部分代碼如下所示： If = Or = Or = 公寓管理系統(tǒng) Then MsgBox 選擇所要?jiǎng)h除的寢室 , , 提示 Exit Sub End If If (MsgBox(你真的想刪除 amp。 amp。 amp。 寢室為 amp。 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then delete from qinshi where 公寓名稱 =39。 amp。 Trim() amp。 39。 and 寢室 =39。 amp。 Trim() amp。 39。 End If = = Call startree1 在 treeview 點(diǎn)擊的時(shí)候，上面的文本框中會(huì)顯示相應(yīng)的記錄，這主要是對(duì) treeview 進(jìn)行了設(shè)置，代碼如下： Private Sub TreeView1_NodeClick(ByVal Node As ) On Error Resume Next = = = = End Sub (3)班級(jí)設(shè)置 ①班級(jí)設(shè)置效果圖 圖 ②界面制作與實(shí)現(xiàn)方法 此界面制作與公寓設(shè)置基本一致。在這個(gè)界面中主要用到了一個(gè) Sstab 控件與一個(gè)顯示表中內(nèi)容的 Datagrid 控件。以及起到美觀作用的 Frame 控件。 在右下角的文本框中可以輸入想要添加的班級(jí)名稱。然后點(diǎn)擊添加即可完成添加操作。Datagrid 中會(huì)立即刷新顯示更新內(nèi)容。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇 ，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改班級(jí)的名稱，此時(shí)即可輸入要修改的名字。然后點(diǎn)擊更新就會(huì)完成此操作。 Datagrid 也會(huì)即時(shí)更新其內(nèi)容。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。 數(shù)據(jù)備份： 數(shù)據(jù)備份是一個(gè)數(shù)據(jù)庫(kù)軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫(kù)表進(jìn)行全面的備份，以備以后使用。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫(kù)損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少 ，經(jīng)常備份，操作起來(lái)更有安全感。 ①數(shù)據(jù)備份效果圖 圖 說(shuō)明： 本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對(duì)其進(jìn)行修改后得到此成型作品，從功能上來(lái)講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過(guò)測(cè)試已經(jīng)沒有問(wèn)題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。這實(shí)屬本人精力與能力有限所置。 數(shù)據(jù)轉(zhuǎn)換 這個(gè)功能可以把當(dāng)前列表框中的任何一個(gè)表轉(zhuǎn)換成 excel形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對(duì)表進(jìn)行操作，保存，修改，打印等。 ①界面效果圖 圖 效果圖 公寓管理 學(xué)生請(qǐng)假 學(xué)生請(qǐng)假與違規(guī)在一個(gè)公寓管理中是最常見的問(wèn)題了，所以在此軟件中加上了這兩項(xiàng)功能。用它們可以隨時(shí)記錄請(qǐng)假記錄。 ① 生請(qǐng)假記錄圖片顯示 圖 ② 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來(lái)。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時(shí)候沒有同Adodc 綁定，而是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操 作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮?。第二是?dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問(wèn)題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫，否則會(huì)提示輸入詳細(xì)信息。添加 學(xué)生違規(guī) ①學(xué)生違規(guī)記錄圖片顯示 圖 此界面與上面的請(qǐng)假記錄差不多。它主要是對(duì)學(xué)生的違規(guī)記錄做一個(gè)添加。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違 規(guī)操作用的也是 Adodc 控件，所有的文本框在初始的時(shí)候也沒有同 Adodc 綁定，它也是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。其它操作同上面基本是一致的，對(duì)于違規(guī)在主界面的左側(cè)并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進(jìn)行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會(huì)提示的！ 衛(wèi)生檢查 公寓衛(wèi)生可以說(shuō)是一個(gè)公寓管理中最常見到的問(wèn)題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來(lái)進(jìn)行填寫，一定會(huì)十分麻煩，且保存也不是十分方便，在一些評(píng)比中也會(huì)忙的很遭。所以在這個(gè)軟件中編寫了此功能。 公寓衛(wèi)生添加效果圖 圖 ①在這個(gè)界面中主要用到了文本框以及起到美觀作用的 frame控件。 日期已經(jīng)設(shè)置成只讀屬性，檢查記錄的日期是不能隨便改寫的。公寓名稱可以在下拉列表框中進(jìn)行選擇，如果在下拉列表框中沒有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱的正確性。寢室名稱需要自己輸入。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不全標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選 擇即可，但是如果沒有你想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對(duì)此寢室減掉的分?jǐn)?shù)，單擊得分后面的文本框會(huì)自動(dòng)算出應(yīng)該得到的分?jǐn)?shù)。然后跟據(jù)得分的分?jǐn)?shù)，你要選擇該寢室的衛(wèi)生等級(jí)，衛(wèi)生等級(jí)為必選值且為固定值，正確的選擇此項(xiàng)可以在主界面的左側(cè)中快速對(duì)衛(wèi)生等級(jí)進(jìn)行查看。 公寓資產(chǎn) 公寓資產(chǎn)可以及時(shí)對(duì)公寓里進(jìn)出財(cái)務(wù)進(jìn)行統(tǒng)計(jì)，以免