Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Login Screen Help
Message
De
29/01/2004 05:59:26
 
 
À
28/01/2004 18:07:53
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00871598
Message ID:
00871711
Vues:
14
Jeffrey,

Your login form (modal) can return a T/F flag (in the UNLOAD() event) depending on successful input of userid and password etc. Your main code can then check for this and decide whether to continue or not. e.g:

DO FORM mPLANSplash
llGotPassword = .F.
DO FORM sysLOGONDLOG to llGotPassword
If llGotPassword
DO FORM sysSplashForm
* Rest of your code to get the system going, etc.
Endif


>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?
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform