【正文】 Icol 1)) If Fieldlen(Icol) Fieldlen1 Then (Icol).ColumnWidth = Fieldlen1 Fieldlen(Icol) = Fieldlen1 Else (Icol).ColumnWidth = Fieldlen(Icol) End If (Irow, Icol).Value = .Fields(Icol 1) End Select Next If Irow 1 Then If Not .EOF Then .MoveNext = + 1 End If Next With xlSheet .Range(.Cells(1, 1), .Cells(1, Icol 1)). = 黑體 .Range(.Cells(1, 1), .Cells(1, Icol 1)). = True .Range(.Cells(1, 1), .Cells(Irow, Icol 1)). = xlContinuous End With = True 39。 39。 Set xlApp = Nothing = NothingEnd With(1).Enabled = FalseCase 2Unload MeEnd Select 學(xué)生請(qǐng)假與違規(guī)在一個(gè)高校固定資產(chǎn)管理系統(tǒng)中是最常見(jiàn)的問(wèn)題了，所以在此軟件中加上了這兩項(xiàng)功能。用它們可以隨時(shí)記錄請(qǐng)假記錄。①學(xué)生請(qǐng)假記錄圖片顯示② 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來(lái)。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這里的添加操作用的是Adodc控件，所有的文本框在初始的時(shí)候沒(méi)有同Adodc綁定，而是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮?。第二是?dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問(wèn)題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫(xiě)，否則會(huì)提示輸入詳細(xì)信息。添加主要代碼如下：If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入詳細(xì)信息！, , 系統(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①學(xué)生違規(guī)記錄圖片顯示此界面與上面的請(qǐng)假記錄差不多。它主要是對(duì)學(xué)生的違規(guī)記錄做一個(gè)添加。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違規(guī)操作用的也是Adodc控件，所有的文本框在初始的時(shí)候也沒(méi)有同Adodc綁定，它也是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。其它操作同上面基本是一致的，對(duì)于違規(guī)在主界面的左側(cè)并沒(méi)有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進(jìn)行選擇查看。在這里所添寫(xiě)的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會(huì)提示的！②違規(guī)部分代碼如下：在load事件里對(duì)數(shù)據(jù)庫(kù)鏈接的處理，以及日期文本框的設(shè)置，代碼如下：provider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = qingjia.RefreshEnd With = Date = False確定無(wú)誤后，進(jìn)行添加，代碼如下：If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入詳細(xì)信息！, , 系統(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)生可以說(shuō)是一個(gè)高校固定資產(chǎn)管理系統(tǒng)中最常見(jiàn)到的問(wèn)題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來(lái)進(jìn)行填寫(xiě)，一定會(huì)十分麻煩，且保存也不是十分方便，在一些評(píng)比中也會(huì)忙的很遭。所以在這個(gè)軟件中編寫(xiě)了此功能。 公寓衛(wèi)生添加效果圖①在這個(gè)界面中主要用到了文本框以及起到美觀作用的frame控件。日期已經(jīng)設(shè)置成只讀屬性，檢查記錄的日期是不能隨便改寫(xiě)的。公寓名稱(chēng)可以在下拉列表框中進(jìn)行選擇，如果在下拉列表框中沒(méi)有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱(chēng)的正確性。寢室名稱(chēng)需要自己輸入。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫(xiě)，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不全標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒(méi)有你想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對(duì)此寢室減掉的分?jǐn)?shù)，單擊得分后面的文本框會(huì)自動(dòng)算出應(yīng)該得到的分?jǐn)?shù)。然后跟據(jù)得分的分?jǐn)?shù)，你要選擇該寢室的衛(wèi)生等級(jí)，衛(wèi)生等級(jí)為必選值且為固定值，正確的選擇此項(xiàng)可以在主界面的左側(cè)中快速對(duì)衛(wèi)生等級(jí)進(jìn)行查看。②公寓選擇欄中代碼的實(shí)現(xiàn)：Dim I As IntegerI = 1If 0 ThenDo While I ((公寓名稱(chēng))) I = I + 1LoopEnd If衛(wèi)生選擇欄中的代碼實(shí)現(xiàn)基本同上，它也是一個(gè)表中的字段值！Dim J As IntegerJ = 1If 0 ThenDo While J ((等級(jí))) J = J + 1LoopEnd If = 優(yōu)秀不合標(biāo)準(zhǔn)的衛(wèi)生記錄填寫(xiě)情況如下： (門(mén)窗不干凈) (地面不干凈) (陽(yáng)臺(tái)不干凈) (床鋪不整齊) (不疊被) (桌面不整齊) (書(shū)柜擺放不整齊)由于此窗體中涉及到公寓與寢室，在填寫(xiě)時(shí)要確定其名稱(chēng)的正確，所以在添加記錄前要對(duì)它們進(jìn)行檢查，如發(fā)現(xiàn)不存在的記錄，則顯示提示。檢查記錄時(shí)用的是adodc中的find命令。類(lèi)似于用戶(hù)登錄時(shí)的判斷，同樣記錄的輸入也要詳細(xì)。代碼如下： 公寓名稱(chēng)=39。 amp。 amp。 39。If = True ThenMsgBox 查無(wú)此公寓, , 提示Exit SubEnd If 寢室=39。 amp。 amp。 39。If = True ThenMsgBox 查無(wú)此寢室, , 提示Exit SubEnd IfIf = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入詳細(xì)信息！, , 系統(tǒng)提示Else確認(rèn)一切無(wú)誤后，開(kāi)始對(duì)所填寫(xiě)記錄進(jìn)行添加并顯示：With Adodc2..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .(8).Value = .(9).Value = .(10).Value = .(11).Value = .End WithSet = Adodc2 公寓資產(chǎn) 公寓資產(chǎn)可以及時(shí)對(duì)公寓里進(jìn)出財(cái)務(wù)進(jìn)行統(tǒng)計(jì)，以免遺忘，造成不必要的損失或不必要的麻煩，它的實(shí)現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對(duì)比來(lái)說(shuō)比上面的簡(jiǎn)單一些。不足的是目前只做出了入庫(kù)管理，對(duì)于出庫(kù)記錄還沒(méi)有實(shí)現(xiàn)。4. 6. 2 界面制作與實(shí)現(xiàn)方法日期的設(shè)置同上面一樣，只讀屬性。公寓名稱(chēng)與寢室名稱(chēng)要人工輸入，沒(méi)有選擇，這是因?yàn)榭紤]到它不會(huì)像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進(jìn)程，它沒(méi)有使用bo，沒(méi)有在窗體中進(jìn)行加載。窗體中的數(shù)量與單價(jià)在填寫(xiě)之后會(huì)自動(dòng)把總價(jià)格計(jì)算出來(lái)，類(lèi)似于上圖中的得分一樣。部分代碼如下：If = “” Or = “” Or = “” Then MsgBox “請(qǐng)輸入詳細(xì)信息！”, , “提示”ElseWith Adodc1..(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = .End WithSet = Adodc1 = “” = “” = “” = “” = “” = “”End If記錄查看可以讓你對(duì)已錄入的記錄進(jìn)行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個(gè)方面的查看：衛(wèi)生查看、請(qǐng)假查看、違規(guī)查看、資產(chǎn)查看。下面分別介紹。 衛(wèi)生查看①界面效果圖②界面制作與實(shí)現(xiàn)方法這是一個(gè)比較簡(jiǎn)單的窗體操作?？雌饋?lái)精簡(jiǎn)、小巧。它主要的功能是對(duì)已經(jīng)錄入的衛(wèi)生記錄進(jìn)行符合條件的查詢(xún)。在查詢(xún)類(lèi)別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點(diǎn)擊確定后即可以看到該日期的記錄。在進(jìn)行查詢(xún)前，要對(duì)所操作的表進(jìn)行綁定，代碼如下：Dim s As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = weigui.RefreshEnd With日期后面的下拉列表框中可以顯示出所有已經(jīng)錄入記錄的日期，它是通過(guò)對(duì)當(dāng)前表進(jìn)行分類(lèi)查詢(xún)后得到的結(jié)果，然后將其添加在bo中，實(shí)現(xiàn)代碼如下：s = select distinct 日期 from weishengWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdText.RecordSource = s.RefreshEnd WithFor I = 1 To ((日期))Next查看全部，即把當(dāng)前表中的記錄全部賦給當(dāng)前用來(lái)顯示的表格，按日期查看，則是在表中先進(jìn)行查詢(xún)，然后對(duì)結(jié)果進(jìn)行重綁定，在賦值。它們的判斷主要是通過(guò)單選框的選取來(lái)完成的，實(shí)現(xiàn)方法如下：s = If = True ThenSet = Adodc1ElseIf = True Thensql = select * from weisheng where 日期=39。 amp。 Trim(s) amp。 39。With Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me在記錄查看中還有其它三項(xiàng)查看方式，分別是請(qǐng)假、違規(guī)、資產(chǎn)三項(xiàng)記錄查看。它們的實(shí)現(xiàn)方法與窗體與上面的衛(wèi)生查看基本相同。①請(qǐng)假查看用它可以對(duì)當(dāng)前所有記錄以及有效日期內(nèi)的記錄進(jìn)行查看。代碼如下：Dim sql As StringDim s As Strings = If = True ThenSet = Adodc1ElseIf = True Thensql = select * from qingjia where 日期=39。 amp。 Trim(s) amp。 39。With Adodc3.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdText.RecordSource = sql.RefreshEnd WithSet = Adodc3End IfUnload Me在窗體的load中要設(shè)置已經(jīng)添加的日期，需要對(duì)表進(jìn)行條件查詢(xún)，代碼如下：s = sel