VB中如何修改密码
form1是登陆窗体,form1里的text1是输入用户名。如何能在别的窗体里面修改当前登陆用户的密码?代码如下,可总是运行不正确。PrivateSubCommand1_...
form1是登陆窗体,form1里的text1是输入用户名。
如何能在别的窗体里面修改当前登陆用户的密码?
代码如下,可总是运行不正确。
Private Sub Command1_Click()
If Trim(Text2.Text) = Trim(Text3.Text) Then
sql = "select * from zlb where 用户名='" & Form1.Text1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, 1, 3
If Not rs.EOF Then
If Text1.Text = rs.Fields(1) Then
rs.Fields(1) = Text2.Text
rs.Update
MsgBox "密码修改成功!", , "密码修改:"
Set rs = Nothing
Unload Me
Else
MsgBox "旧密码输入错误!", , "密码修改:"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
Else
MsgBox "此用户不存在,请核实输入!", , "密码修改:"
End If
Else
MsgBox "前后两次密码输入不一致,请核查!", , "密码修改:"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
End If
End Sub
Private Sub Form_Load()
Call aa
End Sub
模块代码如下:
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String
Sub aa()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\...\Data\user.mdb;"
cn.Open sql
End Sub
sql = "select * from zlb where 用户名='" & Form1.Text1.Text & "'"
我已经引用了form1里的text1,可还出现错误。 展开
如何能在别的窗体里面修改当前登陆用户的密码?
代码如下,可总是运行不正确。
Private Sub Command1_Click()
If Trim(Text2.Text) = Trim(Text3.Text) Then
sql = "select * from zlb where 用户名='" & Form1.Text1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, 1, 3
If Not rs.EOF Then
If Text1.Text = rs.Fields(1) Then
rs.Fields(1) = Text2.Text
rs.Update
MsgBox "密码修改成功!", , "密码修改:"
Set rs = Nothing
Unload Me
Else
MsgBox "旧密码输入错误!", , "密码修改:"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
Else
MsgBox "此用户不存在,请核实输入!", , "密码修改:"
End If
Else
MsgBox "前后两次密码输入不一致,请核查!", , "密码修改:"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
End If
End Sub
Private Sub Form_Load()
Call aa
End Sub
模块代码如下:
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String
Sub aa()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\...\Data\user.mdb;"
cn.Open sql
End Sub
sql = "select * from zlb where 用户名='" & Form1.Text1.Text & "'"
我已经引用了form1里的text1,可还出现错误。 展开
展开全部
比如还有一个Form2
那你在Form2里面来修改Form1里的东西时,前面加上Form1. 就行了啊
比如要修改Form1里的一个按钮上的文字 那就这么写
Form1.CommandButton1.Caption = "aaaaaa"
那你在Form2里面来修改Form1里的东西时,前面加上Form1. 就行了啊
比如要修改Form1里的一个按钮上的文字 那就这么写
Form1.CommandButton1.Caption = "aaaaaa"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在模块中定义一个公共变量存储当前用户,全程序中到处可用多好,反正都有模块了!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
sql = "select * from zlb where 用户名='" & trim(Form1.Text1.Text )& "'" 和If Text1.Text = trim(rs.Fields(1)) Then 调试下看,有时候因为有空格而导致等式判断不成立。
可以将这个函数做成Main函数作为程序入口点。
sql = "select * from zlb where 用户名='" & trim(Form1.Text1.Text) & "'"
可以将这个函数做成Main函数作为程序入口点。
sql = "select * from zlb where 用户名='" & trim(Form1.Text1.Text) & "'"
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询