Недавно добавленные исходники

•  TDictionary Custom Sort  3 225

•  Fast Watermark Sources  2 990

•  3D Designer  4 750

•  Sik Screen Capture  3 259

•  Patch Maker  3 467

•  Айболит (remote control)  3 528

•  ListBox Drag & Drop  2 904

•  Доска для игры Реверси  80 775

•  Графические эффекты  3 843

•  Рисование по маске  3 171

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 672

•  Рисование Луны  2 500

•  Поворот изображения  2 092

•  Рисование стержней  2 119

•  Paint on Shape  1 524

•  Генератор кроссвордов  2 183

•  Головоломка Paletto  1 730

•  Теорема Монжа об окружностях  2 158

•  Пазл Numbrix  1 649

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

СТАТЬИ

 

. : Мониторинг SQL запросов при работе с ADO компонентами : .

 

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

Диалоговое окно мониторинга SQL запросов

Диалоговое окно мониторинга SQL запросов
 

   Хотя в новых версиях Delphi добавлены более современные компоненты dbExpress, а так же огромное количество компонент сторонних производителей, компоненты ADO все еще заслуживают внимания. Из-за простоты использования, интеграции со средой разработки (в поставке Delphi Enterpise), а так же довольно высокой скорости работы имеет смысл их использовать, если не планируется переходить на мультиплатформенную разработку.

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


fExecuteTime: dword;
...
procedure TDM.dbConnectionWillExecute(
  Connection: TADOConnection;
var CommandText: WideString; var CursorType: TCursorType;
var LockType: TADOLockType; var CommandType: TCommandType;
var ExecuteOptions: TExecuteOptions; var EventStatus: TEventStatus;
const Command: _Command; const Recordset: _Recordset );
var
i,j: integer;
infoStr: String;
tmpParameters: Parameters;
begin
if gDebugMode
  then MonitorEvent('WillExecute.. ',[]);
fExecuteTime:=GetTickCount;
if gSqlMonitor and gDebugMode then
begin
MonitorEvent(CommandText,['']);
if Assigned(Recordset) then
begin
for i := 0 to (dbConnection.DataSetCount-1) do
if Assigned(dbConnection.DataSets[i].Recordset)
and (Recordset = dbConnection.DataSets[i].Recordset) then
if (dbConnection.DataSets[i] is TADODataSet)
and (TADODataSet(dbConnection.DataSets[i]).
                                   Parameters.Count > 0)
  then
for j:=0 to TADODataSet(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].Value) then
infoStr:=infoStr+String(TADODataSet(dbConnection.DataSets[i]).
                                   Parameters.Items[j].Value)
else
infoStr:=infoStr + 'Null';
MonitorEvent(infoStr,['']);
end;
end;
if Assigned(Command) then
begin
tmpParameters:=Command.Get_Parameters;
if (tmpParameters.Count > 0) then
for j:=0 to tmpParameters.Count - 1 do
begin
infoStr:=tmpParameters.Item[j].Name+' = ';
if Not VarisNull(tmpParameters.Item[j].Value) then
infoStr:=infoStr + String(tmpParameters.Item[j].Value)
else
infoStr:=infoStr + 'Null';
MonitorEvent(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.fExecuteTime;
if gDebugMode
  then MonitorEvent('Execute time: '
                 +FloatToStr(Self.fExecuteTime / 1000)+' s.',[]);
end;


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

Дата: 01.01.2007, Автор: Сергей Бердачук.



Назад

   

 














































































 

© 2004-2024 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software