Red de conocimiento informático - Aprendizaje de código fuente - Leer el cuadro combinado de lenguaje simple de la base de datos edb

Leer el cuadro combinado de lenguaje simple de la base de datos edb

Te daré un código correcto.

.Ventana de ensamblaje ensamblaje 1

.Subroutine_Button1_Clicked

Agregar registro vacío ()

Escribir (#Número de cuenta, cuadro combinado 1. content)

Escribir (#Contraseña, valorar (cuadro de edición 1.content))

Combobox 1.content = ""

Cuadro de edición 1.content = ""

.Subroutine__Launch Window_Created

Abrir (obtener el directorio en ejecución () + "\1.edb", , , , , )

Al primer registro ()

Determine el encabezado del bucle (después del registro final () = false)

ComboBox 1. Agregue elementos (leer ("Cuenta"),)

Omitir ()

. Determinar el final del bucle()

El código anterior es correcto. Lo que está mal es el siguiente código.

.

.Subroutine_ComboBox1_ListItemsSelected

Saltar a (ComboBox1.CurrentSelectedItems + 1)

EditBox1.Contents = Leer ("Contraseña") , el error es este párrafo: editbox1.contents=read ("Contraseña")

Lo cambias a:

Editbox1.content=""

Editar cuadro 1.agregar texto (al texto (leer (#Contraseña)))

Además, también debe configurar el campo del número de cuenta en un campo de texto; de lo contrario, aparecerá un error que indicará que el tipo de datos no coincide.

Eso es todo.