D
dreamblue
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tfrmsgjh.ToolButton8Click(Sender: TObject);
begin
if not(adoquery1.State in [dsInsert, dsEdit]) then close
else
if Application.MessageBox('您是否保存修改？','退出前请先保存修改',Mb_YesNo+Mb_IconQuestion)=IdYes then
begin
toolbutton2.click;
close;
end
else
close;
end;
begin
if not(adoquery1.State in [dsInsert, dsEdit]) then close
else
if Application.MessageBox('您是否保存修改？','退出前请先保存修改',Mb_YesNo+Mb_IconQuestion)=IdYes then
begin
toolbutton2.click;
close;
end
else
close;
end;