Postagens

Instalando MySQL Server 8 no WIndows

Imagem
Neste vídeo mostro como instalar o MySQL Server 8 Community Edition no Windows 10.

https://dev.mysql.com/downloads/mysql/






#mysql #mysqlserver #bancodedados #sql #videoaula

Criar botões dinamicamente Delphi / Lazarus - 01

Imagem
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

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


#windowsupdate #windows update #desabilitar #desabilitarwindowsupdate 

Kaspersky Free, o bam-bam-bam gratuito !

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

#antivirus #antivírus #kaspersky #kaspersky free #kaspersky gr…

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

Imagem
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:\tmp\teste.csv') then DeleteFile('c:\tmp\teste.csv'); sLista.SaveToFile('c:\tmp\teste.csv'); end;




Simples e objetivo. C…

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

Imagem
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:\tmp\produto.csv') then DeleteFile('c:\tmp\produto.csv');
     sLista.SaveToFile('c:\tmp\produto.csv');
  ShowMessage('Produtos exportados !');

end;






#exportardados #exportarregistros #exportartabela #delphip…