24 de setembro de 2018

Delphi/Lazarus mexer janelas/forms sem controlbox

Vídeo criado pelo amigo Daniel Steckler mostrando como mover janelas sem bordas desenvolvidas em Lazarus, Delphi ou Codetyphon.

Ótimo complemento, pois quando criei meu vídeo sobre menus não testei a possibilidade de mover as janelas.

Obrigado pela Dica Daniel Steckler !!!


2 de setembro de 2018

Consulta SQL de Vendas mensais, anuais e diárias

Neste vídeo vou mostrar como criar consultas em SQL para obter estatísticas de vendas.

Vamos poder obter vendas anuais, mensais e diárias.

Exemplos:

Vendas Anuais:
select
EXTRACT(MONTH from CUP_VENDA.`DATA`) as Mes,
EXTRACT(YEAR from CUP_VENDA.`DATA`) as Ano,
format(sum(CUP_ITEM.TOTAL),2,'de_DE') as TotalVenda
from CUP_VENDA, CUP_ITEM
where CUP_VENDA.ID_VENDA = CUP_ITEM.ID_VENDA
group by Mes, Ano
Order by Ano, Mes

Vendas Todos os Dias do Mes 07 do ano de 2018:

select
EXTRACT(DAY from CUP_VENDA.`DATA`) as Dia,
EXTRACT(MONTH from CUP_VENDA.`DATA`) as Mes,
EXTRACT(YEAR from CUP_VENDA.`DATA`) as Ano,
format(sum(CUP_ITEM.TOTAL),2,'de_DE') as TotalVenda
from CUP_VENDA, CUP_ITEM
where CUP_VENDA.ID_VENDA = CUP_ITEM.ID_VENDA
and EXTRACT(MONTH from CUP_VENDA.`DATA`) = 07
and EXTRACT(YEAR from CUP_VENDA.`DATA`) = 2018
group by Dia, Mes, Ano
Order by Ano, Mes, Dia

Assista o vídeo:



#dicassql #sql #comandos #consultasql #query #bancodedados #mysql #oracle #firebird #mysql #mariadb #postgre #postgresql #sqlite #vendas #vendasmensais #vendasanuais

29 de agosto de 2018

Como usar um subselect com update

Neste video mostro como usar um subselect / subquery junto com o comando upgrade.

Nos exemplos atualizo campos da tabela de produto como valor NCM buscando o valor da tabela de IPBT. Outro Exemplo é de baixar o estoque de produtos usando uma query que retorna os itens do cupom.


Comandos Exemplo 001:

No Exemplo abaixo temos 2 tabelas, uma de produtos e uma IBPT.

Onde atualizamos o campo ValorIbpt do produto com a resposta do subselect da tabela IBPT

    update produto pr
    set pr.VrIPBTProd = (select ib.ValorIBPT
                         from ibptax ib
                         where ib.CodNCM = pr.NcmProd )

Exemplo 002:

Neste Exemplo temos um cupom com "n" itens.

Então fazemos o update para "baixar" o estoque de um determinado cupom.


    update produto
    set produto.EstAtualProd = produto.EstAtualProd -
        (select tmpite.tite_Qtde from tmpite
        where tmpite.tite_idVenda = 11 and tmpite.tite_CodPro = produto.CodProd)
    where produto.CodProd in (select tmpite.tite_CodPro from tmpite
                               where tmpite.tite_idVenda = 11)



#bancodedados #sql #comandosql #subselect #update #subquery #sqlduastabelas

26 de agosto de 2018

Como usar um subselect em uma consulta SQL

A definição de Subselect ou subquery é uma instrução de consulta dentro de outra consulta SQL. Aqui então vai dois exemplos simples de como usar subselect.
Exemplo da Query do Vídeo:
select TEMP.Cupom, sum(temp.Venda_bruta) as Total_Cupom
from
(select cb.tcab_IDVenda as Cupom,iv.tite_Tot as
Venda_Bruta from tmpcab cb
join tmpite as iv on cb.tcab_IDVenda = iv.tite_idVenda) as TEMP
Group by TEMP.Cupom

Instalando MySQL Server, WorkBench no Ubuntu, Mint , Debian - 2018


Salve amigos, neste vídeo mostro como instalar o MySQL Server no novo Ubuntu 18.04, Mint 19 e derivados do novo Debian.

Fonte https://linuxconfig.org/install-mysql-on-ubuntu-18-04-bionic-beaver-linux

Comandos:
sudo apt install mysql-server
sudo mysql_secure_installation
Edite e mude bind-address para 0.0.0.0
sudo nano /etc/mysql/mysql.conf.d/mysqld.cnf
sudo service mysql restart
sudo mysql -u root
ALTER USER 'root'@'localhost' IDENTIFIED WITH mysql_native_password BY 'SuaSenha';

15 de julho de 2018

Lazarus e ZeusLib no Deepin Linux

Um inscrito do canal informou que está com problemas com a instalação do Zeoslib no Lazarus instalado no Deepin Linux.
Então segue o vídeo com o Lazarus 1.8.4 e o Zeos estável 7.2 no Deepin 64.
Testado com banco de dados Firebird.




Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !

Criando Teclado Virtual com Delphi. Lazarus ou CodeTyphon

Neste vídeo mostro com fazer um teclado virtual para uso em monitores touch screen. Fácil, prático, deixe seu Like ! Muito Obrigado !

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !

9 de julho de 2018

Personalização de Menu - Dica Delphi, Lazarus e CodeTyphon

Exemplo simples de personalização de menus sem usar componentes.
Crie seu próprio menu, use a imaginação!
Funciona em Delphi, Lazarus e Codetyphon



Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !

#2 - Delphi e Lazarus: Protegendo seu sistema


O OnGuard é um componente com diversas funções para proteger o seu sistema. Vamos usar o OnGuard para criar uma solução de proteção, gerando chave de liberação por data de expiração.
Você pode gerar a chave de retorno informando uma chave de codificação (Nome da empresa, mac da eth, serie do hd, etc) e a data de expiração.

Link para o código do ongugard:
http://www.mediafire.com/file/6iki6fx8lnxni70/OnGuard_Libera_SeuSoftware


15 de maio de 2018

#1 - Delphi e Lazarus: Protegendo seu sistema


O OnGuard é um componente com diversas funções para proteger o seu sistema. Vamos usar o OnGuard para criar uma solução de proteção, gerando chave de liberação por data de expiração.
Você pode gerar a chave de retorno informando uma chave de codificação (Nome da empresa, mac da eth, serie do hd, etc) e a data de expiração.



Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !




Grupo Telegram Lazarus/CodeTyphon:
https://t.me/joinchat/AAAAAEDYQdfQIFCU1AXEoQ


18 de abril de 2018

Replicando dados entre Matriz e filiais

Qual desenvolvedor de softwares que nunca pensou em criar um replicador para sincronizar base de dados, tabelas e registros entre empresas ?

Neste vídeo vou mostrar como replicar os dados (base de dados, tabelas e registros) entre matriz e filiais.

FUNCIONA EM QUALQUER LINGUAGEM DE PROGRAMAÇÃO QUE TENHA CONEXÃO MYSQL / MARIADB
NÃO É VPN!
É NATIVO DO MYSQL / Maria DB
NÃO USA COMPONENTES
 

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !



1 de abril de 2018

Instalando Lazarus no MacOS X High Sierra

Neste vídeo vou mostrar como instalar o Lazarus no MacOS X High Sierra 10.13


Como solucionar o erro:

Debugger error
Ooops, the debugger entered the error state
Save your work now !
Hit Stop, and hope the best, we’re pulling the blug.
The debugger could not run the application.
This may be caused by missing debug info.

Download do TXT com os comandos do terminal:
http://www.mediafire.com/file/y820khzs69jv4we/LazarusMacOSxHighSierra.txt

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !



16 de março de 2018

Dica Delphi: Conectar base de dados Oracle via Zeos Lib


Neste vídeo vou mostrar como conectar a uma base de dados Oracle (XE) usando Delphi Start Edition e Zeos Lib.
Como fazer um simples CRUD para testes de comunicação com a tabela da base.

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !



4 de fevereiro de 2018

Dica Lazarus: Conectar base Oracle usando ZeosLIb

Hoje vou mostrar como conectar a uma base de dados Oracle utilizando o componente ZeosLib.

Lembre-se que:

Se seu Lazarus for 64 bits, o Oracle deve ser 64 e esta regra deve ser respeitada para 32 bits.

A versão do Windows (32/64) não importa, mas o compilador não reconhece a oci.dll de versões diferentes.


Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !


17 de janeiro de 2018

Cuidado ao escolher o técnico para formatar seu computador




Qual a vantagem de pagar mais caro e formatar o computador em uma empresa ou pedir para algum conhecido formatar?

Sabemos que levar seu computador em uma empresa ou para um técnico é igual irmos para uma consulta médica.
 
Os técnicos ou prestadores de serviços informais terão acesso total as suas informações.

Então, suas fotos, seus documentos, suas músicas, favoritos da internet, sites que você acessou ou até senhas de sites, poderão ficar expostos.

Um exemplo para você testar:

Visualizar senhas armazenadas no Google Chrome:
Nas configurações do Chrome
No computador, abra o Chrome.
No canto superior direito, clique em Mais, Configurações.
Na parte inferior da página, clique em Avançado.
Em "Senhas e formulários", clique em Gerenciar senhas.
Em "Senhas salvas", à direita do site, clique em Mais, Detalhes.
À direita da senha, clique em Visualizar
Windows e Mac: se você bloquear seu computador com uma senha, ela será solicitada.

Visualizar senhas no Firefox:
Para encontrar as suas senhas no Firefox, vá até o menu “Ferramentas” e abra as opções do navegador em “Opções”.
Vá até a guia “Segurança” e veja o campo “Senhas”.
Se a opção “Memorizar senhas de sites” estiver habilitada, isso quer dizer que o navegador gravou todas as senhas que foram permitidas.
Para visualizar essas informações, clique em “Senhas memorizadas”.

Imaginou o estrago destas informações nas mãos de qualquer pessoa?

As assistências técnicas têm como padrão um código de conduta e confidencialidade, ou seja, seus dados são sigilosos e suas informações são mantidas assim.

A responsabilidade de backup (cópia de segurança dos dados como fotos, documentos, musicas) é do cliente, mas a maioria das assistências realizam o backup quando solicitado pelo cliente. É claro que se o HD (disco rígido) do cliente estiver com setores defeituosos ou com algum vírus, nem sempre é possível recuperar os dados.

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !



Então, antes de levar o seu computador ou notebook em qualquer lugar, pense:
É importante os dados que tenho neste computador?
O técnico é de confiança? Posso confiar meus dados e informações contidas no meu computador a ele?

Espero ter ajudado !

Delphi/Lazarus mexer janelas/forms sem controlbox

Vídeo criado pelo amigo Daniel Steckler mostrando como mover janelas sem bordas desenvolvidas em Lazarus, Delphi ou Codetyphon. Ótimo c...