AdoDataSet. Добавление новой записи (insert) и связь DBLookupComboBox

@dalay_lama · Регистрация: 22.09.2012

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток. Имеется такая не большая проблема. В общем, есть форма, с дбгридом, отражает таблицу "список заказов" в ней несколько полей, некоторые из них связаны с другой таблицей: "код клиента" и "код машины" - с таблицами "клиенты" и "машины" соответственно. По нажатию на кнопку "добавить заказ" вылезает новое окно с формированием нового заказа, а так-же я вызываю метод Insert/

C++
1
2
    DataModule1->ADODataSetListOrder->Insert();
    formAddEditOrder->ShowModal();

На этой форме формирования заказа присутствует компонент DBLookupComboBox, у которого в ListSource(т.е. откуда беру записи) указана таблица "клиенты", а в DataSource(т.е. куда я записываю выбранную запись) указана таблица "список заказов". Т.е., как это в общем выглядит: я нажимаю "добавить заказ" -> открывается форма -> в DBLookupComboBox выбираю клиента, и потом нажимаю кнопку сохранить.

C++
1
    DataModule1->ADODataSetListOrder->Post();

И всё замечательно сохраняет и так как мне нужно кроме одной маленькой мелочи, поле id_client записывается только тогда, когда я в DBLookup произведу щелчёк, т.е. конкретно выберу запись, а если DBLookupComboBox не трогать, то поле id_client останется пустым. Приведу пример на скринах:
1)Открываю форму

AdoDataSet. Добавление новой записи (insert) и связь DBLookupComboBox

В лукапе запись выделена, но в вставку записи она не добавляется..
2)Открываю список лукапа, и щёлкаю по той-же записи

3)Теперь всё гуд

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

@Bit_Man · 20.03.2013, 16:02

Странно, что у тебя есть уже значение в DBLoockupComboBox, т.к. если значение NULL то и отображаться ничего не должно.

@dalay_lama · 21.03.2013, 04:46 **[ТС]**

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

Странно, что у тебя есть уже значение в DBLoockupComboBox, т.к. если значение NULL то и отображаться ничего не должно.

Я ещё перед открытием насильно заставляю его устанавливать значение в первую запись, вот полный код на открытие формы добавления заказа:

C++
1
2
3
4
5
    DataModule1->ADODataSetListOrder->First();
    DataModule1->ADODataSetListOrder->Insert();
    DataModule1->ADODataSetCustomers->First();
    formAddEditOrder->DBLookupComboBoxClient->KeyValue =  DataModule1->ADODataSetCustomers->Fields->Fields[0]->AsInteger;
    formAddEditOrder->ShowModal()

@Bit_Man · 21.03.2013, 05:41

Сообщение от skorik-1992

Я ещё перед открытием насильно заставляю его устанавливать значение в первую запись

как бы я сделал

C++
1
2
3
4
DataModule1->ADODataSetListOrder->Append();
//ADODataSetListOrderOnNewRecord
DataModule1->ADODataSetCustomers->First();
DataModule1->ADODataSetListOrder->FieldByName("id_client")->Value = DataModule1->ADODataSetCustomers->FieldByName("id")->Value; //либо конкретное значение

@dalay_lama · 21.03.2013, 05:58 **[ТС]**

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

как бы я сделал

C++
1
2
3
4
DataModule1->ADODataSetListOrder->Append();
//ADODataSetListOrderOnNewRecord
DataModule1->ADODataSetCustomers->First();
DataModule1->ADODataSetListOrder->FieldByName("id_client")->Value = DataModule1->ADODataSetCustomers->FieldByName("id")->Value; //либо конкретное значение

Да, я вот только что почти так-же сделал, только не большая разница, я id беру не из дата-сета, а из лукапа по keyvalue, вот код:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TformAddEditOrder::FormActivate(TObject *Sender)
{
DataModule1->ADODataSetListOrder->First();
DataModule1->ADODataSetListOrder->Insert();
DataModule1->ADODataSetCustomers->First();
formAddEditOrder->DBLookupComboBoxClient->KeyValue =  DataModule1->ADODataSetCustomers->Fields->Fields[0]->AsInteger;
DataModule1->ADODataSetListOrder->FieldByName("id_client")->Value = DBLookupComboBoxClient->KeyValue;
DataModule1->ADODataSetListOrder->FieldByName("id_car")->Value = DBLookupComboBoxCar->KeyValue;
}

И ещё на событие клика по лукапу клиентов добавил:

C++
1
2
3
4
void __fastcall TformAddEditOrder::DBLookupComboBoxClientClick(TObject *Sender)
{
    DataModule1->ADODataSetListOrder->FieldByName("id_car")->Value = DBLookupComboBoxCar->KeyValue;
}

А будет ли разница откуда брать? Как грамотней сделать?

@Bit_Man · 21.03.2013, 06:19

А редактирование записи у тебя есть? этой же формой или другой?
если этой же, то при редактировании не поканает это

Сообщение от skorik-1992

void __fastcall TformAddEditOrder::FormActivate(TObject *Sender)
{
DataModule1->ADODataSetListOrder->First();
DataModule1->ADODataSetListOrder->Insert();
DataModule1->ADODataSetCustomers->First();
formAddEditOrder->DBLookupComboBoxClient->KeyValue = *DataModule1->ADODataSetCustomers->Fields->Fields[0]->AsInteger;
DataModule1->ADODataSetListOrder->FieldByName("id_client")->Value = DBLookupComboBoxClient->KeyValue;
DataModule1->ADODataSetListOrder->FieldByName("id_car")->Value = DBLookupComboBoxCar->KeyValue;
}

@dalay_lama · 21.03.2013, 07:10 **[ТС]**

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

А редактирование записи у тебя есть? этой же формой или другой?
если этой же, то при редактировании не поканает это

Да, этой же, но я редактирование только вот сейчас делаю, пока проблем не заметил, а в чём может выразиться?

@Bit_Man · 21.03.2013, 08:15

Сообщение от skorik-1992

void __fastcall TformAddEditOrder::FormActivate(TObject *Sender)
{
DataModule1->ADODataSetListOrder->First();
DataModule1->ADODataSetListOrder->Insert();
DataModule1->ADODataSetCustomers->First();

если ты редактируешь, зачем тебе Insert

@dalay_lama · 21.03.2013, 08:16 **[ТС]**

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

если ты редактируешь, зачем тебе Insert

А, ты про это) Это я просто пример как пример выложил, т.е. пока тестил у меня так было, а вообще у меня две кнопки, на одну insert вызывается на другую edit

@Bit_Man · 21.03.2013, 08:33

с FormActivate на FormCreate

@dalay_lama · 21.03.2013, 08:55 **[ТС]**

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

с FormActivate на FormCreate

Почему? форма то может вызываться не однократно
"Событие OnCreate происходит один раз за все время существования формы, прочие же события могут вызываться неоднократно." Источник - http://www.helloworld.ru/texts... thform.htm
Там конечно про делфи, но компоненты то одни и теже используются или я что-то напутал?

@Bit_Man · 21.03.2013, 09:16

Если ты ее создаешь в самом начале запуска программы или создания формы, тогда соглашусь с тобой.

@dalay_lama · 21.03.2013, 09:29 **[ТС]**

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

Если ты ее создаешь в самом начале запуска программы или создания формы, тогда соглашусь с тобой.

Нет, она у меня не в самом начале создаётся.
Т.е., когда я нажимаю кнопку, на открытие формы(ShowModal) у формы происходит событие OnCreat? и событие OnCreat будет происходить каждый раз, если я закрываю форму(Close()) и снова её открываю? Если да, то я не знал, спасибо за наводку)
И ещё, немного не по теме, можешь пожалуйста подсказать в чём прикол, у меня в одной из таблиц есть вычисляемое поле, оно корректно вычисляется но данные не записываются в БД, т.е. я когда открываю приложение, я вижу данные которые он вычисляет, но они не записываются. Вот код вычисляемого поля:

C++
1
2
3
4
5
6
void __fastcall TDataModule1::ADODataSetProcesedJobCalcFields(TDataSet *DataSet)
 
{
    ADODataSetProcesedJob->FieldByName("sum")->Value = ADODataSetProcesedJob->FieldByName("number")->Value * ADODataSetJob->FieldByName("price")->Value;
}
}

@Bit_Man · 21.03.2013, 10:07

При создании формы OnCreate. При ShowModal OnShow точно должна срабатывать, а OnActivate точно не знаю, вроде тоже.

Сообщение от skorik-1992

DODataSetProcesedJob->FieldByName("sum")->Value = ADODataSetProcesedJob->FieldByName("number")->Value * ADODataSetJob->FieldByName("price")->Value;

я бы это на BeforePost повешал и посмотри SQL Insert и Edit и Refresh

@dalay_lama · 21.03.2013, 10:42 **[ТС]**

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

При создании формы OnCreate. При ShowModal OnShow точно должна срабатывать, а OnActivate точно не знаю, вроде тоже.
я бы это на BeforePost повешал и посмотри SQL Insert и Edit и Refresh

События OnPost нету, есть только OnPostError - но это как я понимаю не то?
Ещё есть AfterPost и BeforePost, на AfterPost ругается, на BeforePost просто ничего не делает, поле не вычисляется.
Ещё попробовал просто перед тем как событие Post проходит попытаться вставить, но результат такой-же как и на Before - ничего не происходит:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TformAddProccesedJob::btSaveClick(TObject *Sender)
{
    DataModule1->ADODataSetProcesedJob->FieldByName("id_job")->Value = DataModule1->ADODataSetJob->FieldByName("id_job")->Value;
    DataModule1->ADODataSetProcesedJob->FieldByName("id_order")->Value = DataModule1->ADODataSetListOrder->FieldByName("id_order")->Value;
    DataModule1->ADODataSetProcesedJob->FieldByName("sum")->Value = DataModule1->ADODataSetProcesedJob->FieldByName("number")->Value * DataModule1->ADODataSetJob->FieldByName("price")->Value;
    DataModule1->ADODataSetProcesedJob->Post();
    Close();
}
void __fastcall TDataModule1::ADODataSetProcesedJobBeforePost(TDataSet *DataSet)
{
    ADODataSetProcesedJob->FieldByName("sum")->Value = ADODataSetProcesedJob->FieldByName("number")->Value * ADODataSetJob->FieldByName("price")->Value;
}
void __fastcall TDataModule1::ADODataSetProcesedJobAfterPost(TDataSet *DataSet)
{
 //  ADODataSetProcesedJob->FieldByName("sum")->Value = ADODataSetProcesedJob->FieldByName("number")->Value * ADODataSetJob->FieldByName("price")->Value;
}

Естественно я это всё не вместе запускаю) Просто здесь перечислил примеры как я пробовал сделать

Добавлено через 2 минуты

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

посмотри SQL Insert и Edit и Refresh

Здесь не совсем понял, что ты имел введу

@Bit_Man · 21.03.2013, 10:52

Сообщение от skorik-1992

FieldByName("sum")->Value

смотри какое у тебя здесь значение после присваивания. Если нет ничего то попробуй As(по типу поля:Integer или Float) у всех трех полей. И у меня такое иногда случалось, приходилось конкретно указывать тип.

Добавлено через 3 минуты

Сообщение от skorik-1992

ADODataSetProcesedJob

не знаком с таким, по "DataSet" подумал что там есть SQL.

Добавлено через 2 минуты
Это обычный ADODataSet? я им не пользовался

@dalay_lama · 21.03.2013, 10:55 **[ТС]**

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

смотри какое у тебя здесь значение после присваивания. Если нет ничего то попробуй As(по типу поля:Integer или Float) у всех трех полей. И у меня такое иногда случалось, приходилось конкретно указывать тип.

Странно как-то происходит, смотри, вот использую такой код, решил вывести в ShowMessage значение которое находится в sum, вот что получилось:
1)Код:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TformAddProccesedJob::btSaveClick(TObject *Sender)
{
    DataModule1->ADODataSetProcesedJob->FieldByName("id_job")->Value = DataModule1->ADODataSetJob->FieldByName("id_job")->Value;
    DataModule1->ADODataSetProcesedJob->FieldByName("id_order")->Value = DataModule1->ADODataSetListOrder->FieldByName("id_order")->Value;
    DataModule1->ADODataSetProcesedJob->FieldByName("sum")->Value = DataModule1->ADODataSetProcesedJob->FieldByName("number")->Value * DataModule1->ADODataSetJob->FieldByName("price")->Value;
    ShowMessage(DataModule1->ADODataSetProcesedJob->FieldByName("sum")->Value);
    DataModule1->ADODataSetProcesedJob->Post();
    Close();
}

2)Вот, вроде-бы значение добавилось, но Post ещё не прошол...

3)Нажимаю "OK", проходит метод Post. Результат - поле не посчиталось:

@dalay_lama · 21.03.2013, 11:18 **[ТС]**

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

Это обычный ADODataSet? я им не пользовался

Да, самый простой из простых ADODataSet)

Добавлено через 15 минут
Проблема решилась заменой типа поля "sum" в датасете. Поменял с fkCalculated на fkInternalCalc. Не знаю почему, но это помогло.

Добавлено через 6 минут
А в прочем можно и обычный Data поставить.

@Bit_Man · 21.03.2013, 11:51

Сообщение от skorik-1992

Проблема решилась заменой типа поля "sum" в датасете. Поменял с fkCalculated на fkInternalCalc. Не знаю почему, но это помогло.

ну ептить, и догодался же поменять.
Data - это данные таблицы (запроса);
fkCalculated - результат каких либо вычислений (помойму редактировать нельзя)
fkInternalCalc - редактируемое поле.

@dalay_lama · 21.03.2013, 12:04 **[ТС]**

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

fkCalculated - результат каких либо вычислений (помойму редактировать нельзя)

Ну дык, мне это и нужно было) просто где-то читал, про то, как делать вычисляемые поля, чтобы они автоматом считались. и там было описанно, что нужно установить поле как calculeted и на событие calc писать то вычисление которое нужно. Отсюда и пошло всё)

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	20.03.2013, 16:02
	Странно, что у тебя есть уже значение в DBLoockupComboBox, т.к. если значение NULL то и отображаться ничего не должно. 1

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	21.03.2013, 08:33
	с FormActivate на FormCreate 1

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	21.03.2013, 09:16
	Если ты ее создаешь в самом начале запуска программы или создания формы, тогда соглашусь с тобой. 1