Значения таймера в ячейке таблицы

@GR3YVAC · Регистрация: 28.03.2016

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

Добрый вечер, уважаемые Форумчане и Администрация сайта!
Прошу помощи в решении задачи:
Создать приложение, в котором производят следующие действия - заполняется поле: id_card, затем нажимаем кнопку старт и в таблице появляется запись(как в прикрепленном изображении): id(№ п/п), idcard, time; при этом в time начинается отсчет времени в формате "чч:мм:сс" (00:00:12 и т.д). После нажатия на кнопку "Стоп" - значение таймера останавливается и в поле "SUM" вписывается сумма(сумма расчитывается по принципу 1 час = 100 руб.)+ одновременно всю эту строчку записывает в базу.

Работаю в Embarcadero Rad Studio xe7
база - InterBase

При работе столкнулся с проблемой вывести идущий таймер в таблицу(но таблица это же отображение данных из бд), поэтому не представляю как это можно сделать. Подскажите, пожалуйста.
За ранее благодарен! с Уважением, Вячеслав.

Скрин БД прилогаю.

@GR3YVAC · 13.04.2016, 21:04 **[ТС]**

Может у кого есть предположения как это по другому реализовать? Поделитесь, пожалуйста, буду рад любым советам. Спасибо.

@D1973 · 14.04.2016, 18:20

GR3YVAC, делай в обыкновенном СтрингГриде, а после нажатия кнопки СТОП и расчета суммы просто переноси полученные данные в БД

@GR3YVAC · 14.04.2016, 19:06 **[ТС]**

D1973, Спасибо большое! Ещё вопрос: как реализовать обновление ячейки в котором отображён таймер? Чтобы каждую секунду обновлять значение ячейки ?Сейчас таймер в ячейке StringGrid отображается только после нажатия "стоп" с текущим значением.
Спасибо.

@D1973 · 14.04.2016, 19:22

На форме StringGrid, кнопка Button1 (свойство Caption = "Start") и таймер (Enabled = false)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(Button1->Caption == "Start")
   {
     Button1->Caption = "Stop";
     StringGrid1->Cells[1][1] = TimeToStr(Now());
   }
  else
   {
     Button1->Caption = "Start";
     //Тут твои вычисления и т.д.
   }
  Timer1->Enabled = !Timer1->Enabled;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  StringGrid1->Cells[1][1] = TimeToStr(Now());
  Application->ProcessMessages();
}
//---------------------------------------------------------------------------

@GR3YVAC · 14.04.2016, 19:25 **[ТС]**

D1973, Спасибо за помощь!

@GR3YVAC · 15.04.2016, 22:14 **[ТС]**

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

@D1973 · 16.04.2016, 17:12

Не по теме:

GR3YVAC, ой, блин, да на здоровье!!! Обращайся, ежели чего!!!

@gunslinger · 16.04.2016, 22:54

Кликните здесь для просмотра всего текста

Не по теме:

@GR3YVAC · 18.04.2016, 14:22 **[ТС]**

Значение таймера выводится в ячейку StringGrid:

Объявляем переменную:

id_card1 = "1w2e8956dfv5";

в таймер пишется

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
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
if ( s <= 59 )
 {
 s++;
 }
 else if ( s >= 59 )
  {
  s = 0;
  s++;
  if ( m <= 59 )
    {
    m++;
     }
     else if ( m >= 59 )
      {
      m = 0;
      if ( h <= 24 )
        {
        h++;
      }
      else if ( h >= 0 )
       {
        h = 0;
        m = 0;
        s = 0;
  }
}
}
StringGrid1->Cells[2][1] = IntToStr(h)+":"+IntToStr(m)+":"+IntToStr(s);
Application->ProcessMessages();
 
}

Дальше в EditChange:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
if (Edit2->Text == id_card1)
{
    if (StringGrid1->Cells[1][1] != id_card1)
    {
        StringGrid1->Cells[1][1] = id_card1;
        Timer1->Enabled = true;
        Edit2->SetFocus();
        Edit2->Text = "";
    }
    else
    {
        Timer1->Enabled = false;
        AnsiString s = StringGrid1->Cells[2][1];
        StringGrid1->Cells[3][1] = s;
        ShowMessage("Спасибо, вы пробыли у нас: " + s);
        Edit2->Text = "";
    }
}
 
}
//---------------------------------------------------------------------------

Может кому пригодится.
Как-то так, не судите строго... Может кто предложит более удобный вариант, буду рад))

@GR3YVAC · 21.04.2016, 15:16 **[ТС]**

Всем спасибо за помощь!
вот рабочий проект:

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45

	Значения таймера в ячейке таблицы 13.04.2016, 17:10. Показов 1432. Ответов 10 Метки нет (Все метки) Добрый вечер, уважаемые Форумчане и Администрация сайта! Прошу помощи в решении задачи: Создать приложение, в котором производят следующие действия - заполняется поле: id_card, затем нажимаем кнопку старт и в таблице появляется запись(как в прикрепленном изображении): id(№ п/п), idcard, time; при этом в time начинается отсчет времени в формате "чч:мм:сс" (00:00:12 и т.д). После нажатия на кнопку "Стоп" - значение таймера останавливается и в поле "SUM" вписывается сумма(сумма расчитывается по принципу 1 час = 100 руб.)+ одновременно всю эту строчку записывает в базу. Работаю в Embarcadero Rad Studio xe7 база - InterBase При работе столкнулся с проблемой вывести идущий таймер в таблицу(но таблица это же отображение данных из бд), поэтому не представляю как это можно сделать. Подскажите, пожалуйста. За ранее благодарен! с Уважением, Вячеслав. Скрин БД прилогаю. Миниатюры 0

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	13.04.2016, 21:04 [ТС]
	Может у кого есть предположения как это по другому реализовать? Поделитесь, пожалуйста, буду рад любым советам. Спасибо. 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	14.04.2016, 18:20
	GR3YVAC, делай в обыкновенном СтрингГриде, а после нажатия кнопки СТОП и расчета суммы просто переноси полученные данные в БД 1

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	14.04.2016, 19:06 [ТС]
	D1973, Спасибо большое! Ещё вопрос: как реализовать обновление ячейки в котором отображён таймер? Чтобы каждую секунду обновлять значение ячейки ?Сейчас таймер в ячейке StringGrid отображается только после нажатия "стоп" с текущим значением. Спасибо. 0

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	14.04.2016, 19:25 [ТС]
	D1973, Спасибо за помощь! 0

@GR3YVAC 2 / 2 / 3 Регистрация: 28.03.2016 Сообщений: 45
	15.04.2016, 22:14 [ТС]
	Выражаю благодарность за помощь в решении задачи D1973, Ваш совет был ключевым в решении. Спасибо! Через пару дней вкину код, может кому понадобиться! 0

@D1973
	16.04.2016, 17:12
	Не по теме: GR3YVAC, ой, блин, да на здоровье!!! Обращайся, ежели чего!!! 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	16.04.2016, 22:54
	Кликните здесь для просмотра всего текста Не по теме: 1

Значения таймера в ячейке таблицы

Решение