Добрый день!
Существует база, в которой есть множество таблиц. 2-е из них - таблицы Областей и Городов.
Нужно что бы при выборе Области в 1-м ComboBox-е, в другом появлялись Города, соответствующие только этой области.
В событии OnChange 1-го ComboBox-а пишу:
Код:
procedure TFormPacient.OblastChange(Sender: TObject);
var IDObl:Integer;
begin
IDOblast.itemIndex:=Oblast.ItemIndex;
IDObl:=StrToInt(IDOblast.Text);
PacientCity.active:=true;
IDCity.clear;
City.clear;
if not PacientCity.isEmpty then begin
PacientCity.First;
repeat
IDCity.items.add(PacientCity.fieldbyname('IdCity').asString);
City.items.add(PacientCity.fieldbyname('NCity').asString);
PacientCity.next;
until PacientCity.eof;
IDCity.itemindex:=0;
City.itemindex:=0;
PacientCity.active:=false;
end;
end;
SQLQuery для выборки городов содержит:
Код:
Select IDCity,IDOblast, NCity
from City
where IDOblast=IDObl
order by NCity
вот строчка
и не рабоатет.