Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
ВнизПодстановка значений Найти похожие ветки
← →
SveT © (2007-01-16 23:37) [0]Здравствуйте!
Прошу помощи -
при выборе (изменении) данных (поле n1 из табл. ZZZ.db) из combobox необходимо, чтобы данные из поля n2 тойже таблицы подставлялись в label "info".procedure TTRF_TY.ComboBox1KeyPress(Sender: TObject;
var Key: Char);
var s: string;
begin
DMFrm.HQuery.Close;
DMFrm.HQuery.SQL.Clear;
ComboBox1.SelText := "";
DMFrm.HQuery.SQL.Add("SELECT DISTINCT n1, n2 FROM "ZZZ.DB" WHERE n1 LIKE """+ComboBox1.Text+"%""");
DMFrm.HQuery.Open;
DMFrm.HQuery.First;
s:= ComboBox1.Text;
ComboBox1.Clear;
// Info.Caption :=" - "+DmFrm.HQuery.FieldByName("n2").AsString+" - ";
While not DMFrm.HQuery.Eof do begin
ComboBox1.Items.Add(DMFrm.HQuery.FieldByName("n1").AsString);
DMFrm.HQuery.Next;
end;
ComboBox1.Text := s;
ComboBox1.SelStart := length(s);
end;
C уважением,
← →
SveTT © (2007-01-17 09:02) [1].
← →
Sergey13 © (2007-01-17 09:04) [2]> [0] SveT © (16.01.07 23:37)
Почему бы не воспользоваться ориентированным на это DBLookupCombobox-ом?
← →
Elen © (2007-01-17 09:08) [3]
> необходимо, чтобы данные из поля n2 тойже таблицы подставлялись
> в label "info"
Ну наверное имеется ввиду :
While not DMFrm.HQuery.Eof do begin
ComboBox1.Items.Add(DMFrm.HQuery.FieldByName("n1").AsString);
Info.Caption :=Info.Caption+" - "+DmFrm.HQuery.FieldByName("n2").AsString+" - ";
DMFrm.HQuery.Next;
end;
← →
Svet © (2007-01-17 09:49) [4]to Elen
While not DMFrm.HQuery.Eof do begin
ComboBox1.Items.Add(DMFrm.HQuery.FieldByName("n1").AsString);
Info.Caption :=Info.Caption+" - "+DmFrm.HQuery.FieldByName("n2").AsString+" - ";
DMFrm.HQuery.Next;
end;
идея верна, только при изменении n1 значения n2 добавляются, а не меняются.
И еще - изменения происходят только при ручном наборе n1, если выбирать курсором из предложенных значений n1, то n2 не меняется.
← →
Elen © (2007-01-17 09:54) [5]
> только при изменении n1 значения n2 добавляются, а не меняются.
Ну так перед этим кодом поставьInfo.Caption :=""
> изменения происходят только при ручном наборе n1, если
> выбирать курсором из предложенных значений n1, то n2 не
> меняется
Это потому что код этот в keypressed прописан, пропиши его в Change
← →
Svet © (2007-01-17 10:07) [6]to Elen
Спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c