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.
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
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
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’);
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 !’);