【文章內容簡介】 odeReadWrite.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部分樹形顯示的初始化在這里已經做了幾個過程，調用即可。①界面效果圖② 界面制作與實現(xiàn)方法 這個界面總體來說各個控件比較簡單，但是作為一個添加刪除管理員的操作，它已經連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的yonghu表相聯(lián)。各個控件也與數(shù)據(jù)庫中表的字段綁定。在窗體初始化的時候要判斷當前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設置成為失效狀態(tài)，否則會出現(xiàn)錯誤。設置代碼如下：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 = 上一條與下一條的功能一目了然，它們可以對當前表進行上一條記錄或下一條記錄依次查看。當找到記錄后，可以對其進行相對的刪除、修改等操作。上一條記錄與下一條的記錄在查看時有一個判斷。當表中記錄移到最前面（BOF）或最后面（EOF）時，會把上一條或下一條其中的一個按鈕的enable屬性設置為true。即不可以前查看或向后查看。上一條與下一條主要代碼如下： 39。移動記錄 = TrueIf Then = FalseEnd If 39。移動記錄 = TrueIf Then = 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刪除操作可以把當前記錄刪除掉。一經刪除即不可以在恢復。所以在操作前要想好。刪除操作部分代碼：If = 1 Then = FalseEnd IfIf (MsgBox(你真的想刪除當前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd If編輯操作可以對當前所選擇的用戶進行編輯，可以修改其用戶名與密碼。當當前用戶感覺自己用戶名稱或密碼有泄露時，可以進行修改。修改記錄即更新表中的某一條記錄。編輯操作主要代碼如下： = False = True = True = True = True = True = True = 確定ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = = False = False = False = False = False = False = False = FalseEnd If 公寓設置公寓設置可以說是本程序中一關鍵部分。因為所有的設置都在此進行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級的添加、修改和刪除操作。只有正確的對這些設置進行添加修改，才能輸入正確的記錄。這里主要涉及到的問題是datagrid的顯示，以及treeview及時形成新的結構。還有一些就是對表記錄的復雜操作。在點擊sstab各版的時候，要在這時重新生成寢室設置中的樹型結構，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) 公寓設置① 公寓設置效果圖② 界面制作與實現(xiàn)方法在這個界面中主要用到了一個Sstab控件與一個顯示表中內容的Datagrid控件。以及起到美觀作用的Frame控件。在右下角的文本框中可以輸入想要添加的公寓名稱。然后點擊添加即可完成添加操作。Datagrid中會立即刷新顯示更新內容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可輸入要修改的名字。然后點擊更新就會完成此操作。Datagrid也會即時更新其內容。刪除操作更為簡單，選擇想要刪除的公寓名稱，點擊刪除，確認后完成此操作。但是刪除后不會影響其它表中的數(shù)據(jù)。其它表的有關此公寓的信息還會存在。在進行所有操作前，先要確定數(shù)據(jù)庫已連接。在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對數(shù)據(jù)庫表進行查找，判斷當前輸入記錄是否已在表中存在，如果已存在，則會給出提示，不存在，添加成功。 公寓名稱=39。 amp。 amp。 39。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。 amp。 39。 where 公寓名稱=39。 amp。 Trim() amp。 39。 = 修改End IfSet = Adodc1Set = Adodc5刪除公寓名稱If = ThenMsgBox 選擇所要刪除公寓的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除公寓名稱為 amp。 amp。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc1(2) 寢室設置①寢室設置效果圖②界面制作與實現(xiàn)方法此界面實現(xiàn)相對比公寓設置來說相對復雜一些。用到的控件主要是Sstab與Treeview。但是在程序方面比較復雜。在添加一個寢室前先要選擇所要添加寢室所在的公寓。這個公寓可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇公寓后面的列表框中，而選中的節(jié)點會出現(xiàn)在寢室名稱里。你也可以自己進行添寫，確認公寓后即可添加完成了。添加后會把Treeview重新刷新一下。以顯示更新后的記錄。添加源碼： 公寓名稱=39。 amp。 amp。 39。If = True ThenMsgBox 此公寓不存在, , 提示Exit SubEnd IfIf = Or = ThenMsgBox 請輸入所要添加的寢室及其所屬公寓, , 提示Exit SubEnd IfWith Adodc2..(0).Value = .(1).Value = .End With = = Call startree1修改操作可以把當前選中的寢室進行名稱修改與其所屬公寓進行修改。當要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。當要對當前寢室的所屬公寓進行修改時，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點擊修改后完成此操作。但是這種操作不是常見。修改源碼： 公寓名稱=39。 amp。 amp。 39。If = True ThenMsgBox 此公寓不存在, , 提示Exit SubEnd IfDim sql As StringOn Error Resume NextIf = Or = ThenMsgBox 請在下面選擇所要修改的寢室, , 提示Exit SubEnd If39。sql = select * form qinshi where 公寓名稱=39。 amp。 Trim() amp。 39。 and 寢室=39。 amp。 Trim() amp。 39。 update qinshi set 寢室=39。 amp。 amp。 39。,公寓名稱=39。 amp。 Trim() amp。 39。where 寢室=39。 amp。 Trim() amp。 39。and 公寓名稱=39。 amp。 Trim() amp。 39。 = = Call startree1刪除操作可以刪除掉當前樹型顯示中的任何一個子節(jié)點，也就是這個樹型節(jié)點中的寢室名稱，注意的是，刪除后這個記錄只在qinshi表中刪除，其相關記錄不會被刪除掉的，如果想刪除，還需要人工操作。實現(xiàn)的方法主要是對qinshi表操作，先對其進行查詢，查詢當前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調用生成樹過程，把當前寢室設置中的樹型結構重新生成，更新記錄。實現(xiàn)的部分代碼如下所示：If = Or = Or = 高校固定資產管理系統(tǒng)系統(tǒng) ThenMsgBox 選擇所要刪除的寢室, , 提示Exit SubEnd IfIf (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點擊的時候，上面的文本框中會顯示相應的記錄，這主要是對treeview進行了設置，代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As )On Error Resume Next = = = = End Sub(3)班級設置①班級設置效果圖②界面制作與實現(xiàn)方法此界面制作與公寓設置基本一致。在這個界面中主要用到了一個Sstab控件與一個顯示表中內容的Datagrid控件。以及起到美觀作用的Frame控件。在右下角的文本框中可以輸入想要添加的班級名稱。然后點擊添加即可完成添加操作。Datagrid中會立即刷新顯示更新內容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的