Delphi 7. Компонент DateTimePicker

[San22Rus]

Доброго времени суток! Помогите новичку, в общем проблема такая:
Есть база данных, подключённая к делфи через ADOConnection, таблица простая "информация о клиентах", в таблице есть поле "Дата рождения", не хочу, чтобы вручную вводилось значение,надо сделать, чтобы оно выбиралось из компонента DateTimePicker, т.к. новичок даже не знаю как это реализовать, толи через кнопку, толи через событие самого datetimepicker, подскажите пожалуйста! Пробовал через кнопку вот таким вод методом:

 procedure TForm4.Button1Click(Sender: TObject);
begin
DM.Klients.Append;
if DM.Klients.Modified then
DM.Klients.Post;
Dm.Klients.FieldByName('Дата рождения').Value:=DateTimePicker1.Date;
Close;
end;

в поле вводится значение вообще из непонятных цифр...

[phomm]

Пост надо после присвоения поля поставить, но не уверен, что это решит проблему, хотя ошибка явная.
Совет ещё - не называть имена полей русскими словами и с пробелами.

[Аватар]

В коде еще кроме этого наворочено. Сомневаюсь, что для редактирования даты рождения нужно добавление записи, видимо вместо Append нужен Edit. В таком контексте еще проверка на Modified как мертвому припарка. Еще бы время убрать из DateTimePicker1.Date при записи в таблицу. Двумя словами - все в топку

[San22Rus]

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

Пост надо после присвоения поля поставить, но не уверен, что это решит проблему, хотя ошибка явная.
Совет ещё - не называть имена полей русскими словами и с пробелами.

Насчёт полей, да, уже понял, когда делал фильтрацию по записям выдавалась ошибка, пока в БД не сменил все поля на английские проблема не решилась!)

[San22Rus]

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

В коде еще кроме этого наворочено. Сомневаюсь, что для редактирования даты рождения нужно добавление записи, видимо вместо Append нужен Edit. В таком контексте еще проверка на Modified как мертвому припарка. Еще бы время убрать из DateTimePicker1.Date при записи в таблицу. Двумя словами - все в топку

После нескольких часов разобрался, это решило все проблемы

procedure TForm4.Button1Click(Sender: TObject);
begin
DM.Klients.FieldByName('Фамилия').Value:=Dbedit1.Text;
DM.Klients.FieldByName('Имя').Value:=Dbedit2.Text;
DM.Klients.FieldByName('Отчество').Value:=Dbedit3.Text;
DM.Klients.FieldByName('Дата рождения').AsDateTime:=Trunc(DateTimePicker1.Date);
DM.Klients.FieldByName('Телефон').Value:=Dbedit5.Text;
DM.Klients.FieldByName('Гражданство').Value:=Dbedit6.Text;
DM.Klients.FieldByName('Адрес').Value:=Dbedit7.Text;
DM.Klients.FieldByName('Серия').Value:=Dbedit8.Text;
DM.Klients.FieldByName('Номер').Value:=Dbedit9.Text;
Close;
end;