Como fazer umcontador de tabelas abrindo o sistema

04/02/2003

2

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.


Anonymous

Anonymous

Responder

Posts

04/02/2003

Anonymous

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]


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar