Выполнение расчета по одному нажатию Кнопки.

@Nikolay88_X · Регистрация: 30.06.2011

Студворк — интернет-сервис помощи студентам

Привет всем! помогите пожалуйста разобраться. Я делаю расчеты по Таблице. Но мне приходиться
2 раза нажимать на одну и ту же кнопку, чтобы весь расчет был полностью завершен.
при втором нажатии на кнопку срабатывает эта функция.
DataSource2->DataSet->FieldByName("Plastik")->Value = floor(Plastik);
Как избежать двойного нажатия на кнопку?
я даже в конце кода поставил Button3->OnClick; чтобы он сам себя кликал.
Button3->OnClick; Но не срабатывает. Вот мой пример Кода:

C++
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Extended Nalog,S,S2,Zarplata,Plastik,Nalichka;
Table2->First();
   while(!Table2->Eof)
 {
 S = (Table2Oklad->Value)/(Table2PrivChasi->Value);
S2 = S*(Table2OtRChasi->Value);
Nalog = (Table2PodohodNalog->Value + Table2PenFond->Value
 + Table2ProFsouz->Value+Table2Alimenti->Value+Table2PenNak->Value)*(0.01)* S2;
Zarplata = S2-(Nalog)-(Table2Svet->Value+Table2Gaz->Value+Table2Subbotnik->Value);
Plastik = Zarplata*(0.01)*(StrToInt(Table2Plastic->Text));
Nalichka = Zarplata -Plastik;
     DataSource2->DataSet->Edit();
 
DataSource2->DataSet->FieldByName("Plastik")->Value = floor(Plastik);
     DataSource2->DataSet->FieldByName("KViplate")->Value = floor(Nalichka);
     //   if  (DataSource2->DataSet->FieldByName("KViplate")->Value <=0 )
      {
      DataSource2->DataSet->FieldByName("KViplate")->Value = 0;
      }
     // DataSource2->DataSet->FieldByName("PodSum")->Value = floor(S2*(Table2PodohodNalog->Value)*(0.01));
     DataSource2->DataSet->FieldByName("PenFSum")->Value = floor(S2*(Table2PenFond->Value)*(0.01));
     DataSource2->DataSet->FieldByName("ProFSum")->Value = floor(S2*(Table2ProFsouz->Value)*(0.01));
     DataSource2->DataSet->FieldByName("PenNakSum")->Value = floor(S2*(Table2PenNak->Value)*(0.01));
     DataSource2->DataSet->FieldByName("AlimSum")->Value  = floor(S2*(Table2Alimenti->Value)*(0.01));
     DataSource2->DataSet->FieldByName("Nachisleno")->Value = floor(S2);
 
        if (Table2PodohodNalog->Text == Form3->DBEdit8->Text)
      {
      DataSource2->DataSet->FieldByName("PodSum")->Value = floor((0.01)*(S2)*StrToInt(Form3->DBEdit8->Text));
      }
       if (Table2PodohodNalog->Text == Form3->DBEdit9->Text)
      {
      DataSource2->DataSet->FieldByName("PodSum")->Value = floor((S2)*(0.01)*StrToInt(Form3->DBEdit9->Text)) - floor((0.3)*StrToInt(Form3->DBEdit7->Text));
      }
      if (Table2PodohodNalog->Text == Form3->DBEdit10->Text)
      {
      DataSource2->DataSet->FieldByName("PodSum")->Value = floor((S2)*(0.01)*StrToInt(Form3->DBEdit10->Text)) - floor((0.9)*StrToInt(Form3->DBEdit7->Text));
      }
  DataSource2->DataSet->Post();
     Table2->Next();
 }
  Table2->First();
 Button3->OnClick;
  Button3->OnClick;
}

Комментарий модератора

Используйте теги форматирования кода!

Все ровно приходиться 2 раза нажимать.
Помогите советами. Заранее Благодарю.

@Sasha · 20.02.2012, 10:30

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

Extended Nalog,S,S2,Zarplata,Plastik,Nalichka;

Что это за тип данных Extended?

@Nikolay88_X · 20.02.2012, 20:14 **[ТС]**

Extended формат который хранит большие числа.
It should be 7 or less for values of type float, 15 or less for values of type double, and 18 or less for values of type Extended. The meaning of the digits parameter depends on the particular format selected.

Дело не в этом. Даже когда ставлю float тоже самое приходиться нажимать два раза.
Ну это явно не в компиляторе и не в операционке дело. Помогите советами очень прошу.

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

@Nikolay88_X · 22.02.2012, 22:51 **[ТС]**

Люди помогите идеями. что может быть в чем загвозка?

Добавлено через 27 минут
Все получилось Разобрался нужно было сделать так.
Button3->Click();
Button3->Click();

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

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Nikolay88_X 87 / 87 / 1 Регистрация: 30.06.2011 Сообщений: 123
	20.02.2012, 20:14 [ТС]
	Extended формат который хранит большие числа. It should be 7 or less for values of type float, 15 or less for values of type double, and 18 or less for values of type Extended. The meaning of the digits parameter depends on the particular format selected. Дело не в этом. Даже когда ставлю float тоже самое приходиться нажимать два раза. Ну это явно не в компиляторе и не в операционке дело. Помогите советами очень прошу. Добавлено через 26 минут Даже в базе Acces тоже самое приходиться два раза нажимать на кнопку, чтобы расчет полностью выполнился. Может сам DataSet не рассчитан для таких операций. Может есть другой способ задать цикл для всей таблице. 0

@Nikolay88_X 87 / 87 / 1 Регистрация: 30.06.2011 Сообщений: 123
	22.02.2012, 22:51 [ТС]
	Люди помогите идеями. что может быть в чем загвозка? Добавлено через 27 минут Все получилось Разобрался нужно было сделать так. Button3->Click(); Button3->Click(); но это грубый метод 2 раза вызывать ее. но почему по одному нажатию Расчет полностью не выполняется, это очень странно. 0