Imprimir tudo e data

[Ådriano 9]

Ola gente ...É eu dinovo......Tenho duas perguntinhas basicas:1 - Queria saber como faço para imprimir todos os registros de uma tabela no qReport....2 - Gostaria de que o programinha na data escolhida pelo usuario .Exemplo daqui a tres meses por exemploele mostrasse uma mensagem na tela para ele ...Pois seria tipo data de vencimento....É Só ....Biquinho hein.........ajuda ai galera 100+ Ådriano

[marcio.theis 3]

1°) Para imprimir todos os registros da tabela basta adicionar os campos desejados no quickreport, e abrir a tabela sem nenhuma restrição.2°) Esta questão da data o usuário irá informar uma data ? Neste caso você vai guardar no BD ? Se sim, basta você no momento de abrir a tela principal verificar a data corrente com a data que o usuário informou, se for igual emite a mensagem desejada.

[Ådriano 9]

Vamos ver se entendi:1 É só colocar uma tabela e um datasource todos os campos e imprimi????Acho que fiz isto mas não funcionou....Vou ver de novo2-Esta data é guardada no BD sim mas e a comparação como seria o código ??????

[marcio.theis 3]

Seria uma comparação simples, tipoif tblCAMPODATA.Value = Date then//MensagemIsto poderia ser colocado no OnShow do formulário principal.

[Ådriano 9]

Vou testar hoje de tarde....MODERADOR.........xique meus parabens você merece ...você ajuda....100 puxar o saco...valeu...

[Ådriano 9]

Olha só Ainda não consegui imprimir tudo....Crio o form,coloco um QuicKrep,e um qr band, coloco a tabela , e quando peço para visualizar só tem o primeiro registro e mais nada .....Qual o enigma?????Só quero imprimir todos os registro de um banco feito em access....

[marcio.theis 3]

você precisa ligar a propriedade DataSet do QuickReport com esta tabela que esta no formulário...

[Ådriano 9]

Vou fazer isso...Me responda uma pergunta,eu tenho um campo na minha tabela feita em access, que é do tipo sim/não: eu consigo pesquisar no delphi usando um dbcheckbox quando está ticado e eu gostaria de pesquisar tb quando ele não estivesse ticado, tem como????agradeço desde já!!!!

[marcio.theis 3]

Pode fazer algo do tipo:

 

qry.Close;qry.SQL.Clear;qry.SQL.Add('select *');qry.SQL.Add('from tabela');qry.SQL.Add('where tabela.campo = restricao.desejada');if CheckBox.Checked then	qry.SQL.Add('and tabela.campo = ''Sim''')else	qry.SQL.Add('and tabela.campo = ''Não''');qry.Open;

[Ådriano 9]

Mesmo sendo que quando arrasto para o form vira dbcheck box certo....Então isto faria pesquisar quando não estiver 'Ticado' (aquele vezinho) o dbcheckbox?????Eu já pesquiso quando ele esta ticado....agora quero pesquisar os outros que não estão ticados......acho que agora consegui ser mais claro....

[marcio.theis 3]

você não irá poder usar o TDBCheckBox, e sim o TCheckBox da paleta Standard, que não é ligado com o BD.

[Ådriano 9]

Então eu ja tenho uma pesquisa que pega o dbcheckbox e lista todos selecionados ...pois é assimtenho no form um dbcheck que quando o usuario mtica nele significa que o cliente fechou o negocio certo?????!!!!!então quando ele não tica significa que seria só orçamento ....pos isso que eu queria pesquisar somente estes que ficam sem o tique o que fica em aberto (sem tique) o que ele tica (fechado)eu já fiz até foi com a sua ajuda meu caro ....será que clariou o que quero fazer.....rsrsrs

[marcio.theis 3]

Ok. Vamos por partes, no caso você quer ter uma tela de consulta, certo ?

[Ådriano 9]

sim e que esta consulta seja atravez de um campo que no form ele é umdbcheckbox....Certo?????ai eu quero pesquisar por este campo certo????? Pesquisar ele quando ele estiver ticado(selecionado,este tipo de consulta eu já tenho),e pesquisar no banco de dados quando ele tambem estiver desticado (sem aquele "V" ).

[marcio.theis 3]

Nesta tela possivelmente você vai ter um alguns filtros e um grid para listar os registros, este grid vai estar ligado, que por sua vez vai estar ligado com um DataSet que vai estar ligado com a qry (bom, isto todos já estão cansados de saber, hehehe) neste tipo de tela para consulta que precisa de opções para marcar, filtar as informações, não precisa necessáriamente estar ligado com o BD, no caso o seu CheckBox não precisa ser ligado ao BD, ou seja, no momento que vai clicar no botão de localizar é que você vai efetuar as verificações, tipo, ver se o filtro X esta selecionado, preenchido e então montar o SQL de acordo com os filtros... No caso quais todos os filtros que você vai querer ter na tela ? No caso como será esta sua tela de consulta ?

[Ådriano 9]

Eu simplismente quero que liste este campo...quando você pede para mostrar este campo num grid ele mostra true ou false entende....!!!!!! então eu como ja disse tenho esta pesquisa que no caso mostra os campos como true agora quero prsquisar este campo para mostrar apenas os false.....

[marcio.theis 3]

Se não for encomodar demais e encher mais ainda a sua paciência, coloca o código da consulta que esta executando...

[Ådriano 9]

adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select *');adoquery1.SQL.Add('from tabela1');adoquery1.SQL.Add('where tabela1.dataabertura between :dtInicio and :dtFim');adoquery1.SQL.Add('and tabela1.ABERTO');adoquery1.Parameters.ParamByName('dtInicio').Value:=StrToDate(DateToStr(dtInicio.Date));adoquery1.parameters.ParamByName('dtFim').Value:=StrToDate(DateToStr(dtFim.Date));adoquery1.Open;este codigo le somente o que não fica nulo no dbcheckbox ,por isso eu quero pesquisar o que fica em branco.....

[marcio.theis 3]

Para os não aberto você precisa colocar o comando not, ficando:

 

adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select *');adoquery1.SQL.Add('from tabela1');adoquery1.SQL.Add('where tabela1.dataabertura between :dtInicio and :dtFim');adoquery1.SQL.Add('and not tabela1.ABERTO');adoquery1.Parameters.ParamByName('dtInicio').Value:=StrToDate(DateToStr(dtInicio.Date));adoquery1.parameters.ParamByName('dtFim').Value:=StrToDate(DateToStr(dtFim.Date));adoquery1.Open;

Se você adicionar no caso um TCheckBox na tela, para escolher, ficaria assim:

 

adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select *');adoquery1.SQL.Add('from tabela1');adoquery1.SQL.Add('where tabela1.dataabertura between :dtInicio and :dtFim');if CheckBox.Checked then	adoquery1.SQL.Add('and tabela1.ABERTO')else	adoquery1.SQL.Add('and not tabela1.ABERTO');adoquery1.Parameters.ParamByName('dtInicio').Value:=StrToDate(DateToStr(dtInicio.Date));adoquery1.parameters.ParamByName('dtFim').Value:=StrToDate(DateToStr(dtFim.Date));adoquery1.Open;

[Ådriano 9]

Deu certinho ....Muito Obrigado mesmo...e desculpe por torrar a sua paciência eu usei o primeiro código o que um "NOT" não faz...rsrsrsr