使用DateTimePicker绑定Date类型字段

delphi居然没有DateTime类型的数据绑定控件。

现在介绍一下使用DateTimePicker进行模拟很简单的。经过测试的好用

 

//DateTimePicker控件添加Change事件，代码如下：

procedure TfrmDataMapManage.DateTimePicker1Change(Sender: TObject);
begin
    DataSource1.Edit;
    DataSource1.DataSet.FieldByName('DateOfIn').AsDateTime := Trunc(DateTimePicker1.Date);
end;

 

//TDateSource控件添加以下事件

//记录指针移动修改DateTimePicker的值

procedure TfrmDataMapManage.DataSource1AfterScroll(DataSet: TDataSet);
begin
    DateTimePicker1.Date := DataSet.FieldByName('DateOfIn').AsDateTime;
end;

 

//点击添加按钮或者"+"按钮,DateOfIn字段缺省值为当前日期

procedure TfrmDataMapManage.DataSource1AfterInsert(DataSet: TDataSet);
begin
    DataSet.FieldByName('DateOfIn').AsDateTime := Date;
end;