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

图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