Categoria: Todos

MySQL Server #4 – Foreign Key

Posted By: Daniel MoraisPosted On:

Neste vídeo vou mostrar como trabalhar com chave estrangeira.
No contexto dos banco de dados, o conceito de chave estrangeira ou
chave externa se refere ao tipo de relacionamento entre distintas
tabelas de dados do banco de dados.
Uma chave estrangeira é chamada quando há o relacionamento entre duas
tabelas.



#foreignkey #mysql #mysqlserver #bancodedados #database #createtable #chave #key #chaveestrangeira #estrangeira #curso #aula #aulagratis #cursogratuito #aprenda #cursomysql #cursosql #danielmorais #infocotidiano

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