Highcharts Demo

unit Un_Fazenda;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.ComCtrls;

type

TFor_MNU_FAZENDA = class(TForm)

Mnu_Principal: TMainMenu;

Movimetaes1: TMenuItem;

Relatrios1: TMenuItem;

FluxodeCaixa1: TMenuItem;

ipodeEntrada1: TMenuItem;

Fornecedores1: TMenuItem;

iposdeAnimais1: TMenuItem;

iposdeSaida1: TMenuItem;

Produtos1: TMenuItem;

EntradadeAnimais1: TMenuItem;

Compra1: TMenuItem;

Nascimento1: TMenuItem;

SaidadeAnimais1: TMenuItem;

Abate1: TMenuItem;

MorteNatural1: TMenuItem;

ransformaoemProduto1: TMenuItem;

Cadastro1: TMenuItem;

Clientes2: TMenuItem;

ipodeAnimal1: TMenuItem;

MovimentaodeAnimaisporLoteouFornecedor1: TMenuItem;

MovimentaodeprodutosporperiodoEntradaSada1: TMenuItem;

Resultadodacompraxabate1: TMenuItem;

Movimentaodesaidaportransformao1: TMenuItem;

Movimentaodesaidaporvendacliente1: TMenuItem;

CadastrodeCentrosdeCusto1: TMenuItem;

MovimentaodeEntrada1: TMenuItem;

MovimentaodeSaida1: TMenuItem;

RelatriodeMovimentaoporperiodoeCentrodeCusto1: TMenuItem;

Timer1: TTimer;

StatusBar1: TStatusBar;

Usurios1: TMenuItem;

CentrodeCusto1: TMenuItem;

Saida1: TMenuItem;

procedure Timer1Timer(Sender: TObject);

procedure Usurios1Click(Sender: TObject);

procedure Fornecedores1Click(Sender: TObject);

procedure ipodeEntrada1Click(Sender: TObject);

procedure iposdeAnimais1Click(Sender: TObject);

procedure iposdeSaida1Click(Sender: TObject);

procedure Clientes1Click(Sender: TObject);

procedure Produtos1Click(Sender: TObject);

procedure Compra1Click(Sender: TObject);

procedure Nascimento1Click(Sender: TObject);

procedure Saida1Click(Sender: TObject);

procedure Abate1Click(Sender: TObject);

procedure MorteNatural1Click(Sender: TObject);

procedure ransformaoemProduto1Click(Sender: TObject);

procedure CadastrodeCentrosdeCusto1Click(Sender: TObject);

procedure CentrodeCusto1Click(Sender: TObject);

procedure Clientes2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

For_MNU_FAZENDA: TFor_MNU_FAZENDA;

implementation

{$R *.dfm}

uses Un_Principal, Un_Cad_Usuario, Un_Cad_TipoEntrada, Un_Cad_Fornecedores,

Un_Cad_TipoAnimal, Un_Cad_TipoSaida, Un_Cad_Cliente, Un_Cad_Produto,

Un_Cad_CentroCusto, Un_MV_Entrada_Animal, Un_MV_Abate_Animal,

Un_MV_Saida_Animal, Un_MV_Entrada_Produto, Un_MV_Saida_Produto,

Un_MV_Transf_Produto, Un_Rel_CLiFor;

procedure TFor_MNU_FAZENDA.Abate1Click(Sender: TObject);

begin

if For_MV_Entrada_Produto = nil then

Application.CreateForm(TFor_MV_Entrada_Produto, For_MV_Entrada_Produto);

For_MV_Entrada_Produto.show;

end;

procedure TFor_MNU_FAZENDA.CadastrodeCentrosdeCusto1Click(Sender: TObject);

begin

if For_Cad_CentroCusto = nil then

Application.CreateForm(TFor_Cad_CentroCusto, For_Cad_CentroCusto);

For_Cad_CentroCusto.show;

end;

procedure TFor_MNU_FAZENDA.CentrodeCusto1Click(Sender: TObject);

begin

if For_Cad_CentroCusto = nil then

Application.CreateForm(TFor_Cad_CentroCusto, For_Cad_CentroCusto);

For_Cad_CentroCusto.show;