Escrevendo Número Por Extenso com Lazarus.

Olá, Bom Dia, Galera!

Hoje vamos para uma dica super rápida e muito útil.

Quem nunca precisou transformar números do tipo "REAL" ou "Inteiro" para extenso? Então aí vai uma solução prática, quem quer apenas usar o programa para gerar os números em extenso, basta baixar o "EXE", já quem tem interesse em adicionar esta função ao seu sistema, ou até mesmo melhora-la, pode baixar o "Fonte"

Segue Links:

   Link para download do EXE:

     Conversor de Valores Para Extenso - EXE.

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

     Conversor de Valores Para Extenso - FONTES.

Estes fontes foram desenvolvidos com Lazarus versão 1.2.6, 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.

Gerador de Senhas

Olá, Boa Tarde, Pessoal!

Nesta dica vou disponibilizar um gerador de senhas fortes, desenvolvido por mim.

Mas, O que é um gerador de Senha?

   É um sistema que vai lhe ajudar a criar senhas fortes, seguras e difíceis de serem descobertas, até mesmo por hackers. Uma senha forte, começa  já eliminando vínculo com dados pessoais como datas de nascimento ou trechos de seus nomes. Segundo especialistas em segurança digital, ter uma senha forte é a melhor dica para os internautas que utilizam os mais variados serviços disponíveis na internet.

Nosso sistema Gerador de Senhas é muito simples de usar, basta escolher quais tipos de caracteres deseja que façam parte de sua senha, setar o tamanho e quantas senhas deseja gerar, e pronto....

Segue Links:

   Link para download do EXE:

     Gerador de Senhas - EXE.

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

     Gerador de Senhas - FONTES.

Segue os links do executável para quem apenas desejar gerar boas senhas, e para quem quer conhecer, editar e utilizar as funções de geração de senhas, segue também os fontes. Fontes estes desenvolvidos com Lazarus versão 1.2.6. 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.

Gerar Script Para "DROPAR" Todas as Tabelas de Um TABLE_SPACE no ORACLE

Olá, Boa Tarde Galera!!!

Hoje vamos ver uma dica para banco de dados Oracle...

Objetivo: Gerar script para "dropar" todas as tabelas e seu conteúdo de um TABLE SPACE no Oracle.

Para o comando abaixo, vamos usar a TABLE SPACE "USERS".

1º) Vamos identificar nosso TABLE SPACE:

   SELECT DISTINCT(TABLESPACE_NAME) FROM ALL_TABLES; 

2º) Agora vou verificar se são realmente estas tabelas que quero apagar:

   SELECT TABLE_NAME FROM ALL_TABLES WHERE TABLESPACE_NAME = 'USERS';

   ou

   SELECT * FROM ALL_TABLES WHERE TABLESPACE_NAME = 'USERS'; 

3º) Este é o comando que vai gerar os comandos de "DROP TABLE":

   SELECT 'DROP TABLE ' || TABLE_NAME || ';'

   FROM ALL_TABLES

   WHERE TABLESPACE_NAME = 'USERS'

     AND TABLE_NAME IN(SELECT TABLE_NAME 

                       FROM ALL_TABLES 

                       WHERE TABLESPACE_NAME = 'USERS')  

4º) Este comando vai gerar algo semelhante ao descrito abaixo:

5º) Aí basta executar estes comando gerados.

Esta foi a dica de hoje, se for útil, comentem.

    Fonte.: Esta dica foi tirada de algum site na WEB e ajustada junto com o nosso colega Guilherme Godinho. 

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

Atenciosamente

Dica Chave.

Tela de Login Simples e Sem Botões Em Lazarus

Olá, Boa Noite, Galera...

Hoje vou mostrar como criar uma tela de login simples no Lazarus(Versão 1.2.6) apenas usando dois "Edits" e um "Form".

Então vamos trabalhar???

1º) Crie um novo projeto e salve-o em uma pasta a sua escolha.

2º) Agora vamos criar um segundo formulário(Form de Login) e salvar na mesma pasta.

3º) Vamos alterar as seguintes propriedades deste Form de Login:

     FormStyle para bsNome -> Tirar as bordas do formulário;

     Position para poScreenCenter -> Centraliza o formulário na tela.

4º) Vamos adicionar 02(dois) "Edits" em nosso formulário.

5º) No evento "OnKeyPress" do Edit1 coloque o seguinte código:

   if (key = #13) then

   begin

     key := #0;

     Edit2.SetFocus;

   end;

6º) No evento "OnKeyPress" do Edit2 coloque o seguinte código:

   if (key = #13) then

   begin

     key := #0;

     login(Edit1.Text, Edit2.Text); // Chama a procedure de login

   end;

7º) Declare uma procedure chamada login onde passaremos dois parâmetros,(login e senha).
   public
     { public declarations }
     procedure login(usuario, senha : String);

8º) Vamos declarar a Unit do Form principal, logo abaixo de "Implementation"
   uses
     uPrincipal;

9º) Na área de implementação vamos codificar nossa procedure de login. 
   procedure TForm2.login(usuario, senha: String);
   begin
     // Função para verificar login e senha
     // Verifica se o login for válido 
     // (pode ser uma consulta no banco de dados)
     // Aqui vou apenas testar se o login e senha são iguais.
     if (usuario = senha) then
     begin
       frmPrincipal.Enabled := True;  // Ativa o Form Principal
       Form2.Hide;  // Esconde o form de login
     end
     else
     begin
       ShowMessage('Usuário e/ou Senha não confere...');
       Edit1.SetFocus;
     end;
   end; 

10º) Já no Form principal, na seção de "uses" temos que declarar a unit do Form de login.

11º) No evento "OnShow" do Form principal vamos colocar o seguinte código:
   frmPrincipal.WindowState := wsMaximized;
   frmPrincipal.Enabled := False;
   Form2.ShowModal;

12º) Agora basta compilar e efetuar os devidos testes.

    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Lazarus versão 1.2.6.


Esta foi a dica de hoje, se for útil, comentem.

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

Atenciosamente
Dica Chave.

Extraindo arquivos .rar no Ubuntu 14.04 LTS

Olá, Boa Noite Pessoal...

   Para quem quer e/ou precisar extrair arquivo .rar no Linux Ubuntu 14.04 LTS, basta instalar um dos melhores compactadores de arquivos para Linux.
   apt-get update
   apt-get install rar
   apt-get install unrar-free

   Esta foi mais uma dica rápida, porém garanto que muito útil. 

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 PostgreSQL e o pgAdmin3 no Ubuntu 14.04 LTS

Olá, Boa Noite Galera...

   Hoje vamos ver como instalar o PostgreSQL no Ubuntu 14.04.
   Então, vamos ao que realmente interessa...
   PostgreSQL ou Postgres, é um sistema de gerenciamento de banco de dados relacional, que fornece uma implementação da linguagem SQL. O Postgres é uma das escolhas mais populares para pequenos, médios e grandes projetos e tem a grande vantagem de ser multiplataforma, rodando tanto em Windows quanto em Linux.
   E hoje vamos ver sua instalação e configuração no Linux (Ubuntu 14.04 LTS).

1º) Vamos primeiramente logar como "root" no terminal e atualizar os repositórios:
   apt-get update

2º) Agora vamos instalar o PostgreSQL:
   apt-get install postgresql

3º) Após concluir a instalação, o próximo passo é alterar a senha do usuário "postgres":
   su postgres -c psql postgres
   ALTER USER postgres WITH PASSWORD 'senha'
   \q

4º) Com o PostgreSQL instalado, agora vamos instalar o pgAdmin3:
   apt-get install pgadmin3

5º) Feito toda a instalação e configuração de senha, o PostgreSQL está pronto para o uso em seu compuador, porém se a ideia é acessar este servidor de banco de dados a partir de outros computadores, precisamos efetuar mais algumas configurações. Para estas configurações precisamos alterar dois arquivos, são eles: postgresql.conf e pg_hba.conf, ambos ficam na pasta /etc/postgresql/9.3/main. 
   No primeiro arquivo "postgresql.conf" remova o "#" e troque "localhost" por "*", conforme abaixo:   
   Antes: #listen_addresses = 'localhost'
   Depois: listen_addresses = '*'

   Ainda no primeiro arquivo temos que habilitar a encriptação de passwords, para isso vamos descomentar a seguinte linha:   
   Antes: #password_encryption = on 
   Depois: password_encryption = on

E finalmente, vamos para a última configuração, no arquivo "pg_hba.conf" vamos adicionar a linha abaixo. É neste arquivo que efetuamos a liberação do acesso para um IP ou uma faixa de IPs, no exemplo abaixo vamos liberar para todas as máquinas da rede 192.168.0.0:
   host all all 192.168.0.0 255.255.255.0 md5

Depois de fazer todo o processo acima, basta reiniciar o PostgreSQL.
   /etc/init.d/postgresql-9.3 restart

Pronto, está concluída a instalação do PostgreSQL.

Esta foi a dica de hoje, se for útil, comentem.

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

Atenciosamente
Dica Chave.

Renomeando Banco de Dados SQL Server

Olá, Bom Dia Pessoal...

Quem nunca precisou renomear uma base de dados no SQL Server!!!

Aí vai um comando fácil e rápido...

-- Colocamos em uso a Database "master"
  USE [master];
  GO

-- Alteramos nossa Database para o modo usuário único
  ALTER DATABASE database_NAME_OLD SET SINGLE_USER WITH ROLLBACK IMMEDIATE;
  GO

-- Aqui faremos a alteração do nome da database
  ALTER DATABASE database_NAME_OLD
  MODIFY Name = database_NAME_NEW ;
  GO

-- Alteramos nossa Database para o modo multiusuário
  ALTER DATABASE database_NAME_NEW SET MULTI_USER WITH ROLLBACK IMMEDIATE;
  GO

    OBS.: Para fins de compatibilidade, esta dica foi testada no SQL Server 2008. 


Esta foi a dica de hoje, se for útil, comentem.

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

Atenciosamente
Dica Chave.

Como Alterar o Ponteiro do Mouse em Delphi em tempo de Execução

Olá, Bom Dia à Todos...

Hoje vai uma dica rápida de como alterar o ponteiro do mouse em tempo de execução no Delphi, dica fácil e muito útil.

Então, mãos a obra...

No início do bloco de código que deseja alterar o modo de exibição do ponteiro do mouse, coloque o seguinte  código:

   Screen.Cursor := crSQLWait; //Muda o cursor para a ampulheta de SQL...

   {
   AQUI FICA O SEU BLOCO DE CÓDIGO...
   }

   Screen.Cursor := crDefault; //Volta o cursor para o ponteiro padrão...

    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Delphi XE5. 

    DICA.: Para saber os nomes de cursores disponíveis, basta ir na propriedade "Cursor" de qualquer componente do Form Delphi.


Esta foi a dica de hoje, se for útil, comentem.

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

Atenciosamente
Dica Chave.

Especificar Campos na Cláusula "DISTINCT" no PostgreSQL

Olá, Boa Noite...

Aqui vai mais uma dica, agora para quem trabalha com PostgreSQL.

Bem, esta dica foi testada no PostgreSQL, não sei se serve para outros SGDBs.

Para quem trabalha, ao menos um pouco com SQL, com certeza já usou e muito a cláusula "distinct", porém na sua forma mais comum de uso:

     select distinct campo_A, campo_B, campo_C, campo_D from minha_Tabela

Mas desta forma não servia para mim, pois eu precisava fazer um "distinct" por somente 02(dois) campos.
Então encontrei na internet uma dica sobre como usar o "Distinct On":

     select distinct on (campo_A, campo_B)
         campo_A, campo_B, campo_C, campo_D from minha_Tabela

Isso faz com que o "distinct" seja feito somente pelos campos "campo_A e campo_B", assim também poderia ser feito com apenas 01(um) ou mais de 02(dois) campos.

OBS.: O único detalhe, é que o(s) campo(s) especificado(s) no "distinct on" DEVE(M) estar entre os campos do "select".

    Fonte.: Esta dica foi baseada em: "http://rodrigomaia.net/2011/03/14/determinar-campos-do-distinct-no-postgres/" e alterado para melhor entendimento.


Esta foi a dica de hoje, se for útil, comentem.

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

Atenciosamente
Dica Chave.

Descobrindo o Nome de Uma Máquina Via Rede Pelo CMD

Olá, Boa Tarde Pessoal...

Depois de mais de um ano fora, estamos novamente aqui para lhe fornecer as melhores dicas para o seu dia-a-dia.

E hoje vamos ver como descobrir o nome de uma máquina via rede pelo CMD do Windows.

Existe um comando muito útil para obter estas informações, bem como algumas outras como por exemplo: "Nome", " IP", Mac Adress", "Dominio/Grupo de Trabalho" que a máquina pertence.

Os Comandos são:
     nbtstat -a [ip da máquina]
e/ou
     nbtstat -a [nome do host]
    OBS. 1: Comandos estes testados em uma máquina usando Windows 8 Pro, juntamente com uma rede Windows.  
    Fonte.: Algum lugar da Internet e alterado para melhor entendimento.


Esta foi a dica de hoje, se for útil, comentem.

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

Atenciosamente
Dica Chave.