(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