Código fuente de Delphidevexpress

Coloque dos AdoQueries, denominadas Qry_qudi y Qry_ranliao respectivamente,

nombra las dos fuentes de datos Ds_qudi y Ds_ranmaterial y establece sus conjuntos de datos en Qry _Qudi y Qry _ran material.

Luego, configure comBox1 para que apunte a esta área:

qry _ diqu SQL .= 'select * from Qudi'; open//Esto se mostrará.

Configura combox2 para que apunte al combustible:

qry _ ran Liao text:= ' select * from ran Liao donde ejecutó Liao. Qudi =: DiQuid'; // Tenga en cuenta este parámetro: DiQuID, qry _ Debe haber un campo con el mismo nombre en Qudi, que hace referencia al ID de la región.

qry_RanLiao. Fuente de datos:= ds_qudi; //Obtener parámetros desde aquí

qry_ran Liao.open; //Leer combustible.

-Se recomienda utilizar el componente Cx de devExpress, CXImage Combobox.

con qry _qudi hacer mientras no eof hacer con tcximagecomboxitem(cbx _ diqu . properties . items . add)do comenzar

Valor:=fieldValues['código de región']; p>

Descripción:=fieldValues['area name'];

Siguiente; //Registro sorpresa

Fin;

// Después de doble Al hacer clic en cbx_DiQy, se generará automáticamente un evento: cbx_diQu.properties.onChange Escriba el código:

Comience con qry_RanLiao

Cerrar;

Texto SQL: = 'seleccionar * de corrió Liao donde número de área = '+quoted str(CBX _ diqu . editar valor -Código de área, vamos

Abrir;

-Interfaz de dibujo<); /p >

cbx _ ran Liao . propiedades . elementos . claro;

sin eof hacer con tcximagecomboxitem(cbx _ ran Liao . propiedades . elementos . agregar)comience

valor := valores de campo[' ID de combustible '];

Descripción:=fieldValues['nombre de combustible'];

Siguiente;

Fin;

p>

Fin;

Escrito a toda prisa, a eso me refiero. Si hay un pequeño error, corríjalo usted mismo.