Lazarus 0008 part 005. Cadastro de Produtos

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
      nCUSTO, nLUCRO, nVENDA : real;
   begin
      try nCUSTO:=StrToFloat(cCUSTO); except nCUSTO:= 0; end; // Converte Custo
      try nVENDA:=StrToFloat(cVenda); except nVENDA:= 0; end; // Converte a Venda
      nLUCRO:= (((nVENDA-nCUSTO) / nCUSTO) * 100);
      Result := FloatToStr( 0.01*Trunc(100*nLUCRO) );   // 12,89872 = 12,89
   end;

Coloque na propriedade OnCreate do Formulário Principal para formatar data e números:

  {$IFDEF LINUX}
     // Formatação de moeda
      CurrencyString := ‘R$’;
      CurrencyFormat := 2;
      DecimalSeparator := ‘,’;
      ThousandSeparator := ‘.’;
     // Formatação de datas
      DateSeparator := ‘/’;
      ShortDateFormat := ‘dd/mm/yyy’;
    {$ENDIF}

Assista o Vídeo:

Se gostou, clique em curtir na minha página do Facebook !

Publicado por

Daniel Morais

Comecei na área de TI há um bom tempo (1991) com aqueles cursos de MS-DOS 6.22, WordStar, Lotus123, Dbase III Plus, etc. Adorei programar em Dbase III Plus utilizando Dbf; achei fantástico quando aprendi a programar em Clipper Summer 87 e posteriormente Clipper 5.x, que era muito estável em rede utilizando Novell NetWare. Desde então sou um fanático por TI. Hoje desenvolvo aplicações para Windows, Android, OS X e Linux utilizando Lazarus (free Pascal) . Blogueiro (www.infocotidiano.com.br, www.aprendalazarus.com.br, www.startdb.info). Além dos meus Blogs tenho um canal no YouTube o www.youtube.com.br/infocotidiano onde tenho mais de 1 Milhão de visualizações com vídeos de dicas diversificadas que vão desde solucionar um erro de impressão, curso sobre banco de dados, até criar software multi-plataforma utilizando o Lazarus.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *