Как вывести число из базы в эдит?

[Ромер]

Нужна помощь. Делаю диплом, автомагазина. И тут столкнулся с одной бедой. Вывод запчастей смог сделать по маркам авто, их выводит в комбобокс. А вот как сделать, что бы цену запчасти, выводило в эдит? Вроде как то можно сделать всё через иф, элсо, но тогда очень много надо будет запросов создавать более 400, тогда обрабатываться долго будет, как это можно проще намного сделать? Помогите...

[Dozent]

покажите ваш код! что вы сделали? Ваши варианты!

[Serge_Bliznykov]

их выводит в комбобокс

а почему не в Грид? сразу с тех.характеристиками и ценой.

но можно и при смене объекта в комбобокс выводить цену.
этот запрос, если его делать правильно (выборку по ключевому полю, которое хранить либо в комбобоксе, либо в доп.структуре), то он будет выполнятся сотые доли секунды. прорисовка контролов на экране больше времени займёт, чем один такой запрос.

[Ромер]

Вот так вывожу в комбобокс список деталей, одну из которых надо будет выбрать

begin
if ComboBox2.Text = 'замена амортизаторов' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ('select Деталь from буфер where Ключ= "ха"');
ADOQuery1.Open;
ComboBox3.Items.Clear;
While not ADOQuery1.Eof do
begin
ComboBox3.Items.Add(ADOQuery1.Field s[0].AsString);
ADOQuery1.Next;
end; end;

В эдит необходимо вывести цену, что бы потом можно было ее умножить на количество необходимых деталей и вывести общую сумму.

Сообщение от Serge_Bliznykov

выборку по ключевому полю, которое хранить либо в комбобоксе, либо в доп.структуре

Не представляю как это сделать даже

Сообщение от Dozent

покажите ваш код! что вы сделали? Ваши варианты!

Надо именно так, что бы в комбе была запасть, а цена в эдите

[temaps]

Используйте не edit, а dbedit.
Покажите код программы.

[Dozent]

begin
if ComboBox2.Text = 'замена амортизаторов' then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := ('select Деталь, Цена from буфер where Ключ= "ха"');
ADOQuery1.Open;
ComboBox3.Items.Clear;
ADOQuery1.First;  // будит не лишним
While not ADOQuery1.Eof do
begin
ComboBox3.Items.Add(ADOQuery1.FieldName['Деталь'].AsString);
Edit1.Text:=ADOQuery1.Fieldname['имя_поля'].values;
ADOQuery1.Next;
end; end;

но токо учтите если у вас будит возвращено запросом несоклько записей то после выполнения цикла в едите будит значение равное последнией записи
перед выполенение запроса делайте очистку текста запроса...
и на будующие НИКОГДА НЕ ДЕЛАЙТЕ НАЗВАНИЕ ПОЛЕЙ КИРИЛИЦЕЙ

[=master=]

и на будующие НИКОГДА НЕ ДЕЛАЙТЕ НАЗВАНИЕ ПОЛЕЙ КИРИЛИЦЕЙ

Это почему? В японии по японски называют, в испании по испански, в германии по германски, ... а чего по русски нельзя?

[=master=]

перед выполенение запроса делайте очистку текста запроса...

всё там делается, просто ненадо пользоватся SQL.Add, и сурогатный клеар вызывать не надо будет, это на будущее.

[Dozent]

ну мы не знаем как в тех странах называют поля, а по мне так англ названия полей и это хороший тон...

[=master=]

Ну что вы такое несете, я вот работал в германии и там не считают называть поля по германски плохим тоном, и самому приходилось называл имменно по германски, со всякими умляутами.