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 llevarme 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 utilizan
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 correcto 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
GRACIAS.
