Intebase com IBDATASET (Mestre - Detalhe)
21/02/2003
0
OI PESSOAL
Tenho uma tabela denominada ´BANCOS´ COM a seguinte estrutura
ID_Banco
Nome do Banco
´CHAVE PRIMARIA ID_BANCO
e outra denomindada ´AGencia´ com a seguinte estrutura
ID_AGencia
ID_Banco
Numero_Agencia
Nome_Agencia
CHAVE PRIMARIA (ID_BANCO E ID_AGENCIA)
outra denominada Conta_Corrente
ID_Banco
ID_Agencia
ID_Conta_Corrente
Numero_Conta
Limite
Preciso que quando [b:952c0b07ba]for incluir [/b:952c0b07ba]uma nova agencia ( ou conta_corrente) o campo ID_Banco (id_Banco e IdAgencia no caso da conta corrente)
[b:952c0b07ba]Seja preenchido automaticamente[/b:952c0b07ba], utilizo o ´IBDATASET´
e não sei como fazer ( no paradox anteriormente utilizava Ttable com a tabela banco ´mestre´ e
´agencia´ detalhe e era facil).
Como fazer isso com o IBDATASET? como devo proceder..
Agradeço a atençao de todos..
Siro
Tenho uma tabela denominada ´BANCOS´ COM a seguinte estrutura
ID_Banco
Nome do Banco
´CHAVE PRIMARIA ID_BANCO
e outra denomindada ´AGencia´ com a seguinte estrutura
ID_AGencia
ID_Banco
Numero_Agencia
Nome_Agencia
CHAVE PRIMARIA (ID_BANCO E ID_AGENCIA)
outra denominada Conta_Corrente
ID_Banco
ID_Agencia
ID_Conta_Corrente
Numero_Conta
Limite
Preciso que quando [b:952c0b07ba]for incluir [/b:952c0b07ba]uma nova agencia ( ou conta_corrente) o campo ID_Banco (id_Banco e IdAgencia no caso da conta corrente)
[b:952c0b07ba]Seja preenchido automaticamente[/b:952c0b07ba], utilizo o ´IBDATASET´
e não sei como fazer ( no paradox anteriormente utilizava Ttable com a tabela banco ´mestre´ e
´agencia´ detalhe e era facil).
Como fazer isso com o IBDATASET? como devo proceder..
Agradeço a atençao de todos..
Siro
Siro
Curtir tópico
+ 0
Responder
Posts
21/02/2003
Jeová Soares
No evento BeforePost do IBDataSet coloque o seguinte código:
Para Tabela Agencia
IBDSAgenciaId_Banco.Value := IBDSBancoID_Banco.Value;
Para Tabela Conta Corrente
IBDSContaCorrenteID_Banco.Value := IBDS_AgenciaID_Banco.Value;
IBDSContaCorrenteID_Agencia.Value := IBDSAgenciaID_Agencia.Value;
Espero ter ajudado
Para Tabela Agencia
IBDSAgenciaId_Banco.Value := IBDSBancoID_Banco.Value;
Para Tabela Conta Corrente
IBDSContaCorrenteID_Banco.Value := IBDS_AgenciaID_Banco.Value;
IBDSContaCorrenteID_Agencia.Value := IBDSAgenciaID_Agencia.Value;
Espero ter ajudado
Responder
Clique aqui para fazer login e interagir na Comunidade :)