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.
Utilice un bucle para leer datos, primero obtenga la cantidad de contenido a leer y luego realice varios bucles antes de importar p>
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 p>
.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)))