機房管理系統(tǒng)課程設(shè)計報告書(編輯修改稿)
2025-02-14 22:05 本頁面
【文章內(nèi)容簡介】 39。計算機是否被使用Public Xh(80) As String 39。計算機使用者的學(xué)號Public Ks(80) As String 39。開始時間Public Js(80) As String 39。結(jié)束時間Public Sj(80) As String 39。使用時間Public Cx As Integer 39。查詢種類Form 1 （1） .所涉及的80臺計算機的顯示情況Private Sub Form_Load()For i = 1 To 80Jq(i) = TrueLabel1(i).Caption = Format(i, 00)NextEnd Sub（2） .用于完成指定計算機 Private Sub Text1_KeyPress(KeyAscii As Integer)jl = TrueIf KeyAscii = 13 ThenFor i = 1 To 80 If Xh(i) = Then Zd = i Call Xj jl = False End IfNext If jl = True Then End IfEnd IfEnd Sub（3）.計算上機時間并顯示Sub Kssj()Jq(Zd) = FalsePicture1(Zd).Picture = LoadPicture( amp。 \)Xh(Zd) = Ks(Zd) = Year(Now) amp。 amp。 Format(Month(Now), 00) amp。 amp。 Format(Day(Now), 00) amp。 Chr(13) amp。 Time = Xh(Zd) = Format(Zd, 00) = Ks(Zd) = (開始上機) = (開始上機)Form2指定對應(yīng)學(xué)號所使用的計算機 代碼如下：Dim i As IntegerPrivate Sub Command1_Click()Zd = ()Call Unload Form2End SubPrivate Sub Command2_Click()Unload Form2End SubP
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1