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

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

更新时间:2016-10-18:  来源:毕业论文
图4.12  密码修改界面
    Form_Load事件中写入“建立数据库连接”代码。
    控件“Command”本文来自辣%文,论.文/网,毕业论文 www.751com.cn 加7位QQ324'9114找原文——“保存”按钮的代码:
    在保存过程中,必须确保数据库的连接,然后执行Update语句将所有缓存在本地的编辑操作写回到数据库。
Dim strSQL As String
Dim strPASS As String
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 学生学号=" & Student_number & ""
        Set objRs.ActiveConnection = objCn
        objRs.Open (strSQL)
        strPASS = objRs.Fields("密码")
        If Text1 <> strPASS Then
            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.Fields("密码") = Text2.Text
            objRs.Update  '对数据进行保存
            objRs.Close           
            MsgBox "修改成功!", , "提示"           
            Text1 = ""
            Text2 = ""
            Text3 = ""                       
        End If
End If
对数据进行修改需要设置如下语句:objRs.CursorType = adOpenKeyset和objRs.LockType = adLockOptimistic。

(3) “电费查询”设计
 
图4.13  电费查询界面
主体程序在Form_Load中,代码如下:
    Dim strSQL As String
With objCn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=311359;Data Source=(local);" & "Initial Catalog=学生公寓管理系统"
.Open
End With
strSQL = "SELECT*FROM 电费查询 WHERE 寝室号=" & Dorm_number & ""
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL)
Text1 = Dorm_number
Text2 = objRs.Fields("电费余额")
Text3 = objRs.Fields("电费补助")
objCn.Close: Set objCn = Nothing: Set objRs = Nothing

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

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

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