01 – Pesquisa dinâmica no Edit do PDV (código, barras, descrição)

Este é o primeiro vídeo desta sequencia, vou mostrar como funciona as pesquisas dinâmicas dentro de um PDV (Ponto de Venda).

No edit da tela do PDV, você pode consultar por código interno, código de barras e pela descrição do Produto.

Feito em LAZARUS e funciona no DELPHI. A lógica é a mesma

Como usar emulador de balança com o ACBrBal

Como usar emulador de balança com o ACBrBal

Hoje fiz um vídeo mostrando como usar o emulador de balança (para você que precisa capturar o peso e não tem balança) .
Vamos usar o componente ACBrBal e o exemplo criado pelo ACBr.
Você vai precisar de um emulador de porta serial, vamos usar o com0com, para baixar: https://sourceforge.net/projects/com0com
Eu fiz no Lazarus (free pascal) mas você pode utilizar o Delphi.
Link do emulador de balança compilado para quem não tem Delphi instalado: https://www.mediafire.com/file/mcryib5ifr54ykl/Acbr_EmuladorBalancaDelphi.rar/file
Links Telegram:
Lazarus Free Pascal: https://t.me/lazarusfreepascal1
Lazarus Br: https://telegram.me/LazarusBR

Conto com o seu Like !!! Muito Obrigado pela visita !

Instalador do ACBr para LAZARUS

Instalador do ACBr para LAZARUS

Hoje vou mostrar para vocês um script que automatiza a instalação dos componentes ACBr no Lazarus (para Windows).
Isso mesmo, chega de ficar abrindo, compilando pacotes rs
Este script ele faz tudo para você !
O Script foi criado por nosso amigo Ari Rodrigues, grande contribuidor dos grupos Lazarus no Whats e Telegram.

Autor do Script: Ari Rodrigues (https://www.youtube.com/channel/UC35PdTRt4rJ4ahbDgBv_SHA/videos)
Link GitHub para baixar o script: (https://github.com/arirod/acbrscriptlazarus)
Blog do Régys: (https://regys.com.br/)
Controle de Versão: (https://tortoisesvn.net)

Conectando Lazarus com MS SQL Server

Neste vídeo mostro como utilizar o banco de dados da Microsoft o SQL Server 2017 Express com o Lazarus versão 2.0.6 utilizando o componente ZeosLib.

Vamos criar um banco de dados, criar uma tabela e fazer um CRUD.
String de Conexão:

Provider=SQLOLEDB.1;Password='Info@3004';Persist Security Info=True;User ID='SA';Initial Catalog='DB_TESTE';Data Source='PCTESTEVM\SQLEXPRESS'; 

Comando para ativar o Autoinc (IDENTITY):
Set IDENTITY_INSERT db_teste.dbo.agenda ON

#lazarus #sql server #ms sql server #microsoft sql server #zeus #zeuslib #conectar sql server zeos #como conectar ao sql server #conectando sql server #lazarus 2.0.6 #sql server express #banco de dados #programação #curso #curso sql server

Por que escolhi Lazarus ?

Vídeo feito para o evento Lazarus Streaming Day exibido em 08/11/2019.

“Minha opinião” meu objetivo não é meter o pau em outra linguagem ou gerar discussão desnecessária.

Obrigado por respeitar minha opinião, muito sucesso para nós !

Deus nos abençoe !

Instalando ZeosLib e Rx no Lazarus 2.0.2

salve meus amigos ! recebi notificações reportando problemas ao instalar os componentes RX e ZEOSLIB no LAZARUS 2.0.2. BORA INSTALAR !
Grupos Lazarus Telegram:
Lazarus Free Pascal: https://t.me/lazarusfreepascal1
Lazarus BR: https://telegram.me/LazarusBR

#comoinstalarcomponente #instalarcomponentelazarus2 #instalandocomponentesnolazarus #componentelazarus #instalarzeoslib #instalarzeosliblazarus #instalarrx #instalarrxlazarus #rxlazarus #comoinstalarzeus #comoinstalarrx

Criar botões dinamicamente Delphi / Lazarus – 01

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

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

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

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