duvida ProgressBar

Delphi

02/01/2008

Gostaria de saber como faco para carregar as tabelas em um progressBar,tipo fazer um carregando dados na incializacao do sistema?


valew


Ciotti

Ciotti

Curtidas 0

Respostas

Ciotti

Ciotti

02/01/2008

Gostaria de saber como faco para carregar as tabelas em um progressBar,tipo fazer um carregando dados na incializacao do sistema?


valew


GOSTEI 0
Facc

Facc

02/01/2008

Splash Screen Com Progresso
program Granja;
// Programador - José Jornando de Carvalho Júnior <- Lloyd Dickinson ->
// lloydsoft@gmail.com
uses
  Forms,
  Principalf in ´Principalf.pas´ ,
  Areaf in ´Areaf.pas´ ,
  Galpaof in ´Galpaof.pas´ ,
  Clientef in ´Clientef.pas´ ,
  Saidaf in ´Saidaf.pas´ ,
  Relatoriof in ´Relatoriof.pas´ ,
  baixaf in ´baixaf.pas´ ,
  Mortalidadef in ´Mortalidadef.pas´ ,
  manubaixaf in ´manubaixaf.pas´ ,
  ConsEstoquef in ´ConsEstoquef.pas´ ,
  sobref in ´sobref.pas´ ,
  ImpRelatoriof in ´ImpRelatoriof.pas´ ,
  Consultasf in ´Consultasf.pas´ ,
  ImpEntradaf in ´ImpEntradaf.pas´ ,
  PassWord in ´PassWord.pas´ ,
  ImpMortalidadef in ´ImpMortalidadef.pas´ ,
  ImpSaidaf in ´ImpSaidaf.pas´ ,
  ImpClientesf in ´ImpClientesf.pas´ ,
  Apres2f in ´Apres2f.pas´ ,
  Entradaf in ´Entradaf.pas´ ;
 
{$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.


[b:43f1181572]Dica tirada do DTDelphi 2.8[/b:43f1181572]
Adaptei para meu uso, funcionou normal


GOSTEI 0
Ciotti

Ciotti

02/01/2008

ola amigo , gostaria de saber como faco para carregar as tabelas em progressBar.
Tipo no inicio do sistema vem um progressBar (Load) :

carregando dados ..... + ou - menos dessa forma.


valew cara feliz 2008.


GOSTEI 0
Ciotti

Ciotti

02/01/2008

ola fiz um dessa forma e coloquei no Oncreate do form mas nao ficou muito bom ele ja aparece com progressBar cheio.


var i : integer;

begin
ADODataSet1.open;
progressbar1.max := ADODataSet1.RecordCount;
progressbar1.position := 0;
ADODataSet1.DisableControls;
i := 0;
while not ADODataSet1.Eof do
begin
i := i + 1;
progressbar1.position := i;
ADODataSet1.next;
Application.ProcessMessages;
end;
ADODataSet1.EnableControls;

end;

end.


GOSTEI 0
Rjun

Rjun

02/01/2008

Não entendi muito bem o que você quer fazer, mas colocar isso on OnCreate não dá certo. No OnCreate o form ainda não foi exibido. E quando o form é exibido o OnCreate já ocorreu e a barra vai estar completa.


GOSTEI 0
Ciotti

Ciotti

02/01/2008

entendi, mas onde vc acha o mais correto adicionar este codigo , pois quando eu coloco no on click do botao ele funciona, mas em tempo de execucao do sistema,ele nao funciona ja vem com o load cheio.
ou seja ja ocorreu o evento mas nao vi os dados sendo carregados no progress.


GOSTEI 0
Ciotti

Ciotti

02/01/2008

opa amigo ja vi a opcao correta , no on active do form funcionou supinpa.
AS ARVEREZES SOMOZ NOZES!!!


FELIZ 2008.


GOSTEI 0
POSTAR