Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Login Screen Help
Message
From
28/01/2004 18:07:53
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Login Screen Help
Miscellaneous
Thread ID:
00871598
Message ID:
00871598
Views:
64
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?
Thanks in Advance.

J. Turner
Next
Reply
Map
View

Click here to load this message in the networking platform