Jump to content
28_Ruben_28

Ajuda em VisualBasic 6.0 - Código Login

Recommended Posts

28_Ruben_28

Boas

é o seguinte eu fiz um código de login que faz com que o director de turma e o aluno entrem em forms diferentes, ou seja o director de turma entra no form2 e o aluno entra no form3. quando eu vou executar o programa quer faça login com o professor ou com o aluno vão sempre para o form2. em baixo fica o código ja feito, se me puderem ajudar a resolver este problema agradecia !!!

Private Sub Command3_Click()
Dim t As String
If c = 3 Then
MsgBox "Ultrapassou o nº de tentativas permitidas (3)! A APLICAÇÃO IRÁ ENCERRAR-SE!", vbOKOnly + vbCritical, "AVISO"
End
End If
If caixa = 1 Then
    If Text1 = "" Then
        MsgBox "Insira o seu nome de utilizador!"
        Text1.SetFocus
        Exit Sub
    End If
    If Text2 = "" Then
        MsgBox "Insira o sua palavra passe!"
        Text2.SetFocus
        Exit Sub
    End If
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from Login where login='" & Text1 & "' and Password = " & " '" & Text2 & "'" & ";"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount = 0 Then
        MsgBox "Utilizador ou Senha inválida!", vbOKOnly + vbExclamation, "AVISO"
            Text1 = ""
            Text2 = ""
            Text1.SetFocus
            c = c + 1
            Exit Sub
    Else
        If Adodc1.Recordset.Fields(1) <> Text2 Then
            MsgBox "Utilizador ou Senha inválida!", vbOKOnly + vbExclamation, "AVISO"
                Text1 = ""
                Text2 = ""
                Text1.SetFocus
                c = c + 1
                Exit Sub
        End If
        c = 0
        username = Text1
    
  End If
End If
If caixa = 2 Then
    If Text3 = "" Then
        MsgBox "Insira o seu nome de utilizador!"
        Text3.SetFocus
        Exit Sub
    End If
    If Text4 = "" Then
       MsgBox "Insira o sua palavra passe!"
      Text4.SetFocus
     Exit Sub
    End If
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from Login where login='" & Text3 & "' and Password = " & " '" & Text4 & "'" & ";"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount = 0 Then
        MsgBox "Utilizador ou Senha inválida!", vbOKOnly + vbExclamation, "AVISO"
        Text3 = ""
        Text4 = ""
        Text3.SetFocus
        c = c + 1
    Exit Sub
    Else
        If Adodc1.Recordset.Fields(1) <> Text4 Then
                MsgBox "Utilizador ou Senha inválida!", vbOKOnly + vbExclamation, "AVISO"
                Text3 = ""
                Text4 = ""
                Text3.SetFocus
                c = c + 1
                Exit Sub
        End If
        c = 0
        username = Text3
        Form3.Show
    End If
End If
tipo = Adodc1.Recordset.Fields(4)
If tipo = "DT" Then
  Form2.Show
End If
If tipo = "Aluno" Then
    Form3.Show
End If
Unload Me
End Sub

CumpZZzzzzz :::......

Share this post


Link to post
Share on other sites
thoga31

Isto é VB, mas em que versão? 6 ou anterior? Ou superior?


Knowledge is free!

Share this post


Link to post
Share on other sites
vbtipo

Faz assim e diz o resultado

tipo = Adodc1.Recordset.Fields(4)
msgbox tipo


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

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.