Delphi2007.net 首页

QueryPublic.SQL.Text := sSql;
  for x:=0 to QueryPublic.Params.Count - 1 do begin//Iterate
    for y := 0 to cdsOrderForm.Fields.Count -1 do begin
      if UpperCase(QueryPublic.Params.Items[x].Name) = UpperCase(cdsOrderForm.Fields[y].FieldName) then begin
        if cdsOrderForm.Fields[x].Value = null then
          QueryPubLic.Params.Items[x].AsString := ''
        else
          QueryPubLic.Params.Items[x].Value := cdsOrderForm.Fields[x].Value;
        break;    //赋值并比较下一个
      end;
    end;
  end;