Categoria: Lazarus

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

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

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