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

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

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

Создаю программу в 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++

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++

TTime
    StartTime = ADOQuery1->Fields->Fields[5]->AsDateTime,
    EndTime = ADOQuery1->Fields->Fields[6]->AsDateTime;
ADOQuery1->Fields->Fields[7]->AsString = (EndTime-StartTime).TimeString();

Вышла ошибка

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

C++

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++

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++

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

C++

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

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

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

C++

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++

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++

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++

#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++

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++

 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, блин, невозможно обновить поле ПРОДОЛЖИТЕЛЬНОСТЬ; не обновляемое поле

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

@Bor1and 1 / 1 / 0 Регистрация: 03.02.2014 Сообщений: 66
	21.06.2015, 22:19 [ТС]	7
	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 [ТС]	9
	Sasha, А как это задать? 0

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

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

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

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

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

Решение