Фильтрация в DBGrid по дате кликом на MonthCalendar

[Corvus046]

Здравствуйте, знатоки Delphi. Я начинающий программист и не сталкивался с этим раньше. Есть форма, на которой расположены DBGrid (DBGridEh) и MonthCalendar. Мне нужно как-то сделать так, чтобы кликом по дате в календаре в таблице оставались только записи, содержащие именно эту дату, ну и остальные записи соответствующие этой дате (дата, время, врач, фио пациента, процедура). Не подскажите как это осуществить, а то пока ничего толкового в инете найти не могу?

[Stilet]

Table или Query используешь? Какая СУБД?

[Corvus046]

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

Table или Query используешь? Какая СУБД?

СУБД - Microsoft SQL Server. Для связи с ним использую ADOConnection, ADOTable, DataSourсe. Разместил их на Data Module.

[Stilet]

Ага, ясно. Тогда наверное приемлемее будет описать событие OnFilterRecord для ADOTable примерно так:

procedure TForm1.SQLQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 Accept:=DataSet.FieldByName('Дата').AsDateTime=MonthCalendar.Date;
end;

Ну и в событии MonthCalendar типа OnChange или любом срабатывающем при изменении написать:

 ADOTable.Filtered:=false;
 ADOTable.Filtered:=true;

чтоб запустить фильтрацию.

[Corvus046]

Так событие OnFilterRecord описать в ADOTable или в SQLQuery, как у вас? Просто у меня SQLQuery так-то нет в проекте. Или вы предлагаете мне SQLQuery тоже поместить на форму и связать его через событие DataSource к компоненту DataSource1, где будут находиться все данные с датами и т.п.? Хотя в SQLQuery я вообще не вижу такого события, но удивился, почему у вас в названии процедуры он упоминается

[Corvus046]

Я попробовал как вы посоветовали и написал так:

procedure TZayavki.ADOTable1FilterRecord(Data Set: TDataSet;
var Accept: Boolean);
begin
Accept:=DataSet.FieldByName('Data') .AsDateTime=MonthCalendar1.Date;
end;

procedure TZayavki.MonthCalendar1Click(Sender : TObject);
begin
ADOTable1.Filtered:=False;
ADOTable1.Filtered:=True;

Но потом, при клику по календарю выскакивает такая ошибка:
Project raised exception class EConvertError with messege "2014-05-21' is not a valid date and time'.

[Аватар]

Поле Data небось символьного типа?

[Corvus046]

Сообщение от Аватар

Поле Data небось символьного типа?

В таблице в SQL Server Имя столбца - "Data", Тип данных - "date".

[Аватар]

А сделать его datetime есть возможность?
По-моему как widestring такие поля в дельфи передаются и его нужно правильно в datetime сконвертировать. Лучше сделать в базе datetime

[Corvus046]

Сообщение от Аватар

А сделать его datetime есть возможность?
По-моему как widestring такие поля в дельфи передаются и его нужно правильно в datetime сконвертировать. Лучше сделать в базе datetime

Исправил, ошибки теперь нет, но тыкание по календарю ничего не изменяет