Programación General > Visual Basic 6.0 e inferiores

 Necesito Ayuda Con Formularios !

<< < (2/3) > >>

cabezon:
UHHH, perdon gente, me re confundi, si alguien puede, borre o mueva este topic...

igual, muchas gracias por su colaboracion

Cajami:
hola, bueno mira para mostrar un formulario dentro de otro,  ejemplo: tenemos dos form: Form1 y Form2, en el Form1 agrega un Panel y un Button, ahora en el evento Click del Button pon esto:


--- Código: Text ---Dim ventana As New Form2ventana.TopLevel = Falseventana.Visible = TrueMe.Panel1.Controls.Add(ventana) nos vemos  :hola:

Soul_Keeper:
yo necesito ayuda por favor, como puedo pasar un dato que esta en una base de datos accesadas en una base de datos en u n formulario anterior , pasarlo a l siguiente... me explico:

1er formulario...
   pide un usuario y una clave, la busca en la base de datos, compara y da acceso..

2do
   formulario, menu principal, los botonos aparecen de acuerdo a los permisos del usuario,

pregunta:

   como paso el dato de permisos del usuario encontrado en el primer formulario para que en el segundo formulario se activen ciertos botones??

gracias

aqui va el codio del 1er formulario:


Dim flagcierre As Boolean

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If flagcierre = False Then
Cancel = 1
End If
End Sub

Private Sub miboton_Click()
flagcierre = True
End
End Sub

Private Sub Continuar_Click()
  SearchStr$ = Text1.Text
  datEmp1.Recordset.Index = "Usuario"
  datEmp1.Recordset.Seek "=", SearchStr$
 
   If datEmp1.Recordset.NoMatch Then
        MsgBox ("Usuario Errado"), , "Error de Nombre de usuario"
    End If
   
  SearchStr2$ = Text2.Text
  datEmp1.Recordset.Index = "Clave"
  datEmp1.Recordset.Seek "=", SearchStr2$
 
    If datEmp1.Recordset.NoMatch Then
        MsgBox ("Clave Errada"), , "Error de clave de usuario"
    End If
    MsgBox ("Bienvenido"), , "Bienvenido"
    Load Form2
    Form2.Show
    Form1.Hide
End Sub

Private Sub Salir_Click()
End
End Sub

Cajami:
Hola, por ejemplo io en mi aplicacion para entrar al sistema hay niveles de usuarios: el Administrador (que tiene acceso a todo), Directora, y los dos Sub Directores (que tiene ciertas limiaciones) y por ultiom el usuario base si se puede decir asi Docente (que tiene acceso a una opciones del sistema), ahora tengo una variable declarada en un modulo con Public y cuando ingresa la Directora o los Sub direcotres la asigno un valor a esa variable y cuando llame al form principal en el evento load desactivo determinadas opciones = pasa en el caso de Docentes, en el caso del Administrador ps nu porque como ia dije va a tener acceso a todo, espero te sirva nos vemos  :hola:

Soul_Keeper:
un ejmeplo rapido con pregunta,

llega uno de los empleados al sistema, ingresa su usuario y contraseña, el sistema busca en la base de datos el registro en esos campos, ahora, como hago para sacar de ese mismo registro, del campo tipo el tipo de usuario que es?

que instruccion uso? en codigo?

nota:

0=administrador
1=cajero
2=vendedor

gracias

ps: perdonen por preguntar tanto es q llevo 2 semanas aprendiendo a manejar vb 6.0 y todavia tengo errores,


otra cosa, tengo otor proyecto ahi que debe agregar cosas a un inventario, pero al ponerle que lo agregue, me sobreescribe el item que ya esta ahi? que sera: les pongo el codigo  para que me igan que me falta o que esta mal puesto


Private Sub cmdAgregar_Click()
  mensaje$ = "Introduzca un nuevo registro y pulse el botón flecha izquierda."
    reply = MsgBox(mensaje$, vbOKCancel, "Añadir Registro")
     If reply = vbOK Then
        Text1.SetFocus
        datInv1.Recordset.AddNew
End If
End Sub

Private Sub Command4_Click()
End
End Sub

los datos son

id producto | nombre | cantidad | descripcion | precio


mil gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior