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

[Аватар]

А сами процедуры обработки событий к объектам привязаны?

[Corvus046]

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

А сами процедуры обработки событий к объектам привязаны?

Сорри, все норм, мой ляп был. Спасибо большое Stilet и Аватар. Выручили.
И вот такой ещё вопросик. На форме есть кнопки добавить, редактировать, удалить. Код добавления такой:

procedure TZayavki.BitBtn2Click(Sender: TObject);
begin
ADOTable1.Append;
if AddApplication.ShowModal=mrOk then
  begin
  ADOTable1Vremya.AsString:=AddApplication.DBDateTimeEditEh2.Text;
  if ADOTable1.Modified then
  ADOTable1.Post;
  end;
ADOTable1.Cancel;
end;

Но вот почему-то дата добавляется из DBDateTimeEditEh1, а время из DBDateTimeEditEh2 добавляется как 00:00:00. Что может быть не так? Может код добавления записей в dbgrid не очень? На форме добавления два DBDateTimeEditEh, три DBEdit, один DBComboBoxEh и DBMemo. Остальные данные из компонентов норм добавляются

[Stilet]

ADOTable1Vremya.AsString:=AddApplic ation.DBDateTimeEditEh2.Text;

А че строкой?
Че не

ADOTable1Vremya.Varant:=AddApplicat ion.DBDateTimeEditEh2.DateTime;

?
Или там у этих компонентов нет таких свойств?

[Аватар]

И if ADOTable1.Modified там излише.

[Corvus046]

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

А че строкой?
Че не ?
Или там у этих компонентов нет таких свойств?

Попробовал, именно у ADOTable нет такого свойства как Varant. И что интересно, когда меняешь тип данных в таблице у поля Vremya на time, datetime и др связанные с временем и датой, то выскакивает ошибка с текстом: "Could not convert variant of type (OleStr) into type (Date)".
А так таблица Заявки имеет следующий вид:
id int
Data datetime
Vremya nvarchar(10)
Lastname nvarchar(30)
Firstname nvarchar(20)
Secondname nvarchar(30)
Doctor nvarchar(20)
Info nvarchar(50)
Может и не стоит именно этот тип принимать для полей, я решил так сделать по одному видеоуроку.

[Аватар]

Variant .

[Corvus046]

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

Variant .

Не, там к ADOTable1Vremya можно (Value, Validate,ValidChars, Visible, VCLComObject). Сейчас после экспериментами с типами в SQL уже и с nvarchar ошибку выдает. Лучше бы не экспериментировал

[Аватар]

Речь как раз об Value. Оно и есть типа Variant.
Зачем время отдельно хранить? Оно спокойно впишется вместе с датой в datetime

[Corvus046]

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

Речь как раз об Value. Оно и есть типа Variant.
Зачем время отдельно хранить? Оно спокойно впишется вместе с датой в datetime

Удаление поля "Время" и изменение свойства Kind у DBDateTimeEditEh1 на dtkDateTimeEh помогло и время норм сохраняется. Только теперь, когда в кликаю по календарю для фильтрации, старые записи без времени фильтруются, а с временем нет

[Аватар]

Accept:=Int(DataSet.FieldByName('Data').AsDateTime)=MonthCalendar1.Date;