Alterar a senha da caixa login e senha!

[Edson_vb6]

Boa noite!

Tenho um formulário de Login e senha em um programa que estou criando, e gostaria de criar um outro formulário para alteração do Login e Senha quando eu quisesse, sem ter que ficar alterando toda hora via código.

Desde já agradeço!

Abaixo vai o código do formulário Login e Senha:

Private Sub cmdOk_Click()

Dim Login, PalavraChave As String

Login = "t"

PalavraChave = "1"

If txtLogin.Text <> Login Or txtSenha.Text <> PalavraChave Then

MsgBox "USUÁRIO OU SENHA INCORRETA!!! - Tente novamente"

txtSenha.Text = ""

txtLogin.Text = ""

txtLogin.SetFocus

Else

frmCadastro.Show

Unload frmLogin

End If

End Sub

[Graymalkin]

E qual é, exatamente, a sua dúvida?

Abraços,

Graymalkin

[Edson_vb6]

Gostaria de saber como criar um form e o código que eu possa alterar o LOGIN e a SENHA desse meu form pronto!

Obrigado!

E qual é, exatamente, a sua dúvida?

Abraços,

Graymalkin

Bom dia!

Gostaria de saber como criar um form e o código que eu possa utilizar para alterar o LOGIN e a SENHA desse meu form pronto.

Obrigado!

[Graymalkin]

Você deveria ler o usuário e senha de algum lugar (arquivo texto, XML, banco de dados, Registry, etc.) e seria neste local que você alteraria. Você não pode fazer isso do jeito que está (com o usuário e a senha no próprio código do programa).

Abraços,

Graymalkin

[Edson_vb6]

Você deveria ler o usuário e senha de algum lugar (arquivo texto, XML, banco de dados, Registry, etc.) e seria neste local que você alteraria. Você não pode fazer isso do jeito que está (com o usuário e a senha no próprio código do programa).

Abraços,

Graymalkin

Ok! Entendi.

Vou tentar fazer no banco de dados e posto aqui se deu certo.

Obrigado!

[ƒ Edu ƒ]

Vamos lá meu amigo... Segue abaixo o código do form de login do meu programa. Da uma olhada, tente entende-lo. Depois pra fazer um form de alterar é bem facil:

Private Sub cmdOkLogin_Click()
Dim strbusca, strsenha As String
strbusca = txtLogin
strsenha = txtPass

If txtLogin = "" Then
  MsgBox "Favor inserir um nome de usuario.", vbInformation, "Aviso"
  txtLogin.SetFocus
Else
  Call Abrir_Banco 'Esta linha é uma função que contém a string de conexão com o banco de dados.
  sql = "select * from tblogin"
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open sql, bd, adOpenStatic, adLockOptimistic

    If frmLogin.txtLogin = rs!usuario And frmLogin.txtPass = rs!senha Then
      Unload Me
      frmMenu.Show
    Else
      MsgBox "Nome de usuario e senha incorretos", vbInformation, "Aviso"
      txtLogin.SetFocus
      rs.Close
    End If
    Set rs = Nothing
    bd.Close
End If
End Sub

Tenta fazer com banco de dados primeiramente, se der certo o login através do banco, você volta aqui, que eu te falo como alterar a senha também.

Abraço!

Editado Fevereiro 22, 2008 por ƒ Edu ƒ