为uniDBGrid设置文字操作栏，如下图的效果，用户点击审核，执行审核代码，点退回，执行退回代码：

 

对于Web应用界面，这是最常见的方式，那对于我等Delphi开发者来说，基于uniGUI该怎么实现呢？

---

 1]首先，为uniDBGrid准备“操作”这一栏的显示内容，具体说，在数据集中准备好显示的数据。

我是为数据集加了一列，叫operation。

2]然后在operation的TField.OnGetText中返回显示的数据：

 

对应的Delphi代码： 

procedure TMainForm.FDQuery1operationGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
//Text:='<a class="btnopbtn" style="color: #148a14" onclick="ajaxRequest(O430,''audit'',[''id=C42EBDFDDA9B4526B67EECE72FD7AF5F'']);">审核</a>｜<a class="btnopbtn" style="color: #f94936" onclick="ajaxRequest(O430,''unaudit'',[''id=C42EBDFDDA9B4526B67EECE72FD7AF5F'']);">退回</a>';
  inherited;
  Text:= '<button class="btnopbtn"  onclick="ajaxRequest('+UniDBGrid1.JSName+',' +
         QuotedStr('audit')+',[''id='+Sender.DataSet.FieldByName('id').AsString+''']);">'+'  审核  </button> ｜' +

• 1.

border-radius:2px;border: none;background:#cfa14c;" onclick="ajaxRequest('+UniDBGrid1.JSName+',' +
         QuotedStr('unaudit')+',[''id='+Sender.DataSet.FieldByName('id').AsString+''']);">'+'  退回  </a>    '

+'<a class="btnopbtn" style="color: #148a22" onclick="ajaxRequest('+UniDBGrid1.JSName+',' +
         QuotedStr('Add1')+',[''id='+Sender.DataSet.FieldByName('id').AsString+''']);">'+'添加</a> ｜'
        + '<a class="btnopbtn" style="color: #f94936" onclick="ajaxRequest('+UniDBGrid1.JSName+',' +
         QuotedStr('Add2')+',[''id='+Sender.DataSet.FieldByName('id').AsString+''']);">'+'测试</a>'
         ;
end;

• 1.
• 2.
• 3.
• 4.
• 5.
• 6.

 

 

明白上面的原理，可以直接看下面的实际代码了：

 

把记录的id传过来了 

登录后复制 

procedure TMainForm.UniDBGrid1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
var
  id: string;
begin
  inherited;
  if EventName = 'audit' then
  begin
    id := Params['id'].AsString;
    //执行审核操作的代码，这里省了...
    showmessageN(id);
  end;
  if EventName = 'unaudit' then
  begin
    id := Params['id'].AsString;
    //执行退回操作的代码，这里省了
  end;

  if EventName = 'Add1' then
  begin
    //执行 添加  操作的代码，这里省了
    showmessageN(Params['id'].AsString+'asdf');
  end;

end;