Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Отмена добавления новой записи   Найти похожие ветки 

 
ankazh ©   (2012-06-19 00:15) [0]

Есть 2 формы, на первой кнопка добавляет новую запись в таблицу + открывает новую форму с DBEdit-ами для вписывания новых даных. На этой второй форме 2е кнопки, Ок и Отмена. Беда в том что если я заполню хоть одно поле , а потом нажму отмену, то запись в таблице всеравно сохраняется. Как сделать чтобы отменялось сохранеие в таблице?

procedure TfmMain.ButtonAddClick(Sender: TObject);
begin
fmmain.DBGrid3.DataSource.DataSet.insert;
fmrw.Showmodal;
end;

procedure TfmRW.Button1Click(Sender: TObject);
begin
fmMain.DBGrid3.DataSource.DataSet.Post;
fmRW.close;
end;

procedure TfmRW.Button2Click(Sender: TObject);
begin
fmRW.Close;
end;


 
Медвежонок Пятачок ©   (2012-06-19 00:17) [1]

Наверное для отмены надо отменить инсерт.


 
ankazh ©   (2012-06-19 00:18) [2]

а как?


 
Медвежонок Пятачок ©   (2012-06-19 00:19) [3]

Решительно и не раздумывая


 
Плохиш ©   (2012-06-19 00:24) [4]


> а как?

С помощью соответствующего метода. Список методов перечислен в справке.


 
ankazh ©   (2012-06-19 00:29) [5]

Я смотрю собрались все знающие люди :)


 
ankazh ©   (2012-06-19 00:37) [6]

Все, сама уже нашла.


 
Dennis I. Komarov ©   (2012-06-19 16:21) [7]


> Все, сама уже нашла.

Покажи, поди опять фигню написала...


> procedure TfmRW.Button1Click(Sender: TObject);
> begin
> fmMain.DBGrid3.DataSource.DataSet.Post;
> fmRW.close;
> end;
>
> procedure TfmRW.Button2Click(Sender: TObject);
> begin
> fmRW.Close;
> end;

Выкинуть и забыть как сон страшный...
если делаешь вызов ShowModal, то и обрабатывай его результат...



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.05 c
15-1350977154
han_malign
2012-10-23 11:25
2013.03.22
Производственный календарь на 2013 г.


15-1340742603
Юрий
2012-06-27 00:30
2013.03.22
С днем рождения ! 27 июня 2012 среда


15-1350393941
картман
2012-10-16 17:25
2013.03.22
что делать?


15-1338377064
Handle
2012-05-30 15:24
2013.03.22
проектирование БД интернет-магазина


15-1353344955
Пит
2012-11-19 21:09
2013.03.22
Delphi 7: неверное предупреждение компилятора