query1.Close;
      query1.sql.Clear;
      query1.sql.Add('select a.客户名称,b.产品型号,b.数量,b.单价,b.金额 from 合同档案 as a,合同内容档案 as b ');
      query1.sql.Add('where a.统计编号=b.合同编号 and a.客户名称=:name and a.签订日期>:date1 and a.签订日期<:date2');
      showmessage('55555');
      query1.Prepare;
      query1.Params[0].AsString:=trim(DBLUCombo1.Text);
      query1.Params[1].AsDate:=DateTimePicker1.Date;
      query1.Params[2].AsDate:=DateTimePicker2.Date;
      query1.Open;
请问这段程序有什么问题,为何我执行后没任何反映,没报错,也没查询结果显示