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

@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;
}

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

@Didilom · 30.04.2013, 18:50 **[ТС]**

Ребята помогите пожалуйста, это срочно надо на диплом

The_Immortal · 30.04.2013, 19:24

Didilom, что конкретно должен в себя включать отчет?
Как вариант, использовать FastReport.

FastReport. Руководство программиста

@Didilom · 30.04.2013, 19:33 **[ТС]**

У меня есть вот запрос на фамилии

C++
1
2
3
4
5
6
7
8
9
10
Form1->ADOQuery1->Close();
Form1->ADOQuery1->SQL->Clear();
Form1->ADOQuery1->SQL->Add("SELECT Sotrud.Tab_nomer, Sotrud.Famil, Sotrud.Name, Sotrud.Otchestvo, Sotrud.Dolghnost, Sotrud.Razrayd, Sotrud.Foto FROM Sotrud WHERE Sotrud.Famil Like '%"+ sComboBox1->Text +"%'");
Form1->ADOQuery1->Open();
if (Form1->ADOQuery1->RecordCount==0)
{Application->MessageBoxA("Нет записей","Внимание",MB_OK);
Form1->DataSource1->DataSet=Form1->ADOTable1;
}
else
{Form1->DataSource1->DataSet=Form1->ADOQuery1;}

И запрос на дату

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;
}

Отчет должен содержать: Фамилие того кого я выберу в комбобокс на форме, дата, наименование деталей какие он делал в период который тоже выбираю на форме и кол-во. Ну отчет я и буду делать в Fastreporte. Просто не знаю как это осуществить.

The_Immortal · 30.04.2013, 21:23

Didilom,

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

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

Насколько я вижу у Вас получились независимые друг от друга запросы.
Результатом первого является детализированная информация о выбранном сотруднике.
Результатом второго является информация о выполненных работах (по идее по всем сотрудникам).
Интуитивно их надо объединить.

Но может я что-то не так понял.

А вообще было бы неплохо увидеть структуру БД.

@Didilom · 30.04.2013, 21:32 **[ТС]**

Вот моя база вся для этого проекта, там таблицы и запросы.
BD.rar

The_Immortal · 30.04.2013, 21:42

Didilom, среди представленных запросов я не вижу ни одного, который соединяет таблицу.

Постройте мне следующий запрос: что конкретно выполнил Иванов с 11.04.2013 по 12.04.2013?

@Didilom · 30.04.2013, 21:48 **[ТС]**

Окей, попробовал кое что
BD.rar

The_Immortal · 30.04.2013, 21:57

Didilom, ну отлично. Я правда немного по-другому это дело рассмотрел (без диапазона дат):

SQL
1
SELECT  Vipolnenie.Data, Detal.Name_detal, Vipolnenie.[Kol-vo], Vipolnenie.[Kol-vo] * Detal.Stoimost AS Obsh_Stoimost FROM Sotrudniki,  Vipolnenie, Detal WHERE Sotrudniki.Tab_nomer = Vipolnenie.Tab_nomer AND Vipolnenie.Kod_detali = Detal.Kod_detali AND Sotrudniki.Famil = 'Иванов'

Только с выводом общей стоимости надо еще поработать. Хотя не знаю, нужна ли она вообще.

Вот теперь подобный запрос и организовывайте в программе.

@Didilom · 30.04.2013, 22:06 **[ТС]**

А вы этот запрос в Accesse или сами написали на SQL ? Если в Acesse? то хотел бы просмотреть как сделали, для себя чисто.

И еще хотел спросить, если я вставлю этот запрос, то он мне не будет выдавать только "Иванова"?

The_Immortal · 30.04.2013, 22:10

Didilom, в общем, Ваш уровень подготовки мне понятен - только не в обиду.
Буду поздно. Но постараюсь накидать проект с отчетом. Возможно, сделаю видео.

Но, повторюсь, это будет ночью.

Только уточните, что Вам нужно:

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

Отчет должен содержать: Фамилие того кого я выберу в комбобокс на форме, дата, наименование деталей какие он делал в период который тоже выбираю на форме и кол-во.

- это точно все?

@Didilom · 30.04.2013, 22:44 **[ТС]**

Immortal, вот я взял код запроса, который я делал последним

C++
1
2
3
SELECT Фам.Famil, дата.Data, дата.Kod_detali, дата.[Kol-vo]
FROM дата, Фам
WHERE (((Фам.Famil) Like "Иванов") AND ((дата.Data) Between #4/11/2013# And #4/12/2013#));

и он мне выдает в отчете только Иванова и к нему же приписывает детали других сотрудников периода с 11.04.2013 по 12.04.20013

А как сделать чтобы он мне выдавал того который я выбираю в комбобокс и именно его детали с указанного периода?

Добавлено через 2 минуты
Immortal, да точно все. Окей, спасибо большое! Буду ждать

The_Immortal · 01.05.2013, 10:46

Didilom, в общем, Вам не повезло. У меня неожиданно навернулась IDE, так что сделать ничего не удалось.
Возможно, проблему решу в течение дня, но пока давайте сами.

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

А как сделать чтобы он мне выдавал того который я выбираю в комбобокс и именно его детали с указанного периода?

SQL
1
2
3
4
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

C++
1
2
3
4
5
Form1->ADOQuery2->Parameters->ParamByName("lastname")->Value=sComboBox1->Text;
Form1->ADOQuery2->Parameters->ParamByName("time1")->Value=sDateEdit1->Date.DateString();
Form1->ADOQuery2->Parameters->ParamByName("time2")->Value=sDateEdit2->Date.DateString();
Form1->ADOQuery2->Open();
frxReport1->ShowReport();

Сейчас объясню так.

1. Запрос помещаете в свойство SQL компоненты ADOQuery2 (не забудьте убрать косые черточки).
2. Код вешаете на кнопку "Отчет".
3. В компоненте frxDBDataset1 в свойстве DataSet выбираете ADOQuery2.
4. Два раза щелкаете по frxReport1 - откроется дизайнер.
5. Если не сообразите, что делать в дизайнере, то пишите.
6. Реал Мадрид - засранцы. Я спать.

@Didilom · 01.05.2013, 10:57 **[ТС]**

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

6. Реал Мадрид - засранцы. Я спать.

Ахаххаа

The_Immortal · 01.05.2013, 16:22

Didilom, кое-что забыл:

C++
1
2
3
4
5
6
Form1->ADOQuery2->Close();
Form1->ADOQuery2->Parameters->ParamByName("lastname")->Value=sComboBox1->Text;
Form1->ADOQuery2->Parameters->ParamByName("time1")->Value=sDateEdit1->Date.DateString();
Form1->ADOQuery2->Parameters->ParamByName("time2")->Value=sDateEdit2->Date.DateString();
Form1->ADOQuery2->Open();
frxReport1->ShowReport();

- в данном случае при вызове отчета НД надо обязательно каждый раз закрывать.

Если очень горит, то могу помочь удаленно.
Смотрите ПМ.

@Didilom · 02.05.2013, 16:59 **[ТС]**

Immortal, ты не поверишь на сколько сильно горит, через неделю диплом защищать, а я до сих пор с этой программой вожусь

The_Immortal · 02.05.2013, 19:59

Didilom,

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

сильно горит

Так я же Вам написал личное сообщение с предложением помочь. Читайте.

@Didilom · 03.05.2013, 23:49 **[ТС]**

Вот Бд, запрос называется "на проверку"
BD.rar

The_Immortal · 04.05.2013, 00:07

Didilom, ух ты! Джоины пошли - одобряю

Однако результат не соотвтетствует действительности: подсчитайте сами сколько Иванов заработал за апрель (вручную) и сравните с результатом Вашего запроса.

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

До этого (незнаю что я сделал), были две строчки и одну из них я проверил было правильно. Потом что то сделал появилась одна строчка и неправильно :-)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	30.04.2013, 18:50 [ТС]
	Ребята помогите пожалуйста, это срочно надо на диплом 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	30.04.2013, 19:24
	Didilom, что конкретно должен в себя включать отчет? Как вариант, использовать FastReport. FastReport. Руководство программиста 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	30.04.2013, 21:32 [ТС]
	Вот моя база вся для этого проекта, там таблицы и запросы. BD.rar 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	30.04.2013, 21:42
	Didilom, среди представленных запросов я не вижу ни одного, который соединяет таблицу. Постройте мне следующий запрос: что конкретно выполнил Иванов с 11.04.2013 по 12.04.2013? 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	30.04.2013, 21:48 [ТС]
	Окей, попробовал кое что BD.rar 1

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	30.04.2013, 22:06 [ТС]
	А вы этот запрос в Accesse или сами написали на SQL ? Если в Acesse? то хотел бы просмотреть как сделали, для себя чисто. И еще хотел спросить, если я вставлю этот запрос, то он мне не будет выдавать только "Иванова"? 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	02.05.2013, 16:59 [ТС]
	Immortal, ты не поверишь на сколько сильно горит, через неделю диплом защищать, а я до сих пор с этой программой вожусь 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	03.05.2013, 23:49 [ТС]
	Вот Бд, запрос называется "на проверку" BD.rar 1

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	04.05.2013, 00:07
	Didilom, ух ты! Джоины пошли - одобряю Однако результат не соотвтетствует действительности: подсчитайте сами сколько Иванов заработал за апрель (вручную) и сравните с результатом Вашего запроса. 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	04.05.2013, 00:10 [ТС]
	До этого (незнаю что я сделал), были две строчки и одну из них я проверил было правильно. Потом что то сделал появилась одна строчка и неправильно :-) 0