Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
3-1163674156
petrovskyi
2006-11-16 13:49
2007.02.04
Изменение порядка значений при экспорте в Excel


15-1168945620
Alexm112
2007-01-16 14:07
2007.02.04
Обеспечение безопасности пассажиров при полетах на самолете.


2-1169154005
sinys
2007-01-19 00:00
2007.02.04
drag&drop, Clipboard


9-1143029770
!Trinix
2006-03-22 15:16
2007.02.04
Ошибка макса


15-1168961818
Megabyte
2007-01-16 18:36
2007.02.04
бесплатные компоненты для архивирования





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский