代码如下:
procedure TForm1.N6Click(Sender: TObject);
begin
if application.MessageBox('真的要退出系统吗?','提示窗口',
mb_iconquestion+mb_yesno+mb_defbutton2)=6 then
begin
adoconnection1.Connected:=false;
form12.ADOConnection1.Connected:=false;
close;
Application.Terminate;
end;
end;