• Domingo 5 de Abril de 2020, 11:52

Autor Tema:  llevarme un valor de una tabla para utilizarlo en otro sistema  (Leído 3486 veces)

Noe Diego

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
llevarme un valor de una tabla para utilizarlo en otro sistema
« en: Viernes 16 de Junio de 2017, 18:05 »
0
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.