Занесение данных в БД

[a_n_n_a]

Здравствуйте, у меня есть DBGrid, подключенный к таблице Материалы.
В таблице поля: номер заказа, название, цена.
В программе в DBGrid отображаются только поля: название и цена. Когда пользователь вносит изменения в таблицу через DBGrid запись вносится в БД, но заполняются только 2 поля. Мне надо чтобы автоматом заполнялось поле Номер заказа.
Я сделала на выход из DBGrid:

if DBGrid4.EditorMode or DBGrid4.DataSource.DataSet.Modified then
     begin
        Form1.ADOTable18.Edit;
        Form1.ADOTable18.FieldByName('Nomer_zakaza').AsString:=Edit1.Text;
        Form1.ADOTable18.Post;
        Form1.ADOTable18.Close;
        Form1.ADOTable18.Open;
     end;

Код работает. Только пользователь может тут же, не выходя из DBGrid занести еще одну запись, а здесь мой код уже не катит. Вот не могу сообразить на какое событие поставить занесение номера заказа, ну или как это по другому организовать))

[Stilet]

Ставь на событие OnAfterInsert (точно не помню как оно называется посмотри в списке событий ADOTable.)

[a_n_n_a]

Я пробовала и на AfterEdit, AfterPost, AfterInsert и т.д....
Работает нормально только на выходе из Грида...
Может, что-то не то в коде?

[Stilet]

Работает нормально только на выходе из Грида...

В таких случаях создают форму-карточку. Если пользователь хочет добавить новую запись, он открывает эту форму, вносит в Эдиты данные, и по кнопке "Жмакни меня" срабатывает код, вносящий новую запись.
DBGrid (имхо) коряв и не доделан для таких целей.

[Аватар]

Можно попробовать BeforePost

procedure TForm1.ADOTable18BeforePost(DataSet: TDataSet);
begin
  if Form1.ADOTable18.State=dsInsert then Form1.ADOTable18.FieldByName('Nomer_zakaza').AsString:=Edit1.Text;
end;

или запросить в этом событии номер заказа, а лучше всего колонку с номером заказа в грид засунуть

[a_n_n_a]

Stilet, Это хорошая идея!!)
Аватар, и так не работает, данные вносит, а номер заказа нет...
Ладно, спасибо большое, попробую вариант с дополнительной формой)

[SERG1980]

А может проще сделать ещё одну форму для добавления и редактирования записи, а то как то не очень красиво получается

[Aliens_wolfs]

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if DBGrid4.EditorMode or DBGrid4.DataSource.DataSet.Modified then
     begin
        Form1.ADOTable18.Edit;
        Form1.ADOTable18.FieldByName('Nomer_zakaza').AsString:=Edit1.Text;
        Form1.ADOTable18.Post;
        Form1.ADOTable18.Close;
        Form1.ADOTable18.Open;
     end;
end;

Эти все советы уже на ваш вкус, а дальше уже думайте что для вас удобнее.

[Аватар]

Таймер - это высший пилотаж Столько возможностей позволяющих это осуществить - и таймер за уши притягивать

[Aliens_wolfs]

Согласен. Что таймер крайняя мера. Она многое пробовала не помогло, а может ей таймер поможет.
Если ей предыдущие советы не помогут, это последнее что можно сделать.