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;