Você está aqui: Delphi ::: dbExpress ::: TSQLMonitor

Entenda e aprenda a usar a classe TSQLMonitor em suas aplicações Delphi + dbExpress

Quantidade de visualizações: 11354 vezes

Um objeto da classe TSQLMonitor permite interceptar as mensagens que são trocadas entre um componente de conexão SQL (TSQLConnection) e um servidor de banco de dados e salvá-las em uma lista de strings. Veja sua posição na hierarquia de classes do Delphi:

System.TObject
  Classes.TPersistent
    Classes.TComponent
      SqlExpr.TSQLMonitor

Esta classe também implementa as interfaces Classes.IInterfaceComponentReference e System.IInterface.

Usamos um componente TSQLMonitor quando queremos depurar (debug) a comunicação entre nossas aplicações e um servidor de banco de dados. Cada instância da classe TSQLMonitor registra (log) os comandos SQL de um determinado componente de conexão SQL, e os adiciona a uma lista de strings (string list). Isso não só nos permite verificar os comandos que disparamos explicitamente a um dataset SQL ou componente de conexão SQL mas também ver quaisquer comandos disparados nos bastidores, tais como aqueles gerados por um componente dataset provider.

A lista de comandos já registrados pode ser visualizada por meio da propriedade TraceList. Esta propriedade é atualizada automaticamente quando o componente de conexão passa uma mensagem para o servidor de banco de dados.

Siga os passos abaixo para aprender a conectar um controle TSQLMonitor a um componente TSQLConnection e registrar em um TMemo as mensagens trocadas com o servidor de banco de dados:

a) Vá na aba dbExpress e arraste um controle TSQLMonitor para o formulário ou data module;

b) Ajuste a propriedade SQLConnection do TSQLMonitor para o controle TSQLConnection desejado;

c) Ajuste a propriedade Active do TSQLMonitor para True;

d) Coloque o código abaixo no evento OnLogTrace do SQLMonitor (pode ser necessário acrescentar a unit DBXCommon na sua lista de uses):

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.SQLMonitor1LogTrace(Sender: TObject; TraceInfo: TDBXTraceInfo);
begin
  // vamos transferir para um TMemo as mensagens trocadas
  // entre o SQLConnection e o banco de dados
  Memo1.Lines := TStrings(SQLMonitor1.TraceList);
end;

Neste trecho de código eu direcionei o log das mensagens para um TMemo. Note que fiz uma conversão forçada (cast) para o tipo TStrings afim de evitar o erro:

Incompatible types: 'TStrings' and 'TWideStrings'

Veja parte do conteúdo das mensagens registradas pelo SQLMonitor:

select * from `livros`
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_escape_string
MySQL - mysql_escape_string
SELECT TABLE_SCHEMA, CAST(NULL AS CHAR(1)), TABLE_NAME, 
INDEX_NAME, CASE WHEN NON_UNIQUE = 0 THEN INDEX_NAME ELSE 
NULL END, INDEX_NAME='PRIMARY', NON_UNIQUE=0, 1=1 FROM 
INFORMATION_SCHEMA.STATISTICS WHERE (TABLE_SCHEMA = 'estudos' 
OR (1=2)) AND (1=1 OR 1=2) AND (TABLE_NAME = 'livros' OR (1=2)) 
GROUP BY 1, 2, 3 ,4 ORDER BY 1, 2, 3, 4
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_fetch_row
MySQL - mysql_fetch_lengths
MySQL - mysql_escape_string
MySQL - mysql_escape_string
MySQL - mysql_escape_string
SELECT TABLE_SCHEMA, CAST(NULL AS CHAR(1)), TABLE_NAME, 
INDEX_NAME, COLUMN_NAME, SEQ_IN_INDEX, COLLATION='A' FROM 
INFORMATION_SCHEMA.STATISTICS WHERE (TABLE_SCHEMA = 'estudos' 
OR (1=2)) AND (1=1 OR 1=2) AND (TABLE_NAME = 'livros' OR (1=2)) 
AND (INDEX_NAME = 'A' OR (1=1)) ORDER BY 1, 2, 3, 4, SEQ_IN_INDEX
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_fetch_row
MySQL - mysql_fetch_lengths
MySQL - mysql_fetch_row
MySQL - mysql_free_result
select * from `livros`
MySQL - mysql_real_query
MySQL - mysql_field_count
MySQL - mysql_store_result
MySQL - mysql_fetch_field
MySQL - mysql_fetch_row
MySQL - mysql_fetch_lengths

É importante observar que o SQLMonitor usa a propriedade TraceCallbackEvent do componente SQL connection cujas mensagens o mesmo monitora. Se atribuirmos nossa própria chamada callback a esta propriedade, a instância do SQL monitor interromperá seu funcionamento.

Esta dica foi escrita e testada no Delphi 2009.

Link para compartilhar na Internet ou com seus amigos:

Delphi ::: VCL - Visual Component Library ::: TListBox

Como retornar a quantidade de itens em uma TListBox do Delphi usando a propriedade Items.Count

Quantidade de visualizações: 12997 vezes

Em algumas situações nós precisamos obter a quantidade de itens em uma TListBox. Isso pode ser feito por meio da propriedade Count do objeto Items, uma instância da classe TStrings. Esta propriedade contém um valor inteiro que representa a quantidade de elementos na ListBox. Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  quant: Integer;
begin
  // vamos adicionar dois itens na TListBox
  ListBox1.Items.Add('Item 1');
  ListBox1.Items.Add('Item 2');

  // vamos obter a quantidade de itens
  quant := ListBox1.Items.Count;

  // exibe o resultado
  ShowMessage('Quantidade de elementos: ' + IntToStr(quant));
end;

É possível também obter a quantidade de itens em uma TListBox acessando a propriedade Count da classe TCustomListBox. Esta propriedade é herdada pela classe TListBox. Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

quant := ListBox1.Count;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Delphi ::: Dicas & Truques ::: Strings e Caracteres

Como obter uma substring no início de uma string usando a função AnsiLeftStr() do Delphi

Quantidade de visualizações: 12625 vezes

Em algumas situações precisamos obter uma substring no início de uma string. Em Delphi isso pode ser feito por meio da função AnsiLeftStr(). Esta função requer a string a partir da qual a substring será obtida e a quantidade de caracteres que comporâo a substring. O retorno será uma nova string contendo a substring obtida. Veja o exemplo:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Programar"
  substring := AnsiLeftStr(frase, 9);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

Não se esqueça de adicionar a unit StrUtils no uses do seu formulário.

Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.

Delphi ::: VCL - Visual Component Library ::: TStringGrid

Como usar o controle TStringGrid em suas aplicações Delphi - O componente TStringGrid do Delphi

Quantidade de visualizações: 19006 vezes

Um objeto da classe TStringGrid representa um controle de grid que pode ser usado em suas aplicações Delphi para simplificar o processo de se lidar com strings e objetos associados a esta. Veja a posição desta classe na hierarquia de classes do Delphi:

System.TObject
  Classes.TPersistent
    Classes.TComponent
      Controls.TControl
        Controls.TWinControl
          Controls.TCustomControl
            Grids.TCustomGrid
              Grids.TCustomDrawGrid
                Grids.TDrawGrid
                  Grids.TStringGrid

Esta classe implementa também as interfaces IInterfaceComponentReference e IInterface.

O uso mais frequente de um controle TStringGrid é quando queremos apresentar um conteúdo texto em um formato tabular. Este controle fornece muitas propriedades para controlar a aparência da grid, assim como eventos e métodos que tiram vantagem da organização tabular da grid ao responder às ações do usuário.

Para adicionar um controle TStringGrid ao seu formulário você só precisa acessar a aba Additional no Tool Palette, clicar no controle e arrastá-lo para a posição desejada no formulário. Por padrão, um controle TStringGrid contém 5 linhas e 5 colunas. Novas linhas e novas colunas podem ser adicionadas por meio das propriedades RowCount e ColCount da classe TCustomGrid.

Cada célula da grid pode ter seu valor definido ou acessado usando-se a propriedade Cells. Veja um trecho de código no qual definimos o conteúdo da célula situada na segunda linha da primeira coluna do TStringGrid:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos definir o conteúdo da célula na segunda linha
  // da primeira coluna da grid
  StringGrid1.Cells[0, 1] := 'Osmar J. Silva';
end;

Um controle TStringGrid introduz a possibilidade de associar um objeto com cada string na grid. Estes objetos podem encapsular quaisquer informações ou comportamento representado pelas strings apresentadas ao usuário.

Se as strings a serem apresentadas na grid representarem valores de campos dos registros de um conjunto de dados (dataset), devemos usar um TDBGrid em vez de um TStringGrid.

Vamos testar seus conhecimentos em

Dimensionamento de pilares de extremidade

É importante detalhar as armaduras longitudinais e transversais de um pilar de extremidade durante a concretagem dessas estruturas, evitando futuras patologias. Para isso, é importante que o projetista atenda aos requisitos normativos desse detalhamento.

Sobre o detalhamento de armaduras de pilares de extremidade, assinale a alternativa correta.

A) O máximo espaçamento permitido entre as barras longitudinais corresponde a 500mm.

B) O espaçamento mínimo permitido entre as barras transversais corresponde a 5mm.

C) O diâmetro da armadura transversal deve ser maior ou igual a 5mm ou 1/4 do diâmetro da barra longitudinal.

D) O diâmetro máximo da barra longitudinal corresponde a 12,5mm e a 1/8 da barra transversal.

E) Para armaduras de aço CA-50, o espaçamento vertical corresponde a 25 vezes o diâmetro da barra transversal.

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Python

Qual o resultado da execução do seguinte código Python?

frase = "Gosto Muito de Python"
frase = frase.swapcase()
print(frase)

A) gOSTO mUITO DE pYTHON

B) Gosto muito de python

C) Gosto Muito De Python

D) PYTHON DE MUITO GOSTO

E) gosto MUITO de PYTHON

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em JavaScript

Qual o resultado da execução do seguinte código JavaScript?

document.write(0.1 + 0.2 == 0.3);

A) Um erro de execução

B) true

C) 0.6

D) false

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em

Domínios de Deformações

Vigas de concreto armado, com seções submetidas a um momento fletor e a um esforço cortante, são dimensionadas de tal forma que se determine uma armadura longitudinal para resistir ao momento fletor e uma armadura transversal para resistir ao esforço cortante.

Analise as informações a seguir, a respeito da solicitação normal do tipo momento fletor:

I) Solicitação de flexão simples ocorre quando a única solicitação atuante é o momento fletor.

II) Solicitação de flexão composta ocorre quando, além do momento fletor, há uma força normal atuante.

III) Solicitação de flexão oblíqua ocorre quando o plano de flexão compreende um eixo de simetria da seção transversal.

Assinale a alternativa correta:

A) Somente a afirmação I está correta.

B) Somente as afirmações I e II estão corretas.

C) Somente a afirmação II está correta.

D) Somente a afirmação III está correta.

E) Somente as afirmações II e III estão corretas.

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais

Materiais empregados para instalação de água fria e esgoto

A instalação de água fria utilizando cano de PVC rígido da cor marrom exige uma série de cuidados, como, por exemplo, a questão da limpeza e da eliminação de sujeira em seu interior. Caso isso não seja feito, pode obstruir toda a rede quando ela for ligada à rede da rua. Nesse sentido, uma evolução tecnológica que facilita o manuseio de tubos e conexões na hora da montagem é:

A) o emprego de adesivo PVC de secagem rápida.

B) a utilização de anéis de vedação de borracha, o que facilita a execução.

C) a utilização de engate rápido superfície sobre superfície, eliminando anéis de vedação.

D) a utilização de conexão vedada com gaxeta, que pode ser regulada posteriormente.

E) o sistema de encaixe de topo, que dispensa acessórios de união entre canos, realizado por fricção.

Verificar Resposta Estudar Cards Todas as Questões

Desafios, Exercícios e Algoritmos Resolvidos de Delphi

Um programa Delphi que lê dois números e mostra a soma, subtração, multiplicação e a divisão dos números lidos - Exercício Resolvido de Delphi

Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Exercício Resolvido de Delphi

Como calcular média ponderada em Delphi - Ler o nome de um aluno e as notas de três provas - Exercícios Resolvidos de Delphi

Veja mais Dicas e truques de Delphi

Obtendo o número ou a sequencia de Fibonacci recursivamente usando Delphi

Como calcular o seno de um número ou ângulo em Delphi usando a função Sin()

Usando a propriedade MultipleTransactionsSupported da classe TSQLConnection para verificar se o banco de dados dá suporte a múltiplas transações

Os índices das matrizes em Delphi sempre começam em 0, como no Java e C/C++?

Como aplicar cores alternadas às linhas de um TDBGrid do Delphi (efeito zebrinha)

Exercícios Resolvidos de Delphi - Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit

Como verificar a existência de um diretório usando a função DirectoryExists() do Delphi

Entenda e aprenda a usar a classe TRegistry em seus programas Delphi

Usando a propriedade Connected ou o método Open() da classe TSQLConnection para estabelecer uma conexão com um banco de dados

Como retornar o caractere a partir de um determinado código ASCII em Delphi usando a função Chr()

Dicas e truques de outras linguagens

Java - Como usar o método format() da classe NumberFormat do Java para formatar um valor float ou double de acordo com as configurações regionais - Revisado

C++ - Como substituir substrings em strings C++ usando a função replace()

Java - Exercício Resolvido de Java - Escreva um programa Java que pede um número inteiro e informa se o número informado é um número de Armstrong

PHP - Como converter um valor decimal em binário usando a função decbin() da linguagem PHP

Java - Como usar o método isDigit() da classe Character da linguagem Java para verificar se um caractere é um dígito de 0 a 9

PHP - Exercícios Resolvidos de PHP - Escreva um programa PHP para mover todos os zeros para o final do vetor, sem alterar a ordem dos elementos já presentes no array

Java - Como converter de hexadecimal para decimal usando o método parseInt() da classe Integer da linguagem Java

C++ - Como criar um vector de inteiros em C++ e inserir elementos usando a função push_back()

PHP - Como usar a função array_unique() do PHP para remover elementos duplicados de um vetor - Removendo elementos repetidos de um array PHP

Java - Java Swing - Como obter o valor selecionado em um JList usando o método getSelectedValue()

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e Fornecedores

Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais

Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: Delphi
6º lugar: C
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby

Você está aqui: Delphi ::: dbExpress ::: TSQLMonitor

Entenda e aprenda a usar a classe TSQLMonitor em suas aplicações Delphi + dbExpress

Delphi ::: VCL - Visual Component Library ::: TListBox

Como retornar a quantidade de itens em uma TListBox do Delphi usando a propriedade Items.Count

Delphi ::: Dicas & Truques ::: Strings e Caracteres

Como obter uma substring no início de uma string usando a função AnsiLeftStr() do Delphi

Delphi ::: VCL - Visual Component Library ::: TStringGrid

Como usar o controle TStringGrid em suas aplicações Delphi - O componente TStringGrid do Delphi

Vamos testar seus conhecimentos em

Vamos testar seus conhecimentos em Python

Vamos testar seus conhecimentos em JavaScript

Vamos testar seus conhecimentos em

Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais

Questões de Concurso para Engenharia Civil

Exercícios Resolvidos

Bancos de Dados

Questões de Concurso

Frameworks

Projetos e Códigos Fonte

Especializações

Calculadoras

Ferramentas

Todas as Linguagens, Frameworks, Biliotecas e Bancos de Dados

Compre pelo WhatsApp: +55 (062) 98553-6711

E-Book 650 Dicas e Truques de Python - Com comentários em Português

PDF COM 1.200 PÁGINAS

Apenas R$ 32,90