Запросы: отчет о сделанной работе

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

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

Доброго времени суток всем!! Хотел спросить, вот я хочу чтобы при выборе "фамилия" и "даты" мне выдавала отчет о сделанной работе сотрудника.

Вот прописал код для sComboBox1, для списка фамилий

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm5::sComboBox1DropDown(TObject *Sender)
{
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
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
47
48
49
void __fastcall TForm5::sComboBox1DropDown(TObject *Sender)
{
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();
}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::sBitBtn1Click(TObject *Sender)
{
// íà ôàìèëèå
Form1->ADOQuery1->Close();
Form1->ADOQuery1->SQL->Clear();
Form1->ADOQuery1->SQL->Add("SELECT Sotrudniki.Tab_nomer, Sotrudniki.Famil, Sotrudniki.Name, Sotrudniki.Otchestvo, Sotrudniki.Dolghnost, Sotrudniki.Razryad, Sotrudniki.Foto FROM Sotrudniki WHERE (((Sotrudniki.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;}
 
 
// íà äàòó
 
 
Form1->ADOQuery2->SQL->Clear();
Form1->ADOQuery2->SQL->Text="SELECT Vipolnenie.Kod_vipoln, Vipolnenie.Data, Vipolnenie.Tab_nomer, Vipolnenie.Kod_detali, Vipolnenie.Kol-vo FROM Vipolnenie WHERE (((Vipolnenie.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;
}
 
 
}

И он мне выдает ошибку "Обнаружены символы за пределами SQL"
Помогите пожалуйста разобраться, что это может быть?
Я смотрел, вроде все нома.

The_Immortal · 27.04.2013, 17:29

Didilom,

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

C++
1
Form1->ADOQuery1->SQL->Add("SELECT Sotrudniki.Tab_nomer, Sotrudniki.Famil, Sotrudniki.Name, Sotrudniki.Otchestvo, Sotrudniki.Dolghnost, Sotrudniki.Razryad, Sotrudniki.Foto FROM Sotrudniki WHERE Sotrudniki.Famil Like '%"+ sComboBox1->Text +"%'");

...

C++
1
Form1->ADOQuery2->SQL->Text="SELECT Vipolnenie.Kod_vipoln, Vipolnenie.Data, Vipolnenie.Tab_nomer, Vipolnenie.Kod_detali, Vipolnenie.Kol-vo FROM Vipolnenie WHERE Vipolnenie.Data Between :time1 And :time2";

@Didilom · 27.04.2013, 23:08 **[ТС]**

Я прописал то что вы посоветовали, теперь другая ошибка

The_Immortal · 28.04.2013, 18:52

Didilom, какая СУБД?
Попробуйте убрать условие выборки (WHERE и все что после него).
И на каком конкретно запросе появляется данная ошибка?

@Didilom · 28.04.2013, 20:49 **[ТС]**

Immortal, на Accesse делаю. Я даже не могу ответить на второй вопрос. Так как я запускаю эту форму и щелкаю на кнопку Поиск, он мне и выдает ошибку. На каком конкретно запросе дает ошибку я незнаю.
Вот чисто запрос 1 который беру с Accessa

C++
1
2
3
SELECT Sotrudniki.Tab_nomer, Sotrudniki.Famil, Sotrudniki.Name, Sotrudniki.Otchestvo, Sotrudniki.Dolghnost, Sotrudniki.Razryad, Sotrudniki.Foto
FROM Sotrudniki
WHERE (((Sotrudniki.Famil) Like "Иванов"));

2 запрос

C++
1
2
3
SELECT Vipolnenie.Kod_vipoln, Vipolnenie.Data, Vipolnenie.Tab_nomer, Vipolnenie.Kod_detali, Vipolnenie.[Kol-vo]
FROM Vipolnenie
WHERE (((Vipolnenie.Data) Between #4/1/2013# And #4/12/2013#));

Может я не так прописываю что то?

The_Immortal · 28.04.2013, 21:29

Didilom, в таком случае:

C++
1
Form1->ADOQuery2->SQL->Text="SELECT Vipolnenie.Kod_vipoln, Vipolnenie.Data, Vipolnenie.Tab_nomer, Vipolnenie.Kod_detali, Vipolnenie.[Kol-vo] FROM Vipolnenie WHERE Vipolnenie.Data Between :time1 And :time2";

@Didilom · 28.04.2013, 21:39 **[ТС]**

Immortal, ведь я также и написал в самом начале, когда тему задавал и вопрос. Можете посмотреть может я там что не так написал?

The_Immortal · 28.04.2013, 21:45

Didilom, в общем, вставьте вот этот код и отпишитесь о результатах:

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
// на фамилие
Form1->ADOQuery1->Close();
Form1->ADOQuery1->SQL->Clear();
Form1->ADOQuery1->SQL->Add("SELECT Sotrudniki.Tab_nomer, Sotrudniki.Famil, Sotrudniki.Name, Sotrudniki.Otchestvo, Sotrudniki.Dolghnost, Sotrudniki.Razryad, Sotrudniki.Foto FROM Sotrudniki WHERE Sotrudniki.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;}
 
 
// на дату
 
 
Form1->ADOQuery2->SQL->Clear();
Form1->ADOQuery2->SQL->Text="SELECT Vipolnenie.Kod_vipoln, Vipolnenie.Data, Vipolnenie.Tab_nomer, Vipolnenie.Kod_detali, Vipolnenie.[Kol-vo] FROM Vipolnenie WHERE Vipolnenie.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 · 28.04.2013, 21:49 **[ТС]**

Immortal, все заработало, спасибо!

The_Immortal · 28.04.2013, 21:53

Didilom,

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

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Экспрессию лучше отставить, а то так все эмоции спустите в процессе программирования

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

что не так написал?

Поле "Kol-vo" надо было обременить квадратным скобочками. Я как-то сразу не узрел этот момент

@Didilom · 28.04.2013, 22:04 **[ТС]**

Просто делаю диплом, и сроки маленькие остались. А квадратные скобки я сам убрал, думал это лишнее, ведь они только где Kol-vo и все. Ну вам спасибо большое.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 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

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	27.04.2013, 23:08 [ТС]
	Я прописал то что вы посоветовали, теперь другая ошибка 0

The_Immortal 1569 / 505 / 48 Регистрация: 04.04.2009 Сообщений: 1,891
	28.04.2013, 18:52
	Didilom, какая СУБД? Попробуйте убрать условие выборки (WHERE и все что после него). И на каком конкретно запросе появляется данная ошибка? 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	28.04.2013, 21:39 [ТС]
	Immortal, ведь я также и написал в самом начале, когда тему задавал и вопрос. Можете посмотреть может я там что не так написал? 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	28.04.2013, 21:49 [ТС]
	Immortal, все заработало, спасибо! 0

@Didilom 4 / 4 / 0 Регистрация: 23.01.2013 Сообщений: 167
	28.04.2013, 22:04 [ТС]
	Просто делаю диплом, и сроки маленькие остались. А квадратные скобки я сам убрал, думал это лишнее, ведь они только где Kol-vo и все. Ну вам спасибо большое. 1