Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

Подстановка значений   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.044 c