Pesquisar na Comunidade

Olá pessoal Tenho uma tabela no banco mysql onde salvo os seguintes dados (Referente, IgrejaPastor, MesReferente, DataDeposito, Valor e Comprovante), essa tabela é para controle de depósitos bancários que são efetuados obrigatoriamente todos os meses e para fins pré-estabelecidos. No campo Referente, específico que tipo de depósito será (Missões, Contabilidade, Contribuição pastoral, etc;). Para cada uma dessas opções, preciso mostrar os dados em um DBGrid ou StringGrid e saber se os depósitos estão em dia. Em todas as igrejas as seguintes opções se repetem normalmente (Contabilidade e Missões), mas em algumas existem mais de um pastor que deposita a contribuição pastoral. Nesse caso, preciso saber qtos pastores estão efetuando o depósito e criar o Grid para mostrar os dados. Lembrando que só tenho a certeza de que existe pelo menos um pastor, mas se houver mais de um como faço para criar os grids?

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 sou um programa novato, e migrei para o delphi. fiz uma fiz um select que manda o resultado para uma dbgrid onde já foi filtrada, eu não estou conseguindo imprimir o relatório que esta na grid alguém pode me da uma ajuda. uso fast report e Delphi 10 Seattle. segue o codigo de filtro. begin if txt_buscarRelatorioID.Text = '' then begin with DM.SQL_Produtos do begin Close; SQL.Clear; SQL.Add('select * from produtos'); case RG_entregue.ItemIndex of 0 : SQL.Add('where pro_entregue = "SIM" '); 1 : SQL.Add('where pro_entregue = "não" '); 2 : SQL.Add(''); end; Open; if RecordCount = 0 then ShowMessage('Cliente não Cadastrado!'); end; end else begin with DM.SQL_Produtos do begin Close; SQL.Clear; SQL.Add('select * from produtos'); case RG_pes.ItemIndex of 0 : SQL.Add('where pro_comprador = :idcli'); 1 : SQL.Add('where pro_vendedor = :idcli'); end; case RG_entregue.ItemIndex of 0 : SQL.Add('and pro_entregue = "SIM" '); 1 : SQL.Add('and pro_entregue = "não" '); 2 : SQL.Add(''); end; ParamByName('idcli').Value := txt_buscarRelatorioID.Text; anjo:=StrToInt(txt_buscarRelatorioID.Text); Open; SQLDataSet1:= dm.SQL_Produtos; if RecordCount = 0 then ShowMessage('Cliente não Cadastrado!'); end; end; end;

Boa tarde a todos! Pessoal, hoje me deparei com uma situação bem inusitada( pelo menos pra mim), trata-se do checkbox no dbgrid. Bem, eu utilizo esse recurso a anos, porém hoje ao criar uma nova grade em uma nova tela percebo uma lentidão incrível. Ao rodar a aplicação e clicar no ckeckbox dava para ir tomar um cafezinho e voltar para então ver o check marcado ou desmarcado. Levei um susto e fui conferir algumas grades, a minha surpresa estava tudo normal. Pensei é aqui o problema, vamos atras, nada encontrei de anormal. Bom para descargo de consciência criei uma tela semelhante a outra que esta funcionado, chamando os mesmos métodos, buscando os mesmos dados no banco, a grid com as propriedades setadas igualmente e o resultado é o seguinte: access Violation na linha Check := IS_CHECK[Column.Field.AsInteger = 1]; outro detalhe, na maquina do colega desenvolvedor, o access violation não ocorria mesmo dentro de um try except end, no entanto a lentidão era a mesma. Alguém já viu algo parecido? Obrigado pela atenção. Segue o código. procedure TfrmGerenciamentoFinanceiro.dbgContasReceberDrawColumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const IS_CHECK: array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var Check : Integer; R : TRect; begin inherited; if cdsContasReceber.Active then begin with dbgContasReceber do begin if Column.FieldName = 'IMPRIMIR' then begin Canvas.FillRect(Rect); Check := IS_CHECK[Column.Field.AsInteger = 1]; // Aqui estou tendo access Violation R := Rect; InflateRect(R, -2,-2); DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, Check); end end; end; end;

Boa tarde pessoal... Estou com um pequeno problema... Possuo um sistema onde realizo um cadastro de OS e gravo no banco de dados (frmCadastro) Possuo na tela inicial (frmConsulta), um dbgrid que mostra todas as OS cadastradas. Quero saber como eu posso selecionar a linha do meu dbgrid e abrir um outro formulário idêntico ao de cadastro só que para edição dos campos... esse novo formulário(frmEditar) deve trazer os campos preenchidos já com os dados do Dbgrid. Estou utilizando o Zeos para realizar a comunicação, e Querys para realizar os cadastros e consultas juntamente com DataModule.

Como eu crio um dbGrid com totalizadores...exemplo.... Quero mostrar as informações assim : Documento Qt. Qt. Boletas 55 Quando clicar duas vezes no Qt. Boletas....quero detalhar as informações.... Documento Qt. Qt. Boletas 55 - MasterCard 30 - Visa 10 - VisaElectron 5 - Cabal 10 Ai quando eu clicar no Visa por exemplo quero detalhar as parcelas.... Documento Qt. Qt. Boletas 55 - MasterCard 30 - Visa 10 -- Visa 1x 2 -- Visa 3x 3 -- Visa 5x 1 -- Visa 8x 2 -- Visa 10x 2 - VisaElectron 5 - Cabal 10 Tenho como fazer isso no dbgrid ?