Секреты Delphi. Мониторинг SQL-запросов при работе с ADO-компонентами

Секреты Delphi. Мониторинг SQL-запросов при работе с ADO-компонентами

Не секрет, что приложения баз данных составляют довольно большую долю всех вновь разрабатываемых приложений. Ни одна информационная система не может быть создана без соединения с той или иной СУБД. В первых версиях нам предлагался давно устаревший, но все еще успешно использующийся Borland Database Engine (BDE). Одним из альтернативных способов доступа к источникам данных стали компоненты ADO.

Хотя в новых версиях Delphi добавлены более современные компоненты dbExpress, а также огромное количество компонент сторонних производителей, компоненты ADO все еще заслуживают внимания. Из-за простоты использования, интеграции со средой разработки (в поставке Delphi Enterpise), а также довольно высокой скорости работы имеет смысл их использовать, если не планируется переходить на мультиплатформенную разработку.
Первой из рассматриваемых компонент будет TADOConnection. Не будем останавливаться на подробном процессе настройки соединения — информацию об этом можно прочитать и в help'е. Хочется отметить отсутствие мониторинга SQL-запросов при работе с ADO-компонентами. А при отладке программ данная функция будет далеко не последней. Особенно при работе с параметрическими запросами. Мониторинг позволяет визуально отследить, что же в действительности посылается серверу базы данных. Особую актуальность этот режим приобретает на компьютере заказчика. Delphi IDE с собой таскать ох как не хочется. Да и не на всяком компьютере развернешь эту среду разработки. Для реализации функции мониторинга напишем пару методов на события WillExecute и ExecuteComplete компоненты TADOConnection.

fExecuteTime :dword; ... 
procedure
TDM.dbConnectionWillExecute(Connection: T
ADOConnection; 
var
CommandText: WideString; var CursorType: TCursorType; 
var
LockType: TADOLockType; var CommandType: TCommandType; 
var
ExecuteOpt
ions: TExecuteOptions; 
var
EventStatus: TEventStatus; 
const
Comm
and: _Command; const Recordset: _Recordset); 
var
i,j:integer; infoStr:
Str
ing
; tmpParameters:Parameters; 
begin

if
gDebugMode 

then
MonitorEvent('WillExecute.. ',[]); fExecuteTime:=GetTickCount; 
if
gSqlMonitor 
and
gDebugMode 
then

begin
Moni
torEvent(CommandText,['']); 
if
Assigned(Recordset) 
then

begin

for
i := 0 
to
(dbConnection.DataSetCount-1) <
r>
do

if
Assigned(dbConnection.DataSets[i].Recordset) 
and<
r>
(Recordset = dbConnection.DataSets[i].Recordset) 
then

if
(d
bConnection.DataSets[i] 
is
TADODataSet) 
and
(TADODataSet(dbConne
ction.DataSets[i]).Parameters.Count > 0) 
then

for
j:=0 to TAD
ODataSet(dbConnection.DataSets[i]).Parameters.Count - 1 
do

begin
infoStr:='P['+IntToStr(j)+'] ' + TADODataSet(dbConnection.DataSets[i]).Parameters.Items[j].Name+' =
 '; 
if Not
VarisNull(TADODataSet(dbConnection.DataSets[i]). Parameters.Items[j].Va
lue) 
then
infoStr:=infoStr + String(TADODataSet(dbConnection.DataSets[i]).Paramete
rs.Items[j].Value) 
else
infoStr:=infoStr + 'Null'; MonitorEvent(infoStr,['']); 

end
; 
end
; 
if
Assigned(Command) 
then

begin
tmpParameters:=Command.Get_Parameters; 
if
(tmpParam
eters.Count > 0) 
then

for
j:=0 
to
tmpParame
ters.Count - 1 
do

begin
infoStr:=tmpParameters.Item[j].Name+' = 
'; 
if Not
VarisNull(tmpParameters.Item[j].Value) 
then
infoStr:=i
nfoStr + String(tmpParameters.Item[j].Value) 
else
infoStr:=infoStr + 'Null'; Monit
orEvent(infoStr,['']); 
end

end
; MonitorEvent('',['']); 
end
; 
end
; 
procedure
TDM.dbConnectionExecuteComplete(
Connection: TADOConnection; RecordsAffected: Integer; 
const
Error: Error; 
var
EventStatus: TEventStatus; 
const
Command: _Command; 
const
Recordset: _Recordset); 
begin
Self.fExecuteTime:=GetTickCount-Self.fExecut
eTime; 
if
gDebugMode 
then
MonitorEvent('Execute time: ' + FloatT
oStr(Self.fExecuteTime / 1000) + ' s.',[]); 
end
;

Для управления режимом мониторинга и отладки введены глобальные переменные gSqlMonitor и gDebugMode. Функция вывода окна мониторинга MonitorEvent не приводится, так как написать ее очень просто.

Пример реализации окна SQL-мониторинга показан на рисунке.

Сергей Бердачук, Berdachuk@tut.by,
http://bs_elbis.at.tut.by