Código PHP:
program Granja;
// Programador - Arthur Paixão
// arthur.paixao@guiadohacker.com.br
uses
Forms,
Principalf in 'Principalf.pas' {Principal},
Areaf in 'Areaf.pas' {Area},
Galpaof in 'Galpaof.pas' {Galpao},
Clientef in 'Clientef.pas' {Cliente},
Saidaf in 'Saidaf.pas' {Saida},
Relatoriof in 'Relatoriof.pas' {Relatorio},
baixaf in 'baixaf.pas' {Baixa},
Mortalidadef in 'Mortalidadef.pas' {Mortalidade},
manubaixaf in 'manubaixaf.pas' {Manubaixa},
ConsEstoquef in 'ConsEstoquef.pas' {ConsEstoque},
sobref in 'sobref.pas' {Sobre},
ImpRelatoriof in 'ImpRelatoriof.pas' {ImpRelatorio},
Consultasf in 'Consultasf.pas' {Consultas},
ImpEntradaf in 'ImpEntradaf.pas' {ImpEntrada},
PassWord in 'PassWord.pas' {PasswordDlg},
ImpMortalidadef in 'ImpMortalidadef.pas' {ImpMortalidade},
ImpSaidaf in 'ImpSaidaf.pas' {ImpSaida},
ImpClientesf in 'ImpClientesf.pas' {ImpClientes},
Apres2f in 'Apres2f.pas' {Apres},
Entradaf in 'Entradaf.pas' {Entrada};
{$R *.RES}
var
i:shortint;
maximo:shortint=0;
divisor:shortint=19;
begin
Application.Initialize;
Application.Title := 'GSJ2 - LloydSoft';
with TApres.Create(nil) do
try
Gauge1.MaxValue:=100;
Show;
Update;
Panel1.caption:='Criando Tela: Principal';
Panel1.Repaint;
Application.CreateForm(TPrincipal, Principal);
for i:=1 to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Cadastro de Entradas';
Panel1.Repaint;
Application.CreateForm(TEntrada, Entrada);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Cadastro de Mortalidade';
Panel1.Repaint;
Application.CreateForm(TImpMortalidade, ImpMortalidade);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Impressão de Saida';
Panel1.Repaint;
Application.CreateForm(TImpSaida, ImpSaida);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Impressão de Clientes';
Panel1.Repaint;
Application.CreateForm(TImpClientes, ImpClientes);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Password';
Panel1.Repaint;
Application.CreateForm(TPasswordDlg, PasswordDlg);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Consultas';
Panel1.Repaint;
Application.CreateForm(TConsultas, Consultas);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Impressão de Entradas';
Panel1.Repaint;
Application.CreateForm(TImpEntrada, ImpEntrada);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Impressão de Relatório';
Panel1.Repaint;
Application.CreateForm(TImpRelatorio, ImpRelatorio);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Estoque';
Panel1.Repaint;
Application.CreateForm(TConsEstoque, ConsEstoque);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Sobre';
Panel1.Repaint;
Application.CreateForm(TSobre, Sobre);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Cadastro de Entradas';
Panel1.Repaint;
Application.CreateForm(TArea, Area);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Cadastro de Galpão';
Panel1.Repaint;
Application.CreateForm(TGalpao, Galpao);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Cadastro de Clientes';
Panel1.Repaint;
Application.CreateForm(TCliente, Cliente);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Cadastro de Saídas';
Panel1.Repaint;
Application.CreateForm(TSaida, Saida);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Relatório';
Panel1.Repaint;
Application.CreateForm(TRelatorio, Relatorio);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Baixa';
Panel1.Repaint;
Application.CreateForm(TBaixa, Baixa);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Mortalidade';
Panel1.Repaint;
Application.CreateForm(TMortalidade, Mortalidade);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Criando Tela: Manutenção';
Panel1.Repaint;
Application.CreateForm(TManubaixa, Manubaixa);
for i:=maximo to (maximo+(100 div divisor)) do
begin
gauge1.progress:=i;
maximo:=i;
end;
Panel1.caption:='Finalizando';
Panel1.Repaint;
finally
Free;
end;
Application.Run;
end.