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

JoaoNascimento

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

10 mensagens neste tópico

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Não consegui, o evento unload não é para fechar a conectação a base de dados?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
  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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

  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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora