Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: СУБД и Delphi/Lazarus

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 0 RSS
←   Октябрь 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 16-03-2006

Автор
Калашников О.А.

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: СУБД и Delphi


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Jimhucksly
Статус: 5-й класс
Рейтинг: 791
∙ повысить рейтинг » 		LanK
Статус: Профессионал
Рейтинг: 366
∙ повысить рейтинг » 		Шичко Игорь
Статус: Практикант
Рейтинг: 198
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / СУБД и Delphi

Номер выпуска:548
Дата выхода:16.10.2009, 09:30
Администратор рассылки:Gh0stik, Модератор
Подписчиков / экспертов:359 / 97
Вопросов / ответов:1 / 1

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

Вопрос № 173153:

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

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

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

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:Button2Click(button2);
mrNo:CanClose:=true;
mrCancel:CanClose:=false;
end;
end;

Отправлен: 11.10.2009, 09:15
Вопрос задал: Судейкин Андрей Владимирович, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Евгений/Genia007/, Студент :
Здравствуйте, Судейкин Андрей Владимиров.
Вы правильно используете процедуру FormCloseQuery для сохранения базы данных, при этом программа не будет завершена пока не отработает весь код в этой процедуре. У Вас в процедуре procedure TForm1.Button2Click(Sender: TObject); происходит всего лишь перемещение по записям из запроса и всё, попробуйте вместо этого написать Query1.Post, которая как раз и делает сохранение изменений в базе данных
Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Post; // Сохранение изменений
end;

-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/, Студент
Ответ отправлен: 11.10.2009, 10:27

Оценка ответа: 5
Комментарий к оценке:
Большое спасибо! Тут возник ещё один вопрос - а можно при выходе теперь из программы чтобы сообщение о сохранении выдавалось только если данные не сохранены? Если вам не затруднительно помогите...

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 255277 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.9 от 25.09.2009
    В избранное