¿Cómo mostrar la base de datos ACCES en el cuadro de lista superior?

Debería haber muchos programas de este tipo. Recientemente quise escribir un software que también tenga esta función. Adjunto está el código fuente para su referencia

. Biblioteca compatible iext

. Programa de ventana de inicio

. Subrutina __Starting Window_Created

Determinar el inicio (base de datos externa 1. Abra la base de datos MDB (obtenga el directorio de ejecución () + "\data\mpdata.mdb"). , , " mp611", , ) = True)

Cuadro de mensaje ("Bienvenido al sistema de gestión del servicio postventa de Garfield Pig", 0, )

Predeterminado

. >

Cuadro de mensaje ("¡Error al iniciar el sistema!", 0, )

.Fin del juicio

Cuadro de lista de actualización()

Actualizaciones de subrutina. cuadro de lista

. Variable local RecordsetHandle, entero

. Índice de variable local, entero

RecordsetHandle = Base de datos externa 1.query ("select * from wxdj")

SuperListBox1.delete all ()

. bucle El primer registro de (Base de datos externa 1. Último registro después (identificador del conjunto de registros) = false)

Index = SuperListBox1.InsertTableEntry (, Base de datos externa 1.read (identificador del conjunto de registros, "djbh") , , , )

SuperListBox1.InsertTableEntry (, base de datos externa 1. leer (identificador de conjunto de registros, "djbh"), , , )

.title (índice, 1, base de datos externa 1 .read( identificador de conjunto de registros, "wxdj"))

SuperListBox1.Title (índice, 1, base de datos externa 1.read(identificador de conjunto de registros, "wxdj"))

SuperListBox1.DeleteAll ()

.Read(RecordSetHandle, "sxry"))

SuperListBox1.Title(Index, 8, Base de datos externa 1.Read(RecordSet Handle, "fhrq"))

SuperListBox1.Title (Índice, 8, Base de datos externa 1. Lectura (RecordSet Handle, "fhrq"))

SuperListBox1."fhrq" ))

SuperListBox1.Title (Índice , 9, ExternalDatabase1.Read (RecordsetHandle, "tzqj"))

ExternalDatabase1.GoToNextRecord (RecordsetHandle)

determina el final del. loop ()

Base de datos externa 1. Cierre el conjunto de registros (identificador del conjunto de registros).