【導讀】高校是科研的陣地，后勤的公寓管理也應該一改傳統(tǒng)的人工管理，更加信息化，時代化，節(jié)省人力物力，提高效率。基于這一點，開發(fā)。本系統(tǒng)最大的特點是通用性、簡單操作性，適用于同行。業(yè)以及一些同類型的企業(yè)管理。隨著學校寄宿人員的增多，公寓管理。軟件從對學生的分房開始到最后的公寓管理全部電腦化。個學生的住宿情況,使公寓的管理效率更高，做的更好！隨著電腦的普及與應用，現在的管理也需要提升一個檔次。來的手工記錄管理模式轉變?yōu)殡娔X一體化管理。如各個公寓的分布特色，以及公寓的各。于普通的生活，比較真實一些。用起來十分麻煩、繁瑣，有些雖然簡單，但是功能上又不是十分完善，對這些軟件首先要進行取其精華，棄其糟粕，從而進行編寫。資產、記錄查看、記錄刪除、值班記錄、幫助制作。它目前在功能上，以及操作的簡便上有很大的。想，這也是本人在時間和精力上留下的遺憾。上最簡捷方便的管理軟件。用結構化程序設計方法。

　　

【正文】 ElseIf = “更新 ” Then = True = True = “輸入想要添加的公寓名稱 ” (“公寓名稱 ”) = “update qinshi set 公寓名稱 =?“ “? where 公 寓 名 稱=?“ Trim() “?“ = “修改 ” End If Set = Adodc1 Adodc Set = Adodc5 刪除公寓名稱 If = ““ Then MsgBox “選擇所要刪除公寓的名稱 ”, , “提示 ” Exit Sub End If If (MsgBox(“你真的想刪除公寓名稱為 “ “ 的記錄嗎？ ”, vbOKCancel, “系統(tǒng)提示 ”)) = vbOK Then End If = ““ Set = Adodc1 (2) 寢室設置 ①寢室設置效果圖 圖 寢室設置 ②界面制作與實現方法 此界面實現相對比公寓設置來說相對復雜一些。用到的控件主要是Sstab 與 Treeview。但是在程序方面比較復雜。 在添加一個寢室前先要選擇所要添加寢室所在的公寓。這個公寓可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇公寓后面的列表框中，而選中的節(jié)點會出現在寢室名稱里。你也可以自己進行添寫 ，確認公寓后即可添加完成了。添加后會把 Treeview重新刷新一下。以顯示更新后的記錄。 添加源碼： “公寓名稱 =?“ “?“ If = True Then MsgBox “此公寓不存在 ”, , “提示 ” Exit Sub End If If = ““ Or = ““ Then MsgBox “請輸入所要添加的寢室及其所屬公寓 ”, , “提示 ” Exit Sub End If With Adodc2 . .(0).Value = .(1).Value = . End With = ““ = ““ Call startree1 修改操作可以把當前選中的寢室進行名稱修改與其所屬公寓進行修改。當要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。當要對當前寢室的所屬公寓進行修改時，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點擊修改后完成此操作。但是這種操作不是常見。 修改源碼： “公寓名稱 =?“ “?“ If = True Then MsgBox “此公寓不存在 ”, , “提示 ” Exit Sub End If Dim sql As String On Error Resume Next If = ““ Or = ““ Then MsgBox “請在下面選擇所要修改的寢室 ”, , “提示 ” Exit Sub End If ?sql = “select * form qinshi where 公 寓 名 稱=?“ Trim() “? and 寢室 =?“ Trim() “?“ “update qinshi set 寢室 =?“ “?,公寓名稱 =?“ Trim() “?where 寢室 =?“ Trim() “?and 公寓名稱=?“ Trim() “?“ = ““ = ““ Call startree1 刪除操作可以刪除掉當前樹型顯示中的任何一個子節(jié)點，也就是這個樹型節(jié)點中的寢室名稱，注意的是，刪除后這個記錄只在 qinshi表中刪除，其相關記錄不會被刪除掉 的，如果想刪除，還需要人工操作。實現的方法主要是對 qinshi 表操作，先對其進行查詢，查詢當前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調用生成樹過程，把當前寢室設置中的樹型結構重新生成，更新記錄。實現的部分代碼如下所示： If = ““ Or = ““ Or = “公寓管理系統(tǒng) ” Then MsgBox “選擇所要刪除的寢室 ”, , “提示 ” Exit Sub End If If (MsgBox(“你真的想刪除 “ “ “ “寢室為 ” “ 的記錄嗎？ ”, vbOKCancel, “系統(tǒng)提示 ”)) = vbOK Then “delete from qinshi where 公寓名稱 =?“ Trim() “? and 寢室=?“ Trim() “?“ End If = ““ = ““ Call startree1 在 treeview 點擊的時候，上面的文本框中會顯示相應的記錄，這主要是對 treeview進行了設置，代碼如下： Private Sub TreeView1_NodeClick(ByVal Node As ) On Error Resume Next = = = = End Sub (3)班級設置 ①班級設置效果圖 圖 班級設置 ②界面制作 ist 中加載各表名。以便進行選擇轉換。添加表名部 分在 load 進行加載，其中的導出與取消按鈕是由 coolbar 制作而成。 Form 的 load事件處理內容如下： = “\icon\” Dim n1 As Dim rstschema As Dim strn As String Set n1 = New strn = “provider=?！? “data source=“ “\” strn Set rstschema = (adSchemaTables) Do Until temp = rstschema!Table_Name If Left(temp, 1) “M” Then temp End If Loop = 0 On Error GoTo err PathName = “\” dbasize = FileLen(PathName) 數據轉換成 excel 用到了一個部件，在引用中用到了 Microsoft Object library。轉換代碼如下： Select Case Case 1 Dim provider As String Dim datasource As String provider = “provider=” datasource = “data source=“ “\” With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider “?！? datasource .CommandType = adCmdTable .RecordSource = .Refresh End With = = 0 ?開始轉換 Dim Irow, Icol As Integer Dim Irowcount, Icolcount As Integer Dim Fieldlen() Dim xlApp As