Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Procedure for all forms
Message
From
04/11/2008 11:17:24
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP1
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01359518
Message ID:
01359536
Views:
21
Dear Sir,

While using below codes, I created a class named "permit" and droped this class on form.

When I run form it says

"Not Allowed" and form Executes properly instead of retrun.f.

But...

When I paste below codes on INIT event form THEH
Everything works fine and Form closes.

May in case of of droping class on form,
the class codes does not fire and Form's Init event firs first.

While using CLASS, what other codes should I use?

Please help
select u_right
locate for usno=m.usno and uname= juststem(sys(1271,thisform))
if found()
	if rights=0
		messagebox("Not Allowed",0+16+512,"User Rights")
		return.f.
	endif
else
	messagebox("User Not Found",0+16+512,"User Rights")
	return.f.
endif
Previous
Reply
Map
View

Click here to load this message in the networking platform