БД (Paradox) и DateTimePicker. Задача состоит в том, при выборе даты DateTimePicker открывать соответствующую дату в БД

[anastassia]

Всем привет. На форме расположена БД (Paradox) и DateTimePicker. Задача состоит в том, при выборе даты DateTimePicker (или MonthCalendar), база открывала соответствующую дату в БД, а если нет записей данных в БД под определенной датой - то БД выходила чистая, без записей. Спасибо

[Stilet]

Ну рассказывай. Какими компонентами пользуешься, какие поля в базе )
Ну и так далее подробности.
Иначе я просто тебе предложу использовать параметризированный запрос.

[anastassia]

на примере вот это вложения...
меня интересует связь календаря с БД, но там в БД, не сохраняются данные

на примере вот это вложения...

[Stilet]

Повторю вопрос: Какими компонентами пользуешься, какие поля в базе?

[anastassia]

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

Повторю вопрос: Какими компонентами пользуешься, какие поля в базе?

Компоненты - DateTimePicker, БД - Table1, DataSource1, DBGrid1, DataBasy, Query и кнопки три button - Вставить запись в таблицу, добавить запись, удалить запись.
Поля в БД:
№ поезда S
Дата D
Время прибытия N
Начало грузовых операций N
Простой по прибытию N
Количество вагонов N
Род вагона A 10
Вагоно-часы простоя ПРИБ N
Начало грузовых операции N
Окончания ГО N
Простой вагонов под ГО N
Вагоно-часы простоя ГО N

[Stilet]

Вотъ. Самое оно.
Теперь я могу предлагать не опасаясь сморозить чушь.
Итак:
Если таблица подключена к Query:

 with Query do begin
  Sql.Text:='select * from Таблица where Дата=:p';
  Parameters.ParamByName('p').AsDate:=DateTimePicker.Date;
  Open;
 end;

Если к Table то в его событии OnFilterRecord опиши примерно такой оператор:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := DataSet['Дата']=DateTimePicker.Date;
end;

А при открытии просто включи фильтр: Table.filtered:=true;

Учти, не проверял.

[anastassia]

код Query выдает ошибку - [Ошибка] Unit1.pas(225): Undeclared identifier: 'Parameters'.
Событие OnFilterRecord Table - запускается но не фильтрует, никаких действий вообще

[Stilet]

Undeclared identifier: 'Parameters'.

Поправлюсь:

 with Query do begin
  Sql.Text:='select * from Таблица where Дата=:p';
  ParamByName('p').AsDate:=DateTimePicker.Date;
  Open;
 end;

Событие OnFilterRecord Table - запускается но не фильтрует, никаких действий вообще

А как ты его активируешь? Поставь... Э-э-э, отлаживать умеешь? Что такое "точки прерывания" знаешь?

И потом, какой из компонентов у тебя с Гридом взаимодействует? Кверик или Таблик?

[Аватар]

Undeclared identifier: 'Parameters'.

Params.ParamByName('p').AsDate:=DateTimePicker.Date;
или просто
ParamByName('p').AsDate:=DateTimePicker.Date;

Событие OnFilterRecord Table - запускается но не фильтрует, никаких действий вообще

Наверно не отображает? У DateTimePicker.Date есть бяка - не просто дата, а еще и время. Время нужно убрать, собсно и при присвоении параметру тоже.

[Stilet]

У DateTimePicker.Date есть бяка - не просто дата, а еще и время.

Нда, есть у него такая недоработка...