为什么查询时总是点击查询按钮两次才会有结果，而以后只要点击一次就可以有查询结果了？

Question

我用Delphi做查询时，用的是TADOQuery，传递参数进行查询，可是，查询窗体刚打开时，为什么总是要点击“查询”两次才出结果，而以后击“查询”一次就可以显示结果了？
以下是代码，请高手们帮我分析一下，到底是怎么回事了，该怎么改掉这个错误！
//执行查询
procedure TfrmBookFeeQuery.BitBtn2Click(Sender: TObject);
begin                 //执行查询
  with QueryDS do
  begin
    close;
    Parameters.Clear;
    Parameters.CreateParameter('@V',ftstring,pdinput,20,Combobox1.Text);
    if RadioButton1.Checked then
       begin
         CommandText:='select * from FeeHistory where [ClassName]=:V';
       end
    else
       begin
         CommandText:='select * from Departments where [DepartmentName]=:v';
       end;    active:=true;  end;
end;

Answer 1

好明显TADOQuery是没有CommandText的，不提示你错误？

Answer 2

QueryDs是一个ＴＡＤＯＤａｔａＳｅｔ组件