Postagens

Mostrando postagens de Dezembro, 2015

Lazarus 0008 part 006. Cadastro de Formas de Pagamento

Imagem
Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal.

O software é compatível com o Delphi e, ao mesmo tempo, suporta diversas arquiteturas e sistemas operacionais como Windows, Linux e MAC OS X.

Nesta vídeo-aula vamos dar continuidade do nosso sistema de vendas e estoque.
Vamos criar um formulário CRUD (Create, Retrieve, Update e Delete) para controlar as Formas de Pagamento

Assista o Vídeo:


Lazarus 0008 part 005. Cadastro de Produtos

Imagem
Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal.

O software é compatível com o Delphi e, ao mesmo tempo, suporta diversas arquiteturas e sistemas operacionais como Windows, Linux e MAC OS X.

Nesta vídeo-aula vamos dar continuidade do nosso sistema de vendas e estoque.
Vamos criar um formulário CRUD (Create, Retrieve, Update e Delete) para controlar os Produtos.

Funções utilizadas:

function Tfrmproduto.CalculaVenda(cCUSTO,cLUCRO :string):String;
   {Acha preco de venda (Custo * (Lucro /100)) +Custo}
    var
      nCUSTO, nLUCRO, nVENDA : real;
   begin
      try nCUSTO:=StrToFloat(cCUSTO); except nCUSTO:= 0; end; // Converte Custo
      try nLUCRO:=StrToFloat(cLUCRO); except nLUCRO:= 0; end; // Converte o Lucro
      nVENDA := ((nCUSTO * (nLUCRO /100)) + nCUSTO) ;
      result := FloatToStr( 0.01*Trunc(100*nVENDA) );
   end;
  function TfrmProduto.AchaLucro(cVenda, cCusto:string):string;
   {Acha Percentual ((Venda – Custo) / Custo) * 100}
    var
   …

Lazarus 0008 part 004. Cadastro de Grupos de Produtos

Imagem
Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal.

O software é compatível com o Delphi e, ao mesmo tempo, suporta diversas arquiteturas e sistemas operacionais como Windows, Linux e MAC OS X.

Nesta vídeo-aula vamos dar continuidade do nosso sistema de vendas e estoque.
Vamos criar um formulário CRUD (Create, Retrieve, Update e Delete) para controlar os Grupos de Produtos.

Assista o Vídeo:


Se gostou do vídeo, curta nossa página no facebook !