Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Application Distribution
Message
De
30/01/2004 09:47:06
 
 
À
30/01/2004 09:30:12
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00871919
Message ID:
00872303
Vues:
15
Okay. I put the Clear Events in the Unload event of the LOGIN form. Here's what the code behine the Login form, Login button looks like now:

*************************
oVar.UserIdText = ALLTRIM(ThisForm.TxtUserName.Value)
oVar.UserPwdText = oPro.Encrypt(ALLTRIM(ThisForm.TxtPassword.Value))

&&Now Check for valid user id/password

IF !USED('V_sold_log')
USE ALLTRIM(ovar.sysdatapath) + 'ULAS!V_sold_log' IN 0 SHARED
ENDIF

SELECT V_sold_log
=REQUERY()

IF _tally > 0
oVar.LoginOk = .T.
THISFORM.Release()
ELSE

ENDIF
*****************************

Here's what my code in the main prg looks like now:

****************************
* Application menu
do form login.scx

Read Events

IF oVar.LoginOk = .T.
DO FORM logo.SCX
ELSE
**notify user
ENDIF
*********************************

The results: The login form disappears but the LOGO screen does not appear. So I'm sitting there with the vfp screen with nothing on it....
Did i miss a step?
Thanks in Advance.

J. Turner
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform