Criptografia[2.0] (Exemplo em Lazarus e Delphi)

Olá Galera, Bom Dia...

Atendendo a solicitação de um de nossos leitores(Internautas), hoje estarei postando uma versão melhorada do exemplo de criptografia, Criptografia (Exemplo em Lazarus e Delphi).  Nesta nova versão o adicionei o campo "Chave de Criptografia", deixando assim aberto para o usuário definir a chave que será utilizada para criptografia do texto.

Segue Links:

   Link para download do EXE:

     Cripto[2.0] - EXE.

   Link para download do código fonte(Lazarus 1.4.4):

     Cripto[2.0] - FONTES.

Estes fontes foram desenvolvidos com Lazarus versão 1.4.4, porém são totalmente compatíveis com Delphi. Caso surja alguma duvida, basta deixar seu comentário.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando Tabelas e Colunas no PostgreSQL, Firebird, MS-SQL Server e Oracle

Olá, Boa Tarde!!!

Com certeza você já preciso listar tabelas, bem como suas colunas, tipo de dados, tamanho de coluna, chaves primárias e estrangeiras, etc. Então resolvemos reunir os comandos para fazer isso em quatro dos principais bancos de dados, o PostgreSQL, o Firebird, o MS-SQL Server e o Oracle.

Abaixo deixamos os links para cada um dos materiais:

PostgreSQL:

•    Listando as Tabelas - PostgreSQL 
•    Listando as Colunas de uma Tabela - PostgreSQL

Firebird:

•    Listando as Tabelas - Firebird 
•    Listando as Colunas de uma Tabela - Firebird

MS-SQL Server:

•    Listando as Tabelas - MS-SQL Server 
•    Listando as Colunas de uma Tabela - MS-SQL Server   

Oracle:

•    Listando as Tabelas - Oracle 
•    Listando as Colunas de uma Tabela - Oracle

Nesta postagem juntamos os links de todas as postagens referente ao assunto de listagem de tabelas e colunas em banco de dados.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando as Colunas de uma Tabela no Oracle

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar todas as colunas de uma tabela no Oracle, identificando as chaves primárias, as chaves estrangeiras, o tipo de dado, tamanho do campo, bem como se ele aceita nulo ou não.

Tendo em mãos o nome da tabela desejada, basta executar o comando abaixo:

Vamos ao comando?

SELECT A.COLUMN_NAME || ' (' || CASE WHEN ((SELECT COUNT(1) 
                                            FROM ALL_CONS_COLUMNS AA 
                                            LEFT JOIN ALL_CONSTRAINTS BB ON AA.CONSTRAINT_NAME = BB.CONSTRAINT_NAME
                                            WHERE BB.CONSTRAINT_TYPE = 'P'
                                              AND AA.TABLE_NAME = A.TABLE_NAME 
                                              AND AA.COLUMN_NAME = A.COLUMN_NAME) > 0) THEN 'PK, ' ELSE '' END ||
       CASE WHEN ((SELECT COUNT(1) 
                   FROM ALL_CONS_COLUMNS AA 
                   LEFT JOIN ALL_CONSTRAINTS BB ON AA.CONSTRAINT_NAME = BB.CONSTRAINT_NAME
                   WHERE BB.CONSTRAINT_TYPE = 'R'
                     AND AA.TABLE_NAME = A.TABLE_NAME 
                     AND AA.COLUMN_NAME = A.COLUMN_NAME) > 0) THEN 'FK, ' ELSE '' END ||
       DATA_TYPE ||
       CASE WHEN (A.CHAR_COL_DECL_LENGTH IS NOT NULL) THEN  '(' || A.CHAR_COL_DECL_LENGTH || '), ' ELSE ', ' END ||
       CASE WHEN A.NULLABLE = 'N' THEN 'Não Nulo' ELSE 'Nulo' END ||
       ')' AS Coluna
FROM ALL_TAB_COLUMNS A
WHERE A.OWNER = 'ALFACONTROL'  -- Nome da TableSpace
  AND A.TABLE_NAME = 'USUARIO'  -- Nome da Tabela

Prontinho, aí estão todas as colunas com as devidas informações de tamanho, tipo de dado, etc.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando Tabelas no Oracle

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar as tabelas em um banco de dados Oracle.

Vamos aos comandos? 

   SELECT TABLE_NAME AS Tabela 
   FROM ALL_ALL_TABLES 
   WHERE TABLESPACE_NAME = 'ALFACONTROL'  -- Nome da TableSpace

Prontinho, aí estão todas as tabelas de um determinado Banco de Dados Oracle.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando as Colunas de uma Tabela no MS-SQL Server

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar todas as colunas de uma tabela no MS-SQL server, identificando as chaves primárias, as chaves estrangeiras, o tipo de dado, tamanho do campo, bem como se ele aceita nulo ou não.

Tendo em mãos o nome da tabela desejada, basta executar o comando abaixo:

Vamos ao comando?

SELECT A.name + 

       ' (' + CASE WHEN ((SELECT COUNT(1) 

                      FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE AA 

                          WHERE A.name = AA.COLUMN_NAME 

                            AND CONSTRAINT_NAME = (SELECT NAME 

                                                   FROM SYSOBJECTS As AAA

                                                   WHERE AA.TABLE_NAME = OBJECT_NAME(AAA.Parent_Obj)

                                                     AND AAA.XTYPE = 'PK')) > 0)

       THEN 'PK, ' ELSE '' END +

       CASE WHEN ((SELECT COUNT(1)

                   FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS AA

                   LEFT JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE BB ON BB.CONSTRAINT_CATALOG = AA.CONSTRAINT_CATALOG

                                                                   AND BB.CONSTRAINT_SCHEMA = AA.CONSTRAINT_SCHEMA

                                                                   AND BB.CONSTRAINT_NAME = AA.CONSTRAINT_NAME

                   WHERE BB.TABLE_NAME = B.name 

                     AND BB.COLUMN_NAME = A.name) > 0) 

       THEN 'FK, ' ELSE '' END +

       C.name + CASE WHEN (C.collationid IS NOT NULL) 

                THEN  '(' + CAST(A.length AS VARCHAR(10)) + ')' ELSE '' END  + ', ' +

       CASE WHEN (A.isnullable = 0) THEN 'Não Nulo' ELSE 'Nulo' END +

       ')' AS Coluna

FROM SYSCOLUMNS A

LEFT JOIN SYSOBJECTS B ON A.id = B.id

LEFT JOIN SYSTYPES C ON A.usertype = C.usertype

WHERE B.name = 'Pessoa'  -- Nome da Tabela

Prontinho, aí estão todas as colunas com as devidas informações de tamanho, tipo de dado, etc.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando Tabelas no MS-SQL Server

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar as tabelas em um banco de dados MS-SQL Server.

Vamos aos comandos?

SELECT NAME AS Tabela FROM SYSOBJECTS WHERE XTYPE = 'U' 

Prontinho, aí estão todas as tabelas de um determinado Banco de Dados MS-SQL Server.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando as Colunas de uma Tabela no Firebird

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar todas as colunas de uma tabela no Firebird, identificando as chaves primárias, as chaves estrangeiras, o tipo de dado, tamanho do campo, bem como se ele aceita nulo ou não.

Tendo em mãos o nome da tabela desejada, basta executar o comando abaixo:

Vamos ao comando?

SELECT TRIM(RDB$RELATION_FIELDS.RDB$FIELD_NAME) || ' (' || 

       CASE WHEN ((SELECT COUNT(1)

                   FROM RDB$RELATION_CONSTRAINTS,

                        RDB$INDEX_SEGMENTS

                   WHERE RDB$INDEX_SEGMENTS.RDB$INDEX_NAME = RDB$RELATION_CONSTRAINTS.RDB$INDEX_NAME

                     AND RDB$RELATION_CONSTRAINTS.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY'

                     AND RDB$RELATION_CONSTRAINTS.RDB$RELATION_NAME = RDB$RELATION_FIELDS.RDB$RELATION_NAME

                     AND RDB$INDEX_SEGMENTS.RDB$FIELD_NAME = RDB$RELATION_FIELDS.RDB$FIELD_NAME) > 0)

       THEN 'PK, ' ELSE TRIM('') END ||

       CASE WHEN ((SELECT COUNT(1)

                   FROM RDB$RELATION_CONSTRAINTS,

                        RDB$INDEX_SEGMENTS

                   WHERE RDB$INDEX_SEGMENTS.RDB$INDEX_NAME = RDB$RELATION_CONSTRAINTS.RDB$INDEX_NAME

                     AND RDB$RELATION_CONSTRAINTS.RDB$CONSTRAINT_TYPE = 'FOREIGN KEY'

                     AND RDB$RELATION_CONSTRAINTS.RDB$RELATION_NAME = RDB$RELATION_FIELDS.RDB$RELATION_NAME

                     AND RDB$INDEX_SEGMENTS.RDB$FIELD_NAME = RDB$RELATION_FIELDS.RDB$FIELD_NAME) > 0)

       THEN 'FK, ' ELSE TRIM('') END ||

       CASE RDB$FIELDS.RDB$FIELD_TYPE

          WHEN 7 THEN 'smallint, '

          WHEN 8 THEN 'integer, '

          WHEN 9 THEN 'quad, '

          WHEN 10 THEN 'float, '

          WHEN 11 THEN 'd_float, '

          WHEN 12 THEN 'date, '

          WHEN 13 THEN 'time, '

          WHEN 14 THEN 'char' || '(' || RDB$FIELDS.RDB$FIELD_LENGTH || '), '

          WHEN 16 THEN 'int64, '

          WHEN 27 THEN 'double, '

          WHEN 35 THEN 'timestamp, '

          WHEN 37 THEN 'varchar' || '(' || RDB$FIELDS.RDB$FIELD_LENGTH || '), '

          WHEN 40 THEN 'cstring' || '(' || RDB$FIELDS.RDB$FIELD_LENGTH || '), '

          WHEN 261 THEN 'blob, '

          ELSE 'Não Identificado, ' END ||

       CASE RDB$RELATION_FIELDS.RDB$NULL_FLAG

          WHEN 1 THEN TRIM('Não Nulo') ELSE TRIM('Nulo') END || ')' AS Coluna

FROM RDB$RELATION_FIELDS

LEFT JOIN RDB$FIELDS ON RDB$RELATION_FIELDS.RDB$FIELD_SOURCE = RDB$FIELDS.RDB$FIELD_NAME

WHERE RDB$RELATION_FIELDS.RDB$RELATION_NAME = 'USUARIOS' -- Nome da Tabela

Prontinho, aí estão todas as colunas com as devidas informações de tamanho, tipo de dado, etc.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando Tabelas no Firebird

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar as tabelas em um banco de dados Firebird.

Vamos aos comandos?

SELECT RDB$RELATION_NAME AS Tabela
FROM RDB$RELATIONS
WHERE RDB$VIEW_BLR IS NULL
  AND (RDB$SYSTEM_FLAG = 0 OR RDB$SYSTEM_FLAG IS NULL);

Prontinho, aí estão todas as tabelas de um determinado Banco de Dados Firebird.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando as Colunas de uma Tabela no PostgreSQL

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar todas as colunas de uma tabela no postgreSQL, identificando as chaves primárias, as chaves estrangeiras, o tipo de dado, tamanho do campo, bem como se ele aceita nulo ou não.

Tendo em mãos o nome do Schema e o nome da tabela desejada, basta executar o comando abaixo:

Vamos ao comando?

SELECT A.attname || '(' ||
       CASE WHEN ((SELECT COUNT(1)
                   FROM pg_index AA
                   WHERE AA.indrelid = B.oid
                     AND AA.indkey[0] = A.attnum) > 0)
       THEN 'PK, ' ELSE '' END ||
       CASE WHEN ((SELECT COUNT(1)
                   FROM pg_constraint BB
                   WHERE BB.conrelid = A.attrelid
                     AND BB.conkey[1] = A.attnum
                     AND BB.confrelid <> 0) > 0)
       THEN 'FK, ' ELSE '' END ||
       format_type(A.atttypid, A.atttypmod) || ', ' ||
       CASE WHEN A.attnotnull = 't' 
       THEN 'Não Nulo' ELSE 'Nulo' END ||
       ')' AS Coluna
FROM pg_attribute A 
LEFT JOIN pg_class B ON A.attrelid = B.oid
LEFT JOIN pg_namespace C ON B.relnamespace = C.oid
LEFT JOIN pg_type D ON A.atttypid = D.oid
WHERE A.attnum > 0
  AND C.nspname = 'public' --Nome do Schema
  AND B.relname = 'pessoa' --Nome da Talela

Prontinho, aí estão todas as colunas com as devidas informações de tamanho, tipo de dado, etc.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Listando Tabelas no PostgreSQL

Olá, Bom Dia Galera!!!

Vamos ver os comandos para listar as tabelas em um banco de dados PostgreSQL.

Vamos aos comandos?

1º) Vamos identificar o nome do schema:

   SELECT DISTINCT(schemaname) FROM pg_tables;       

2º) Agora vamos ao comando para listar as tabelas de um determinado schema.

   SELECT tablename AS Tabela FROM pg_tables WHERE schemaname = 'public';

Prontinho, aí estão todas as tabelas de um determinado Schema ou Banco de Dados PostgreSQL.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Cálculo de Troco em Pascal (Lazarus / Delphi)

Bom dia, Galera!!!

Vamos a mais uma dica (exemplo) prática(o) e rápida(o)?

Hoje vamos postar um exemplo com uma função para cálculo de troco, detalhando o menor número de cédulas e moedas possíveis. Para isso criamos um pequeno aplicativo em Pascal, com a ferramenta Lazarus e vamos disponibilizar o executável, bem como os fontes para que todos possam usufruir dos dados, sendo redistribuindo e/ou melhorando, apenas solicitamos que seja preservados os  dados autorais dos fontes. 

Segue Links:

   Link para download do EXE:

     CalculaTroco - EXE.

   Link para download do código fonte(Lazarus 1.4.0):

     CalculaTroco - FONTES.

Estes fontes foram desenvolvidos com Lazarus versão 1.4.0 e Sistema Operacional Windows 7 x64, porém são totalmente compatíveis com Delphi. Caso surja alguma duvida, basta deixar seu comentário.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Importar Arquivo de Texto Para Uma Tabela no PostgreSQL

Boa Tarde!!!

Hoje estou passando por aqui apenas para publicar uma dica muito rápida e fácil, que para mim, foi muito importante nesta semana.

A que me refiro? A importação de dados de um arquivo "txt" (texto) direto para uma tabela do PostgreSQL. Bem, vamos ao que realmente nos interessa.

1º) Acesse o terminal e efetue o login no seu banco de dados PostgreSQL.

2º) Agora vamos ajustar o "Character Set Support" ("Conjunto de Caracteres Suportados") :

     SET CLIENT_ENCODING TO 'latin1';

OBS. 1: Para mais informações sobre "Character Set Support" acesse a página de documentação do próprio PostgreSQL no seguinte link:   Character Set Support - PostgreSQL.

3º) Após esta configuração, basta rodar o comando abaixo:

     COPY tabela FROM arquivo USING DELIMITERS 'delimitador';

          EX.: COPY cliente FROM /home/Clientes.txt USING DELIMITERS '|';

OBS. 2: O arquivo deve conter conteúdo para todas as colunas da tabela em questão.

Estes comandos foram usados em um servidor Linux e PostgreSQL 9.2. Caso surja alguma duvida, basta deixar seu comentário.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Conversor de Números Decimal Para Romano em Pascal (Lazarus / Delphi)

Boa Tarde, Pessoal!!!

Vamos à mais uma dica rápida?

Hoje, vamos postar um conversor de números de Decimal para Romano. Este aplicativo foi criado em Pascal, com a ferramenta Lazarus e estamos disponibilizando o executável, bem como os fontes para que todos possam usufruir dos dados, sendo redistribuindo e/ou melhorando, apenas solicitamos que seja preservados os  dados autorais dos fontes. 

Segue Links:

   Link para download do EXE:

     ConvRomano - EXE.

   Link para download do código fonte(Lazarus 1.4.0):

     ConvRomano - FONTES.

Estes fontes foram desenvolvidos com Lazarus versão 1.4.0 e Sistema Operacional Windows 7 x64, porém são totalmente compatíveis com Delphi. Caso surja alguma duvida, basta deixar seu comentário.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Conversor de Temperaturas em Pascal (Lazarus / Delphi)

Boa Tarde, Galera!!!

Hoje, pergunto para você, internauta, já precisou converter temperaturas, mas não fazia nem ideia de como calcular? 

Como também nos deparamos com esta necessidade, resolvemos criar um pequeno aplicativo em Pascal, com a ferramenta Lazarus e disponibilizar o executável, bem como os fontes para que todos possam usufruir dos dados, sendo redistribuindo e/ou melhorando, apenas solicitamos que seja preservados os  dados autorais dos fontes. 

Segue Links:

   Link para download do EXE:

     ConvTemp - EXE.

   Link para download do código fonte(Lazarus 1.2.6):

     ConvTemp - FONTES.

Estes fontes foram desenvolvidos com Lazarus versão 1.2.6 e Sistema Operacional Windows 7 x64, porém são totalmente compatíveis com Delphi. Caso surja alguma duvida, basta deixar seu comentário.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.

Instalando e Configurando MySQL no Ubuntu 14

Olá, Bom Dia!!!

Hoje vamos ver como instalar o MySQL no Ubuntu 14.

1º) Vamos atualizar os repositórios do Ubuntu.

     sudo apt-get update

2º) Agora Vamos instalar o pacote correspondente ao MySQL Server para Ubuntu com o seguinte comando:

     sudo apt-get install mysql-server

OBS.: O processo de instalação é muito simples, porém é preciso se atentar ao momento em que é solicitado uma senha de "root", esta senha é a senha do MySQL e não a senha do usuário root do Ubuntu. Serão duas telas, a de senha e uma segunda para confirmação de senha.

3º) Após a conclusão da instalação da aplicação servidora, agora vamos instalar o mysql-client.

     sudo apt-get install mysql-client

4º) Agora basta acessar conforme abaixo:

     mysql -u root -p[enter]
     enter password: ******

Dica: Para sair do MySQL, basta digitar "\q" (Sem Aspas) e pressionar enter.

Esta dica foi testada no Ubuntu 14.10 e MySQL 5.5.41. Caso surja alguma duvida, basta deixar seu comentário.

Esta dica foi uma contribuição do nosso colega Dônovan Gomes.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente

Dica Chave.