怎样使用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;

将Year, Month, Day设为全局变量,TForm3.DateTimePicker1Change和tform3.DateTimePicker1click
执行同一事件,再在update前加入
adoTable1.fieldbyName('时间).value := inttostr(year)+'-'+inttostr(Month)+'-'+inttostr(Day);
不知你问的是这个吗?

接受答案了.