【正文】 稱，此時即可輸入要修改的名字。添加班級源碼： class=39。If = False ThenMsgBox 此班級已存在, , 提示Exit SubEnd If = If = ThenMsgBox 輸入所要添加班級的名稱, , 提示Exit SubEnd If(class) = = class = Set = Adodc3修改班級源碼：If = 修改 Then = = 輸入想要修改的班級名稱 = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的班級名稱(class) = = 修改End If刪除班級源碼：If = ThenMsgBox 選擇所要刪除班級的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除班級名稱 為 amp。①數據備份效果圖② 功能實現 界面制作相對程序來說比較簡單，用到的是coolbar控件，點擊按鈕可以選擇備份路徑。 data source= amp。點擊備份按鈕后開始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！, , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中DoBackup為模塊中已定義的方法，在這里進行調用。 vbNullChar .pTo = strDestinationPath amp。 \) lblSelectedDba = Selected Backup Database is : amp。數據恢復也用到了一個方法，在模塊中也已經定義了該方法DoRestore。Persist Security Info=False。 amp。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Set Db = New DEFSOURCE amp。 數據轉換這個功能可以把當前列表框中的任何一個表轉換成excel形式，轉換后你可以看到表中的內容，也可以對表進行操作，保存，修改，打印等。以便進行選擇轉換。 amp。 \dbasize = FileLen(PathName)數據轉換成excel用到了一個部件，在引用中用到了Microsoft Object library。 。 39。利用它可以把學生的基本的請假資料保存起來。第一是窗體在初始化時不會顯示任何記錄，不用設置文本框為空等一系列的操作。它主要是對學生的違規(guī)記錄做一個添加。 amp。 datasource.CommandType = adCmdTable.RecordSource = qingjia.RefreshEnd With = Date = False確定無誤后，進行添加，代碼如下：If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請輸入詳細信息！, , 系統(tǒng)提示ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .End WithSet = Adodc1公寓衛(wèi)生可以說是一個高校固定資產管理系統(tǒng)中最常見到的問題了。日期已經設置成只讀屬性，檢查記錄的日期是不能隨便改寫的。輸入完成后，在減分后面的文本框中輸入一共要對此寢室減掉的分數，單擊得分后面的文本框會自動算出應該得到的分數。類似于用戶登錄時的判斷，同樣記錄的輸入也要詳細。 39。 39。公寓名稱與寢室名稱要人工輸入，沒有選擇，這是因為考慮到它不會像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進程，它沒有使用bo，沒有在窗體中進行加載。下面分別介紹。在查詢類別中選擇可以選擇全部查看以及按日期查看。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 。①請假查看用它可以對當前所有記錄以及有效日期內的記錄進行查看。 39。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me在窗體的load中要設置已經添加的日期，需要對表進行條件查詢，代碼如下：s = select。 。 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me在記錄查看中還有其它三項查看方式，分別是請假、違規(guī)、資產三項記錄查看。 39。 datasource.CommandType = adCmdText.RecordSource = s.RefreshEnd WithFor I = 1 To ((日期))Next查看全部，即把當前表中的記錄全部賦給當前用來顯示的表格，按日期查看，則是在表中先進行查詢，然后對結果進行重綁定，在賦值。 amp。在進行查詢前，要對所操作的表進行綁定，代碼如下：Dim s As Stringprovider = provider=datasource = data source= amp。看起來精簡、小巧。部分代碼如下：If = “” Or = “” Or = “” Then MsgBox “請輸入詳細信息！”, , “提示”ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .End WithSet = Adodc1 = “” = “” = “” = “” = “” = “”End If記錄查看可以讓你對已錄入的記錄進行各種符合條件的查找，顯示符合條件的記錄。不足的是目前只做出了入庫管理，對于出庫記錄還沒有實現。 amp。 amp。②公寓選擇欄中代碼的實現：Dim I As IntegerI = 1If 0 ThenDo While I ((公寓名稱)) I = I + 1LoopEnd If衛(wèi)生選擇欄中的代碼實現基本同上，它也是一個表中的字段值！Dim J As IntegerJ = 1If 0 ThenDo While J ((等級)) J = J + 1LoopEnd If = 優(yōu)秀不合標準的衛(wèi)生記錄填寫情況如下： (門窗不干凈) (地面不干凈) (陽臺不干凈) (床鋪不整齊) (不疊被) (桌面不整齊) (書柜擺放不整齊)由于此窗體中涉及到公寓與寢室，在填寫時要確定其名稱的正確，所以在添加記錄前要對它們進行檢查，如發(fā)現不存在的記錄，則顯示提示。寢室名稱需要自己輸入。所以在這個軟件中編寫了此功能。 。其它操作同上面基本是一致的，對于違規(guī)在主界面的左側并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進行選擇查看。注意的是，在添加前要確定所有的文本框都要進行詳細填寫，否則會提示輸入詳細信息。這里的添加操作用的是Adodc控件，所有的文本框在初始的時候沒有同Adodc綁定，而是在代碼中與數據庫中表的字段進行的綁定，然后進行添加操作。用它們可以隨時記錄請假記錄。 datasource.CommandType = adCmdTable.RecordSource = .RefreshEnd With = = 039。 amp。 amp。Form的load事件處理內容如下： = amp。選擇左面list中的一個表后，點擊導出后即可完成，進度條中顯示當前轉換進度程度。 DBName = vbDefault = Restore Complete說明：本程序中此部分內容參考了網上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經實現了它所要完成的工作，經過測試已經沒有問題，但是實現的源代碼，也只有部分掌握。 \ amp。Jet OLEDB:Database Password=matrixse。 txtSource amp。 MB. = TrueEnd IfErro: Select Case Case 53 39。 Format(Date, ) amp。 \Backup amp。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M ThenEnd IfLoopOn Error GoTo errPathName = amp。窗體初始化部分代碼如下：Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc3 End Sub：數據備份是一個數據庫軟件必不可少的一部分，利用它可以把當前數據庫表進行全面的備份，以備以后使用。 amp。Datagrid也會即時更新其內容。然后點擊添加即可完成添加操作。End If = = Call startree1在treeview點擊的時候，上面的文本框中會顯示相應的記錄，這主要是對treeview進行了設置，代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As )On Error Resume Next = = = = End Sub(3)班級設置①班級設置效果圖②界面制作與實現方法此界面制作與公寓設置基本一致。 and 寢室=39。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then delete from qinshi where 公寓名稱=39。 amp。 39。 39。 39。 39。 39。 39。If = True ThenMsgBox 此公寓不存在, , 提示Exit SubEnd IfDim sql As StringOn Error Resume NextIf = Or = ThenMsgBox 請在下面選擇所要修改的寢室, , 提示Exit SubEnd If39。修改源碼： 公寓名稱=39。當要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當前寢室名稱改成要修改的寢室名稱，然后點擊修改即完成名稱修改操作。 amp。你也可以自己進行添寫，確認公寓后即可添加完成了。但是在程序方面比較復雜。 = 修改End IfSet = Adodc1Set = Adodc5刪除公寓名稱If = ThenMsgBox 選擇所要刪除公寓的名稱, , 提示Exit SubEnd IfIf (MsgBox(你真的想刪除公寓名稱為 amp。 where 公寓名稱=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。 公寓名稱=39。但是刪除后不會影響其它表中的數據。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可