Не секрет, что приложения баз данных составляют довольно большую долю всех вновь разрабатываемых приложений. Ни одна информационная система не может быть создана без соединения с той или иной СУБД. В первых версиях нам предлагался давно устаревший, но все еще успешно использующийся 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: 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 не приводится, так как написать ее очень просто.

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

Добавлено: 30 Июля 2018 20:22:56 Добавил: Андрей Ковальчук Нравится 0

Добавить