End If
Rs_stud.Close
为下一个寝室编写代码:
objRs.MoveNext
If objRs.EOF Then
objRs.MoveLast
End If
Dorm_number = objRs.Fields("寝室号")
If objRs.Fields("桶装水") = 1 Then
Command7.BackColor = " &HFFFF00 "
Else
Command7.BackColor = " &H8000000F "
End If
If objRs.Fields("检修") = 1 Then
Command8.BackColor = " &H000000FF "
Else
Command8.BackColor = " &H8000000F "
End If
strSQL_stud = "SELECT*FROM 学生信息 WHERE 寝室号 LIKE '" & Dorm_number & " % '" '打开第二个表
Set Rs_stud.ActiveConnection = objCn
Rs_stud.CursorLocation = adUseClient
Rs_stud.Open (strSQL_stud)
If Rs_stud.RecordCount >= 4 Then
Command9.BackColor = "&H0080FFFF"
Else
Command9.BackColor = " &H8000000F "
End If
Rs_stud.Close
objRs.Close
界面中为设置响应,增设了数量较多的“Command”按钮(宿舍空满状态中代码为空),以下是该按钮的代码(选取一个按钮进行代码介绍):
Dim d_number As String
d_number = 101
strSQL = "SELECT*FROM 呼叫检修 WHERE 寝室号 = " & d_number & ""
Set objRs.ActiveConnection = objCn
objRs.CursorLocation = adUseClient
objRs.Open (strSQL)
If objRs.Fields("桶装水") = 1 Then
objRs.Fields("桶装水") = " 0"
Command1.BackColor = " &H8000000F "
objRs.Update
End If
objRs.Close
(2) “系统”菜单的设计
在系统菜单中含有“管理员添加”,“管理员删除”和“密码修改”三个部分,其中“密码修改”和学生信息窗口中的密码修改在代码方面差异不大,在此不再介绍。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VB学生公寓管理系统设计毕业论文 第10页下载如图片无法显示或论文不完整,请联系qq752018766