【正文】 與實現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的 操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的 yonghu表相聯(lián)。 在窗體初始化的時候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設(shè)置成為失效狀態(tài)，否則會出現(xiàn)錯誤。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = yonghu .Refresh 34 End With = False = False If = 0 Then = False = False = False = False End If = 上一條與下一條的功能一目了然，它們可以對當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。上一條記錄與下一條的記錄在查看時有一個判斷。即不可以前查看或向后查看。移動記錄 = True If Then = False End If 39。添加的時候可以選擇所添加人物的 級別。管理員擁有對 35 此軟件管理操作等一切的權(quán)力。沒有對記錄刪除等權(quán)力。然后輸入此用戶的用戶名和密碼即可！ 添加用戶主要代碼： 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 36 = 編輯 = 添加 = False = False = False = False = False = False = False = False End If 刪除操作可以把當(dāng)前記錄刪除掉。所以在操作前要想好。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時，可以進(jìn)行修改。 編輯操作主要代碼如下： = False = True 37 = True = True = True = True = True = 確定 ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = False End If 公寓設(shè)置 公寓設(shè)置可以說是本程序中一關(guān)鍵部分。包括公寓添加、修改、刪除。只有正確的對這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。還有一些就是對表記錄的復(fù)雜操作。以及起到美觀作用的 Frame 控件。然后點擊添加即可完成添加操作。要修改某條記錄時，要先對所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可輸入要修改的名字。 Datagrid 也會即時更新其內(nèi)容。但是刪除后不會影響其它表中的數(shù)據(jù)。 在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫已連接。 公寓名稱 =39。 amp。 If = False Then 40 MsgBox 此公寓已存在 , , 提示 Exit Sub End If = If = Then MsgBox 輸入所要添加公寓的名稱 , , 提示 Exit Sub End If 添加： (公寓名稱 ) = = gongyu = Set = Adodc1 修改公寓名稱： If = Then MsgBox 選擇要修改的公寓 , , 提示 Exit Sub End If If = 修改 Then = = 輸入想要修改的公寓名稱 = 更新 = False = False ElseIf = 更新 Then 41 = True = True = 輸入想 要添加的公寓名稱 (公寓名稱 ) = update qinshi set 公寓名稱 =39。 amp。 where 公寓名稱 =39。 Trim() amp。 = 修改 End If Set = Adodc1 Set = Adodc5 刪除公寓名稱 If = Then MsgBox 選擇所要刪除公寓的名稱 , , 提示 Exit Sub End If If (MsgBox(你真的想刪除公寓名稱為 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then End If = Set = Adodc1 (2) 寢室設(shè)置 42 ①寢室設(shè)置效果圖 圖 ②界面制作與實現(xiàn)方法 此界面實現(xiàn)相對比公寓設(shè)置來說相對復(fù) 雜一些。但是在程序方面比較復(fù)雜。這個公寓可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。你也可以自己進(jìn)行添寫，確認(rèn)公寓后即可添加完成了。以顯示更新后的記錄。 amp。 39。當(dāng)要對名稱進(jìn)行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當(dāng)前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。點擊修改后完成此操作。 修改源碼： 公寓名稱 =39。 amp。 If = True Then MsgBox 此公寓不存在 , , 提示 Exit Sub End If Dim sql As String 44 On Error Resume Next If = Or = Then MsgBox 請在下面選擇所要修改的寢室 , , 提示 Exit Sub End If 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。實現(xiàn)的方法主要是對 qinshi 表操作，先對其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹過程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。 amp。 寢室為 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then 45 delete from qinshi where 公寓名稱 =39。 Trim() amp。 and 寢室 =39。 Trim() amp。 End If = = Call startree1 在 treeview 點擊的時候，上面的文本框中會顯示相應(yīng)的記錄，這主要是對treeview 進(jìn)行了設(shè)置，代碼如下： Private Sub TreeView1_NodeClick(ByVal Node As ) On Error Resume Next = = = = End Sub (3)班級設(shè)置 ①班級設(shè)置效果圖 圖 ②界面制作與實現(xiàn)方法 46 此界面制作與公寓設(shè)置基本一致。以及起到美觀作用的 Frame控件。然后點擊添加即可完成添加操作。要修改某條記錄時，要先對所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的名字。 Datagrid 也會即時更新其內(nèi)容。 添加班級源碼： class=39。 amp。 If = False Then MsgBox 此班級已存在 , , 提示 Exit Sub End If = If = Then MsgBox 輸入所要添加班級的名稱 , , 提示 Exit Sub End If (class) = = class = Set = Adodc3 修改班級源碼： If = 修改 Then 47 = = 輸入想要修改的班級名稱 = 更新 = False = False ElseIf = 更新 Then = True = True = 輸入想要添加的班級名稱 (class) = = 修改 End If 刪除班級源碼： If = Then MsgBox 選擇所要刪除班級的名稱 , , 提示 Exit Sub End If If (MsgBox(你真的想刪除班級名稱 為 amp。 的記錄嗎？ , vbOKCancel, 系統(tǒng)提示 )) = vbOK Then End If = Set = Adodc3 End Sub 數(shù)據(jù)備份： 數(shù)據(jù)備份是一個數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫表進(jìn)行全面的備份，以備以后使用。 ① 數(shù)據(jù)備份效果圖 圖 ② 功能實現(xiàn) 界面制作相對程序來說比較簡單，用到的是 coolbar 控件，點擊按鈕可以選擇備份路徑。 窗體初始化部分代碼如下： Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = provider=。 data source= amp。 \ strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) M Then End If 49 Loop On Error GoTo err PathName = amp。點擊備份按鈕后開始備份，代碼如下： 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)用。 \Backup amp。 vbNullChar .pTo = strDestinationPath amp。 Format(Date, ) amp。 \) lblSelectedDba = Selected Backup Database is : amp。 MB. = True End If 51 Erro: Select Case Case 53 39。 數(shù)據(jù)恢復(fù)也用到了一個方法，在模塊中也已經(jīng)定義了該方法DoRestore。 txtSource amp。Persist Security Info=False。Jet OLEDB:Database Password=matrixse。 amp。 \ amp。 vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) Set Db = New DEFSOURCE amp。 DBName = vbDefault = Restore Complete 說明： 本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對其進(jìn)行修改后得到此成型作品，從功能上來講，它已經(jīng)實現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。 數(shù)據(jù)轉(zhuǎn)換 這個功能可以把當(dāng)前列表框中的任何一個表轉(zhuǎn)換成 excel 形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對表進(jìn)行操作，保存，修改，打印等。選擇左面 list 中的一個表后，點擊導(dǎo)出后即可完成，進(jìn)度條中 顯示當(dāng)前轉(zhuǎn)換進(jìn)度程度。以便進(jìn)行選擇轉(zhuǎn)換。 Form 的 load 事件處理內(nèi)容如下： = amp。 amp。 amp。 \ dbasize = FileLen(PathName) 數(shù)據(jù)轉(zhuǎn)換成 excel 用到了一個部件，在引用中用到了 Microsoft Object library。 amp。 。 datasource .CommandType = adCmdTable .RecordSource = .Refresh End With = = 0 39。 39。用它