Цитата:
Сообщение от Nat111
И вправду не сложно
Перед добавлением выводит сообщение, а как сделать чтобы когда ввел данные он выводил окно Сохранить введенные данные? если нет то он их несохранял. Как этот момент сделать? Подскажите пожалуйста
|
А это нужно вообще? " сохранить данные или нет"
Получается что ты вызываешь append вводишь данные а потом на кнопку сохраняешь их, тогда так -
Код:
procedure TForm1.ToolButton5Click(Sender: TObject);
Var ExB: WORD;
begin
ExB:=MessageBox(handle,pchar('Сохранить данные?'),pchar('Подтверждение сохранения'),33);
if Exb=IDOK then
dbgrid1.datasource.dataset.post else dbgrid1.datasource.dataset.delete;
end;