SQLMonitor可输出DBE的执行细节,可帮助快速定位问题或改善服务器性能。

效果图:

*************************************************************************************

具体操作:

*************************************************************************************

DBGrid1.DataSource->DataSource1.DataSet->ClientDataSet1.ProviderName->DataSetProvider1.DataSet->

SQLDataset1.SQLConnection->SQLConnection1具体数据库(这里连接的是oracle中的EMP表);

SQLDataSet1.CommandText:=SELECT * FROM EMP;ClientDataSet1.Active:=true;

SQLMonitor.SQLConnection->SQLConnection1。

*************************************************************************************

主要代码:

*************************************************************************************

用SQLMonitor的OnTrace事件。要uses DBXCommon单元,否则TDBXTraceInfo提示未定义。

procedure TForm3.SQLMonitor1Trace(Sender: TObject; TraceInfo: TDBXTraceInfo;
  var LogTrace: Boolean);
begin
  Memo1.Lines.Add(TraceInfo.Message);
end;

 

posted on 2017-03-06 17:19  sun繁星点点  阅读(312)  评论(0编辑  收藏  举报