Главная страница
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.068 c
15-1352445476
Chorus
2012-11-09 11:17
2013.03.22
Как правильно задать данные о треугольнике?


2-1328363804
whoim
2012-02-04 17:56
2013.03.22
динамический двумерный массив of integer: не могу найти ошибку..


3-1277303472
VictorMBH
2010-06-23 18:31
2013.03.22
Какой инсталер нужен для инсталла BDE под 64 разрядной Windows 7


2-1341682015
Jonis_84
2012-07-07 21:26
2013.03.22
проверка соединения


15-1347901722
Rouse_
2012-09-17 21:08
2013.03.22
Хе, а я оказывается выиграл лицензию EurekaLog :))