hola foro !!!
esperando me puedan ayudar les doy las gracias de antemano, y es con lo siguiente.
tengo un formulario (ENTRADA) donde el usuario ingresara su nombre y su clave esto los
direccionara a su sistema. la tabla que utiliza este formulario tiene 5 campos esta como
se los muestro abajo

Nombre Clave Carpeta Ejecutable Stado
ALICIA 1 C:percep percep1.EXE 100
LUPITA 2 C:notbue notbue.EXE 10
ALEJANDRA 3 C:reldoc reldoc.EXE 20
FERNANDO 4 C:disper disper.EXE 30
EVELYN 5 C:percep percep1.EXE 200

lo que pretendo es levarme el valor del campo (STADO) para que sea utilizado en otro sistema
dependiendo del nombre y clave del usuario

con el usuario Lupita,Alejandra y Fernando no tengo problema por que ellos solo utilisan
su sistema, pero Alicia y Evelyn
utilizan el mismo sistema Alicia solo puede hacer ciertas cosa pero Evelyn puede hacer
todo como me puedo llevar el valor de STADO para utilizarlo en el sistema de PERCEP1 ?
si el valor de stado=100 entra a menu1 si el valor de stado=200 entra a menu2

en el boton incia del formulario (ENTRADA) tengo esto y funciona corecto si los direcciona
a su sistema correspondiente

Set Exact On
If Empty(Thisform.usu.Value)
=messagebox(" DEBE INTRODUCIR EL NOMBRE DEL USUARIO ",48,"Administrador")
Thisform.usu.Setfocus
Else
If Empty(Thisform.cve.Value)
=Messagebox(" DEBE INTRODUCIR LA CALVE DEL USUARIO ",48,"Administrador")
Thisform.cve.Setfocus
Else
inmain=1
Endif
Endif

If inmain=1
Locate For nombre=Allt(Thisform.usu.Value) And clave=Allt(Thisform.cve.Value)
If Found()
Cd (carpeta)
lcExe = (ejecutable)
lcParam = "1"
loShell = CreateObject("Shell.Application")
loShell.ShellExecute(lcExe,"",JustPath(lcExe),"Open",1)
Quit
Else
=Messagebox("NOMBRE DEL USUARIO O CONTRASEÑA";
+Chr(13)+" INCORRECTA ESCRIBALO DE NUEVO",16,"Administrador")
Thisform.usu.Value=' '
Thisform.cve.Value=' '
Thisform.usu.Setfocus
EndIf
EndIf