Вниз
Скачать: 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.046 c
15-1339590107
Хригорий
2012-06-13 16:21
2013.03.22
Что такое нативный язык программирования?


2-1330668332
Кос
2012-03-02 10:05
2013.03.22
Загрузка файла из списка ComboBox


15-1350246602
Юрий
2012-10-15 00:30
2013.03.22
С днем рождения ! 15 октября 2012 понедельник


15-1329209570
Димка На
2012-02-14 12:52
2013.03.22
Как сделать чтобы WinControl ловил mousemove за пределами себя.?


15-1338191579
relline
2012-05-28 11:52
2013.03.22
TChart (v7) работа с легендой




   Наверх