【正文】 = 輸入想要修改的宿舍名稱 = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的宿舍名稱 (宿舍名稱) = update qinshi set 宿舍名稱=39。 where 宿舍名稱 =39。 = 修改End IfSet = Adodc129學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)Set = Adodc5刪除宿舍名稱If = ThenMsgBox 選擇所要?jiǎng)h除宿舍的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除宿舍名稱為 amp。但是在程序方面比較復(fù)雜。你也可以自己進(jìn)行添寫，確認(rèn)宿舍后即可添加完成了。 amp。當(dāng)要對(duì)名稱進(jìn)行修改時(shí)，先要選擇所要修改的寢室名，選擇后會(huì)在寢室名稱里顯示出來(lái)，把當(dāng)前寢室名稱改成要修改的寢室名稱，然后點(diǎn)擊修改即完成名稱修改操作。修改源碼： 宿舍名稱=39。If = True Then31學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)MsgBox 此宿舍不存在 , , 提示Exit SubEnd IfDim sql As StringOn Error Resume NextIf = Or = ThenMsgBox 請(qǐng)?jiān)谙旅孢x擇所要修改的寢室, , 提示Exit SubEnd If39。 39。 39。 39。 39。 39。 39。 amp。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then delete from qinshi where 宿舍名稱=39。 and 寢室=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è)置效果圖圖 班級(jí)設(shè)置②界面制作與實(shí)現(xiàn)方法此界面制作與宿舍設(shè)置基本一致。然后點(diǎn)擊添加即可完成添加操作。Datagrid 也會(huì)即時(shí)更新其內(nèi)容。 amp。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc3 End Sub 數(shù)據(jù)備份數(shù)據(jù)備份是一個(gè)數(shù)據(jù)庫(kù)軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫(kù)表進(jìn)行全面的備份，以備以后使用。窗體初始化部分代碼如下：35學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M ThenEnd IfLoopOn Error GoTo errPathName = amp。 \Backup amp。 Format(Date, ) amp。 MB. = TrueEnd If37學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)Erro: Select Case Case 53 39。 txtSource amp。Jet OLEDB:Database Password=matrixse。 \ amp。 DBName = vbDefault = Restore Complete說(shuō)明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對(duì)其進(jìn)行修改后得到此成型作品，從功能上來(lái)講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過(guò)測(cè)試已經(jīng)沒(méi)有問(wèn)題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。選擇左面 list 中的一個(gè)表后，點(diǎn)擊導(dǎo)出后即可完成，進(jìn)度條中顯示當(dāng)前轉(zhuǎn)換進(jìn)度程度。Form 的 load 事件處理內(nèi)容如下： = amp。 amp。 amp。 datasource.CommandType = adCmdTable.RecordSource = .RefreshEnd With = = 039。用它們可以隨時(shí)記錄請(qǐng)假記錄。這里的添加操作用的是 Adodc 控件，所有的文本框在初始的時(shí)候沒(méi)有同 Adodc 綁定，而是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。注意的是，在添加前要確。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮鳌＠盟梢园褜W(xué)生的基本的請(qǐng)假資料保存起來(lái)。 39。 。 \dbasize = FileLen(PathName)數(shù)據(jù)轉(zhuǎn)換成 excel 用到了一個(gè)部件，在引用中用到了 Microsoft Object library。 amp。以便進(jìn)行選擇轉(zhuǎn)換。 數(shù)據(jù)轉(zhuǎn)換這個(gè)功能可以把當(dāng)前列表框中的任何一個(gè)表轉(zhuǎn)換成 excel 形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對(duì)表進(jìn)行操作，保存，修改，打印等。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Set Db = New DEFSOURCE amp。 amp。Persist Security Info=False。數(shù)據(jù)恢復(fù)也用到了一個(gè)方法，在模塊中也已經(jīng)定義了該方法 DoRestore。 \) lblSelectedDba = Selected Backup Database is : amp。 vbNullChar .pTo = strDestinationPath amp。點(diǎn)擊備份按鈕后開(kāi)始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！ , , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中 DoBackup 為模塊中已定義的方法，在這里進(jìn)行調(diào)用。 data source= amp。①數(shù)據(jù)備份效果圖圖 數(shù)據(jù)備份效果圖② 功能實(shí)現(xiàn) 界面制作相對(duì)程序來(lái)說(shuō)比較簡(jiǎn)單，用到的是 coolbar 控件，點(diǎn)擊按鈕可以選擇備份路徑。If = False ThenMsgBox 此班級(jí)已存在 , , 提示Exit SubEnd If = If = ThenMsgBox 輸入所要添加班級(jí)的名稱, , 提示Exit SubEnd If(class) = = class = Set = Adodc3修改班級(jí)源碼：If = 修改 Then = = 輸入想要修改的班級(jí)名稱 = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的班級(jí)名稱 (class) = = 修改End If34第四章 程序設(shè)計(jì)刪除班級(jí)源碼：If = ThenMsgBox 選擇所要?jiǎng)h除班級(jí)的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除班級(jí)名稱 為 amp。添加班級(jí)源碼： class=39。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改班級(jí)的名稱，此時(shí)即可輸入要修改的名字。以及起到美觀作用的 Frame 控件。 Trim() amp。 32第四章 程序設(shè)計(jì)Trim() amp。 寢室為 amp。實(shí)現(xiàn)的方法主要是對(duì) qinshi 表操作，先對(duì)其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹(shù)過(guò)程，把當(dāng)前寢室設(shè)置中的樹(shù)型結(jié)構(gòu)重新生成，更新記錄。 amp。 amp。 amp。 amp。 amp。 amp。 amp。點(diǎn)擊修改后完成此操作。 39。以顯示更新后的記錄。這個(gè)宿舍可以點(diǎn)擊下面的樹(shù)中的節(jié)點(diǎn)，也可以在列表框中選擇。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc1(2) 寢室設(shè)置①寢室設(shè)置效果圖圖 寢室設(shè)置②界面制作與實(shí)現(xiàn)方法此界面實(shí)現(xiàn)相對(duì)比宿舍設(shè)置來(lái)說(shuō)相對(duì)復(fù)雜一些。 Trim() amp。 amp。 amp。在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫(kù)已連接。Datagrid也會(huì)即時(shí)更新其內(nèi)容。然后點(diǎn)擊添加即可完成添加操作。還有一些就是對(duì)表記錄的復(fù)雜操作。包括宿舍添加、修改、刪除。當(dāng)當(dāng)前用戶感覺(jué)自己用戶名稱或密碼有泄露時(shí)，可以進(jìn)行修改。然后輸入此用戶的用戶名和密碼即可！添加用戶主要代碼：If = 添加 Then = False = False = False = 確定 = 取消 = True24第四章 程序設(shè)計(jì) = True = True = True = True = ElseIf = ThenMsgBox 用戶名不能為空！, 48, 提示ElseIf = ThenMsgBox 密碼不能為空！, 48, 提示ElseIf ThenMsgBox 密碼兩次需一致！, 48, 提示ElseIf = ThenMsgBox 請(qǐng)選擇所建用戶類型！, 48, 提示Else = True = True = True = True = 編輯 = 添加 = False = False = False = False = False = False = False = FalseEnd If刪除操作可以把當(dāng)前記錄刪除掉。管理員擁有對(duì)此軟件管理操作等一切的權(quán)力。移動(dòng)記錄 = TrueIf Then = FalseEnd If 39。上一條記錄與下一條的記錄在查看時(shí)有一個(gè)判斷。 。在窗體初始化的時(shí)候要判斷當(dāng)前數(shù)據(jù)庫(kù)表中是否有記錄，如果沒(méi)有記錄那么有些按鈕將會(huì)被設(shè)置成為失效狀態(tài)，否則會(huì)出現(xiàn)錯(cuò)誤。 amp。 。 datasourceEnd WithWith Adodc621學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn).Mode = adModeReadWrite.ConnectionString = provider amp。 amp。 。.RefreshEnd WithWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。設(shè)置普通用戶模式If = 普通用戶 Then = False19學(xué)生宿舍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) = False = False = False(5).Visible = False(6).Visible = False(7).Visible = False(8).Visible = FalseEnd If主窗體在程序運(yùn)行中會(huì)遇到不斷改變其大小，最小化，最大化，以及用鼠標(biāo)來(lái)改變，這里需要在窗體的 Resize 事件中添加代碼，讓程序中用到的各個(gè)控件隨時(shí)可以適應(yīng)窗體改變后的大小，在這里改變的控件主要有 DataGrid、TreeView 系列及 Frame 控件、StatusBar。 (3).Text = 用戶模式： amp。其中第二個(gè)和第三部分為動(dòng)態(tài)顯示的，它會(huì)顯示出每次用戶登錄名稱及其管理模式。 amp。②它的實(shí)現(xiàn)方法如下所示：Dim o As AdodcSet o = 這里主要是用到了 ado 對(duì)像的方法。由它制做的工具欄的顯示效果會(huì)更有立體感一些。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示欄以及狀態(tài)欄。 39。 amp。主要代碼如下：設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫(kù)Dim provider As StringDim datasource As String15第四章 程序設(shè)計(jì)provider = provider=datasource = data source= amp。管理員擁有對(duì)數(shù)據(jù)庫(kù)操作的一切權(quán)限。H808080 = amp。HE0E0E0 = amp。主要代碼如下： 在窗體中的鼠標(biāo)移動(dòng)過(guò)程中，以及在窗體初始化的時(shí)候，要把添加的線的.Visible 屬性設(shè)置為 False，只有在鼠標(biāo)按下的時(shí)候在改變其顏色即可。如果正確，那么它屬于哪種類型用戶。在做這個(gè)登錄面的時(shí)候想了很多，最后選擇了這種，感覺(jué)它看起來(lái)干凈，整齊。在程序中可以按 F1 或點(diǎn)擊幫助菜單來(lái)顯示此 文檔?？梢詫?duì)宿舍資產(chǎn)的收入或其它物品的入庫(kù)進(jìn)行記錄。 衛(wèi)生檢