Tela de Inicalização com dados do banco ?

15/02/2006

Ola galera sera que alguem pode me ajudar a criar um splash com os dados de conexao :

ex: no splash queria que em um label aparece-se carendo DMGERAL, DMCONTAS por exemplos alguem sabe algo que possa me ajudar.


uso delphi 7.0 ADO e sqlserver..


sergio_project@hotmail.com


Firekiller_am

Respostas

15/02/2006

Firekiller_am

sergio-project@hotmail.com



Responder Citar

15/02/2006

Firekiller_am

begin
Application.Initialize;
frmSplash:=TfrmSplash.Create(nil);{cria o form na me memoria}
try
frmSplash.show;{abre o form}
frmSplash.lbldados.Caption := ´Abrindo form principal´;
frmSplash.Update;
Application.Title := ´Administrador´;
frmSplash.lbldados.Caption := ´Abrindo dmSenhas´;
frmSplash.Update;
Application.CreateForm(TfrmSenha, frmSenha);
frmSplash.lbldados.Caption := ´Abrindo dmGeral´;
frmSplash.Update;
Application.CreateForm(TfrmDm, frmDm);
frmSplash.lbldados.Caption := ´Abrindo Formulario Principal´;
frmSplash.Update;
Application.CreateForm(TfrmMenu, frmMenu);
frmSplash.lbldados.Caption := ´Abrindo Modulo de Espera´;
frmSplash.Update;
Application.CreateForm(TFrmAguarde, FrmAguarde);
frmSplash.lbldados.Caption := ´Abrindo Modulo de Entradas´;
frmSplash.Update;
Application.CreateForm(TFrmDMEntrada, FrmDMEntrada);
finally
frmSplash.Free; {tira o from da me momoria}
end;
Application.Run;
end.


Responder Citar