Запрос по дате

@М@рия · Регистрация: 24.03.2011

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

помогите пожалуйста!
Срочно.
Не знаю как сделать. Что бы при нажатии на TComboBox, выбирался год и в таблице отображались, только те пациенты, у которых год рождения совпадает с TComboBox.

arni · 28.05.2012, 09:48

1) заплняете комбик перечнем годов;

2) создаете обработчик события комбика OnChange, где закрывается текущий набор данных, sql-запрос переделывается на фильтрацию с текущим выбранным годом (TComboBox.Text) и набор данных заново открывается.

@Bit_Man · 28.05.2012, 10:14

TDateTimePicker не пойдет разве?!

@М@рия · 29.05.2012, 01:05 **[ТС]**

Добавлено через 3 минуты
arni, Добавлено через 9 часов 21 минуту

Не знаю как сделать. Что бы при нажатии на TComboBox, выбирался год и в таблице отображались, только те пациенты, у которых год рождения или дата регистрации совпадает с TComboBox.
Мне осталось только это "отсеивание" сделать.
что нужно поменять и исправить?
View as Form.
CODE

Delphi

 
  procedure TFzurnal.CBReseptChange(Sender: TObject);
  begin
  BAZAmodulM.qzurn.active:=false;
  if CBResept.ItemIndex=0 then
  BAZAmodulM.qzurn.sql.text:='select * from Zurnal';
  if cbresept.ItemIndex=1 then
  BAZAmodulM.qzurn.sql.text:='select * from Zurnal where data_rogd(......?)';
  if cbresept.ItemIndex=2 then
  BAZAmodulM.qzurn.sql.text:='select * from Zurnal where data_rogd(......?)';
  if cbresept.ItemIndex=3 then
  BAZAmodulM.qzurn.sql.text:='select * from Zurnal where data_rogd(......?)';
  if cbresept.ItemIndex=4 then
  BAZAmodulM.qzurn.sql.text:='select * from Zurnal where data_rogd(......?)';
  if cbresept.ItemIndex=5 then
  BAZAmodulM.qzurn.sql.text:='select * from Zurnal where data_rogd(......?)';
  BAZAmodulM.qzurn.active:=true;
  end;

View as Text

Delphi

 object CBResept: TComboBox
     Left = 24
     Top = 333
    Width = 145
     Height = 21
    ItemHeight = 13
     TabOrder = 3
     Text = #1042#1089#1077
    OnChange = CBReseptChange
  end.

ПОМОГИ ПОЖАЛУЙСТА!!!

@Bit_Man · 29.05.2012, 06:26

Delphi

procedure TFzurnal.CBReseptChange(Sender: TObject);
  begin
  BAZAmodulM.qzurn.active:=false;
  if CBResept.ItemIndex=0 then
    BAZAmodulM.qzurn.sql.text:='select * from Zurnal';
  else 
    BAZAmodulM.qzurn.sql.text:='select * from Zurnal where extract(year FROM data_rogd) = ' + CBResept.Text;
  BAZAmodulM.qzurn.active:=true;
  end;

extract - это фунция Firebird (Позволяет извлекать дату и время, в данном случае год). По твоей БД найди что нибудь похожее

@М@рия · 29.05.2012, 16:01 **[ТС]**

не получается

Добавлено через 1 минуту
Эта вся дребедень нужна для отчета по дате

@Bit_Man · 29.05.2012, 16:14

БД то какая?

@М@рия · 29.05.2012, 17:07 **[ТС]**

База данных санатория Access и Delphi2009.

@Bit_Man · 29.05.2012, 17:12

Найди Sasha он с Access работает, может поможет

@М@рия 0 / 0 / 0 Регистрация: 24.03.2011 Сообщений: 12
		1
	Запрос по дате 28.05.2012, 02:12. Показов 1143. Ответов 8 Метки нет (Все метки) помогите пожалуйста! Срочно. Не знаю как сделать. Что бы при нажатии на TComboBox, выбирался год и в таблице отображались, только те пациенты, у которых год рождения совпадает с TComboBox. 0

arni 912 / 877 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	28.05.2012, 09:48	2
	1) заплняете комбик перечнем годов; 2) создаете обработчик события комбика OnChange, где закрывается текущий набор данных, sql-запрос переделывается на фильтрацию с текущим выбранным годом (TComboBox.Text) и набор данных заново открывается. 1

@Bit_Man 479 / 392 / 112 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	28.05.2012, 10:14	3
	TDateTimePicker не пойдет разве?! 1

@М@рия 0 / 0 / 0 Регистрация: 24.03.2011 Сообщений: 12
	29.05.2012, 16:01 [ТС]	6
	не получается Добавлено через 1 минуту Эта вся дребедень нужна для отчета по дате 0

@Bit_Man 479 / 392 / 112 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	29.05.2012, 16:14	7
	БД то какая? 0

@М@рия 0 / 0 / 0 Регистрация: 24.03.2011 Сообщений: 12
	29.05.2012, 17:07 [ТС]	8
	База данных санатория Access и Delphi2009. 0

@Bit_Man 479 / 392 / 112 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	29.05.2012, 17:12	9
	Найди Sasha он с Access работает, может поможет 0