如何用ADOQuery1.Parameters动态生成/删除Parameters?

Question

ADOQuery1.SQL.Text //放在这里处理即可

Answer 1

代码如下：
 ado.Parameters.Clear; ado.Parameters.AddParameter.Name :='test';
  ado.Parameters.ParamByName('BudgetID').Value :='uValue';

Answer 2

  with DataModuleManage.ADOQueryPub1 do
  begin
    Close;
    SQL.Clear;
    Parameters.Clear;
    Parameters.AddParameter.Name := 'p1';
    Parameters.ParamValues['p1'] := fatherid;
    strSQL := 'select count(*) as a from dep_info where fdep_id =:p1';
    SQL.Add(strSQL);
    Open;
    result := FieldByName('a').AsInteger;
  end;