Como fazer umcontador de tabelas abrindo o sistema
Pessoal, gostaria que alguém me mostrasse como fazer um contador que fosse mostrando as tabelas do sistema sendo abertas no splash do sistema. Por exemplo:
Abrindo tabelas 1/25; 2/25; 3/25 etc.
As tabelas ficam em um datamodule e o form do splash (é claro) é criado antes do form do datamodule.
Me ajudem, estou precisando muito.
Abrindo tabelas 1/25; 2/25; 3/25 etc.
As tabelas ficam em um datamodule e o form do splash (é claro) é criado antes do form do datamodule.
Me ajudem, estou precisando muito.
Anonymous
Curtidas 0
Respostas
Anonymous
04/02/2003
Procedure TForm1.contTabelas;
var i , TotTab : integer;
Begin
TotTab :=0;
For i:=1 to ComponentCount-1 do
begin
if Components[i] is TTable then
with TTable(Components[i]) do
TotTab := TotTab + 1;
End;
///Apos pegar o Total de Tabelas pode usalo para Mostrar como vc quer na Tela
For i:=1 to ComponentCount-1 do
begin
if Components[i] is TTable then
with TTable(Components[i]) do
active:=True;
Label1.caption :=´Abrindo Tabela(s) ´ + inttostr(i) + ´de´ inttostr(TotTab);
End;
End;
[color=blue:b37fa09e9b][/color:b37fa09e9b][color=blue:b37fa09e9b][/color:b37fa09e9b]
var i , TotTab : integer;
Begin
TotTab :=0;
For i:=1 to ComponentCount-1 do
begin
if Components[i] is TTable then
with TTable(Components[i]) do
TotTab := TotTab + 1;
End;
///Apos pegar o Total de Tabelas pode usalo para Mostrar como vc quer na Tela
For i:=1 to ComponentCount-1 do
begin
if Components[i] is TTable then
with TTable(Components[i]) do
active:=True;
Label1.caption :=´Abrindo Tabela(s) ´ + inttostr(i) + ´de´ inttostr(TotTab);
End;
End;
[color=blue:b37fa09e9b][/color:b37fa09e9b][color=blue:b37fa09e9b][/color:b37fa09e9b]
GOSTEI 0