Vivendo&Aprendendo

Resolvido na mesma consulta... CartaoDepositos.SQL.Add('Select * From CartaoDepositos'); CartaoDepositos.SQL.Add('Where ((Referente = "XXXXXXXXXX" and DistritoRef Like :pDis) and (IgrejaRef Like :pIgreja or DistritoRef Like :Dist))'); CartaoDepositos.Params[0].Value := Distrito; //Mantém visível todos os dados do respectivo distrito CartaoDepositos.Params[1].Value := Combobox.Text; CartaoDepositos.Params[2].Value := Combobox.Text;

Olá, mais uma vez venho pedir o socorro. Desde já não sei se é neste forum mesmo que deve ser postada essa dúvida. Ela está relacionada ao delphi e ao mysql. Tenho uma consulta que me retorna um resultado, preciso fazer outra consulta sql dentro desse resultado apenas. segue abaixo minha consulta: CartaoDepositos.SQL.Add('Select * From CartaoDepositos'); CartaoDepositos.SQL.Add('Where Referente = "XXXXXXX" and DistritoRef Like :pDis and IgrejaRef Like :pIgreja'); CartaoDepositos.Params[0].Value := Variavel; CartaoDepositos.Params[1].Value := Combobox.Text; Essa consulta me retorna um resultado e agora dentro desse resultado preciso fazer outro select/where.

Legal, valeu mais uma vez Jhonas Essa é outra maneira que deu certo: if Combobox1.ItemIndex = Combobox1.Items.IndexOf('TODAS') then

tenho um combobox que é alimentado no oncreate de um form com dados de tabelas. Após ele receber esses dados, crio mais um item nele chamado TODOS. Preciso saber em qual itemindex ele está ou localiza-lo pelo text, pois ao selecioná-lo a SQL precisa trazer todos os dados novamente.

Valeu Jhonas, mais uma vez resolvendo meus problemas Obrigado

Boa noite Jhonas Seria mais interessante cada pastor em seu Grid. Consigo criar as TabSheets do pagecontrol em tempo de execução e criar um DBGrid dentro delas. Mas quando clico na Aba 2 por exemplo o DBGrid some. Só que ele cria na primeira TabSheet em vez de criar na que está sendo criada também. Deveria ser criado o DBGrid na TabSheet Aba1 e não na Cadastro. Esse é o código que estou usando para criar a tabsheet no meu pagecontrol já existente e o DBGrid dentro dela. procedure TForm1.SpeedButton1Click(Sender: TObject); var ZQuery : TZQuery; DataSource : TDataSource; Abas : TTabSheet; DBGrid : TDBGrid; begin Inc(Contador); Abas := TTabSheet.Create(PageControl1); Abas.Caption := 'Aba '+IntToStr(Contador); Abas.Name := 'Aba'+IntToStr(Contador); Abas.PageControl := PageControl1; PageControl1.ActivePage := Abas; DBGrid := TDBGrid.Create(Self); with DBGrid do begin Parent := PageControl1; Align := alClient; Name := 'Grid'+Abas.Name; Visible := True; DBGrid.Columns.Insert(0); DBGrid.Columns[0].FieldName:='Referente'; DBGrid.Columns[0].Title.Caption:='Referente'; DBGrid.Columns[0].Title.Alignment := taCenter; DBGrid.Columns[0].Title.Font.Style := [fsBold]; DBGrid.Columns[0].Width:=155; DBGrid.Columns.Insert(1); DBGrid.Columns[1].FieldName:='DescricaoPastor'; DBGrid.Columns[1].Title.Caption:='Igreja/Pastor'; DBGrid.Columns[1].Title.Alignment := taCenter; DBGrid.Columns[1].Title.Font.Style := [fsBold]; DBGrid.Columns[1].Width:=200; DBGrid.Columns.Insert(2); DBGrid.Columns[2].FieldName:='MesReferente'; DBGrid.Columns[2].Title.Caption:='Mês Ref.'; DBGrid.Columns[2].Title.Alignment := taCenter; DBGrid.Columns[2].Title.Font.Style := [fsBold]; DBGrid.Columns[2].Width:=65; DBGrid.Columns.Insert(3); DBGrid.Columns[3].FieldName:='DataDeposito'; DBGrid.Columns[3].Title.caption:='Data Dep.'; DBGrid.Columns[3].Title.Alignment := taCenter; DBGrid.Columns[3].Title.Font.Style := [fsBold]; DBGrid.Columns[3].Alignment := taRightJustify; DBGrid.Columns[3].Width:=65; DBGrid.Columns.Insert(4); DBGrid.Columns[4].FieldName:='ValorD'; DBGrid.Columns[4].Title.caption:='Valor'; DBGrid.Columns[4].Title.Alignment := taCenter; DBGrid.Columns[4].Title.Font.Style := [fsBold]; DBGrid.Columns[4].Alignment := taRightJustify; DBGrid.Columns[4].Width:=70; DBGrid.Columns.Insert(5); DBGrid.Columns[5].FieldName:='Comprovante'; DBGrid.Columns[5].Title.caption:='Nº Envelope'; DBGrid.Columns[5].Title.Alignment := taCenter; DBGrid.Columns[5].Title.Font.Style := [fsBold]; DBGrid.Columns[5].Alignment := taRightJustify; DBGrid.Columns[5].Width:=100; end; end;

Olá Jhonas Já temos um sistema próprio da nossa igreja. O que preciso agora é controlar depósitos. Vou tentar explicar melhor. Todos os meses as igrejas depositam certos valores em uma conta corrente. Esses valores são referentes a: Contribuição da igreja, contabilidade, Missões, Contribuição para o seminário teológico e Contribuição pastoral. Salvo na tabela os seguintes dados: Referente - que será uma dessas opções acima; Mês referente - escolho o mês ao qual o depósito é referente, pois posso depositar atrasado em algumas situações; Data depósito - data que sai no comprovante de depósito Comprovante - número do envelope de depósito ou da transferência bancária; e Igreja/Pastor - O nome da igreja se for as quatro primeiras opções, mas se for contribuição pastoral, preciso salvar o nome dele. (Está certo também). O problema está na apresentação desses dados. Preciso para cada opção (Contribuição da igreja, contabilidade, Missões, Contribuição para o seminário teológico e Contribuição pastoral), mostrar em um grid separado de uma vez. Faço a separação pelo campo referente, mas na mesma igreja podem ter mais de um pastor e agora preciso que os cada pastor seja mostrado em grid separado também. Entendeu?

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, vamos lá. A instalação do componente DelphiTwain no delphi 2010 funcionou da seguinte maneira: 1. No meu Tools/Options/Library Win 32 na opção Library Path precisamos setar o caminho onde se encontra o componente. 2. No menu File/New/Package - Delphi - abra um novo projeto de package 3. No lado direito superior da sua tela tem o bloco Project Manager, irá aparecer o novo projeto de package com o nome Package1.bpl (aqui você pode renomear se quiser). Clique com botão direito do mouse sobre o nome e vá e Add. Adicione os arquivos do componente. 4. Clique novamente com o botão direito sobre o nome e vá em Install. Ele irá instalar as vcl's e criará a aba do componente. Aqui funcionou assim. Lembrando que este componente que baixei só possui os arquivos .pas. Até mais e resolvido.

Jhonas, como informei acima não encontro essa opção de Install Component no delphi 2010. Segue abaixo as opções que tenho. Quando escolho Install Packages não dá certo, pois os arquivos do componente que tenho são todos .pas. Desculpe, mas não estou conseguindo mesmo e por isso esse incomodo.

Desculpe-me Jhonas, mas no delphi 2010 não estou conseguindo. Os arquivos são apenas .pas e não tem a opção Install componente igual no delphi 7. Se puder me auxilia aí

Certo Jhonas, obrigado, mas já baixei o Twain só não sei como instalar ele.

Olá povo do fórum... Pesquisei o fórum e em diversos lugares sobre esse assunto e encontrei um componente que supostamente faz o que estou precisando, ou seja, preciso scanear documentos pela minha aplicação. Encontrei o Delphi Twain, mas o problema que uso delphi 2010 e não consegui instalar ele. Vocês teriam outro componente para isso (scanear documentos em jpg, pdf, etc com mais de uma página)? O delphi 2010 tem algum componente nativo pra isso? Ou, podem me dizer como instalar esse componente no 2010? Até mais

Olá Jhonas e pessoal do fórum, desculpe mas acho que não me expressei bem. Preciso que apareça apenas o ano no componente. Preciso que seja por exemplo uma lista contendo apenas os anos, sem dias e meses, pois nesse caso não importa. Quando eu escolher 2016 por exemplo, ele já receberá 01/01 e mais o ano escolhido(2016) e 31/12 mais o ano (2016) também, logo só preciso selecionar o ano desejado. Resolvido da seguinte maneira: Propriedade Format = yyyy Propriedade Date Mode = dmUpDown Obrigado Jhonas, sua resposta clareou as idéias rsrsrs

Olá pessoal Preciso gerar relatórios anuais, então pensei em usar o componente DateTimePicker para isso, mas gostaria que mostrasse apenas o ano, pois, preciso que os relatórios sejam de 01/01 até 31/12. Caso o ano não tenha terminado ele gera até a data atual. Teria como fazer isso usando esse componente ou outro, mas sem deixar o usuário digitar o ano? Grato