Formulário Mestre Detalhes com DBExpress e Firebird

Depois de muito pesquisar na internet sobre formulários Mestre Detalhes no Delphi 7 utilizando o DBExpress cheguei a conclusão que é necessário fazer muitas configurações nos componentes sqlQuery, DataSetProvider e ClienteDataSet para que se possa conseguir um resultado satisfatório. Tentando achar uma solução mais fácil, descobri uma forma de fazer um esse tipo de formulário, que acredito eu, é mais rápida.

Antes de continuarmos, devo esclarecer alguns aspectos importantes. Vou considerar que você já saiba usar o básico do Firebird, como criação de tabela e chaves primarias, não vou entrar em maiores detalhes e que também o conexão do banco de dados (SqlConnection) já esteja devidamente configurada. Para este exemplo serão consideradas as 2 tabelas, a Pedidos e a ItensPedidos, mostradas logo abaixo:

As duas tabelas que servirão de exemplo, são mostradas abaixo:

Preencha as tabelas com os seguintes dados:

Primeiro configuraremos os componentes da tabela Mestre.

• Adicione ao formulário 1 componente SQLQuey e configure da seguinte forma:
  SQLConnection = Sua conexão com o banco devidamente configurada SQL = select * from pedidos Name = sqlMestre
• Adicione 1 componente DataSetProvider e configure:
  DataSet = sqlMestre Name = dspMestre
• Adicionar 1 ClienteDataSet e altere suas propriedades:
  Name = cdsMestre ProviderName = dspMestre
• Por último, adicione um DataSource e faça conforme está abaixo:
  Name = dsMestre DataSet = cdsMestre

Pronto, já configuramos nossa tabela mestre. Agora vamos configurar a tabela detalhes.

• Adicione um SQLQuery e configure:
  Name = sqlDetalhes SQL = select * from ITENSPEDIDOS SQLConnection = Sua conexão devidamente configurada
• Coloque um DataSetProvider e o configure conforme abaixo:
  Name = dspDetalhes DataSet = sqlDetalhes

Agora, vamos configurar o ClientDataSet da tabela detalhes.

• Adicione um ClienteDataSet ao formulário e mude suas propriedades para:
  Name = cdsDetalhes IndexFieldsNames = CodigoPedido MasterFields = Codigo

  Não vamos configurar a propriedade MasterSource agora, ela será configurada em tempo de execução. Se ela for configurada agora, ira dar um erro quando a aplicação for executada.

• Adicione também um DataSource e altere suas propriedades:
  Name = dsDetalhes DataSet = cdsDetalhes

Agora vamos fazer as coisas funcionarem, adicione dois DBGrids ao formulário, um na parte de cima do Form e outro na parte de baixo. No dbGrid de cima altere a propriedade DataSource para dsMestre. No dbGrid de baixo coloque a propriedade DataSource como dsDetalhes.

• Agora no evento OnCreate do formulário escreva o seguinte código:
  cdsMestre.Open; cdsDetalhes.Open; cdsDetalhes.MasterSource := dsMestre;

Pronto, seu formulário Mestre Detalhes está configurado. Agora de você quiser que as alterações realizadas nele sejam gravadas é necessário observar o seguinte. O componente DBGrid de cima (da tabela Mestre) irá gravar os dados normalmente, basta executar o comando cdsMestre.ApplyUpdates(0). Agora o dbGrid de baixo não irá gravar os dados. Isso acontece porque o MasterSource do cdsDetalhes não deixa os dados serem gravados. Para resolver isso basta, antes de gravar, retirar o componente dsMestre da propriedade MasterSource do cdsDetalhes, executar o comando cdsDetalhes.ApplyUpdates(0); e depois voltar o dsMestre para o propriedade MasterSource novamente. Veja como o código ira ficar:

Confira também