Сохранение БД

[Andrey174rus]

Здравствуйте! У меня создана БД, есть кнопка сохранения БД ("Сохранить"). Мне нужно при выходе из программы (по нажатию на крестик в правом верхнем углу программы) чтобы БД сохранялась, также как по нажатию кнопки сохранения.

При нажатии на крестик создал диалоговое окно (Messagebox ("Сохранить изменения в БД перед выходом?" и три кнопки ДА НЕТ ОТМЕНА). При нажатии на кнопку "ДА" создал обработчик button2.click (то самое сохранение БД). Дело в том что при нажатии на кнопку "Сохранить" БД сохраняется, а при выходе из программы БД не сохраняется...

Код кнопки сохранения:

procedure TForm1.Button2Click(Sender: TObject);
var
n:integer;
begin
Query1.DisableControls;
Query1.First;
for n:=1 to Query1.RecordCount do
begin
Query1.Next;
end;
Query1.EnableControls;
end;

Код закрытия программы:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
case messageBox(Handle,'Сохранить изменения в БД перед выходом?','Выход',
mb_YesNoCancel or mb_iconquestion) of
mrYes:Button2.Click;
mrNo:CanClose:=true;
mrCancel:CanClose:=false;
end;
end;

[artemavd]

А что значит "сохранить БД"? БД - это и есть место хранения инфорации. Не очень понятно.

[ОДИНОЧЕСТВО В СЕТИ]

вот это

mrYes:Button2.Click;

замените на

mrYes: Button2Click(Button2);

[Andrey174rus]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

вот это

mrYes:Button2.Click;

замените на

mrYes: Button2Click(Button2);

Всё равно не сохраняет...

[ОДИНОЧЕСТВО В СЕТИ]

а зачем 2 темы то создал? вот тут почитай 4 пост от Сержа

[ArtInt]

Какая база данных используется?
Access,BDE, MS SQL?
И все таки как понять сохранить?

[soleil@mmc]

это

procedure TForm1.Button2Click(Sender: TObject);
var
n:integer;
begin
Query1.DisableControls;
Query1.First;
for n:=1 to Query1.RecordCount do
begin
Query1.Next;
end;
Query1.EnableControls;
end;

ничего кроме листания датасета больше не делает
с чего ты взял что оно что-то сохраняет?