SHARE
TWEET

Untitled

a guest Feb 9th, 2017 158 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //MENU PRINCIPAL (LA QUE SE LLAMA LUEGO DE INICIAR SESION)
  2. Private usuario_ing As String
  3. Private tipo_us As String
  4.  
  5. Public Sub menu_1(tipo_usuario As String, usuario_ingresado As String)
  6.   usuario_ing = usuario_ingresado
  7.   tipo_us = tipo_usuario
  8.   If tipo_us <> "Administrador" Then
  9.     Menu_Principal.Title = "MenĂº del operador"
  10.     form2.show
  11.   Endif
  12. End
  13.  
  14. //MENU LOGIN
  15. Public Sub Button_Aceptar()
  16.   Menu_Principal.Menu_1(Clave2, Clave1)
  17.   Me.close
  18. Endif
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top