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

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

更新时间:2016-10-18:  来源:毕业论文
图4.16  管理员添加界面
如图4.16所示为管理员添加界面,该界面中,控件“Command”——“确定”按钮的代码如下:
Dim strSQL As String本文来自辣%文,论.文/网,毕业论文 www.751com.cn 加7位QQ324'9114找原文

If Text1.Text = "" Then
        MsgBox "工号不能为空", vbOKOnly, "提示"
        Text1.SetFocus
        Text1.SelStart = 0: Text1.SelLength = Len(Text1)
Else
        objRs.CursorType = adOpenKeyset
        objRs.LockType = adLockOptimistic
        strSQL = "SELECT*FROM 管理员登录信息 WHERE 管理员工号=" & Text1 & ""
        Set objRs.ActiveConnection = objCn
        objRs.Open (strSQL)    
        If objRs.RecordCount > 0 Then  'objRs.RecordCount 的作用是记录在记录集中符合所查找信息的数据的个数
            MsgBox "工号重复,请重试!", , "提示"
            Text1.SetFocus
            Text1.SelStart = 0: Text1.SelLength = Len(Text1)
            objRs.Close      
        ElseIf Text2 <> Text3 Then
            MsgBox "密码确认出错,请重试!", , "提示"
            Text2.SetFocus
            Text2.SelStart = 0: Text2.SelLength = Len(Text2)
            Text3 = ""
            objRs.Close       
        Else
            objRs.AddNew   
            objRs.Fields("管理员工号") = Text1.Text
            objRs.Fields("管理员密码") = Text2.Text               
            objRs.Update   
            objRs.Close           
            MsgBox "添加成功!", , "提示"           
            Text1 = ""
            Text2 = ""
            Text3 = ""                       
        End If
End If

 << 上一页  [11] 

VB学生公寓管理系统设计毕业论文 第11页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

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