Da, stavi jedan Query na formu i stavi mu taj upit.
A za sve edite u panelu napravi ovako nešto:
iz querya izvuci pomoću onog upita sve nazive polja koja imaju null vrijednost (stavi u where dio uvjet da je null) i onda ovako nekako:
query.First;
while not query.eof do
begin
for i := 0 to ComponentCount - 1 do
begin
if Components*i* is TDBEdit then
begin
if TDBEdit(Components*i*).DataField = FieldByName('Naziv_polja').AsString then
TDBEdit(Components*i*).Color := clRed else
TDBEdit(Components*i*).Color := clWhite;
end;
end;
Next;
end;
Može i "pametnije", ali i ovako će ti biti ok :-)
Nadam se da si skužio, ako ne, viči :-)
p.s. kada sam objavio post, vidim da mi ne prikazuje uglate zagrade, ali mislim da ćeš skužiti di dođu (staviti ću *)... :-)
F