Red de conocimiento informático - Aprendizaje de código fuente - Modificación de EDB: actualización de EDB, nombre de identificación de tres tablas y programa de indicación leerá automáticamente estos tres valores en el cuadro de lista superior línea por línea.

Modificación de EDB: actualización de EDB, nombre de identificación de tres tablas y programa de indicación leerá automáticamente estos tres valores en el cuadro de lista superior línea por línea.

Recuerdo que solía hacer doble clic para modificar, consultar y detectar duplicados.

Utilice un bucle para leer datos, primero obtenga la cantidad de contenido a leer y luego realice varios bucles antes de importar

No sé ustedes ¿El archivo a leer es .txt .ini .edb?

Si está leyendo un archivo, el archivo se dividirá en líneas, luego use .edb en la línea dividida para dividir la línea y luego use .edb en la línea dividida para dividir la línea

.edb

. Versión 2

. Soporta biblioteca iext

. Confirmar inicio (si el archivo existe (obtener el directorio en ejecución () + "\crypto.edb"))

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

.Predeterminado

Crear base de datos [1]. Nombre = "Marcador"

Crear base de datos [1]. type = #integer

Crear base de datos [2]. Nombre = "Número de serie"

Crear base de datos [2]. Tipo = #Texto

Crear base de datos [2]. Longitud máxima del texto = 20

Crear base de datos [3]. nombre = "contraseña"

Crear base de datos [3]. Tipo = #Texto

Crear base de datos [3]. Longitud máxima del texto = 20

Crear base de datos [4]. Nombre = "Tiempo disponible"

Crear base de datos [4]. Type = #Textual

Crear base de datos [4]. Longitud máxima del texto = 20

Crear base de datos [5]. Nombre = "Disponible o No disponible"

Crear base de datos [5]. Type = #Textual

Crear base de datos [5]. Longitud máxima del texto = 20

Crear base de datos [6]. nombre = "valor del parámetro"

Crear base de datos [6]. Type = #Integer

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

Fin del juicio

Ir al. primeros registros del elemento()

.Cuenta el bucle primero (obtiene el número de registros (), )

Cue = SuperListBox1.InsertTableItem (, , , , )

SuperListBox1. SetTitle (Cue, 0, a texto (leer (#SequenceNumber)))

SuperListBox1.SetTitle (Cue, 1, a texto (leer (#SequenceNumber)))

SuperListBox1. SetTitle (Cue, 2, a texto (leer (#SequenceNumber)))

SuperListBox1.SetTitle (Cue, 3, a texto (leer (#SequenceNumber)))