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

23.05.2010, 01:40. **Показов** 1139. **Ответов** 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)????

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

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)????