Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Application Distribution
Message
From
30/01/2004 10:21:59
 
 
To
30/01/2004 09:47:06
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00871919
Message ID:
00872315
Views:
24
Yep, another READ EVENTS! You need to put a READ EVENTS/CLEAR EVENTS to have VFP wait for input at first and to continue at second. Here is the corrected code:
****************************
* Application menu

DO FORM Login
READ EVENTS

IF oVar.LoginOk
   DO FORM Logo
   READ EVENTS
ELSE
   **notify user
ENDIF
*********************************
Question: Is the Logo form a splash screem or an actual form that the user will interact with? If it's a splash screen, don't put the READ EVENTS after it but after the real main form is displayed.

HTH

>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()
>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?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform