密码修改与数据库操作技巧
理解数据库设计和SQL操作 #生活技巧# #编程开发#
1.在设置修改密码时,容易弄不清楚在修改哪个密码,下面就来解决一下。
Private Sub cmdOK_Click()
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
txtSQL = "select*from user_Info where user_ID = '" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Trim(txtOldPassword.Text) = Trim(mrc.Fields(1)) Then
If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then
MsgBox "两次密码输入不同!", vbOKOnly + vbExclamation, "警告"
txtPassword1.SetFocus
txtPassword1.Text = ""
Else
txtSQL = "select*from user_Info where user_ID='" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.Fields(1) = txtPassword1.Text
mrc.Update
mrc.Close
MsgBox "密码修改成功!", vbOKOnly + vbExclamation, "修改成功"
Me.Hide
End If
Else
MsgBox "与数据库原密码不符,请重新输入原密码。"
txtOldPassword.SetFocus
txtOldPassword.Text = ""
txtPassword1.Text = ""
txtPassword2.Text = ""
End If
End Sub
2.如果没有你查询的消息,点完之后,不给用户一个反馈,就会以为还在加载中,所以要加一个提示框。
If mrc.EOF = True Then
MsgBox "没有该信息,请重新输入!", vbOKOnly + vbExclamation, "警告"
Else
MsgBox "查询成功!"
End If
3.如何让combo不可添加只能进行选择,只要改一个属性即可。
4.如何直接显示全部课程,并且不会出现重复添加的现象?
Private Sub cmdAdd_Click()
Dim i As Variant
If listAllCourse.ListIndex <> -1 Then
If listSelectCourse.ListIndex = 0 Then
listSelectCourse.AddItem listAllCourse.List(listAllCourse.ListIndex)
End If
For i = 0 To listSelectCourse.ListCount - 1
If listSelectCourse.List(i) = listAllCourse.List(listAllCourse.ListIndex) Then
Exit Sub
End If
Next
listSelectCourse.AddItem listAllCourse.List(listAllCourse.ListIndex)
End If
end sub
5.如何在点到第一条或者最后一条,提醒用户这是第一条或者最后一条了,不是一直循环。
Private Sub cmdNext_Click()
mrc.MoveNext
cmdPrevious.Enabled = True
If mrc.EOF Then
MsgBox "已经是最后一条了。"
cmdNext.Enabled = False
mrc.MoveLast
End If
Call viewData
End Sub
6.当数据全部删除后就会报错,数据库为空则不能继续运行,添加一条提醒,顺便解决掉这个问题吧。
Private Sub cmdDelete_Click()
Dim intMsgbox As Integer
myBookmark = mrc.Bookmark
intMsgbox = MsgBox("是否删除当前记录?", vbOKCancel, "删除当前记录")
If intMsgbox = vbOK Then
mrc.MoveNext
If mrc.EOF = True Then
mrc.MovePrevious
mrc.MovePrevious
If mrc.BOF = True Then
mrc.MoveNext
mrc.Delete
MsgBox "最后一条记录删除,记录为空!", vbOKOnly + vbExclamation, "警告"
Unload Me
Else
mrc.MoveFirst
myBookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
myBookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
mrc.Bookmark = myBookmark
Call viewData
End If
End Sub
哈哈哈,大概就是这些问题了,大家要是有什么更好的解决办法,可以给我留言呦。
网址:密码修改与数据库操作技巧 https://www.yuejiaxmz.com/news/view/560798
相关内容
SQL Server 菜鸟教程入门必备指南,轻松掌握数据库操作与查询技巧UniApp开发中的数据库操作指南 (uniapp 数据库)
Python SQLAlchemy与数据库交互操作完整指南
Oracle数据库数据安全面面观
SQL常用九大命令语句全解析,助你快速掌握数据库操作技巧
Oracle数据库日常维护技巧与最佳实践:提升性能与安全
Oracle数据库日常管理与维护技巧:提升SQL性能与数据安全
如何查看本地生活数据库
基于SSM框架的二手书交易管理系统设计与实现【项目源码+数据库+毕设论文+讲解视频】
达梦数据库