Главная страница
    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.048 c
15-1168682519
Footballer
2007-01-13 13:01
2007.02.04
Вопрос не по делфи


15-1168861524
Alex_ey
2007-01-15 14:45
2007.02.04
знание компьютера


15-1168878356
пользователь
2007-01-15 19:25
2007.02.04
где можно скачать?


2-1169034700
AlexT1000
2007-01-17 14:51
2007.02.04
Как восстановить файл(ы) из корзины?


2-1168844401
Numark
2007-01-15 10:00
2007.02.04
Сравнение 2х файлов Excel





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский