【正文】 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc2End IfCall dx1Unload Me32。 。 39。 amp。 amp。 datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withs = select distinct 日期 from zichanWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me③資產查看在Load事件設置了窗體運行時所有需要的東西。 。 39。 amp。 amp。 datasource.CommandType = adCmdTable.RecordSource = weigui.RefreshEnd Withs = select distinct 日期 from weiguiWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。在Load事件設置了窗體運行時所有需要的東西。 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me在窗體的load中要設置已經添加的日期，需要對表進行條件查詢，代碼如下：s = select distinct 日期 from qingjiaWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 。 39。 amp。①請假查看用它可以對當前所有記錄以及有效日期內的記錄進行查看。在記錄查看中還有其它三項查看方式，分別是請假、違規(guī)、資產三項記錄查看。這里主要包括四個方面的查看：衛(wèi)生查看、請假查看、違規(guī)查看、資產查看。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會提示的?、谶`規(guī)部分代碼如下：在load事件里對數(shù)據(jù)庫鏈接的處理，以及日期文本框的設置，代碼如下：provider = provider=datasource = data source= amp。其中的日期也是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以這里的違規(guī)操作用的也是Adodc控件，所有的文本框在初始的時候也沒有同Adodc綁定，它也是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。添加主要代碼如下：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 = Adodc1End If 學生違規(guī)①學生違規(guī)記錄圖片顯示此界面與上面的請假記錄差不多。第二是當進行記錄輸入時，發(fā)現(xiàn)問題不用輸入時，不按添加按鈕記錄就不會進行添加。這樣做在使用的時候有很大的方便之處。其中的日期是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以。①學生請假記錄圖片顯示② 界面制作與實現(xiàn) 此界面主要是對學生請假記錄做一個添加。四、 學生宿舍管理 學生請假 學生請假與違規(guī)在一個公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。 DBName = vbDefault = Restore Complete說明：本程序中此部分內容參考了網上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經實現(xiàn)了它所要完成的工作，經過測試已經沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。 vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Set Db = New DEFSOURCE amp。 \ amp。 amp。Jet OLEDB:Database Password=matrixse。Persist Security Info=False。 txtSource amp。數(shù)據(jù)恢復也用到了一個方法，在模塊中也已經定義了該方法DoRestore。 MB. = TrueEnd IfErro: Select Case Case 53 39。 \) lblSelectedDba = Selected Backup Database is : amp。 Format(Date, ) amp。 vbNullChar .pTo = strDestinationPath amp。 \Backup amp。點擊備份按鈕后開始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！, , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中DoBackup為模塊中已定義的方法，在這里進行調用。 \ strnSet rstschema = (adSchemaTables)Do Until temp = rstschema!Table_NameIf Left(temp, 1) M ThenEnd IfLoopOn Error GoTo errPathName = amp。 data source= amp。窗體初始化部分代碼如下：Dim n1 As Dim rstschema As Dim strn As StringSet n1 = New strn = provider=。①數(shù)據(jù)備份效果圖② 功能實現(xiàn) 界面制作相對程序來說比較簡單，用到的是coolbar控件，點擊按鈕可以選擇備份路徑。 的記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK Then End If = Set = Adodc3 End Sub 數(shù)據(jù)備份數(shù)據(jù)備份是一個數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當前數(shù)據(jù)庫表進行全面的備份，以備以后使用。If = False ThenMsgBox 此班級已存在, , 提示Exit SubEnd If = If = ThenMsgBox 輸入所要添加班級的名稱, , 提示Exit SubEnd If(class) = = class = Set = Adodc3修改班級源碼：If = 修改 Then = = 輸入想要修改的班級名稱 = 更新 = False = FalseElseIf = 更新 Then = True = True = 輸入想要添加的班級名稱(class) = = 修改E