Как программно нажимать button до тех пор пока label не изменится

[FleXik]

А что ты там такое расчитываешь? Давай колись. Да поподробнее. В каждый каппилярчик.

данные ворует какие-то наверное :D

[Roman123654789]

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

А что ты там такое расчитываешь? Давай колись. Да поподробнее. В каждый каппилярчик.

Может вам бросить целую программу в архиве?

[Stilet]

Смысл? Неужели описать не сможешь?

[Roman123654789]

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

Смысл? Неужели описать не сможешь?

Есть две таблицы, в первую заносятся стали данные, во вторую водятся переменные данные, далее при нажатии на кнопку выполняются действия (т.е. берутся данные с "постоянной" таблицы и данные "переменной" таблицы, таблицы между собой связаны), затем результат вычисления выводится в первой таблици.А потом если ...

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

[Stilet]

Нда... Описание тоже ничего не проясняет...
Ну выкладывай проект в архив.
Я посмотреть смогу только завтра, но другие форумчане возможно прояснят ситуацию.

[Roman123654789]

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

Нда... Описание тоже ничего не проясняет...
Ну выкладывай проект в архив.
Я посмотреть смогу только завтра, но другие форумчане возможно прояснят ситуацию.

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

Архів WinRAR.rar

[Stilet]

Давай так: Я прогу посмотреть смогу скорее всего только вечером потому что в нашем осадном положении в городе нет интернета, а пока что могу сказать кое-что:

procedure TForm1.Button1Click(Sender: TObject);
var s: real;
    n: integer;
begin
s:=0;
form3.dbedit2.DataField:='';
form3.dbedit1.DataField:='';
form3.dbedit3.DataField:='';
dbgrid1.Visible:=true;
dbgrid2.Visible:=false;

with form1.ADOQuery1  do
begin
 close;
  Sql.text:=SELECT sum([Ціна]),count(*) from запрос2');
 open;
 Label1.Caption :=Format('%m",[Fields[0].AsFloat]);
 Label4.Caption :='Введено пігментів: '+inttostr(Fields[0].AsInt);
end;

label1.Visible:=true;
label2.Visible:=true;
label4.Visible:=true;
end;

Это вместо твоего цикла подсчета суммы. Остальное уже наверное вечером точнее скажу.

[evg_m]

1. добавить на форму TADOConnection.
2. настроить его соединение с БД.
3. во всех остальных ADOQuery
настроить свойство connection =<имя вновь добавленного ADOConnection >
и удалить(стереть) ConnectionString

Причина: любое соединение "видит" изменения внесенные "чужим" соединением только через некоторый интервал времени.

а через некоторое время если снова нажать тогда уж все нормально

[Roman123654789]

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

1. добавить на форму TADOConnection.
2. настроить его соединение с БД.
3. во всех остальных ADOQuery
настроить свойство connection =<имя вновь добавленного ADOConnection >
и удалить(стереть) ConnectionString

Причина: любое соединение "видит" изменения внесенные "чужим" соединением только через некоторый интервал времени.

Большое cпасибо, программа заработала нормально.

[Roman123654789]

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

Давай так: Я прогу посмотреть смогу скорее всего только вечером потому что в нашем осадном положении в городе нет интернета, а пока что могу сказать кое-что:

procedure TForm1.Button1Click(Sender: TObject);
var s: real;
    n: integer;
begin
s:=0;
form3.dbedit2.DataField:='';
form3.dbedit1.DataField:='';
form3.dbedit3.DataField:='';
dbgrid1.Visible:=true;
dbgrid2.Visible:=false;

with form1.ADOQuery1  do
begin
 close;
  Sql.text:=SELECT sum([Ціна]),count(*) from запрос2');
 open;
 Label1.Caption :=Format('%m",[Fields[0].AsFloat]);
 Label4.Caption :='Введено пігментів: '+inttostr(Fields[0].AsInt);
end;

label1.Visible:=true;
label2.Visible:=true;
label4.Visible:=true;
end;

Это вместо твоего цикла подсчета суммы. Остальное уже наверное вечером точнее скажу.

И вам я очень благодарен, что хотели помочь мне.