Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Login Screen Help
Message
De
28/01/2004 18:07:53
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Login Screen Help
Divers
Thread ID:
00871598
Message ID:
00871598
Vues:
63
I am needing a little assistance with how proceed. Here's the code that is in my setup.prg (main program)

do form login.scx

Once the login form opens, I would like to opne up a logo screen to serve as a background and open my menu bar. Here's the code that behind the Ok button of the Login screen:

oVar.UserIdText = ALLTRIM(ThisForm.Ttextcls1.Value)
oVar.UserPwdText = oPro.Encrypt(ALLTRIM(THISFORM.TTextcls2.Value))

&&Now Check for valid user id/password
m.lcGood = .F.

m.lcGood = oPro.Verify(oVar.UserIdText,oVar.UserPwdText)

IF m.lcGood = .T.
oVar.LoginOk = .T.
&& Valid User, Release login form, load logo screen and start menu
&& Start tracking user status from here--
thisform.release()
ELSE
oVar.LoginOk = .F.
&& Invalid user, display message box
ENDIF

My question is, upon a successful login, how do i cleanly close the login screen and open up a logo screen in addition to my menu bar?
Thanks in Advance.

J. Turner
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform