WebBroker_DataSetPageProducer1_只显示第一条记录

 

<form action="upload" method="post">
<input type="text" size="30" name="html" >
<input type="submit" value="查询">
</form>
<#name><br><hr>
<#info>

procedure TWebModule1.DataSetPageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
  var s:string;
begin
   s:=Request.ContentFields.Values['html'];
   FDQuery1.Open('select id,name,info from atb  where name= ''' + s+'''' );
end;

页面刷新一次，读下一条 

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var s:string;
  begin
   Response.Content :=    DataSetPageProducer1.Content ;
    FDQuery1.Next;
end;