Показать сообщение отдельно
  #1  
Старый 22.02.2014, 17:35
govorun govorun вне форума
Новичок
 
Регистрация: 30.10.2013
Сообщения: 60
Версия Delphi: delphi 7
Репутация: 10
По умолчанию медленный отклик запроса

С формы 3 загружается форма 6 модально. На форме 3 запрос на подсчет сумм. На FormShow формы 3 стоит
Код:
    Label1.Caption := FloatToStrf(ADOQuery6.Fieldbyname('840').AsFloat,ffNumber,12,2);
    Label2.Caption := FloatToStrf(ADOQuery6.Fieldbyname('978').AsFloat,ffNumber,12,2);

На OnClose формы 6 стоит
Код:
    form3.ADOQUERY6.Close;
    form3.ADOQUERY6.Open;
    form3.Label1.Caption := FloatToStrf(form3.ADOQuery6.Fieldbyname('840').AsFloat,ffNumber,12,2);
    form3.Label2.Caption := FloatToStrf(form3.ADOQuery6.Fieldbyname('978').AsFloat,ffNumber,12,2);

Вопрос. Почему после первого запуска и закрытия формы 6 запрос на форме 3 не откликается, т.е. не изменяется сумма. После второго запуска и закрытия формы 6 сумма изменяется с учетом первого запуска.
Например запросом было посчитано 80
Запустили форму 6, ввели 10 и закрыли.
Запрос всеравно показывает 80.
Запустили форму 6 второй раз, ввели 10 и закрыли
Запрос показывает 100. При последующих запусках формы 6 запрос отрабатывает правильно.
Как поправить это дело?
Ответить с цитированием