**************************** * 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.
>************************* >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....