медленный отклик запроса

[govorun1]

Сообщение от eval

ты покажи что в итоге, и вместе посмеемся, ага?
а в хлам улетит обязательно, к бабке не ходи

Во-первых я так и не понял где и что у меня раздвоено. Очень жаль, потому-что таких вещей, как в примере(вопросе), у меня несколько.

Во-вторых воспользовался советом и законектил все через один adoconnect. Подправил где нужно Все осталось и работает как показано в примере (вопросе).

В-третих - что показать? готовый код или что?

[eval]

если вы не видите где раздвоено, плохо...
последний раз в вопросе темы есть 2 куска кода, они есть одно и тоже, просто абсолютно, а вот написали их в разных местах, если и сейчас не понятно то я пас

я уже помалкиваю про оформление кода... кстати вот как раз сейчас один автор показывает свою книгу, с таким как у вас оформлением, почитайте что профессионалы говорят: http://www.delphimaster.ru/cgi-bin/f...1393088378&n=3, тут правда только начало, еще не подтянулись "основные силы" (выходные все-таки), думаю скоро там камня на камне не оставят

можете ваще ничего не показывать, оно ж не мне надо, правильно?

[govorun1]

Сообщение от eval

если вы не видите где раздвоено, плохо...
последний раз в вопросе темы есть 2 куска кода, они есть одно и тоже, просто абсолютно, а вот написали их в разных местах, если и сейчас не понятно то я пас

Если Вы имеете ввиду вот это

Label1.Caption := FloatToStrf(ADOQuery6.Fieldbyname('840').AsFloat,ffNumber,12,2);
    Label2.Caption := FloatToStrf(ADOQuery6.Fieldbyname('978').AsFloat,ffNumber,12,2);

И вот это

    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);

тогда "с Вашей точки зрения" это может быть и "раздвоение".
И эти куски кода написаны в разных местах.
В label - ах показывается расчитанная запросом сумма.

А теперь поведайте мне-тугодуму как перерисовать Label когда сумма изменяется.
Запустили программу, отработал запрос, в Label прорисовалась расчитанная сумма. Добавили сумму. Перерисовали запрос (close/open). Как нужно было перерисовать Label?
Покажите код....

[eval]

это с любой точки как не посмотри, суть одна - изменить надпись, и причем одной и тойже сущностью, и всё
у вас для этого 2 кода, появиться писятая форма - появится писят кодов близнецов.

[govorun1]

Сообщение от eval

это с любой точки как не посмотри, суть одна - изменить надпись, и причем одной и тойже сущностью, и всё
у вас для этого 2 кода, появиться писятая форма - появится писят кодов близнецов.

Ну а как тогда?

[phomm]

Ну а как тогда?

Начинать читать отсюда www.gunsmoker.ru/2011/01/blog-post.html‎

[govorun1]

Сообщение от phomm

Начинать читать отсюда www.gunsmoker.ru/2011/01/blog-post.html‎

Адрес ссылки не рабочий...