Jump to content
Sign in to follow this  
Renan F. da Silva

Dbexpress dbgrid master e detalhes

Recommended Posts

Boa tarde pessoal,

 

Montei um form, com dois dbgrid com dois data set...

Quando fui interligar ele para fazer o master com os detalhes ele aparece erro isc 0.

 

As tabelas são mais o menos assim

 

Aluno

Id nome ra

 

Matérias

Idm idaluno nomemateria

 

Eu queria que ao selecionar o aluno da grid1 mostra se as matérias na grid dois, para depois depois enviar um data set para fast report.

 

Não funciona usar inner join, já tentei, traz varias vezes as mesmas info.

 

Obrigado!

 

Obs. Banco mysql e firebird

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • By JorgeeHenrique
      Bom dia, sou iniciante em Delphi, estou fazendo um Cadastro de Clientes, gostaria de usar três Edit´s para filtrar alguns  dados porem com o código abaixo consegui fazer apenas com 1 edit.text, como faço pra usar três e que se algum estiver em branco ele retorna o valor apenas do Edit.text que foi preenchido?
       
      Exemplo: 
       
      Quero buscar por Nome, Situação e Rota (Cliente a da rota B com situação C) e se algum desses campos estiver vazio ele busca apenas o que foi preenchido. Obrigado pela atenção!
       
      .
      procedure TFrm_Cadastro.Bt_BuscarClick(Sender: TObject); begin with Frm_Cadastro.Tbl_Clientes do begin Close; SQL.Clear; SQL.Add( 'Select * from Tbl_Cad_Clientes'); SQL.Add('where Cli_Nome like :nome'); ParamByName('nome').Value := '%' + txt_buscar_nome.Text + '%'; Open; end; end;  
    • By LA74
      Pessoal
       
      Fiz uma rotina para que o dbgrid mude a cor conforme a condição do meu select. Algo assim no evento OnDrawColumnCell
       
            if dtm.ZQPedidoAbertoquantaberta.value=0 then
             begin
                DBGPedidos.Canvas.Brush.Color:=clgreen;
                DBGPedidos.Canvas.FillRect(Rect);
                DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);
             end
               else
              begin
               DBGPedidos.Canvas.Brush.Color:= clred;
               DBGPedidos.Canvas.Font.Color:= clWhite;
               DBGPedidos.Canvas.FillRect(Rect);
               DBGPedidos.DefaultDrawColumnCell(Rect, DataCol, Column, State);
           end;
       
      O resultado sai corretamente no DBGrid mas basta passar o mouse por cima que ele muda a cor de verde para vermelho. Alguém já passou por isso e pode me ajudar?
       
      Obrigado desde já.
    • By ment0r
      Bom dia a todos.
       
      Estou usando Firebird 2.0 para o sistema que estou desenvolvendo. Toda vez que gravo uma informação que contenha caracteres especiais fica assim:
       
      Ivan L�es  (Ivan Lóes)
      Márcio Mourão Várgas (Márcio Mourão Várgas)
       
      O banco está registrado como Charset Win1252 e Font Characters Set ANSI_CHARSET
       
      Já usei o utf8_encode(), mas não resolveu.
       
      Se alguém tiver qualquer informação que posso me ajudar,  por favor. Muito obrigado a todos desde já e um Feliz Natal.
    • By Marcelo_Ribeiro
      E aí pessoal, tudo bem? 
      Quero montar um sistema que irá acessar um banco de dados Firebird em outra máquina. 
      Consegui fazer a conexão via socket. Criei um remote data module, criei um server, e pelo socket server, consegui fazer a conexão. 
      Mas tem um porém. To usando Firebird. No meu note, tô com o server rodando, e rodei o client tb. Ao mesmo tempo, rodei o client em outro pc. 
      Tenho uma tabela teste que possui 6 registros. Ao abrir o client nos 2 pcs, a consulta traz os 6 registros. No meu note, crio um 7º registro. Mas no outro pc, ao consultar, ele só traz 6 registros. Se eu fechar e abrir de novo, ao consultar traz os 7. 
      Criei o remote data module como Instancing = Multiple instance e Threading Model = Single. Será que isso tem alguma coisa a ver? 
       
      Instalei o Sql Server. Fazendo tudo do mesmo jeito, o Sql server atualiza, mas o firebird não. Será que é limitação?
       
      Valeu pessoal 
      Abs
       
    • By Giuliano Santos
      Tenho um SQL que gera para mim o meu estoque no período que eu colocar. Esse SQL esta funcionando perfeitamente. Segue exemplo:
      -- Estoque dia por grade select pro.cod_produto, pro.descricao1 as produto, cor.descricao as descricao_cor, me.tamanho, sum (me.quantidade) as qtd_estoque_dia, sum(me.empenho) as empenho_dia from mov_estoque me inner join produtos pro on pro.produto = me.produto and pro.tipo_prod = 'AC' inner join cores cor on cor.cor = me.cor where me.data <= '30.11.2018' group by 1,2,3,4 Preciso de um que me mostre o estoque mês-a-mês e ano-a-ano e não estou conseguindo fazer.
      Segue um exemplo do que tentei mais não esta batendo:
      -- Estoque dia por grade select extract(year from me.data) as ano, extract(month from me.data) as mes, pro.cod_produto, pro.descricao1 as produto, sum (me.quantidade) as qtd_estoque_dia from mov_estoque me inner join produtos pro on pro.produto = me.produto and pro.tipo_prod = 'AC' where me.data <= 25||'.'|| EXTRACT(MONTH FROM me.data)||'.'|| EXTRACT(YEAR FROM me.data) group by 1,2,3,4 Existe uma forma de fazer isso?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.