毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 计算机论文 >> 正文

VB学生公寓管理系统设计毕业论文 第10页

更新时间:2016-10-18:  来源:毕业论文
  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
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。