Password on menu

[mannah07]

I have a application deployed on a server. Now I want to password a menu item so that only certain user can have access to that menu item. Is there a way out for this pls?.

 

[ChrisRChamberlain]

mannah07

Create a method/UDF called .mValidateUser or similar in your main.prg or other suitable form/object.

In the Skip For: option of the relevant menu option put :-

[COLOR=blue]oMain.mValidateUser()[/color]

write the method/UDF in such a way that if a certain user is running the app, you have

[COLOR=blue]RETURN .F.[/color]

otherwise

[COLOR=blue]RETURN .T.[/color]

FAQ184-2483 - answering getting answered.​

Chris
PDFcommander^tm.com
PDFcommander^tm.co.uk

 

[ChrisRChamberlain]

mannah07

Just in case you're not familiar with Skip For, if the expression being evaluated returns .T., the menu option will be disabled.

So in your method/UDF you could code something similar to

[COLOR=blue]DO CASE
CASE UPPE(ALLT(USERS.username)) = [FRED BLOGGS]
[tab]RETURN .F.
CASE UPPE(ALLT(USERS.username)) = [SAM SMITH]
[tab]RETURN .T.
ENDC[/color]

FAQ184-2483 - answering getting answered.​

Chris
PDFcommander^tm.com
PDFcommander^tm.co.uk