delphi 比较日期大小的有关问题

delphi 比较日期大小的问题
我新建一条记录的时候判断日期区间有没有重叠，如果有重叠就不让添加，但是如果第一次我选择一个重复的时间，他会提示日期区间重复，但如果再点第二次，就不会提示，并且保存成功了，这是为什么，求解，代码如下



------解决方案--------------------------------------------------------
我的代码：

var SQL,ID,err,DateS:string;
begin
  // DBEdit4.Text 日期值
  SQL:='select * From AAA where 日期='+#39+DBEdit4.Text+#39;
  DataModule1.ClientDataSet5.Active:=False;
  DataModule1.ClientDataSet5.DataRequest(SQL);
  DataModule1.ClientDataSet5.Active:=True;
  if DataModule1.DataSource5.DataSet.RecordCount>1 then // 已有同日数据
  begin
    DataModule1.ClientDataSet5.Active:=False;
    ShowMessage('已有'+DBEdit4.Text+'数据，请选择其它日期！');
    exit;
  end;
  // 保存数据代码

这样在保存数据时，就可以保证有了就退出
------解决方案--------------------------------------------------------

引用:

引用:
我的代码：
Delphi/Pascal code?1234567891011121314var SQL,ID,err,DateS:string;begin  // DBEdit4.Text 日期值  SQL:='select * From AAA where 日期='+#39+DBEdit4.Text+#39;  DataModule1.ClientD……

方法同5楼，你sql语句不一样就可以了
------解决方案--------------------------------------------------------
我编写了一个“日期”比较的实例，如果楼主想要的话，
可以加我的QQ:4零5418144 加好友注明来意索取，否则不加
------解决方案--------------------------------------------------------
写了一下，没有楼主问题，是不是哪里取得是datetime，所以第二次就可以了。