Search the Community
Showing results for tags 'Dbgrid'.
Found 4 results
-
Consulta em três campos com dbGrid
JorgeeHenrique posted a question in Perguntas e respostas rápidas
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; -
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á.
-
Bom dia Estou tendo um problema com meu dbgrid. Estou usando o delphi 2007. Como banco de dados, estou usando o sql server. Tenho um datamodule, onde coloco o componente de conexão do zeus, query e datasource. No meu formulário, se eu ligar o dbgrid nessa query que está no datamodule, não aparecem os dados em tempo de execução. Mas se eu colocar a query e datasource no próprio form, e apenas dar um replace de dm.query para query, sem mudar nada no código, ele tras normal. Ele estava aparecendo normal, mesmo no datamodule, de repente, parou, sem alterar nada. Alguém sabe o que pode estar acontecendo ??
-
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