【正文】 nd If刪除班級源碼：If = ThenMsgBox 選擇所要刪除班級的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除班級名稱 為 amp。 amp。添加班級源碼： class=39。Datagrid也會即時更新其內容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的名字。然后點擊添加即可完成添加操作。以及起到美觀作用的Frame控件。End If = = Call startree1在treeview點擊的時候，上面的文本框中會顯示相應的記錄，這主要是對treeview進行了設置，代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As )On Error Resume Next = = = = End Sub(3)班級設置①班級設置效果圖②界面制作與實現方法此界面制作與公寓設置基本一致。 Trim() amp。 and 寢室=39。 Trim() amp。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then delete from qinshi where 公寓名稱=39。 寢室為 amp。 amp。實現的方法主要是對qinshi表操作，先對其進行查詢，查詢當前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調用生成樹過程，把當前寢室設置中的樹型結構重新生成，更新記錄。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。If = True ThenMsgBox 此公寓不存在, , 提示Exit SubEnd IfDim sql As StringOn Error Resume NextIf = Or = ThenMsgBox 請在下面選擇所要修改的寢室, , 提示Exit SubEnd If39。 amp。修改源碼： 公寓名稱=39。點擊修改后完成此操作。當要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。 39。 amp。以顯示更新后的記錄。你也可以自己進行添寫，確認公寓后即可添加完成了。這個公寓可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。但是在程序方面比較復雜。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc1(2) 寢室設置①寢室設置效果圖②界面制作與實現方法此界面實現相對比公寓設置來說相對復雜一些。 = 修改End IfSet = Adodc1Set = Adodc5刪除公寓名稱If = ThenMsgBox 選擇所要刪除公寓的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除公寓名稱為 amp。 Trim() amp。 where 公寓名稱=39。 amp。If = False ThenMsgBox 此公寓已存在, , 提示Exit SubEnd If = If = ThenMsgBox 輸入所要添加公寓的名稱, , 提示Exit SubEnd If添加：(公寓名稱) = = gongyu = Set = Adodc1修改公寓名稱：If = ThenMsgBox 選擇要修改的公寓, , 提示Exit SubEnd IfIf = 修改 Then = = 輸入想要修改的公寓名稱 = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的公寓名稱(公寓名稱) = update qinshi set 公寓名稱=39。 amp。 公寓名稱=39。在進行所有操作前，先要確定數據庫已連接。但是刪除后不會影響其它表中的數據。Datagrid也會即時更新其內容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可輸入要修改的名字。然后點擊添加即可完成添加操作。以及起到美觀作用的Frame控件。還有一些就是對表記錄的復雜操作。只有正確的對這些設置進行添加修改，才能輸入正確的記錄。包括公寓添加、修改、刪除。編輯操作主要代碼如下： = False = True = True = True = True = True = True = 確定ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = FalseEnd If 公寓設置公寓設置可以說是本程序中一關鍵部分。當當前用戶感覺自己用戶名稱或密碼有泄露時，可以進行修改。所以在操作前要想好。然后輸入此用戶的用戶名和密碼即可！添加用戶主要代碼：If = 添加 Then = False = False = False = 確定 = 取消 = True = True = True = True = True = ElseIf = ThenMsgBox 用戶名不能為空！, 48, 提示ElseIf = ThenMsgBox 密碼不能為空！, 48, 提示ElseIf ThenMsgBox 密碼兩次需一致！, 48, 提示ElseIf = ThenMsgBox 請選擇所建用戶類型！, 48, 提示Else = True = True = True = True = 編輯 = 添加 = False = False = False = False = False = False = False = FalseEnd If刪除操作可以把當前記錄刪除掉。沒有對記錄刪除等權力。管理員擁有對此軟件管理操作等一切的權力。添加的時候可以選擇所添加人物的級別。移動記錄 = TrueIf Then = FalseEnd If 39。即不可以前查看或向后查看。上一條記錄與下一條的記錄在查看時有一個判斷。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False = FalseEnd If = 上一條與下一條的功能一目了然，它們可以對當前表進行上一條記錄或下一條記錄依次查看。 。 amp。在窗體初始化的時候要判斷當前數據庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設置成為失效狀態(tài)，否則會出現錯誤。三、 系統(tǒng)管理 用戶管理①界面效果圖② 界面制作與實現方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經連接到了數據庫，與數據庫的yonghu表相聯(lián)。 amp。 datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasourceEnd WithWith Adodc6.Mode = adModeReadWrite.ConnectionString = provide