Leer el cuadro combinado de lenguaje simple de la base de datos edb
.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.