Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Procedure for all forms
Message
De
04/11/2008 11:17:24
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP1
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01359518
Message ID:
01359536
Vues:
20
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform