Главная страница
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.06 c
10-1181731675
tsndamir
2007-06-13 14:47
2013.03.22
Add-In


2-1346928623
Levran
2012-09-06 14:50
2013.03.22
Динамический запрос


15-1351654923
Kindle
2012-10-31 07:42
2013.03.22
"Бинарный файл. Продолжить?"


2-1340301372
Pcrepair
2012-06-21 21:56
2013.03.22
Переменная TStringList, копирование строк


2-1340221150
leonidus
2012-06-20 23:39
2013.03.22
Странное поведение потока