[VB6] proces afsluiten en opnieuw beginnen

[Dirkse1984]

Heb in een programma een wachtwoord functie gezet om in te loggen.
Gegevens worden uit de database gehaald.
Maar heb erin gezet als gebruikersnaam of wachtwoord fout zijn geeft hij een messagebox, en ook als er niks is ingevuld.

2 verschillende msgboxen dus.
Maar hoe zeg ik als hij aan de eerste regel voldoet, dus gegevens verkeerd ingevuld, dat hij vanaf dat punt niet verder gaat in de code's waar die andere msgbox staat, en weer terug gaat naar het begin, of een willekeurig punt in de code.
Dus dat je weer uitkomt waar je code begon van het inlogscherm.

Wel wat geprobeerd al, met refresh maar wil niet, is ook helemaal fout volgens mij, maar moet toch wat proberen.

Nu dus maar ff via deze manier.

Groet

[Verwijderd]

Waarom twee verschillende meldingen, je kunt niet ingevulde waarden toch ook zien als een niet geldige login ?

maar anders

code:

dim LoggedIn as boolean
Loggedin = false

do while not loggedin
  ( vraag gebruiker om login en wachtwoord)
  if (wachtwoord en login leeg) then
    msgbox "niet ingevuld"
  else
    if (login niet geldig) then
      msgbox "ongeldige login"
    else
      loggedin = true
    end if
  end if
loop

Maar dit lijkt me erg basic programmeren hoor !

[Verwijderd]

In principe kan je een niet ingevulde waarde toch ook als een foute waarde zien ? Dus gewoon 1 messagebox met acces denied of iets in die trend ? Maar wat FFrenzy zegt moet ook prima werken

[Dirkse1984]

Oke, bedankt allemaal, dat van die boolean zogt ik ja, maar wist niet goed hoe ik dat er nu precies tussen moest zetten.

Maar als ik dit zo invoer, dat staat er nog niet wat hij moet doen als de waarde False is.
Als hij false is, moet het proces stoppen, en moet je weer in kunnen inloggen i.p.v dat hij verder gaat met runnen.

Weet iemand dat voor mij?

[jorritv]

Het is mogelijk om bijvoorbeeld met het commando "exit sub" direkt de subroutine te verlaten.

code:

sub login()

if (wachtwoord en login leeg) then
  msgbox "niet ingevuld"
  exit sub
else
  if (login niet geldig) then
    msgbox "ongeldige login"
    exit sub
  end if
end if

end sub

[Dirkse1984]

oke bedankt, en dan begint hij na het opnieuw invoeren van wachtwoord weer van voor af aan neem ik aan.

Test het vanavond uit als ik uit m'n stage/ werk kom!!!

[Verwijderd]

Dirkse1984 schreef op 05 maart 2004 @ 08:30:
...Maar als ik dit zo invoer, dat staat er nog niet wat hij moet doen als de waarde False is.
Als hij false is, moet het proces stoppen, en moet je weer in kunnen inloggen i.p.v dat hij verder gaat met runnen....

Weet iemand dat voor mij?

de "Do while not loggedin.....Loop" zorgt ervoor dat je een oneindige lus krijgt die blijft lopen totdat loggedin true wordt...."

[Dirkse1984]

oke bedankt, moet het nog wel ff uitzoeken hoe dat precies werkt, maar dat doe ik zelf wel.

Moet het namelijk zelf toch leren he!

Thx!