Easy Language SuperListBox lee todos los datos que cumplen con las condiciones del cuadro de edición.

.Versión 2

.Biblioteca compatible iext

.Ensamblaje Ventana Ensamblaje 1

.Subrutina __Iniciar ventana_Creada

.Si es verdadero (el archivo existe o no (tome el directorio de ejecución () + "\base de datos.edb") = falso)

Crear base de datos ()

.Si es verdadero final

Abrir (tomar directorio de ejecución () + "\database.edb", "database", , , , , )

.Subrutina crea base de datos

.Variable local Campo, información de campo, "2"

Campo [1].Nombre = "Departamento"

Campo [1].Tipo = #Tipo de texto

Campo [1].Longitud máxima del texto = 20

Campo [2].Nombre = "Nombre"

Campo [2].Tipo = #tipo de texto

Campo[2].Longitud máxima del texto = 8

Crear (tomar directorio de ejecución () + "\base de datos.edb", campo)

. Haga clic en la subrutina _Botón 1__

. Si es verdadero (editbox1.content = "" o editbox2.content = "" )

entonces cuadro de mensaje ("Ingrese el departamento o nombre", 0,)

return ()

.End if true

Colocar la biblioteca actual ("base de datos")

Agregar registros (editbox1.content, editbox2.content)

editbox2.content = ""

editbox2.get focus ()

.Subroutine_button2_clicked

.Recuento de variables locales, entero

. Departamento de variable local, tipo de texto

Nombre de variable local, tipo de texto

Número de serie de variable local, entero

SuperListBox1.DeleteAll()

Número de serie = 0

. Si es verdadero (editbox1.content = "")

messagebox("Ingrese el departamento", 0,)

return ()

. Si es verdadero, final

Coloque la biblioteca actual ("base de datos")

en el primer registro ()

.

Contar el bucle primero (obtener número de registros (), contar)

Departamento = leer ("departamento")

. Si es verdadero (Departamento = Editar cuadro 1. Contenido)

Nombre = Leer ("Nombre")

SuperListBox1.Insertar entrada de tabla (-1, , , , , )

SuperListBox1.Put Título (Número de serie, 0, a Texto (Número de serie + 1))

SuperListBox1.Title (Número de serie, 1, Departamento)

SuperListBox1.Title (Número de serie, 2, Nombre)

Número de serie = Número de serie + 1

.Fin si es verdadero

Saltar ()

.Fin del ciclo de conteo ().