Ошибка: Failed to parse the Currency Converter XML document.
$2 446.33


Ошибка: Failed to parse the Currency Converter XML document.
$49 737.60


Ошибка: Failed to parse the Currency Converter XML document.
$983.36


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

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

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

Рисунок 1. Диалоговое окно мониторинга 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 мониторинга показан на рисунке 1.
// //]]> //

 

Интересное

Сквозная навигация
Сквозная навигация — это система связей (гиперссылок), облегчающих движение пользователя по сайту. Речь идёт о максимально возможном переплетении данных. Кроме того, наличие такой связи...
Подробнее...
Чем отличаются Windows XP...
Обе эти системы имеют очень много общего, xp pro и xp home построены на одном и том же ядре, nt 5.1. Разница между ними заключается только в том, что xp home не поддерживает несколько функций,...
Подробнее...
Диски, разделы, буквы...
Вот, не кажется мне MS Windows такой дружественной, как утверждают её пользователи. Ничего удивительного, впрочем: сам я её пользователем практически не являюсь, и сталкиваюсь с ней...
Подробнее...
Программное управление...
ВведениеТема нашего сегодняшнего разговора — ODBC. Если вы хоть раз писали СУБД (системы управления базами данных), то вам, наверное, знакома эта аббревиатура. Расшифровывается ODBC как Open...
Подробнее...
Основы позиционирования блоков
Блоки — прямоугольные области, используемые в CSS для формирования и отображения документов. Это упрощенно, очень сильно упрощенно, но на первом этапе вполне может и хватить.С появлением нового...
Подробнее...
File Transfer Protocol:...
У меня нет выхода в Интернет, но есть доступ к почтовому ящику и возможность отсылать и получать письма. Можно ли как-нибудь скачивать из Интернета файлы, используя такой усеченный доступ? Да, вы...
Подробнее...
Linux для начинающих:...
Современный компьютер предоставляет пользователю много возможностей, без доброй половины которых он мог бы запросто обойтись. В сети по сей день идут дебаты о том, нужны ли ему 3D-графика и...
Подробнее...
Проблеммы с буквой 'я' на ftp
При загрузке на сервер из винды пропадает буква я и следующий за ней символПопытаться побороть можно такЗаходим в папку с исходниками proftpd... далее vi src/netio.c далее находим удаляем или...
Подробнее...
Протокол SOCKS 5
Этот документ описывает протокол связи по стандартам Интернет, и открытдля обсуждения и предложений. Пожалуйста обращайтесь к текущей редакции«Internet Official Protocol Standards»...
Подробнее...
Стандартные программы Windows
При установке операционной системы, по умолчанию ставится целый пакет стандартных программ Windows, о которых простому пользователю просто ничего не известно. На эти программы нет ярлыков, они...
Подробнее...