1.Лично я делал так:
Код:
procedure cmbBox1Enter(Sender:TObject);
begin
uQuery.Close;
uQuery.SQL.Text:='SELECT n_shaxt FROM shaxti';
uQuery.Open;
end;
procedure cmbBox2Enter(Sender:TObject);
begin
stQuery1.Close;
stQuery1.SQL.Text:='SELECT to_shaxt FROM tchk_shaxt WHERE n_shaxt = "'+cmbBox1+'" GROUP BY to_shaxt';
stQuery1.Open;
end;
2. Мне кажется, что будет намного лучше и выгоднее, (на данном примере это видно), если обьединить табл. спис. шахт и спис. точек замера в одну таблицу.