i:Integer; begin Result := '';
adoProcInfo.Close;//奇怪,要先关闭,否则结果集还是上次的 adoProcInfo.Parameters.Clear;
adoProcInfo.Parameters.CreateParameter('user', ftString, pdInput, 20, user);
adoProcInfo.Prepared := True; //adoProcInfo.ExecProc; adoProcInfo.Open;//有数据要用这个
//adoProcInfo.RecordCount
//ShowMessage(adoProcInfo.Parameters.ParamValues['ReturnValue']); //ShowMessage(IntToStr(adoProcInfo.Fields.Count));
Result := Result + '<?xml version="1.0" encoding="GB2312" ?>'; Result := Result + '<UserInfo>'; Result := Result + '<User ';
Result := Result + 'ResultCode' + '="' + '0' + '" '; Result := Result + 'ResultMsg' + '="' + '成功' + '" ';
if adoProcInfo.RecordCount > 0 then begin adoProcInfo.First; for i := 0 to adoProcInfo.Fields.Count-1 do begin //MessageBox(0, PChar(adoProcInfo.Fields[i].Name), '', 0);
Result := Result + adoProcInfo.Fields[i].FieldName + '="' + adoProcInfo.Fields[i].AsString + '" ';
end; end;
Result := Result + ' ></User>'; Result := Result + '</UserInfo>';
|
请发表评论