【正文】 amp。 。 amp。 datasourceEnd WithWith Adodc6.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview部分樹形顯示的初始化在這里已經(jīng)做了幾個過程，調(diào)用即可。三、 系統(tǒng)管理 用戶管理①界面效果圖② 界面制作與實現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的yonghu表相聯(lián)。各個控件也與數(shù)據(jù)庫中表的字段綁定。在窗體初始化的時候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設(shè)置成為失效狀態(tài)，否則會出現(xiàn)錯誤。設(shè)置代碼如下：Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd With = False = FalseIf = 0 Then = False = False = False = FalseEnd If = 上一條與下一條的功能一目了然，它們可以對當(dāng)前表進行上一條記錄或下一條記錄依次查看。當(dāng)找到記錄后，可以對其進行相對的刪除、修改等操作。上一條記錄與下一條的記錄在查看時有一個判斷。當(dāng)表中記錄移到最前面（BOF）或最后面（EOF）時，會把上一條或下一條其中的一個按鈕的enable屬性設(shè)置為true。即不可以前查看或向后查看。上一條與下一條主要代碼如下： 39。移動記錄 = TrueIf Then = FalseEnd If 39。移動記錄 = TrueIf Then = FalseEnd If添加用戶可以添加使用該管理軟件的用戶。添加的時候可以選擇所添加人物的級別。軟件默認為兩個級別：管理員、普通用戶。管理員擁有對此軟件管理操作等一切的權(quán)力。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。沒有對記錄刪除等權(quán)力。在添加用戶時你可以選擇一個且必須選擇一個。然后輸入此用戶的用戶名和密碼即可！添加用戶主要代碼：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刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。刪除操作部分代碼：If = 1 Then = FalseEnd IfIf (MsgBox(你真的想刪除當(dāng)前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd If編輯操作可以對當(dāng)前所選擇的用戶進行編輯，可以修改其用戶名與密碼。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時，可以進行修改。修改記錄即更新表中的某一條記錄。編輯操作主要代碼如下： = False = True = True = True = True = True = True = 確定ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = FalseEnd If 公寓設(shè)置公寓設(shè)置可以說是本程序中一關(guān)鍵部分。因為所有的設(shè)置都在此進行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級的添加、修改和刪除操作。只有正確的對這些設(shè)置進行添加修改，才能輸入正確的記錄。這里主要涉及到的問題是datagrid的顯示，以及treeview及時形成新的結(jié)構(gòu)。還有一些就是對表記錄的復(fù)雜操作。在點擊sstab各版的時候，要在這時重新生成寢室設(shè)置中的樹型結(jié)構(gòu)，Select Case PreviousTab Case 0 Call startree1 Case 1 Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱)) I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 公寓設(shè)置① 公寓設(shè)置效果圖② 界面制作與實現(xiàn)方法在這個界面中主要用到了一個Sstab控件與一個顯示表中內(nèi)容的Datagrid控件。以及起到美觀作用的Frame控件。在右下角的文本框中可以輸入想要添加的公寓名稱。然后點擊添加即可完成添加操作。Datagrid中會立即刷新顯示更新內(nèi)容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可輸入要修改的名字。然后點擊更新就會完成此操作。Datagrid也會即時更新其內(nèi)容。刪除操作更為簡單，選擇想要刪除的公寓名稱，點擊刪除，確認后完成此操作。但是刪除后不會影響其它表中的數(shù)據(jù)。其它表的有關(guān)此公寓的信息還會存在。在進行所有操作前，先要確定數(shù)據(jù)庫已連接。在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對數(shù)據(jù)庫表進行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會給出提示，不存在，添加成功。 公寓名稱=39。 amp。 amp。 39。If = False ThenMsgBox 此公寓已存在, , 提示Exit SubEnd If = If = ThenMsgBox 輸入所要添加公寓的名稱, , 提示Exit SubEnd If添加：(公寓名稱) = = gongyu = Set = Adodc1修改公寓名稱：If = Then