Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.048 c
15-1339857231
Dmitry
2012-06-16 18:33
2013.03.22
что должен знать/уметь грамотный Delphi программист?


15-1333788333
Pavia
2012-04-07 12:45
2013.03.22
Юридический вопрос.


15-1346016093
Artem
2012-08-27 01:21
2013.03.22
Не поможете с Visual C++?


2-1328525317
whoim
2012-02-06 14:48
2013.03.22
TServerSocket, TStringList и непонятки.. RemoteAddress


15-1338817030
tesseract
2012-06-04 17:37
2013.03.22
Узнай какой-ты реформатор. Вообще забавно.




   Наверх