怎样使用DateTimePicker，当不发生什么事时，显示日期到数据库中？(30分)

怎样使用DateTimePicker，当不发生什么事时，显示日期到数据库中？
看下面的，只有当改动时才能写入，，，如果不动的话就没了。比方说我要输入今天的情况，就
不需要动日期，这样日期就输入不到数据库。有没有能输入现在的，还能输入以前的。
不要说是那种：ｆｏｒｍａｔｄａｔｅｔｉｌｅ（ｙｙ－ｍｍ－ｓｓ）这种，使用不方便？
有好方法吗？
procedure TForm3.DateTimePicker1Change(Sender: TObject);
var
Year, Month, Day: Word;
begin
DecodeDate(DateTimePicker1.datetime,
Year, Month, Day);
//将DateTimePicker1的年月日的值分别赋给Year, Month, Day
flatdbedit8.Text:=inttostr(year)+'-'+inttostr(Month)+'-'+inttostr(Day);
end;

然后
adoTable1.fieldbyName('时间).value := flatdbEdit8.text;

没有很好的理解事件的概念吧？弄清楚在哪个时候需要往数据库里写。

用infopower控件中的wwDBDateTimePicker在onenter事件中写
wwDbDateTimePicker1.date:=date就行

多人接受答案了。