通过网盘分享的文件：webBroker_example.rar
链接: https://pan.baidu.com/s/1UvYrtq0XCOj-4Wj598roYQ 提取码: fj3w

//  http://127.0.0.1:8080/InputNewBug 前端输入
procedure TWebModule1.WebModule1WebActionItem8Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var WebPage: TStringList;
begin
 WebPage:= TStringList.Create;
  WebPage.Add('<FORM action = AddBugToDB method= “GET">');
  WebPage.Add('<BR>Summary Description:<br> <INPUT type = "TEXT" name = "Summary"  maxlength="100" size = "50">');
  WebPage.Add('<p>Details:<BR><TEXTAREA name="Details" rows=5 cols=50> </TEXTAREA>');
  WebPage.Add('<p><INPUT type = "SUBMIT"> <INPUT type = "RESET"> </p>');
  WebPage.Add('</FORM>');

  Response.Content :=WebPage.Text;
 WebPage.Free;
 Handled:=true;
end;

//  AddBugToDB  写入数据库，并 跳转 到 表显示 页面
procedure TWebModule1.WebModule1WebActionItem9Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var WebPage: TStringList;
begin

FDTable1.Append; // 开始添加新记录
FDTable1.FieldByName('BugID').AsInteger := 2119;
FDTable1.FieldByName('UserNameLookUp').AsString   := Request.QueryFields.Values['Summary'];
FDTable1.FieldByName('AssignedToLookUp').AsString := Request.QueryFields.Values['Details'];
FDTable1.Post; // 提交新记录

 DataSetTableProducer1.DataSet.Close;
 DataSetTableProducer1.DataSet.Open;    //刷新 数据库 显示 所有数据，否则 只显示 当前 新记录，

 Response.SendRedirect('allUser');      //等价 下面的 写法， 直接 跳转
// WebPage:= TStringList.Create;
//     WebPage.Add('<br><br><a href="/allUser">所有问题 清单</a>');
//  Response.Content :=WebPage.Text;
// WebPage.Free;
 Handled:=true;
end;