procedure TForm1.ADODataSet1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if date1>=strtodate(maskedit1.text)
and date1<=strtodate(maskedit2.text)
and str1=trim(edit1.text)
and str2=trim(edit2.text)
and int1>=strtoint(edit1.text)
and int2<=strtoint(edit2.text)
then
accept:=true;
end;
解决方案 »
- 关于delphi7访问SQL同义词的怪异现象!在线等!
- 如何制作这种效果,鼠标点上去提示的内容就没了?
- 急求excel数据导入access的出现的问题解决方法(特急)!!!!!!!!
- 如何把焦点转移到TabOrder大1的组件上?又怎么转移到指的的TabOrder的组件上?
- 怎样在头文件(*.dpr)里加入过程函数
- 我调用了Merlin以后,他怎么不说话,只显字?
- listview 如何设置才能不显示Item的提示
- IdFTP的下载文件问题(死循环)
- 谁能详细讲讲TActionList的用法?
- 如何检测是否已经插上网卡、网卡是否正常工作(包括是否正确安装了驱动程序)
- 数据处理速度问题
- 高手先生们,请问:我想与telnet通讯,使用TSocketConnect空件行吗?使用中点击ServerName属性时出错,请赐教。
方法二:用adoquery