Как сделать отчет по сотрудникам до ХХ лет??

23.05.2010, 01:40. **Показов** 1159. **Ответов** 2

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

Здравствуйте! Подскажите пожалуйста, есть база Access и поле ДР(YYYY, MM, DD). Нужно сделать отчет по сотрудникам до ХХ лет (вводится в sEdit2). Делаю:

Delphi
1
2
3
4
Data.ADOQuery4.Close();
Data.ADOQuery4.SQL.Clear();
Data.ADOQuery4.SQL.Add(sEdit1.text+#32+'and (Year([Дата_рождения])-Year(Date())<'+sEdit2.Text+')');
Data.ADOQuery4.Open();

//Но выводятся все сотрудники(независимо от возраста)
И в отчёте подсчитать возраст каждого сотрудника (это пока не знаю как сделать, подскажите.).
Заранее спасибо.

arni · 23.05.2010, 09:29

Во-первых, отсюда не видно, что у вас в sEdit1.text и sEdit2.text, но в любом случае очень подозрительно в методах, конструирующих новый запрос, не видеть SELECT, FROM, WHERE и прочие ключевые слова SQL. Подозреваю, что в Data.ADOQuery4.SQL.Text оказывается каша.

Во-вторых, чтобы отсеить людей моложе 20 лет, я бы определил дату двадцатилетней давности (день и месяц такой же, год:=текущий год-20), после чего полученную дату в качестве параметра засунул бы в предикат WHERE где организовал бы сравнение поля-даты рождения с этим параметром на меньше.

23.05.2010, 19:37

В sEdit1 у меня след. код:
Select Общие_сведения.Табельный_номер,Общие_све дения.Ф,
Общие_сведения.И,Общие_сведения.О,Общие_ сведения.Дата_рождения,
Общие_сведения.Пол,Должности.Наименовани е from Общие_сведения,Должности
where Общие_сведения.Код_должности=Должности.К од_должности and Код_статуса<>4

а в sEdit2 я ввожу возраст(возможно я неправильно выразился,т.е. ХХ лет - это значение, которое я буду вводить). Подскажите как именно определить дату, я пробую:
var
d:TDateTime;
begin
DecodeDate(Date,Year,Month,Day);
//...а как теперь занести в переменную d, новую дату, со значением(Year-sEdit2.Text)????

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

arni 914 / 879 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	23.05.2010, 09:29
	Во-первых, отсюда не видно, что у вас в sEdit1.text и sEdit2.text, но в любом случае очень подозрительно в методах, конструирующих новый запрос, не видеть SELECT, FROM, WHERE и прочие ключевые слова SQL. Подозреваю, что в Data.ADOQuery4.SQL.Text оказывается каша. Во-вторых, чтобы отсеить людей моложе 20 лет, я бы определил дату двадцатилетней давности (день и месяц такой же, год:=текущий год-20), после чего полученную дату в качестве параметра засунул бы в предикат WHERE где организовал бы сравнение поля-даты рождения с этим параметром на меньше. 1

zigzag656
	23.05.2010, 19:37
	В sEdit1 у меня след. код: Select Общие_сведения.Табельный_номер,Общие_све дения.Ф, Общие_сведения.И,Общие_сведения.О,Общие_ сведения.Дата_рождения, Общие_сведения.Пол,Должности.Наименовани е from Общие_сведения,Должности where Общие_сведения.Код_должности=Должности.К од_должности and Код_статуса<>4 а в sEdit2 я ввожу возраст(возможно я неправильно выразился,т.е. ХХ лет - это значение, которое я буду вводить). Подскажите как именно определить дату, я пробую: var d:TDateTime; begin DecodeDate(Date,Year,Month,Day); //...а как теперь занести в переменную d, новую дату, со значением(Year-sEdit2.Text)????

Опции темы