SkullBizarre
Membro
Boas!
Este é o meu primeiro post neste forum.
Estou a fazer um trabalho e preciso do codigo para o login.
Estou a usar o VisualStudio, com o projecto em VB.
Criei um formulario de login (automatico . faz encriptacao das pwds e isso td) mas nao estou a conseguir fazer a comparacao dos campos da tabela com os dados inseridos nas text boxes.
Tenho uma tabela com Username e Password no dataset.
Como faço a comparaçao?
Neste codigo 'Data_utilizadores' refere-se a quê?
Pensei em fazer uma query com parametros a retornar o valor da tabela, sendo o parametro o texto introduzido na textbox.
Mais tarde espero poder por aqui o codigo a que me refiro.
Gostava de receber alguma ajuda entretanto.
Obrigado.
Ja resolvi o problema.
Fica aqui o codigo:
O login mante-se aberto, mas escondido.
Quando se fecha o Form1 (form principal) pode fechar-se tambem a janela do login, editando em Form1.Designer.vb o codigo:
Espero que ajude tambem em duvidas futuras =)
Este é o meu primeiro post neste forum.
Estou a fazer um trabalho e preciso do codigo para o login.
Estou a usar o VisualStudio, com o projecto em VB.
Criei um formulario de login (automatico . faz encriptacao das pwds e isso td) mas nao estou a conseguir fazer a comparacao dos campos da tabela com os dados inseridos nas text boxes.
Tenho uma tabela com Username e Password no dataset.
Como faço a comparaçao?
Tinha isto para aqui que tinha feito para a escola espero que dê para tirares alguma ideia:
Private Sub cmd_ok_Click()
Data_utilizadores.RecordSource = "SELECT utilizadores.username, utilizadores.password From utilizadores WHERE (((utilizadores.username)='" & Text_utilizador.Text & "'));"
Data_utilizadores.Refresh
If Data_utilizadores.Recordset.EOF Then
MsgBox "Utilizador desconhecido"
ElseIf Data_utilizadores.Recordset.Fields("password") = Text_password.Text Then
Unload Me
principal.Show
Else
MsgBox "Passsword Incorrecta"
End If
End Sub
Neste codigo 'Data_utilizadores' refere-se a quê?
Pensei em fazer uma query com parametros a retornar o valor da tabela, sendo o parametro o texto introduzido na textbox.
Mais tarde espero poder por aqui o codigo a que me refiro.
Gostava de receber alguma ajuda entretanto.
Obrigado.
Ja resolvi o problema.
Fica aqui o codigo:
Código:
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If Me.LoginTableAdapter.FillLogin(Me.TrabalhoDataSet2.Login, Me.UsernameTextBox.Text, Me.PasswordTextBox.Text) Then
Form1.Show()
Me.Visible = False
Else
MessageBox.Show("Password ou Username invalidos!")
Me.Refresh()
End If
End Sub
Quando se fecha o Form1 (form principal) pode fechar-se tambem a janela do login, editando em Form1.Designer.vb o codigo:
Código:
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
LoginForm1.Close() <---
End Sub
Última edição pelo moderador: