Запросы: отчет по сотруднику в указанный интервал времени

@Didilom · Регистрация: 23.01.2013

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

Ребята можете помочь. Вот делаю проект в С++ builder,

Запросы: отчет по сотруднику в указанный интервал времени

Вот для комбобокс прописал код:

C++
1
2
3
4
5
6
7
8
9
Form1->ADOTable1->Filtered=false;
sComboBox1->Items->Clear();
Form1->ADOTable1->First();
for (int i=0; i<Form1->ADOTable1->RecordCount; i++)
 
{
sComboBox1->Items->Add(Form1->ADOTable1->Fields->Fields[1]->AsString);
Form1->ADOTable1->Next();
}

Для даты сделал запрос

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
Form1->ADOQuery2->SQL->Clear();
Form1->ADOQuery2->SQL->Text="SELECT Vipoln.Kod_vipoln, Vipoln.Data, Vipoln.Tab_nomer, Vipoln.Kod_detali, Vipoln.[Kol-vo] FROM Vipoln WHERE Vipoln.Data Between :time1 And :time2";
Form1->ADOQuery2->Parameters->ParamByName("time1")->Value=sDateEdit1->Date.DateString();
Form1->ADOQuery2->Parameters->ParamByName("time2")->Value=sDateEdit2->Date.DateString();
 
Form1->ADOQuery2->Open();
if (Form1->ADOQuery2->RecordCount==0)
{Application->MessageBoxA("По заданному интервалу ничего не найдено!","Внимание",MB_OK);
Form1->DataSource3->DataSet=Form1->ADOTable3;
}
else
{Form1->DataSource3->DataSet=Form1->ADOQuery2;
}

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

The_Immortal · 04.05.2013, 00:38

Didilom, наверное, можно как-то по уму сделать, но вот мой вариант:

SQL
1
2
3
4
SELECT SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель FROM (SELECT Detal.Kod_detali, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]
FROM Vipolnenie, Detal, Sotrudniki
WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Sotrudniki.Famil = 'Иванов' AND Vipolnenie.Data BETWEEN #04/01/2013# AND #04/30/2013#
GROUP BY Detal.Kod_detali, Detal.Stoimost)

- проверяйте в Акцессе.

@Didilom · 04.05.2013, 00:51 **[ТС]**

The_Immortal, спасибо,я проверил все работает. А можете сделать чтобы в одном столбце фамилия была, а в другом сумма? Но с этого запроса я постараюсь кое что взять в отчет.

The_Immortal · 04.05.2013, 05:26

Didilom,

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

А можете сделать чтобы в одном столбце фамилия была, а в другом сумма?

Пожалуйста:

SQL
1
2
3
4
5
SELECT Sotrudniki.Famil, SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель
FROM (SELECT  Sotrudniki.Famil, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]
FROM Vipolnenie, Detal, Sotrudniki
WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Sotrudniki.Famil = 'Иванов' AND Vipolnenie.Data BETWEEN #04/01/2013# AND #04/30/2013#
GROUP BY  Sotrudniki.Famil, Detal.Kod_detali, Detal.Stoimost) GROUP BY Sotrudniki.Famil

@Didilom · 04.05.2013, 11:21 **[ТС]**

The_Immortal, а почему, когда я проверяю запрос в accesse, он все выдает как положено. А как закинул в с++ ->Sql, он мне выдает ошибку

Убираю скобки перед Select или ставлю круглые, дает другую ошибку

а там вроде все норма ?

The_Immortal · 04.05.2013, 15:14

Didilom, работает:

C++
1
2
3
4
5
6
7
8
9
10
11
Form1->ADOQuery1->Close();
Form1->ADOQuery1->SQL->Clear();
Form1->ADOQuery1->SQL->Add("SELECT SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель FROM (SELECT Detal.Kod_detali, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]  \
FROM Vipolnenie, Detal, Sotrudniki \
WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Sotrudniki.Famil = :lastname AND Vipolnenie.DATA BETWEEN :time1 AND :time2  \
GROUP BY Detal.Kod_detali, Detal.Stoimost)");
Form1->ADOQuery1->Parameters->ParamByName("lastname")->Value=Edit1->Text;
Form1->ADOQuery1->Parameters->ParamByName("time1")->Value=DateTimePicker1->Date.DateString();
Form1->ADOQuery1->Parameters->ParamByName("time2")->Value=DateTimePicker2->Date.DateString();
 
Form1->ADOQuery1->Open();

@Didilom · 04.05.2013, 17:29 **[ТС]**

The_Immortal, вы это прислали первый код запроса

SQL
1
2
3
4
SELECT SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель FROM (SELECT Detal.Kod_detali, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]
FROM Vipolnenie, Detal, Sotrudniki
WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Sotrudniki.Famil = 'Иванов' AND Vipolnenie.DATA BETWEEN #04/01/2013# AND #04/30/2013#
GROUP BY Detal.Kod_detali, Detal.Stoimost)

я вам про второй говорил, вот этот

SQL
1
2
3
4
5
SELECT Sotrudniki.Famil, SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель
FROM (SELECT  Sotrudniki.Famil, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]
FROM Vipolnenie, Detal, Sotrudniki
WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Sotrudniki.Famil = 'Иванов' AND Vipolnenie.DATA BETWEEN #04/01/2013# AND #04/30/2013#
GROUP BY  Sotrudniki.Famil, Detal.Kod_detali, Detal.Stoimost) GROUP BY Sotrudniki.Famil

Добавлено через 2 минуты
Я хотел чтобы я не одного сотрудника и дату выбирал, а дату выбрал просто, зарплату он сразу всем сотрудникам посчитал

Добавлено через 43 минуты
The_Immortal, а какая тут может быть ошибка

SQL
1
2
3
4
5
SELECT Sotrudniki.Famil, SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель
FROM (SELECT  Sotrudniki.Famil, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]
FROM Vipolnenie, Detal, Sotrudniki
WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Sotrudniki.Famil = 'Иванов' AND Vipolnenie.DATA BETWEEN #04/01/2013# AND #04/30/2013#
GROUP BY  Sotrudniki.Famil, Detal.Kod_detali, Detal.Stoimost) GROUP BY Sotrudniki.Famil

что она мне выдает такие ошибки?

The_Immortal · 04.05.2013, 17:39

Didilom,

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

вы это прислали первый код запроса

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

я вам про второй говорил

- ага попутал, но его (второго) структура для Jet тоже должна быть понятна.

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

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

В свойстве SQL компонента ADOQuery3 пишете:

SQL
1
SELECT Sotrudniki.Famil, SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель FROM (SELECT Sotrudniki.Famil, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo])  AS [Общее количество]  FROM Vipolnenie, Detal, Sotrudniki WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Vipolnenie.Data BETWEEN :time1 AND :time2 GROUP BY Sotrudniki.Famil, Detal.Kod_detali, Detal.Stoimost) GROUP BY Sotrudniki.Famil

На кнопку:

C++
1
2
3
4
5
6
    Form1->ADOQuery3->Close( );
    Form1->ADOQuery3->Parameters->ParamByName( "time1" )->Value =
        sDateEdit1->Date.DateString( );
    Form1->ADOQuery3->Parameters->ParamByName( "time2" )->Value =
        sDateEdit1->Date.DateString( );
    Form1->ADOQuery3->Open( );

На всякий случай форматирование:

Результат:

@Didilom · 04.05.2013, 23:47 **[ТС]**

В свойстве SQL компонента ADOQuery3 пишете:
Код SQL

SQL
1
SELECT Sotrudniki.Famil, SUM ([Общее количество]) AS ЗарплатаИвановаЗаАпрель FROM (SELECT Sotrudniki.Famil, Detal.Stoimost * SUM (Vipolnenie.[Kol-vo]) *AS [Общее количество] *FROM Vipolnenie, Detal, Sotrudniki WHERE Vipolnenie.Kod_detali = Detal.Kod_detali AND Vipolnenie.Tab_nomer = Sotrudniki.Tab_nomer AND Vipolnenie.DATA BETWEEN :time1 AND :time2 GROUP BY Sotrudniki.Famil, Detal.Kod_detali, Detal.Stoimost) GROUP BY Sotrudniki.Famil

The_Immortal, А до этого который там был SQL мне удалить. Или просто его дописать, ведь у меня уже там есть код

SQL
1
SELECT Sotrudniki.Famil, Vipolnenie.DATA, Detal.Name_detal, Vipolnenie.[Kol-vo]  FROM Sotrudniki, Vipolnenie, Detal WHERE Sotrudniki.Tab_nomer = Vipolnenie.Tab_nomer AND Vipolnenie.Kod_detali = Detal.Kod_detali AND Sotrudniki.Famil = :lastname AND Vipolnenie.DATA BETWEEN :time1 AND :time2

Добавлено через 1 час 5 минут
The_Immortal, то что до этого писал не обращайте внимание, я справился с этой задачей. Сделал то что предложили все также, только он мне в отчете почему выдает только фамилие и сумму только одного сотрудника (Голованов). А в accesse выдает всех сотрудников. Из за чего так может быть?

Добавлено через 15 минут
И я не знаю почему , когда я указываю дату (первую и вторую) он мне не все детали мои считает. Одни и те же даты в программе он мне выдает сумму 1020,35 - а в Accesse 2004,60/

Новые блоги и статьи Все статьи Все блоги /
SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	04.05.2013, 00:51 [ТС]
	The_Immortal, спасибо,я проверил все работает. А можете сделать чтобы в одном столбце фамилия была, а в другом сумма? Но с этого запроса я постараюсь кое что взять в отчет. 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	04.05.2013, 11:21 [ТС]
	The_Immortal, а почему, когда я проверяю запрос в accesse, он все выдает как положено. А как закинул в с++ ->Sql, он мне выдает ошибку Убираю скобки перед Select или ставлю круглые, дает другую ошибку а там вроде все норма ? 0