（4） “呼叫检修”设计
图4.14 呼叫检修界面
控件“Command”——“桶装水订购”按钮的设计：
If objRs.Fields("桶装水") = 1 Then
If MsgBox("信息已发送请勿重复发送!是否退出该操作界面", vbYesNo) = vbYes Then
objCn.Close: Set objCn = Nothing
Unload Me
Student_inform.Show
Else
MsgBox "请进行其他操作!", , "提醒"
End If
Else
If MsgBox("是否确认订购桶装水？", vbYesNo) = vbYes Then
objRs.Fields("桶装水") = 1
objRs.Update
MsgBox "信息已发送！", , "提醒"
End If
End If
控件“Command”——“呼叫检修”按钮的设计：
If objRs.Fields("检修") = 1 Then
If MsgBox("信息已发送请勿重复发送!是否退出该操作界面", vbYesNo) = vbYes Then
objCn.Close: Set objCn = Nothing
Unload Me
Student_inform.Show
Else
MsgBox "请进行其他操作!", , "提醒"
End If
Else
If MsgBox("是否确认呼叫检修？", vbYesNo) = vbYes Then
objRs.Fields("检修") = 1
objRs.Update
MsgBox "信息已发送！", , "提醒"
End If
End If
4.3.3 管理员信息界面的设计
在选择管理员登录，并成功登入后，将显示如图4.15的界面。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VB学生公寓管理系统设计毕业论文 第8页下载如图片无法显示或论文不完整，请联系qq752018766
