Meu dia-a-dia tecnológico
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 aprender a criar um gatilho (trigger) para atualizar o estoque de produtos automaticamente quando fizermos uma inclusão ou exclusão de item na tabela filho/detalhe do item do estoque.
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.
Nestas duas vídeo aulas vamos aprender a criar um formulário mestre e detalhe ou pai e filho ou master detail utilizando Lazarus e base de dados Firebird.
Vídeo 1 – Mestre / Master / Pai
Vídeo 2 – Detalhe / detail / Filho
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 é 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:
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:
Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal.
Assista a vídeo-aula:
Lazarus é um ambiente de desenvolvimento integrado
desenvolvido para o compilador Free Pascal. O software objetiva ser
compatível com o Delphi e, ao mesmo tempo, suportar diversas
arquiteturas e sistemas operacionais.
Free Pascal é um compilador de Object Pascal que roda em Linux,
Windows, OS/2, Mac OS tradicional, Mac OS X, ARM, BSD, BeOS, DOS e
mais. Ele foi desenhado para compilar código com a sintaxe do Delphi
ou dos dialetos Pascal do Macintosh e gerar executáveis para
diferentes plataformas a partir de um mesmo código-fonte.
O Lazarus possui suporte para vários bancos de dados. Os pacotes
adequados, porém, não vêm pré-instalados. Se todos os pacotes
viessem instalados, o programador precisaria ter disponíveis as
bibliotecas para acessar todos os bancos de dados. Para ativar o
suporte para um deles, basta instalar o pacote adequado. Os pacotes
vêm junto com a instalação do Lazarus.
O acesso aos bancos de dados pode ser feito por meio de código,
ou colocando componentes num formulário ou janela. Os componentes
sensíveis a dados (ou data-aware) representam os campos de
uma tabela representada por um TDataSource. A conexão entre
ambos é feita através de propriedades. A tabela por sua vez está
associada a um banco de dados por meio de componentes específicos,
como TPSQLDatabase, TSQLiteDataset ou outros.
Os seguintes bancos de dados são suportados:
O Free Pascal suporta cross-compilação, e aplicativos do Lazarus
podem ser cross-compilados de Windows para Linux e FreeBSD e vice
versa. Compilar do Mac OS X para Windows, Linux e FreeBSD é
possível. Cross-compilar para OS X pode ser feito, mas ainda é
difícil.
Cross-compilação também é utilizado corriqueiramente durante o
desenvolvimento de aplicados para PDAs com o Lazaraus. como
aplicativos para Windows CE.
Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal.
Assista a vídeo-aula:
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.
Assista a vídeo aula:
