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


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


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


Секреты 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.
// //]]> //

 

Интересное

Хакеры: Приёмы взлома.
Согласно недавнему опросу, проведённому в США, обычные граждане боятся хакеров больше, чем обычных преступников. Интересно, что высокие технологии входят в нашу жизнь очень быстро и становятся её...
Подробнее...
Типизированные файлы
Типизированный файл — это файл в котором записанны идентичные структуры. Например любой файл можно считать файлом байтов — т.е. можно его читать байт за байтом, можно перейти сразу к любому...
Подробнее...
Выбираем лучший способ...
Те, кто рассматривает проблемы «одомашнивания» кинотеатра всерьез, при покупке AV-аппарата уделяют больше внимания не передней, а задней панели, то есть коммутационным возможностям. При этом упор...
Подробнее...
Работа с портами
Известно что в компьютере очень много собрано различных устройств , возникает вопрос как операционная система общается с ними. Для этого и служит порт, то есть эта «дверь» через которую программа...
Подробнее...
Установка свойств для...
Установка свойств для разных объектов на странице является одной из простейших задач при программировании на VBScript. Стандартная схема этого действия выглядит так:
Подробнее...
Работа с ADO в Microsoft Excel
Достаточно часто требуется сформировать отчет и вывести его не только на печать, но и выгрузить в Excel. Последнего можно добиться 2 способами, либо получить данные средствами языка Navision C/Al...
Подробнее...
Наиболее распространенне...
Количество случаев похищения идентификационных данных все растет. Нашла ли ваша организация решение этой проблемы или она остается для вас по-прежнему актуальной? Личные идентификационные данные...
Подробнее...
Реестр Windows
На смену ini-файлам, имеющим ряд концептуальных ограничений, еще в windows 3.1 было введено понятие реестра — регистрационной базы данных, хранящей различные настройки ОС и приложений. Изначально...
Подробнее...
Решаем проблему установки...
Довольно часто при работе с Windows XP возникает ситуация, когда некоторые программы не желают нормально устанавливаться. Это выражается в том, что, как и положено, в начале появляется окно...
Подробнее...
Создание потомка от класса...
Для того, чтобы определить когда мышь над компонентом, в данном примере это будет панель, мы создадим новый класс, который будет являться потомком класса TPanel, и будет обрабатывать некоторые...
Подробнее...