Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Application Distribution
Message
From
30/01/2004 09:47:06
 
 
To
30/01/2004 09:30:12
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00871919
Message ID:
00872303
Views:
14
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform