Обработчик щелчков на календаре

@Du_Law · Регистрация: 17.07.2013

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

Всем добрый день!
Есть календарь и база данных. Хочу добавить такую возможность: при нажатии на определенную дату календаря в базе данных высвечивалась эта дата, записанная ранее (или не отображалась, если не была записана).
Может сделать как-то через ZQuery (у меня подключение идёт через Zeos) , типа

SQL

1 2	SELECT Дата FROM Таблица WHERE и т.д...

, только наоборот из календаря?..)
Надеюсь, вопрос понятен)

Добавлено через 23 минуты
Есть пока обратное действие, вот код:

Delphi

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
Fld: TDateTimeField;
begin
    if ZTable1.Acive then begin
      if ZTable1.RecordCount = 0 then exit;
      Fld := ZTable1data
    end else begin
    if ZQuery1.RecordCount = 0 then exit;
    Fld := ZQuery1data;
    end;
  SMonthCalendar1.Month := MonthOf(Fld.Value);
  SMonthCalendar1.Year := YearOf(Fld.Value);
  SMonthCalendar1.Day := DayOf(Fld.Value);
end;

@Du_Law · 05.08.2013, 11:45 **[ТС]**

Доброе утро всем!)
Вопрос ещё открыт!
Если у кого есть какие-либо идеи, пожалуйста, излагайте

@ZfoxAK · 05.08.2013, 13:33

Добрый вечер.

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

при нажатии на определенную дату календаря в базе данных высвечивалась эта дата

Гы )))
Вопрос понял так: получение записей у которых значение в поле date = выбранной дате, через запрос.

Delphi

ADOQuery1.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.add('Select date From таблица where date = :P_Date ');
ADOQuery1.Parameters.ParamByName('P_Date').Value:= MonthCalendar1.Date;
ADOQuery1.Open;

Вроде так....

@Du_Law · 05.08.2013, 13:47 **[ТС]**

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

Вопрос понял так: получение записей у которых значение в поле date = выбранной дате, через запрос.

Да, Вы всё верно поняли)

Спасибо, сейчас попробую)

Добавлено через 8 минут
Не находит параметр P_Date ..)
Я подставлял свой из таблицы - тот же результат.

@ZfoxAK · 06.08.2013, 05:12

в ADOQuery если не путаю нужно в свойстве Paramertrs создать параметр. С ADOQuery не работал, почитай как правильно работать с параметрами.
Проверить работоспособность запроса можно заменив параметр - значением. date = '01.01.2013'
Так же можно обойтись без параметра

Delphi

1	ADOQuery.SQL.add('Select date From таблица where date = ' + DateToStr(SMonthCalendar1.date));

@Du_Law · 06.08.2013, 09:54 **[ТС]**

Я создавал) Только у меня Zeos же и я точно не знаю, может они кардинально отличаются друг от друга..)
И это попробую, спасибо)

@Du_Law 0 / 0 / 0 Регистрация: 17.07.2013 Сообщений: 111
	05.08.2013, 11:45 [ТС]	2
	Доброе утро всем!) Вопрос ещё открыт! Если у кого есть какие-либо идеи, пожалуйста, излагайте 0

@Du_Law 0 / 0 / 0 Регистрация: 17.07.2013 Сообщений: 111
	05.08.2013, 13:47 [ТС]	4
	Сообщение от ZfoxAK Вопрос понял так: получение записей у которых значение в поле date = выбранной дате, через запрос. Да, Вы всё верно поняли) Спасибо, сейчас попробую) Добавлено через 8 минут Не находит параметр P_Date ..) Я подставлял свой из таблицы - тот же результат. 0

@Du_Law 0 / 0 / 0 Регистрация: 17.07.2013 Сообщений: 111
	06.08.2013, 09:54 [ТС]	6
	Я создавал) Только у меня Zeos же и я точно не знаю, может они кардинально отличаются друг от друга..) И это попробую, спасибо) 0

Опции темы