Jump to content
JoaoNascimento

Como criar tela de login sem ser necessario ligação a base de dados

Recommended Posts

JoaoNascimento

Amiigos é o seguinte quero criar uma tela de login, onde nao seja preciso que esse form esteja ligado a abase de dados... O layout é o normal de um form de login...

UserName

Pass

Button Cancelar

Button Ok

Ajudem-me por favor!

Share this post


Link to post
Share on other sites
legd1991

boas

nao percebi a tua duvida...

queres ter um form de login que nao esta ligado a base de dados?

so se fizeres:

if (txt_user="user") and(txt_pass="pass") then
form_primcipal.show()
end if

edit: added geshy by Weasel

Share this post


Link to post
Share on other sites
JoaoNascimento

boas

nao percebi a tua duvida...

queres ter um form de login que nao esta ligado a base de dados?

so se fizeres:

if (txt_user="user") and(txt_pass="pass") then

form_primcipal.show()

end if

Amigo experimentei seu codigo e funcionou, ate acrescentei mai para caso o codigo nao seja o que eu desejo aparecer ua mensagem de erro. Agora minha duvida é como faço para que ao validar aqueles dados o form de login desapareça sem fechar o resto das janelas....

o codigo que tenho é o seguinte:

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (UsernameTextBox.Text = "Guest") And (PasswordTextBox.Text = "123456") Then
            Form1.Show()
        End If
        If Not (UsernameTextBox.Text = "Guest") And Not (PasswordTextBox.Text = "123456") Then
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
        End If
    End Sub

edit: geshi by Weasel

Share this post


Link to post
Share on other sites
legd1991

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (UsernameTextBox.Text = "Guest") And (PasswordTextBox.Text = "123456") Then
            Form1.Show()
            me.Close()
        End If
        If Not (UsernameTextBox.Text = "Guest") And Not (PasswordTextBox.Text = "123456") Then
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
        End If
    End Sub

edit: geshi by Weasel

Share this post


Link to post
Share on other sites
vbtipo

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (UsernameTextBox.Text = "Guest") And (PasswordTextBox.Text = "123456") Then
            Form1.Show()
            me.Close()
        End If
        If Not (UsernameTextBox.Text = "Guest") And Not (PasswordTextBox.Text = "123456") Then
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
        End If
    End Sub

Assim fica melhor

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (UsernameTextBox.Text = "Guest") And (PasswordTextBox.Text = "123456") Then
            Form1.Show()
            me.Close()
       else
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
        End If
    End Sub

edit: geshi by Weasel


Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Share this post


Link to post
Share on other sites
JoaoNascimento

Assim fica melhor

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (UsernameTextBox.Text = "Guest") And (PasswordTextBox.Text = "123456") Then
            Form1.Show()
            me.Close()
       else
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
        End If
    End Sub

edit: geshi by Weasel

Amigo já tentei assim com o me.closed() mas quando valida fecha o programa automaticamente todo... Ao carregar no botão ok fecha tudo....

Share this post


Link to post
Share on other sites
vbtipo

Amigo já tentei assim com o me.closed() mas quando valida fecha o programa automaticamente todo... Ao carregar no botão ok fecha tudo....

tiras o me.close() e pões o unload nomedoforme


Lema: Se eu não saber de alguma coisa não se preocupem porque tento sempre ajudar alguma coisita, nem que seja, por palpites/sugestões.

Share this post


Link to post
Share on other sites
bioshock
  If UsernameTextBox.Text = "Guest" And PasswordTextBox.Text = "123456" Then
            Form1.Show()
            me.hide
       else
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
             UsernameTextBox.Clear
             PasswordTextBox.Clear
        End If

Share this post


Link to post
Share on other sites
JoaoNascimento

  If UsernameTextBox.Text = "Guest" And PasswordTextBox.Text = "123456" Then
            Form1.Show()
            me.hide
       else
            MsgBox("Erro no Username ou na Password!", MsgBoxStyle.Information, "Erro")
             UsernameTextBox.Clear
             PasswordTextBox.Clear
        End If

Muito obrigado esta resolvido, não conhecia esse evento... Já aprendi algo... :D

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

×
×
  • Create New...

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.