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;