Редактирование данных, по нажатию на кнопку "Отмена"

[Droid]

У меня такая проблема: я нажимаю на правую кнопку мыши и нажимаю "Редактировать", выходит форма с редактированием записи, у меня в ней есть ListBox1, в которой есть 2 выражения (Да, Нет) и Listbox2 (Муж, Жен). Редактирую запись где в 2 столбцах стоит соответсвенно - Listbox1 (Да), Listbox2 (Муж). Я просто выбираю к примеру Нет, Жен и нажимаю не BitBtn3, а BitBtn2 (это кнопка отмены), то данные которые я выбирал в ListBox1, 2 все равно сохраняются... хотя я нажимал кнопку отмена.

procedure TFD_PAC.BitBtn3Click(Sender: TObject);
var
id: integer;

begin
//Редактирование пациента
try
id:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='UPDATE pacient SET nomer_med=:e1, familiya=:e2, imya=:e3,otchestvo=:e4,data_rogdeniya=:d,telefon=:e5, 
kollichestvo_detey=:e6,obrazovanie=:e7,opekun=:o1,pol=:p1 WHERE id_pacienta=:id';
dm.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=Edit5.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=strtoint(Edit6.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=o;
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=p;
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:=FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_PAC.Parameters.ParamByName('id').Value:=id;
DM.ADOQ_PAC.ExecSQL;

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient;'); //pt LEFT OUTER JOIN vid_ucheta vu ON pt.id_pacienta=vu.id_pacienta  ORDER BY familiya ASC');
DM.ADOQ_PAC.Open;
except
  on E: Exception do Application.MessageBox('Сохранение','Данные не сохранены !!!');
end;
end;

[mihali4]

А где код для procedure TFD_PAC.BitBtn2Click(Sender: TObject) ?

[Droid]

Сообщение от mihali4

А где код для procedure TFD_PAC.BitBtn2Click(Sender: TObject) ?

procedure TFD_PAC.BitBtn2Click(Sender: TObject);
begin

FD_PAC.Close;
end;

Только что пробовал так

for i:=0 to fd_pac.DBListBox1.Count-1 do
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=fd_pac.DBListBox1.Items[i];
for j:=0 to fd_pac.DBListBox2.Count-1 do
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=fd_pac.DBListBox2.Items[j];

Но результат тот же

[mihali4]

FD_PAC.Close;

Забавно... А что в обработчике FD_PAC.OnClose ?

DM.ADOQ_PAC.Cancel;

Так не пробовали ?

[Droid]

все разобралсо... вроде все пашет...

procedure TFD_PAC.FormActivate(Sender: TObject);
begin
o:=1;
p:=1;
end;
procedure TFD_PAC.ListBox1Click(Sender: TObject);
begin
o:=listbox1.ItemIndex+1;
end;

procedure TFD_PAC.ListBox2Click(Sender: TObject);
begin
p:=listbox2.ItemIndex+1;
end;