Tela de Inicalização com dados do banco ?
15/02/2006
0
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
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
Curtir tópico
+ 0
Responder
Posts
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.
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
Clique aqui para fazer login e interagir na Comunidade :)