Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

kalex

Problemas com Login (base de dados)

Recommended Posts

kalex

Olá! estou a desenvolver um programa para fazer a manutenção de um hotel (reservas, funcionários, clientes..)

Tenho uma base de dados ligada onde insiro novas reservas e novos funcionários, no caso dos funcionários também guarda o nome de utilizador e a password, e tenho uma form de login na qual quando se inserir a informação correta do funcionário (nome de utilizador e password), abre outra form com a informação do funcionário (nome, horário de trabalho..)

O meu problema é que eu crio um funcionário, vou fazer login e funciona tudo bem, abre a outra form com a informação do mesmo, mas quando crio o segundo funcionário só consigo fazer login com os dados do segundo funcionário, se tentar com os dados do primeiro não funciona, isso acontece se criar 3, 4..

Alguma sugestão?

Agradeço desde já!

Share this post


Link to post
Share on other sites
tiago.f

Nao estarás a substituir o primeiro funcionário pelo 2º, em vez de adicionares ?

(Podem ser mil e uma outras razões)

Mostra o código

Share this post


Link to post
Share on other sites
kalex

Nao estarás a substituir o primeiro funcionário pelo 2º, em vez de adicionares ?

(Podem ser mil e uma outras razões)

Mostra o código

Boas!

A parte do registro do funcionário:

Public Class cadfun

Private Sub cadfun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CadfunTableAdapter.Fill(Me.CadfuncionarioDataSet.cadfun)

Me.cadfunBindingSource.AddNew()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If NomeTextBox.Text <> "" Then

MsgBox("Funcionário salvo com sucesso")

Me.Validate()

Me.CadfunBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.CadfuncionarioDataSet)

''''

Else

MsgBox("Introduza o nome do funcionário")

End If

End Sub

Aspeto da form de registro do funcionário: http://i.imgur.com/C0VVjIe.png

Form de login:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = cadfun.Nome_de_utilizadorTextBox.Text And TextBox2.Text = cadfun.PasswordTextBox.Text Then

MsgBox("Login do funcionário efetuado com sucesso")

End If

End Sub

End Class

ps: textbox1 = username da form de login

textbox2 = password da form de login

Nome_de_utilizadorTextBox = username da form de registro do funcionário

PasswordTextBox.Text = password da form de registro do funcionário

obrigado!




Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.