Autor: Daniel Morais

Comecei na área de TI há um bom tempo (1991) com aqueles cursos de MS-DOS 6.22, WordStar, Lotus123, Dbase III Plus, etc. Adorei programar em Dbase III Plus utilizando Dbf; achei fantástico quando aprendi a programar em Clipper Summer 87 e posteriormente Clipper 5.x, que era muito estável em rede utilizando Novell NetWare. Desde então sou um fanático por TI. Hoje desenvolvo aplicações para Windows, Android, OS X e Linux utilizando Lazarus (free Pascal) . Blogueiro (www.infocotidiano.com.br, www.aprendalazarus.com.br, www.startdb.info). Além dos meus Blogs tenho um canal no YouTube o www.youtube.com.br/infocotidiano onde tenho mais de 1 Milhão de visualizações com vídeos de dicas diversificadas que vão desde solucionar um erro de impressão, curso sobre banco de dados, até criar software multi-plataforma utilizando o Lazarus.

Criar botões dinamicamente Delphi / Lazarus – 01

Posted By: Daniel MoraisPosted On:

Você já pensou em criar um PDV (ponto de venda) em Delphi ou Lazarus com botões dinâmicos ?
Isso mesmo, aqueles PDVs que tem botões de atalhos com produtos, você clique em x-salada ele lança o x-salada para você!

TUDO dinamicamente, resultado da sua query direto para um grid de botões personalizados (altura, largura e ícones).

Vídeo 1, criando o CRUD em MySQL.
Crie botões em tempo de execução dinamicamente.

Exemplo: Botões como em um dbgrid de produtos para um ponto de venda, etc.

Ao invés de mostrar o grid com os campos da tabela, exiba os botões.
Link

Código Fonte em Lazarus:
https://www.mediafire.com/file/ya22ia…
Canal do Humberto Sales: https://www.youtube.com/user/salesdoido

#delphi #lazarus #programação #desenvolvimento #pdv #botoes #grid #dbgrid #stringgrid #criarbotoes #botoesnogrid #botoesemgrid #criargridbotoes #pontodevenda

Windows Update Blocker

Posted By: Daniel MoraisPosted On:

Utilize o Windows update blocker para desabilitar o Windows update definitivamente.

Este programa é válido para o Windows 10.

Faça o download do arquivo no link abaixo, execute;

Selecione a opção “Disable Service” para desabilitar o update ou “Enable Service” para ativar novamente as atualizações.

Clique em “Apply now” para aplicar as mudanças.

Clique aqui para Download
#windowsupdate #windows update #desabilitar #desabilitarwindowsupdate 

Kaspersky Free, o bam-bam-bam gratuito !

Posted By: Daniel MoraisPosted On:
 

O antivírus queridinho do publico na versão GRATUITA !
Isso mesmo, baixe agora a versão gratuita de um dos mais famosos antivírus do mercado.

Ajuda a proteger o computador de vírus;
Bloqueia aplicativos e sites perigosos;
Avisa sobre sites suspeitos;

AJUDA A MANTER O COMPUTADOR SEGURO

O Kaspersky Free usa tecnologias de segurança premiadas e recebe dados em tempo real sobre novas ameaças automaticamente para ajudar a proteger seu computador de diversos perigos digitais.

FORNECE UM ANTIVÍRUS GRATUITO E MUITO MAIS

Com proteção contra ameaças e um antivírus básico, o Kaspersky Free defende seu computador de vírus comuns, arquivos infectados, aplicativos perigosos e sites suspeitos.

PROTEGE SEM REDUZIR SEU DESEMPENHO

Nossa segurança foi projetada para proteger seu computador sem causar transtornos. E, como o Kaspersky Free recebe atualizações automaticamente, você pode ter a certeza de que o antivírus estará sempre atualizado.

Download
#antivirus #antivírus #kaspersky #kaspersky free #kaspersky gratuito #gratuito #melhorantivirus
#antiviruskasper #kasperfree

Dicas Delphi/Lazarus: Exportando dados para o Excel #2

Posted By: Daniel MoraisPosted On:

Neste vídeo vou mostrar como exportar dados DINAMICAMENTE de uma tabela para Excel ou qualquer programa que suporte arquivo de texto delimitado por “ponto-e-virgula”.
Funciona com qualquer banco de dados.





Código Fonte:


procedure TfrmPrincipal.btnExportaClick(Sender: TObject);
var
sLista : TStringList;
nCampo : integer;
cLinha : string;
begin
sLista := TStringList.Create;

cLinha := ”;
for nCampo:=0 to qrTabela.fields.Count-1 do
cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayLabel+’;’;
sLista.Add(cLinha);

qrTabela.First;
while not qrTabela.EOF do
begin
cLinha := ”;
for nCampo:=0 to qrTabela.fields.Count-1 do
cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayText+’;’;
sLista.Add(cLinha);
qrTabela.Next;
end;
if FileExists(‘c:tmpteste.csv’) then DeleteFile(‘c:tmpteste.csv’);
sLista.SaveToFile(‘c:tmpteste.csv’);

end;








Simples e objetivo. Conto com seu Like !




#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel

Dicas Delphi/Lazarus: Exportando dados para o Excel #1

Posted By: Daniel MoraisPosted On:

Neste vídeo vou mostrar como exportar dados de uma tabela para Excel ou qualquer programa que suporte arquivo de texto delimitado por “ponto-e-virgula”.
Funciona com qualquer banco de dados.


Simples e objetivo. Conto com seu Like !




Código Fonte: 


procedure TfrmPRODUTO.btnExportaClick(Sender: TObject);
var
  sLista : TStringList;
  cLinha : string;
begin
  sLista := TStringList.Create;
  TabGlobal.TbPRODUTO.First;
  while not TabGlobal.TbPRODUTO.eof do
    begin
      cLinha:=TabGlobal.TbPRODUTOCodProd.DisplayText+’;’+
                    TabGlobal.TbPRODUTODescProd.DisplayText+’;’+
                    TabGlobal.TbPRODUTOVendaProd.DisplayText;
      sLista.Add(cLinha);
      TabGlobal.TbPRODUTO.Next;
    end;
  if FileExists(‘c:tmpproduto.csv’) then DeleteFile(‘c:tmpproduto.csv’);
     sLista.SaveToFile(‘c:tmpproduto.csv’);
  ShowMessage(‘Produtos exportados !’);

end;







#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel

Programando: Java vs Delphi / Lazarus: While – Parte 2

Posted By: Daniel MoraisPosted On:

Todo mundo sabe que alguns quarentões do Delphi ou Lazarus defende com
unhas e dentes a produtividade desta maravilhosa ferramenta. Eu também
faço parte deste grupo. Mas resolvi me aventurar e conhecer um pouco
mais sobre como programar em Java. Este vídeo mostra minha primeira
experiência, vai servir para dinossauros como eu fazer algumas
comparações entre as linguagens !

Hoje vamos comparar a função While !

Programando: Java vs Delphi / Lazarus – Parte 01

Posted By: Daniel MoraisPosted On:

Todo mundo sabe que alguns quarentões do Delphi ou Lazarus defende com
unhas e dentes a produtividade desta maravilhosa ferramenta. Eu também
faço parte deste grupo.
Mas resolvi me aventurar e conhecer um pouco
mais sobre como programar em Java. Este vídeo mostra minha primeira
experiência, vai servir para dinossauros como eu fazer algumas
comparações entre as linguagens !
Neste primeiro vídeo vamos criar um projeto em Lazarus/Delphi e outro no Java.
Vamos usar botões, variáveis e trabalhar com operador IF/ELSE.