ActiveDelphi

[kakau]

Estou tentando criar uma tela Splash da seguinte forma:
program Teste;

uses
Windows,
Forms,
Usplash in \'Usplash.pas\' {fSplash},
Usenha in \'Usenha.pas\' {fsenha};
begin
Application.Initialize;
fsplash := TfSplash.Create(Application);
FSplash.Show;
FSplash.Refresh;
Sleep(2000);
Application.CreateForm(Tfsenha,fsenha);
Application.Run;
end.

Mas recebo o erro \" Database not assigned\" qdo ele passa pelo Application.CreateForm(Tfsenha,fsenha);

O que estou fazendo de errado?

Agradeço a ajud desde já..

[Sufolk]

Database not Assigned é um erro que acontece quando a Query não está apontando para nenhuma meio de conecção com a base de dados como por exeplo TIBDataBase / TDataBase
Provavelmente no formulário fsenha exista uma query, ou TIBQuery com a propriedade DataBase nula.

[kakau]

Tb pensei que fosse esse o problema, mas a propriedade Database do TIBQuery não está vazia...Qdo mudo a propriedade Active pra True funciona normalmente...o problema é na hora que dou Application.CreateForm(Tfsenha,fsenha);

[Sufolk]

Você não muda a propriedade em tempo de execução?
O formulário onde está o componente TIBDataBase já está criado?
Pelo forma como você construiu o Project Source ele deve estar dentro de fsenha. Caso não esteja e esteja em um outro formulário p.e. o Datamodule este form deve ser criado antes do form que necessite a ligação. Seria +- assim

uses
Windows,
Forms,
Usplash in \'Usplash.pas\' {fSplash},
Usenha in \'Usenha.pas\' {fsenha},
UDatamodule in \'UDatamodule.pas\' {dmPrincipal};
begin
Application.Initialize;
fsplash := TfSplash.Create(Application);
FSplash.Show;
FSplash.Refresh;
Sleep(2000);
// fSenha necessita da conecção, então
Application.CreateForm(TdmDatamodule,dmPrincipal);
Application.CreateForm(Tfsenha,fsenha);
Application.Run;
end.

Mas creio que isso geraria um acess violation mas dê uma olhada.
Se não for isso, coloque um break point (F5) em Application.CreateForm(Tfsenha,fsenha); execute o programa e vá debugando com o F7 até encontrar o local exato do erro. Fica mais fácil de avaliar em qual componente ou evento está ocorrendo o erro;

[kakau]

Realmente vc estava certo Sufolk...
O problema era que eu não estava criando o form q esta o TIBDatabase...

Agora deu certinho...
Muto obrigada pela ajuda...

[Editado em 18/5/2004 por kakau]

[lucianomoraes69]

Penso que faltam detalhes interessantes em cada conversação.
No meu caso (estou apenas fazendo um teste) tive que alterar as propriedades dos tZConnection, tZtable para False. Só assim funcionou.
_________________
Pascal desde 1998.

[lucianomoraes69]

Eu usava um tDataModule para o tZConnection, outro tDataModule para dois tZTable (com dois tDataSources). Como disse no post anterior, desativei pra funcionar.

Ao fazer um teste em apenas um form, funcionou. Ou seja, coloquei todos os componentes citados acima num form só. Ativei eles e funcionou.
_________________
Pascal desde 1998.