Delphi实现AdoQuery参数化查询

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;