Очень интересная и актуальная тема
Подскажите, не понимаю, здесь
Код:
procedure TfNewTicket.butSaveClick(Sender: TObject);
begin
// ... некое взаимодействие с пользователем
fMain.Tickets.Post; // вносим изменения в билет
fMain.Tickets.UpdateBatch; // отправляем изменения в БД (тем самым получаем ID записи, на которой сейчас стоит курсор (последняя добавленная)
fMain.Items.First; // обработка всех добавленных записей в Detail таблице
while not fMain.Items.Eof do
begin
fMain.Items.Edit;
fMain.Items.FieldByName('IDTicket').AsInteger :=
fMain.Tickets.FieldByName('ID').AsInteger;
fMain.Items.Post;
fMain.Items.Next; // Next вызывает метод Post? я не нашёл в реализации явного вызова, но судя по тому, что строка сохраняется делаю вывод что вызывается
end;
fMain.Items.UpdateBatch; // фиксируем изменения в Items.
end;
вы всем записям в Items присваиваете номер последней записи из Tickets?
И еще небольшой вопросик для
Freeman, использую DataModule и обращаюсь к Query на нем как через глобальную переменную
Код:
DataModule.ADOQuery1.SQL.Text:=...
Получается, что у меня тоже "косяк"?
Спасибо