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 !

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...