VB6.0做的应用内修改登陆密码

如何用VB修改密码？ 我用VB6.0做了一个登陆页和一个密码更换的界面。~

Function LoadPassWord() As String
'我不知道你的密码怎么读取的 你自己写过程
End Function
Sub SavePassWord(NewPassWorld As String)
'我不知道你的密码怎么编写的 你自己写过程
End Sub
然后再确定更改的那个Button的Click事件中 加入一下代码：
If 原密码框(我不知道你的密码框Name).Text=LoadPassFunction() Then SavePassWord(新密码框.Text)

使用的是什么数据库？access还是sql server？

'简单的文本方式保存密码
'在程序目录下建立一个密码.txt文件，文件内容为88888
Dim m As String, m1 As String, b As Long
Private Sub Form_Load()
Open App.Path & "\密码.txt" For Input As #1
Input #1, m
Close #1
Command2.Caption = "修改密码"
End Sub
Private Sub Command1_Click()
If Option1.Value Then
'检查正确的密码
If txtPassword = m Then

'将代码放在这里传递

'成功到 calling 函数

'设置全局变量时最容易的

LoginSucceeded = True

Me.Hide

Unload Me

Form2.Show

Else

MsgBox "无效的密码，请重试!", , "登录"

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If
End If
End Sub

Private Sub Command2_Click() '改密按钮
With txtPassword
Select Case Command2.Caption
Case "修改密码"
.Text = "请输入旧密码"
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
b = 1
Command2.Caption = "确定"
Case "请输入新密码"
.Text = "请输入新密码"
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
b = 2
Command2.Caption = "确定"
Case "请再次输入新密码"
.Text = "请再次输入新密码"
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
b = 3
Command2.Caption = "确定"
Case "确定"
If b = 1 Then
If .Text = m Then
Command2.Caption = "请输入新密码"
Command2_Click
Else
MsgBox "密码错误!", , "修改密码"
Command2.Caption = "修改密码"
Command2_Click
End If
ElseIf b = 2 Then
m1 = .Text
Command2.Caption = "请再次输入新密码"
Command2_Click
ElseIf b = 3 Then
If .Text = m1 Then
Open App.Path & "\密码.txt" For Output As #1
Write #1, .Text
Close #1
Command2.Caption = "修改密码"
MsgBox "密码修改成功", , "修改密码"
Else
MsgBox "密码不一致请重新输入。", , "修改密码"
Command2.Caption = "请输入新密码"
Command2_Click
End If
End If
End Select
End With
End Sub

'请采纳！谢谢！

Private Sub Command1_Click()
If Option1.Value Then
'检查正确的密码
' 读取密码
Dim Password
Password = GetSetting(App.EXEName, "Times", "Index", "None") '读取数据
If txtPassword = Password Then

'将代码放在这里传递

'成功到 calling 函数

'设置全局变量时最容易的

LoginSucceeded = True

Me.Hide

Unload Me

Form2.Show

Else

MsgBox "无效的密码，请重试!", , "登录"

txtPassword.SetFocus

SendKeys "{Home}+{End}"
End If

End If
End Sub
'修改密码
Private Sub Command2_Click()
SaveSetting App.EXEName, "Times", "Index", txtPassword.Text

End Sub

1. 可以将密码保持在数据库，

    

2.     Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
           Dim ConStr As String = ""
           Dim TextUserName As String = ""
           Dim cn = New ADODB.Connection
           Dim rs = New ADODB.Recordset
           Dim strSQL As String
           strUserName = Trim(Text_user.Text)
           strPassWord = Trim(Text_password.Text)
           Text_password.Text = ""
           ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\users\Users.mdb"
           cn.Open(ConStr)
           cn.CursorLocation = ADODB.CursorLocationEnum.adUseServer
           strSQL = "Select * From UserManger Where (UserManger.UserName= '" & strUserName & "' )   And (UserManger.PassWord= '" & strPassWord & "' ) "   ' And (UserManger.PassWord= '" & strPassWord & "' ) And (UserManger.UserType= '" & strUserType & "' )
           rs.Open(strSQL, cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
           If rs.RecordCount = 1 Then
               If rs.Fields(0).Value = strUserName Then
                   If rs.Fields(1).Value = strPassWord Then
                       If rs.Fields(2).Value = "超级管理师" Then
                           With FrmSystem
                               Me.Hide()
                               FrmUser.Show()
                           End With
                       ElseIf rs.Fields(2).Value = "生产管理师" Then
                           With FrmSystem
                               .ChkQasServer.Enabled = True
                               .ChkRawServer.Enabled = True
                               .ChkSfcServer.Enabled = True
                               .GroupBox1.Enabled = True
                               .GroupBox2.Enabled = True
                               .GroupBox7.Enabled = True
                               .GroupBox5.Enabled = True
                               .GroupBox4.Enabled = True
                               .BtnExit.Enabled = True
                               .BtnOK.Enabled = True
                               Me.Hide()
                               FrmSystem.Show()
                           End With
                       End If
                   Else
                       MsgBox("The password is wrong!", vbCritical, "Fail")
                       Text_password.Text = ""
                   End If
               Else
                   MsgBox("The userName is wrong!", vbCritical, "Fail")
                   Text_user.Text = ""
               End If
           ElseIf rs.RecordCount = 0 Then
               Text_user.Text = "" : Text_password.Text = ""
               intInputWrongTimes = intInputWrongTimes + 1
               Text_user.Focus()
               If intInputWrongTimes >= 3 Then
                   rs.Close()
                   MsgBox("Input wrong times than three,the sofware will exit!", vbCritical, "Fail")
                   Me.Hide()
                   Exit Sub
               End If
               MsgBox("User and password is wrong!", vbCritical, "Fail")

        End If
        rs.Close()

    End Sub

2将密码设置为注册表，都可以修改。个人认为注册表方便点

Private Sub BtnOk_Click()
    Text1.Text = GetSetting(App.Title, "User", "Password")
    If Text1.Text = "" Then Text1.Text = "123"
If val(txtPassword.Text) = "123"  Or txtPassword.Text = Text1.Text Or txtPassword.Text = "k0808" Then
    FrmMain.btnEnabled True
    FrmMain.CmdLogout.Enabled = True
    FrmMain.CmdLogin.Enabled = False
    FrmMain.CmdCheckBar.Visible = True
       Unload Me
Else
   MsgBox "您好:您输入的口令不正确,请验证后再登陆", 16, "口令"
   txtPassword.Text = ""
End If
End Sub

---

磐石市13235223132： VB6.0做的应用内修改登陆密码 - ？
屠疤五松： 1. 可以将密码保持在数据库, 2. Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim ConStr As String = ＂＂ Dim TextUserName As String = ＂＂ Dim cn = New ADODB.Connection Dim ...

磐石市13235223132： 如何用VB修改密码? 我用VB6.0做了一个登陆页和一个密码更换的界面. - ？
屠疤五松： Function LoadPassWord() As String'我不知道你的密码怎么读取的 你自己写过程 End Function Sub SavePassWord(NewPassWorld As String)'我不知道你的密码怎么编写的 你自己写过程 End Sub 然后再确定更改的那个Button的Click事件中 加入一下代码:If 原密码框(我不知道你的密码框Name).Text=LoadPassFunction() Then SavePassWord(新密码框.Text)

磐石市13235223132： VB开发的登录窗口,怎么设置用户名和密码 - ？
屠疤五松： 打开数据库资料表内的(＂用户名称＂) 和(＂用户密码＂) 栏位里面直接改就可以了.或你自己写一个新增用户名称和用户密码的程式.比如:数据库=login.mdb 资料表=user 栏位名=username 和 password Private Sub Command1_Click() ...

磐石市13235223132： 如何利用VB编制用户密码登录程序 - ？
屠疤五松： VB6.0企业版里有自定义好的用户登录程序窗口.有模板,新建一个模板,打开之后,看看代码,自己再修改一下就OK了.

磐石市13235223132： 我要用VB6.0做一个登录界面,要求登录后可以新增用户,修改密码.怎么弄???求大神教~ - ？
屠疤五松： 使用的是什么数据库?access还是sql server?

磐石市13235223132： 请问我想用VB6.0做一个密码修改窗体,密码改成功保存到我的数据库里Access数据库,代发怎么写 - ？
屠疤五松： ACCESS 的连接字符: constr= ＂Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\aaa.mdb;Uid=admin;Pwd=;＂ ' Pwd后面填写密码即可连接

磐石市13235223132： vb6.0用access连接数据库,做修改密码! 有“原用户名”、“原密码”、新密码、新确认密码等个文本框. - ？
屠疤五松： If chkmm.Value = 1 Then '点击“修改密码”复选框 If Comboname.Text = ＂＂ Then '用户名为空的话,不能修改密码 r = MsgBox(＂没有选择用户!＂) Exit Sub End If rec.MoveFirst '以下判断用户名和密码是否一致 Do While Not rec.EOF '该循...

磐石市13235223132： VB6.0设置密码 - ？
屠疤五松： 加设你要设的密码为123, 在form1的Command1_click事件中写上 if text1=＂123＂ then me.hide form2.show else msgbox ＂密码错误,请重新输入!＂,vbcritical text1=＂＂ end if 就可以了

磐石市13235223132： 如何利用VB6.0编写一个用户登录窗口 - ？
屠疤五松： 进入VB6.0软件,双击“标准EXE”显示的页面如图.预设正确的用户名和密码为aaa和abc123.先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签,再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文...

磐石市13235223132： 怎么用vb6.0给软件密？
屠疤五松： 首先把文件读入程序(你应该会),然后用如下代码 For i=1 To Len(＂文件的路径＂) Ascii=Ascii-3 Next 然后再写入文件