Delphi, добавление новой записи

[ele29]

Помогите пожалуйста разобраться. На одной из форм есть две таблицы, они связаны между собой с помощью sql-запроса, т.е. выбирая номер накладной, в другой таблицы отражаются товары из этой накладной. Нужно сделать так, чтоб можно было добавлять новые записи. Для этого использовала новую форму, вводишь данные из edit, datetimepicker,dblookcombobox и по щелчку на добавить в первой форме должна отображаться новая запись, но у меня полностью чиститься таблица и ошибка.

[ATTACH]Безымяпвнный.png[/ATTACH]

код
d.txt

[Streletz]

Где очищается таблица: в БД или речь идёт о каком-либо из DBGrid'ов? Что написано в сообщении об ошибке? Скриншот ошибки в студию!

[ele29]

при запуске ошибка во вложении (+ ругается через раз на Transaction)
ошибка.jpg
если из кода убрать часть try то получается, как я понимаю, что очистится только dbgrid, потому что при следующем запуске данные снова там есть.

[Vanta11a]

Строка "with form20 do" не на что не намекает?

А ошибка "undeclared identifier" (необьявленный идентификатор)?

[Аватар]

Там уже with не действует. Поэтому и ругается. И если Commit, то где начало транзакции? И если это BDE, а похоже, то откуда у Query свойство Transaction?

[Streletz]

На скрине ошибки, помимо всего прочего видно, что в Query1 стирается первоначальный текст запроса. После этого формируется запрос на добавление. Причём первоначальное значение запроса не восстанавливается.
Поэтому, если изначально там был select, то нет ничего удивительного, что DBGrid, который берёт данные из Query1, перестаёт их отображать.
Изменение текста SQL-запроса осуществляется при открытом соединении (метод Close не вызывается). Естественно, что в этом случае также возникают ошибки.