Título: Ingresar y Mostrar Datos VB6 Publicado por: do-while1 en 20 Noviembre 2012, 04:24 am Estoy haciendo un sistema de banco, en el cual se escoge un servicio que después de seleccionado envía al formulario correspondiente (al servicio). En el formulario del servicio hay variados campos para rellenar, por ejemplo: Nombre, Domicilio, Ciudad, etc.
Lo que quiero saber es si se puede ingresar los datos, después hacer un boton de "guardar" (que después lanzará un msgbox con la confirmación) y que después los haga aparecer en un nuevo formulario o algún otro recurso pero que muestre "Nombre:xxxxxxx" "Domicilio:xxxxxxxxxxx", etc. No estoy usando base de datos. Por el momento, lo que llevo del programa, además del acceso (user, pass) y del menú principal es lo siguiente: Código: Private Sub Command1_Click() II_Menú_Servicios.Show End Sub Private Sub Command2_Click() If (List1.List(List1.ListIndex) = "Avalúos") Then III_P_AVALUOS.Show End If If (List1.List(List1.ListIndex) = "Banca por Celular") Then IV_EMPRESAS.Show End If If (List1.List(List1.ListIndex) = "Crédito") Then IV_EMPRESAS.Show End If If (List1.List(List1.ListIndex) = "Crédito Hipotecario") Then IV_EMPRESAS.Show End If If (List1.List(List1.ListIndex) = "Inversiones") Then IV_EMPRESAS.Show End If If (List1.List(List1.ListIndex) = "Cajero Automático") Then IV_EMPRESAS.Show End If If (List1.List(List1.ListIndex) = "Tarjeta de Crédito") Then IV_EMPRESAS.Show End If If (List1.List(List1.ListIndex) = "Banca por Internet") Then IV_EMPRESAS.Show End If End Sub Aquí por ejemplo al seleccionar de la lista el elemento "Avalúos" mandará al formulario "Avaluos" que es donde mostrará los campos para ser ingresados los datos antes mencionados. Saludos ___________ Acceso: Private Sub Command1_Click() If Text1.Text = "Brad" And Text2.Text = "Maddox" Then MsgBox ("BIENVENIDO AL SISTEMA") II_Menú_Servicios.Show Else: MsgBox ("NOMBRE DE USUARIO O CONTRASEÑA INCORRECTOS") End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click() If MsgBox("¿Está seguro que quiere salir del sistema?", vbExclamation + vbYesNo, "Advertencia") = vbYes Then End End If End Sub Título: Re: Ingresar y Mostrar Datos VB6 Publicado por: Elemental Code en 20 Noviembre 2012, 04:47 am Si los necesitas mientras el programa se ejecuta, podes usar variables globales.
(declaralas en un modulo, y ya las podes llamar de cualquier formulario) Si lo que queres es que los datos queden guardados incluso despues de cerrar el programa... necesitas si o si guardarlo en algun lado :S Título: Re: Ingresar y Mostrar Datos VB6 Publicado por: do-while1 en 20 Noviembre 2012, 04:49 am Si los necesitas mientras el programa se ejecuta, podes usar variables globales. (declaralas en un modulo, y ya las podes llamar de cualquier formulario) Si lo que queres es que los datos queden guardados incluso despues de cerrar el programa... necesitas si o si guardarlo en algun lado :S Intentaré hacerlo con el módulo. Veré que pasa. |