Código fuente de Delphidevexpress
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.