strsql:='select * from jiaowang where 客户名称 =:cstm';
//strsql:=strsql+quotedstr(edit1.Text);
//strsql:='select * from jiaowang where 客户名称 like :cstm';
strsql:=strsql+' and 交往时间 >= :starttime';
strsql:=strsql+' and 交往时间 <= :endtime';
showmessage(strsql);
dm1.QueryJiaowang.Close;
dm1.QueryJiaowang.SQL.Clear;
dm1.QueryJiaowang.SQL.Add(strsql);
dm1.QueryJiaowang.Parameters.ParamByName('cstm').DataType:=ftstring;
dm1.QueryJiaowang.Parameters.ParamByName('cstm').Value:=edit1.Text;
//dm1.QueryJiaowang.Parameters.ParamByName('cstm').Value:='*'+edit1.Text+'*';
dm1.QueryJiaowang.Parameters.ParamByName('starttime').DataType:=ftdate;
dm1.QueryJiaowang.Parameters.ParamByName('endtime').DataType:=ftdate;
dm1.QueryJiaowang.Parameters.ParamByName('starttime').Value:=datetimepicker1.Date;
dm1.QueryJiaowang.Parameters.ParamByName('endtime').Value:=datetimepicker2.Date;
dm1.QueryJiaowang.Open;
|