Выполнение операций над датами в DBGrid

@Bor1and · Регистрация: 03.02.2014

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

Создаю программу в C++ Builder XE7. Нужно посчитать продолжительность рабочего дня (вычесть ВРЕМЯ_ОКОНЧАНИЕ из ВРЕМЯ_НАЧАЛО). В Access это поле имеет вычисляемый тип данных. Думал решить эту проблему следующим образом:

C++
1
dynamic_cast<TDateTimeField*>(Handbook->DBGrid->DataSource->DataSet->Fields->FindField("ПРОДОЛЖИТЕЛЬНОСТЬ"))->DisplayFormat = "hh:nn";

но понял, что это глупость

Помогите пожалуйста решить эту задачку

@Sasha · 21.06.2015, 21:03

вот пример

C++
1
2
3
4
5
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TTime StartTime = StrToTime("8:15"),EndTime = StrToTime("17:00");
ShowMessage((EndTime-StartTime).TimeString());
}

@Bor1and · 21.06.2015, 21:47 **[ТС]**

Sasha, Попробовал так:

C++
1
2
3
4
TTime
    StartTime = ADOQuery1->Fields->Fields[5]->AsDateTime,
    EndTime = ADOQuery1->Fields->Fields[6]->AsDateTime;
ADOQuery1->Fields->Fields[7]->AsString = (EndTime-StartTime).TimeString();

Вышла ошибка

Попробовал по-другому:

C++
1
2
3
4
TTime
    StartTime = ADOQuery1->Fields->Fields[5]->AsDateTime,
    EndTime = ADOQuery1->Fields->Fields[6]->AsDateTime;
ADOQuery1->Fields->Fields[7]->AsDateTime = EndTime-StartTime;

Вышла другая ошибка

Я так понимаю, это из-за того что в БД у этого поля вычисляемый тип данных? Помогите пожалуйста это исправить

@Sasha · 21.06.2015, 22:07

А так?

C++
1
ADOQuery1->Fields->Fields[7]->AsDateTime = ADOQuery1->Fields->Fields[6]->AsDateTime - ADOQuery1->Fields->Fields[5]->AsDateTime;

@Bor1and · 21.06.2015, 22:08 **[ТС]**

Sasha, Ошибка(

@Sasha · 21.06.2015, 22:10

Или ещё вот так вот попробуй

C++
1
ADOQuery1->Fields->Fields[7]->AsTime = ADOQuery1->Fields->Fields[6]->AsTime - ADOQuery1->Fields->Fields[5]->AsTime;

@Bor1and · 21.06.2015, 22:19 **[ТС]**

Sasha, Ошибка при компиляции

[bcc32 Error] TimeTracking_2.cpp(98): E2316 'AsTime' is not a member of 'TField'

Добавлено через 6 минут
Вот почему программа не может нормально взять готовые данные из БД

@Sasha · 21.06.2015, 23:07

Попробуй поля задать явно

C++
1
2
3
4
void __fastcall TForm2::ADOQuery1CalcFields(TDataSet *DataSet)
{
 ADOQuery1->FieldByName("Differ")->AsDateTime  = ADOQuery1->FieldByName("End")->AsDateTime - ADOQuery1->FieldByName("Start")->AsDateTime;
}

Добавлено через 1 минуту
А полю Продолжительность задай назначение калькулятивности

@Bor1and · 21.06.2015, 23:11 **[ТС]**

Sasha, А как это задать?

@Sasha · 21.06.2015, 23:29

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

Sasha, А как это задать?

Вот так

C++
1
2
3
4
5
6
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
  dynamic_cast<TDateTimeField*>(DBGrid1->DataSource->DataSet->Fields->FindField("ПРОДОЛЖИТЕЛЬНОСТЬ"))->FieldKind = fkCalculated;
 
}

C++
1
2
3
4
void __fastcall TForm2::ADOQuery1CalcFields(TDataSet *DataSet)
{
 ADOQuery1->FieldByName("ПРОДОЛЖИТЕЛЬНОСТЬ")->AsDateTime  = ADOQuery1->FieldByName("ВРЕМЯ_ОКОНЧАНИЕ")->AsDateTime - ADOQuery1->FieldByName("ВРЕМЯ_НАЧАЛО")->AsDateTime;
}

@Bor1and · 21.06.2015, 23:39 **[ТС]**

Sasha, Куда не вставлю, везде ошибка. Пробовал ставить и до Active, и после

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
AnsiString buffer;
ADOTable1->RecNo = CBSubDiv->ItemIndex + 1;
buffer = Handbook->ADOTable1->Fields->Fields[0]->AsString;
DataSource1->DataSet = Handbook->ADOQuery1;
ADOQuery1->SQL->Text = "SELECT СОТРУДНИКИ.ФИО, ДАННЫЕ.ДАТА, ДАННЫЕ.МЕСТО, "
                    "ДАННЫЕ.ЦЕЛЬ, ДАННЫЕ.СП_ПЕРЕДВИЖ, ДАННЫЕ.ВРЕМЯ_НАЧАЛО, "
                    "ДАННЫЕ.ВРЕМЯ_ОКОНЧАНИЕ, ДАННЫЕ.ПРОДОЛЖИТЕЛЬНОСТЬ "
                    "FROM (ДАННЫЕ INNER JOIN ПОДРАЗДЕЛЕНИЕ ON "
                    "ДАННЫЕ.Код_подр = ПОДРАЗДЕЛЕНИЕ.КОД_ПОДР) "
                    "INNER JOIN СОТРУДНИКИ ON (ДАННЫЕ.КОД_СОТР = "
                    "СОТРУДНИКИ.КОД_СОТР) AND (ПОДРАЗДЕЛЕНИЕ.КОД_ПОДР = "
                    "СОТРУДНИКИ.КОД_ПОДР)"
                    "WHERE (((ПОДРАЗДЕЛЕНИЕ.КОД_ПОДР)=" + buffer + "))";
dynamic_cast<TDateTimeField*>(DBGrid->DataSource->DataSet->Fields->FindField("ПРОДОЛЖИТЕЛЬНОСТЬ"))->FieldKind = fkCalculated;
ADOQuery1->Active = true;

Ошибку не выдает, если вставить эту строку кода в

C++
1
2
3
4
5
void __fastcall THandbook::ADOQuery1CalcFields(TDataSet *DataSet)
{
    dynamic_cast<TDateTimeField*>(DBGrid->DataSource->DataSet->Fields->FindField("ПРОДОЛЖИТЕЛЬНОСТЬ"))->FieldKind = fkCalculated;
    ADOQuery1->FieldByName("ПРОДОЛЖИТЕЛЬНОСТЬ")->AsDateTime  =  ADOQuery1->FieldByName("ВРЕМЯ_ОКОНЧАНИЕ")->AsDateTime - ADOQuery1->FieldByName("ВРЕМЯ_НАЧАЛО")->AsDateTime;
}

Но так данные остаются некорректными.

@Bor1and · 22.06.2015, 22:29 **[ТС]**

Sasha, Так, я тут подумал и решил решить эту задачку следующим образом:
Изначально не выводить поле ПРОДОЛЖИТЕЛЬНОСТЬ, а добавить это поле в DBGrid, так как это поле в самой БД все равно будет меняться корректно:

C++
1
2
3
4
5
6
7
8
9
TColumn *Column;
for(int i = 0; i < DataSource1->DataSet->FieldCount + 1; i++)
{
    Column = DBGrid->Columns->Add();
    if (i < DataSource1->DataSet->FieldCount)
        Column->Field = DataSource1->DataSet->Fields->Fields[i];
    if (i >= DataSource1->DataSet->FieldCount)
        Column->Title->Caption = "ПРОДОЛЖИТЕЛЬНОСТЬ";
}

Добавить у меня получилось, но возник вопрос, как же внести туда данные, если использовать этот код, то выходит ошибка:

C++
1
DBGrid->Fields[7]->AsString = "asdasd" ;

Или же мои опасения оправданы и внести туда данные попросту невозможно?

@Sasha · 23.06.2015, 00:40

Bor1and, а так?

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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ADOQuery1AfterOpen(TDataSet *DataSet)
{
dynamic_cast<TDateTimeField*>(DBGrid1->DataSource->DataSet->Fields->FindField("ВРЕМЯ_НАЧАЛО"))->DisplayFormat = "hh:mm";
dynamic_cast<TDateTimeField*>(DBGrid1->DataSource->DataSet->Fields->FindField("ВРЕМЯ_КОНЕЦ"))->DisplayFormat = "hh:mm";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("Select *from qwe");
   ADOQuery1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("Select ВРЕМЯ_НАЧАЛО, ВРЕМЯ_КОНЕЦ, FORMAT(ВРЕМЯ_КОНЕЦ - ВРЕМЯ_НАЧАЛО,'hh:mm') AS ПРОДОЛЖИТЕЛЬНОСТЬ from qwe");
 ADOQuery1->Open();
int widthcolumn = (DBGrid1->Width)/(DBGrid1->FieldCount);
 TColumn *Column;
  for(int i = 0; i < DataSource1->DataSet->FieldCount; i++)
 {
    Column = DBGrid1->Columns->Add();
    Column->Field = DataSource1->DataSet->Fields->Fields[i];
    Column->Alignment = taCenter;
    Column->Title->Alignment = taCenter;
    DBGrid1->Columns->Items[i]->Width = widthcolumn;
  }
}
//--------------------------------------

@Bor1and · 23.06.2015, 12:02 **[ТС]**

Sasha, вот что в итоге

@Sasha · 23.06.2015, 12:34

Bor1and, а если вообще убрать поле продолжительность из базы?

@Bor1and · 23.06.2015, 12:55 **[ТС]**

Sasha, Хм, тоже самое

@Sasha · 23.06.2015, 18:30

Выкладываю тебе проект

@Bor1and · 24.06.2015, 21:35 **[ТС]**

Sasha, Спасибо большое) Все понял, это все из-за поставщика, у меня - Microsoft.ACE.OLEDB.12.0,
у вас - Microsoft.Jet.OLEDB.4.0. Но к сожалению, ваш поставщик не воспринимает формат *.accdb. А его я и изменить не могу.

Добавлено через 32 минуты
А по другому значит никак?

Добавлено через 23 часа 45 минут
Sasha, сейчас попытался сделать так

C++
1
ADOQuery1->FieldByName("ПРОДОЛЖИТЕЛЬНОСТЬ")->AsDateTime = ADOQuery1->FieldByName("ВРЕМЯ_ОКОНЧАНИЕ")->AsDateTime - ADOQuery1->FieldByName("ВРЕМЯ_НАЧАЛО")->AsDateTime;

но выходит ошибка, говорящая о том, что "Набор данных не находится в режиме редактирования или в режиме вставки". Тогда я сделал так:

C++
1
2
ADOQuery1->Edit();
    ADOQuery1->FieldByName("ПРОДОЛЖИТЕЛЬНОСТЬ")->AsDateTime = ADOQuery1->FieldByName("ВРЕМЯ_ОКОНЧАНИЕ")->AsDateTime - ADOQuery1->FieldByName("ВРЕМЯ_НАЧАЛО")->AsDateTime;

так работает хорошо, но если кликнуть в какое-нибудь поле, то значение в ПРОДОЛЖИТЕЛЬНОСТЬ становится пустым.

P.S. Пробовал и так

C++
1
2
3
ADOQuery1->Edit();
    ADOQuery1->FieldByName("ПРОДОЛЖИТЕЛЬНОСТЬ")->AsDateTime = ADOQuery1->FieldByName("ВРЕМЯ_ОКОНЧАНИЕ")->AsDateTime - ADOQuery1->FieldByName("ВРЕМЯ_НАЧАЛО")->AsDateTime;
    ADOQuery1->Post();

но это погоду не сделало. Просто поле сразу же становится пустым.

@Sasha · 24.06.2015, 23:54

Bor1and, а попробуй ка вот так вот

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
 void __fastcall TForm2::ADOQuery1AfterOpen(TDataSet *DataSet)
{
dynamic_cast<TDateTimeField*>(DBGrid1->DataSource->DataSet->Fields->FindField("ВРЕМЯ_НАЧАЛО"))->DisplayFormat = "hh:mm";
dynamic_cast<TDateTimeField*>(DBGrid1->DataSource->DataSet->Fields->FindField("ВРЕМЯ_КОНЕЦ"))->DisplayFormat = "hh:mm";
dynamic_cast<TDateTimeField*>(DBGrid1->DataSource->DataSet->Fields->FindField("ПРОДОЛЖИТЕЛЬНОСТЬ"))->DisplayFormat = "hh:mm";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
   ADOQuery1->Close();
   ADOQuery1->SQL->Clear();
   ADOQuery1->SQL->Add("Select *from qwe");
   ADOQuery1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("UPDATE qwe set ПРОДОЛЖИТЕЛЬНОСТЬ  = ВРЕМЯ_КОНЕЦ - ВРЕМЯ_НАЧАЛО");
 ADOQuery1->ExecSQL();
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("Select *from qwe");
 ADOQuery1->Open();
 
}
//---------------------------------------------------------------------------

Этот код вычисляет время и сохраняет в базу и выводит сразу изменения

Добавлено через 1 минуту
Только поменяй имя таблицы

@Bor1and · 25.06.2015, 00:41 **[ТС]**

Sasha, блин, невозможно обновить поле ПРОДОЛЖИТЕЛЬНОСТЬ; не обновляемое поле

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	21.06.2015, 22:08 [ТС]
	Sasha, Ошибка( 0

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	21.06.2015, 22:19 [ТС]
	Sasha, Ошибка при компиляции [bcc32 Error] TimeTracking_2.cpp(98): E2316 'AsTime' is not a member of 'TField' Добавлено через 6 минут Вот почему программа не может нормально взять готовые данные из БД 0

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	21.06.2015, 23:11 [ТС]
	Sasha, А как это задать? 0

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	23.06.2015, 12:02 [ТС]
	Sasha, вот что в итоге Миниатюры 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	23.06.2015, 12:34
	Bor1and, а если вообще убрать поле продолжительность из базы? 0

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	23.06.2015, 12:55 [ТС]
	Sasha, Хм, тоже самое 0

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	25.06.2015, 00:41 [ТС]
	Sasha, блин, невозможно обновить поле ПРОДОЛЖИТЕЛЬНОСТЬ; не обновляемое поле 0

Выполнение операций над датами в DBGrid

Решение