[delphi-br] DBGRID?
Bom dia! Eu criei uma Trigger no firebird, que tem uma exeption quantidade insuficiente no estoque só que essa mensagem só aparece no banco de dados, não aparece no delphi? Procurei informações eu não achei como fazer isso acontecer? Já no dbgrid quando eu faço a saida, eu posso digitar um valor maior que o estoque e ir com o tab digitados várias saidas, só que não aparece a mensagem, tudo bem que no apllyupdates ele também não vai gravar, Eu gostaria de saber se tem como ao digitar um valor no dbgrid que não está indo para o banco, mostre uma mensagem de erro quantidade insuficiente no estoque?? Se alguém puder ajudar? _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Qual a melhor forma para se fazer um fechamento de estoque
Boa tarde !! Estou construindo um sistema de estoque enão tenho experiência em programação e eu gostaria de saber qual a melhor forma para se fazer um fechamento de estoque onde mostre a quantidade anterior, a quantidade que entrou, que saiu e final. Eu não sei por onde começar se tenho que ter outra tabela,nosvos campos, criar views, select entre tabelas, se alguém puder ajudar, estou usando delphi 7, dbexpress, clientdatasets e o firebird 1.5 onde criei os autoinc, e triggers pra atualiação do estoque,data ultima saida, entrada etc, ai estáãoas estruturas das minhas tabelas se alguem puder dar uma dica agradeço muito!! Tabela Estoque_tb PK EST_CODIGO INTEGER NOT NULL, EST_PRODUTO VARCHAR(40), EST_UNIDADE VARCHAR(10), ID_TIPO INTEGER, NOME_ULT_FORNECEDOR VARCHAR(60), DATA_CADASTRO DATE, DATA_ULT_COMPRA DATE, DATA_ULT_SAIDA DATE, NOME_ULT_SOLICITANTE VARCHAR(60), VALORNUMERIC(15,2), VALOR_TOTAL_ESTOQUE NUMERIC(15,2), OBSERVACOES VARCHAR(100), EST_MINIMO INTEGER, EST_MAXIMO INTEGER, QUANTIDADE INTEGER TABELA SAIDA PK ID_SAIDAINTEGER NOT NULL, FK ID_SOLICITANTE INTEGER, DATA_SAIDA DATE, VALOR_TOTAL NUMERIC(15,2), OBSERVACOES VARCHAR(10) TABELA DETALHES_SAIDA PK,FK ID_SAIDA INTEGER NOT NULL, PK,FK EST_CODIGO INTEGER NOT NULL, QUANTIDADE INTEGER NOT NULL, VALORNUMERIC(15,2), VALOR_TOTAL NUMERIC(15,2) TABELA ENTRADA PK ID_ENTRADA INTEGER NOT NULL, FK ID_FORNECEDORINTEGER NOT NULL,DATA_ENTRADA DATE,VALOR_TOTAL NUMERIC(15,2), OBSERVACOES VARCHAR(40), DATA_NOTADATE TABELA DETALHES_ENTRADA = DETALHES_SAIDA _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como criar relátorios com Quickreport entre tabelas mast er x detail com clientdataset?
Boa tarde!! Eu fiz uma consulta desta maneira: procedure TFRM_CONSULTA_SAIDA.Button1Click(Sender: TObject); BEGIN if radiogroup1.ItemIndex = 0 thenbegin dm.CDS_CONSULTA_SAIDA.Active := False; dm.CDS_CONSULTA_SAIDA.Close; dm.CDS_CONSULTA_SAIDA.CommandText := 'select * FROM SAIDA INNER JOIN DETALHES_SAIDA on (DETALHES_SAIDA.ID_SAIDA = SAIDA.ID_SAIDA)WHERE SAIDA.ID_SAIDA =:cod'; dm.CDS_CONSULTA_SAIDA.Params.ParamByName('cod').AsString:=edit1.Text; dm.CDS_CONSULTA_SAIDA.Active := tRUE;end; if radiogroup1.ItemIndex = 1 then begin dm.CDS_CONSULTA_SAIDA.Active := False; dm.CDS_CONSULTA_SAIDA.Close; dm.CDS_CONSULTA_SAIDA.CommandText := 'select * FROM SAIDA INNER JOIN DETALHES_SAIDA on (DETALHES_SAIDA.ID_SAIDA = SAIDA.ID_SAIDA)where DATA_SAIDA=:mes'; dm.CDS_CONSULTA_SAIDA.Params.ParamByName('mes').AsDate:=strtodate(edit1.Text); dm.CDS_CONSULTA_SAIDA.Active := tRUE; end; END; O problema é que no quickreport quando tem mais de um registro no caso das consultas por data os registros se misturam no relátorio Eu coloquei os qrdbtext que são da saida na band column header e os qrdbtext da detalhes_saida na band detail! Com a consulta por código tudo tranquilo pois só busca um registro! Pesquisei e tentei colocar na subdetail e continuo misturando os regitros álguem poderia dar uma dica de como resolver este problema ou indicar um tutorial sobre quickreport? Se álguem puder ajudar agradeço! _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tem como colocar mascara em campo integer?
Bom dia!! Eu tenho um dbgrid onde faço saidas de uma NF teria como colocar uma mascara mascara no dbgrid e e também no dbedit do campo onde eu digito o código do produto , o campo é integer A masacara teria que ficar assim ex: 10-02-0020 . Estou usando o Delphi7, dbxpress, clientdatsets e banco firebird. Se alguém puder ajudar? _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida sobre Locate com clientdataset?
Bom dia!!!Tenho uma tabela mestre detalhe de saida de produtos e estou usando o Locate para trazer da tabela estoque o valor unitario dos produtos só que ele trás o valor do ultimo produto cadastrado para todos os produtos que eu digito no dbrid e repete sempre o mesmo valor do ultimo produto que eu tenho cadastrado Eu coloquei o código no evento onvalidate nos filed do sqldaset e no clientdadaset e continua a mesma coisa! Essa é procedure procedure TDM.SQL_DS_DETAL_SAIDAEST_CODIGOValidate(Sender: TField);beginDM.CDS_ESTOQUE.Locate('EST_CODIGO', DM.CDS_ESTOQUEEST_CODIGO.Value,[LoPartialKey,loCaseInsensitive]);DM.CDS_DETAL_SAIDAVALOR.Value:=DM.CDS_ESTOQUEVALOR.Value;end; Estou usndo o Delphi 7, Firebird 1.5 Se puderem judar dar uma dica agradeço?? _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Duvida sobre Locate com clientdataset?
DESCULPEM EU MESMO JÁ PERCEBI O ERRO NO LOCATE ESTAVA PARA PESQUISAR O CAMPO DIGITADO NA TABELA ESTOQUE E NÃO NA TABELA dETALHES _SAIDA.VALUE MESMO ASSIM OBRIGADO TODOS AQUI SEMPRE AJUDAM MUITO ! To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 30 Oct 2008 11:00:21 -0200Subject: [delphi-br] Duvida sobre Locate com clientdataset? Bom dia!!!Tenho uma tabela mestre detalhe de saida de produtos e estou usando o Locate para trazer da tabela estoque o valor unitario dos produtos só que ele trás o valor do ultimo produto cadastrado para todos os produtos que eu digito no dbrid e repete sempre o mesmo valor do ultimo produto que eu tenho cadastrado Eu coloquei o código no evento onvalidate nos filed do sqldaset e no clientdadaset e continua a mesma coisa!Essa é procedureprocedure TDM.SQL_DS_DETAL_SAIDAEST_CODIGOValidate(Sender: TField);beginDM.CDS_ESTOQUE.Locate('EST_CODIGO', DM.CDS_ESTOQUEEST_CODIGO.Value,[LoPartialKey,loCaseInsensitive]);DM.CDS_DETAL_SAIDAVALOR.Value:=DM.CDS_ESTOQUEVALOR.Value;end;Estou usndo o Delphi 7, Firebird 1.5Se puderem judar dar uma dica agradeço??__Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video!http://video.msn.com/?mkt=pt-br[As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas sobre consultas com ClientDataSet?
Bom dia! Pesquisei em sites e encontrei dicas sobre consultas com ClientDataSet Fiz assim CLIENTdsENTRADA.Active := False; sql_DATASET_ENTRADA.Close; sql_DATASET_ENTRADA.SQL.Clear; sql_DATASET_ENTRADA.sql.add('select * from ENTRADA'); sql_DATASET_ENTRADA.sql.add('where ID_ENTRADA =:cod'); sql_DATASET_ENTRADA.Params.ParamByName('cod').AsString:=edit1.Text; sql_DATASET_ENTRADA.open;CLIENTdsENTRADA.Active := True; Essas consultas funcionam normalmento com as IBquery só que com esses componentes dbexpress da um erro identificador clandestino 'SQL' Se álguem puder ajudar agradeço muito! _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas sobre Consultas sql parametrizadas entre duas tabelas com ClientDataSet ou SqlDataSET!
Obrigado pela dica Emersom Bertoldo valeu mesmo! Fiz as Consultas assim cds_consul_saida.Active := False; cds_consul_saida.Close; cds_consul_saida.CommandText := 'select * FROM SAIDA where ID_saida =:cod'; cds_consul_saida.Params.ParamByName('cod').AsString:=edit1.Text; cds_consul_saida.Active := tRUE; Deu certo tanto com pelo command Text do ClientDataSet ou pelo command Text do SQLDataSet. Só que essa consulta tem que ser entre duas tabelas SAIDA X DETALHES_SAIDA no commadText do SQLDataset eu tinha essa SQL que dava certo também: select DETALHES_SAIDA.EST_CODIGO, DETALHES_SAIDA.QUANTIDADE, DETALHES_SAIDA.VALOR, DETALHES_SAIDA.VALOR_TOTAL, SAIDA.ID_SAIDA, SAIDA.ID_SOLICITANTE, SAIDA.DATA_SAIDAfrom DETALHES_SAIDA,SAIDAwhere SAIDA.ID_SAIDA = DETALHES_SAIDA.ID_SAIDA A minha duvida é o seguinte como eu faço pra fazer essas consultas parametrizadas com essas instruções SQL juntas é possivel ter duas condições Where na mesma consulta SQL?? como estou colocando as consultas em botão eu não posso deixar nada no commadText do SQLDataset como eu faço pra juntar tudo isso em uma unica consulta? Se álguem puder ajudar agradeço muito!!! _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como fazer consulta sql entre tabelas Mestre x Detalhe com Clientdataset ou Sqlquery?
Bom dia ! Estou usando os compontes Dbexpress e Data Access para os cadastros nas tabelas Saida e Detalhes_saida tudo OK que no cadastro! Já para consultas? Sempre usei a paleta interbase e as IBQuery para fazer consultas eu queria saber se álguem puder dar uma dica de qual a melhor forma para se fazer consultas já que estou usando os componentes Dbexpress Tentei usar sqlquery mas na hora de ligar com o dbgrid deu este erro operação não permitida em um unidirecional dadaset Seria possivel usar o clientdataset para fazer esse tipo de consulta entre duas tabelas? Me desculpem se as minhas duvidas são simples sou novo em programação e faço porque gosto não sou profissional como a maioria aqui do grupo mas se álguem puder ajudar agradeço muito!! _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como fazer consulta sql entre tabelas Mestre x Detalhe com Clientdataset ou Sqlquery?
Obrigado pela dica valeu! To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 21 Oct 2008 12:02:36 -0300Subject: Re: [delphi-br] Como fazer consulta sql entre tabelas Mestre x Detalhe com Clientdataset ou Sqlquery? Bom dia Vicente ...Use SQLDataSet ... Ligado ao DataSetProvider Ligado ao ClientDataSet Ligado ao DataSource ... e finalmente ligando o DBGrid ao DataSourceVicente Alves escreveu: Bom dia ! Estou usando os compontes Dbexpress e Data Access para os cadastros nas tabelas Saida e Detalhes_saida tudo OK que no cadastro! Já para consultas? Sempre usei a paleta interbase e as IBQuery para fazer consultas eu queria saber se álguem puder dar uma dica de qual a melhor forma para se fazer consultas já que estou usando os componentes Dbexpress Tentei usar sqlquery mas na hora de ligar com o dbgrid deu este erro operação não permitida em um unidirecional dadaset Seria possivel usar o clientdataset para fazer esse tipo de consulta entre duas tabelas? Me desculpem se as minhas duvidas são simples sou novo em programação e faço porque gosto não sou profissional como a maioria aqui do grupo mas se álguem puder ajudar agradeço muito!! __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas] _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Um Problema com Mestre x Detalhes com dbexpress??
Bom dia! Tenho um banco de dados Firebird e estou usando os componentes Dbexpress e Data access Esta funcionando quase tudo nas tabelas mestre e detalhes o unico problema é que Mesmo eu tendo colocado no ComandText do SQLDataSet esse parametro: select * from DETALHES_SAIDAWHERE ID_DETALHES_SAIDA =:ID_SAIDA O campo da Tabela Saida que é a PK : ID_SAIDA O campo da Tabela Detalhes_saida que é a FK: ID_DETALHES_SAIDA Mesmo assim a tabela Detlhes não recebe o valor do campo?? Os Field estão em ClienDataSet Já tentei usar as propriedades MasterSource e MasterFields do ClienDataset Detalhes_saida mais da erros Nested datasets cannot have a MasterSource! Se álguem puder ajudar obrigado _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com dbgrid e trigger
Boa tarde criei uma Trigger para atualizar estoque o problema é que tanto no dbgrid quando na tabela usando o ibexpert com firebird se eu passo pelo campo quantidade e não digito nada e passo para outra linha do grid, mesmo que eu volte e digite alguma quantidade no campo na hora que eu salvo o estoque aparece zerado ou melhor vazio?? embaixo está a TRIGGER se álguem puder ajudar?? agradeço estou usando a palheta interbase para acessar o banco SET TERM ^ ; CREATE OR ALTER TRIGGER ATULIZACAO FOR DETALHES_SAIDAACTIVE AFTER INSERT POSITION 0ASBEGIN IF (INSERTING) THEN UPDATE estoque_tb SET quantidade = quantidade - NEW.quantidadade where est_codigo = NEW.EST_COD_proD;END^ SET TERM ; ^ _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com Atualização de Estoque
Bom dia! Estou tentando fazer um sistema para atualizar estoque Eu assisti uma video aula que o cara passou essa dica para incluir no evento AfterPost da Tabela procedure TDM.IBT_SAIDAAfterPost(DataSet: TDataSet);beginIBT_ESTOQUE.Open; IBT_ESTOQUE.Edit;IBT_ESTOQUEQUANTIDADE.Value := IBT_ESTOQUEQUANTIDADE.Value -IBT_DETAL_SAIDAQUANTIDADADE.Value; IBT_ESTOQUE.POST;end; O problema é que eu lanço os produtos para fazer a saida em dbgrid eles são campos da tabela IBT_DETAL_SAIDA só que só atualiza o primeiro item da saida os outros não recebem a baixa de saida. Será se código funciona para isso, sou novo em programação uso Delphi 7e Firebird 1.5 se álguém puder ajudar?? _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Preciso de uma dica de campo auto ?
Boa tarde!! Estou começando a programar em delphi e estou usando o 7 eu tenho uma tabela que eu preciso que o preenchimeto seja automatico do campo código só que não depois que eu salvar eu preciso que ele preencha ao clicar em novo registro? Eu consigo resolver isso pelo delphi ou no banco estou usando o Ibexpert e Firebird 1.5??? Já criei triggers, generators e também deixei o campo da tabela required no Delphi como false ? É uma duvida simples mas se àlguem puder dar uma dica??? Obrigado! _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Continuo com dificuldades no campo auto
O problema é o seguinte o código que precisa do prenchimento automatico é de uma nota fiscal uso a trigger para não pular nenhun número e como tem uma tabela_vendas e outra itens_da_venda eu preciso do valor atribuido antes para saber de qual nota pertencem os produto. Eu tenho um dbgrid onde lanço os produtos se eu salvar na tabela_vendas blz da certo só que eu precisaria salvar de novo para registrar os produtos por isso eu preciso que o valor seje atribuido antes já tentei as outras opções mas não deu se álguem puder ajudar novamente? _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Order by por mais de um campo?
BOA TARDE A TODOS! Tenho uma consulta que ordena desta maneira: datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA'); como faço pra ela ordenar ao mesmo tempo por HORARIO_INICIO ?? DELPHI 7 OBRIGADO!!! _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Order by por mais de um campo?
Muito obrigado!! To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 26 Mar 2008 15:09:21 -0300Subject: Re: [delphi-br] Order by por mais de um campo? datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA, HORARIO_INICIO ');Em 26/03/08, Vicente Alves [EMAIL PROTECTED] escreveu: BOA TARDE A TODOS! Tenho uma consulta que ordena desta maneira: datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA'); como faço pra ela ordenar ao mesmo tempo por HORARIO_INICIO ?? DELPHI 7 OBRIGADO!!! __ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas] -- AbsDaniel A. Bastos[As partes desta mensagem que não continham texto foram removidas] _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Consulta por Data e Nome
Boa Tarde Tenho essa consulta entre datas: datamodule3.IBQ_Agenda_Salao.Close; datamodule3.IBQ_Agenda_Salao.SQL.Clear; datamodule3.IBQ_Agenda_Salao.sql.add('select * from Agenda_Salao where DATA between :mes1 and :mes2'); datamodule3.IBQ_Agenda_Salao.Params.ParamByName('mes1').AsDate:=strtodate(edit1.Text); datamodule3.IBQ_Agenda_Salao.Params.ParamByName('mes2').AsDate:=strtodate(edit3.Text); datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA'); datamodule3.IBQ_Agenda_Salao.Open; Como faço para incluir essa consulta abaixo dentro do mesmo botão: /// datamodule3.IBQ_Agenda_Salao.SQL.Add('select * from Agenda_Salao where SALAO =:xnome'); //datamodule3.IBQ_Agenda_Salao.Params.ParamByName('xnome').AsString:=edit2.Text; / É que eu preciso trazer uma consulta para imprimir um relatorio Semanal de reuniões por Salão, Uso o delphi 7 se alguem puder ajudar ??? Agradeço _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Consulta por Data e Nome
Eu tenho 03 edit em um eu quero colocar o nome do salão (SALAO). e nos outrod dois edits para colocar as datas, A possibilidade de fazer um consulta filtrando ao mesmo tempo pelo nome e entre as datas??? To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 25 Mar 2008 15:55:07 -0300Subject: Re: [delphi-br] Consulta por Data e Nome Cara, não deu pra intender oq vc está querendo fazer...Vinicius dos SantosAnalista de Desenvolvimento JúniorMSI SOLUÇÕESAv. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - BrasilFone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br- Original Message - From: Vicente Alves To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 25, 2008 3:48 PMSubject: [delphi-br] Consulta por Data e NomeBoa Tarde Tenho essa consulta entre datas:datamodule3.IBQ_Agenda_Salao.Close; datamodule3.IBQ_Agenda_Salao.SQL.Clear; datamodule3.IBQ_Agenda_Salao.sql.add('select * from Agenda_Salao where DATA between :mes1 and :mes2'); datamodule3.IBQ_Agenda_Salao.Params.ParamByName('mes1').AsDate:=strtodate(edit1.Text); datamodule3.IBQ_Agenda_Salao.Params.ParamByName('mes2').AsDate:=strtodate(edit3.Text); datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA'); datamodule3.IBQ_Agenda_Salao.Open;Como faço para incluir essa consulta abaixo dentro do mesmo botão:/ // datamodule3.IBQ_Agenda_Salao.SQL.Add('select * from Agenda_Salao where SALAO =:xnome'); //datamodule3.IBQ_Agenda_Salao.Params.ParamByName('xnome').AsString:=edit2.Text; /É que eu preciso trazer uma consulta para imprimir um relatorio Semanal de reuniões por Salão, Uso o delphi 7 se alguem puder ajudar ???Agradeço__Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!http://www.amigosdomessenger.com.br/[As partes desta mensagem que não continham texto foram removidas][As partes desta mensagem que não continham texto foram removidas] _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Consulta por Data e Nome
Muito Obrigado valeu!! To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 25 Mar 2008 17:27:17 -0300Subject: Re: [delphi-br] Consulta por Data e Nome Vc tem que unir as condições.Simplificando ...select *from Agenda_Salaowhere SALAO =:xnome and (DATA between :mes1 and :mes2)datamodule3.IBQ_Agenda_Salao.Params.ParamByName('mes1').AsDate:=strtodate(edit1.Text);datamodule3.IBQ_Agenda_Salao.Params.ParamByName('mes2').AsDate:=strtodate(edit3.Text);datamodule3.IBQ_Agenda_Salao.Params.ParamByName('xnome').AsString:=edit2.Text;datamodule3.IBQ_Agenda_Salao.SQL.Add('order by DATA');datamodule3.IBQ_Agenda_Salao.Open;Espero ter ajudado.Att.,Paganato _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Consulta data
Bom dia tenho uma consulta assim: datamodule3.IBQuery_Ordem_Servico.Close; datamodule3.IBQuery_Ordem_Servico.SQL.Clear; datamodule3.IBQuery_Ordem_Servico.sql.add('select * from ORDEM_SERVICO where DATA=:mes'); datamodule3.IBQuery_Ordem_Servico.Params.ParamByName('mes').AsDate:=strtodate(edit1.Text); datamodule3.IBQuery_Ordem_Servico.SQL.Add('order by ID_ORDEM_SERVICO'); datamodule3.IBQuery_Ordem_Servico.open; Digito a data no edit e consulto. Como faço por exemplo pra consultar entre duas datas 10/02/2008 à 20/02/2008 usando dois edits um para cada data?? _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ [As partes desta mensagem que não continham texto foram removidas]
RE: Res: [delphi-br] Consulta data
Obrigado deu certinho valeu!! To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 27 Feb 2008 03:50:18 -0800Subject: Res: [delphi-br] Consulta data datamodule3. IBQuery_Ordem_ Servico.Close; datamodule3.IBQuery_Ordem_ Servico.SQL. Clear; datamodule3. IBQuery_Ordem_Servico.sql. add('select * from ORDEM_SERVICO where DATA between :mes1 and :mes2');datamodule3. IBQuery_Ordem_ Servico.Params. ParamByName( 'mes1').AsDate:=strtodate( edit1.Text) ; datamodule3. IBQuery_Ordem_ Servico.Params. ParamByName( 'mes2').AsDate:=strtodate( edit2.Text) ; datamodule3. IBQuery_Ordem_ Servico.SQL.Add('order by ID_ORDEM_SERVICO' ); Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!http://br.mail.yahoo.com/[As partes desta mensagem que não continham texto foram removidas] _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como Mandar varios registros para Impressão no QuickRepo rt??
Tenho varias modos de consulta em uma query (por data, mês etc) quando eu consulto aparece todas no Dbgrid mas quando eu mando imprimir no QuicKReport só vai o primeiro registro do Grid ou então o que eu dou um clique no grid. como faço para que todos os registro da consulta apareçam na visualização QuicKreport??. Uso Delphi 7 e Firebird 1.5 acessando pela paleta Interbase _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Registro em outra tabela
Boa tarde estou com uma duvida ?? tenho uma tabela_Solicitantes e uma tabela_Ordem_serviço, quando vou inserir dados puxo pelo DBLookupComboBox1 o nome_solicitantes da tabela_Solicitantes e automaticamente outros campos como endereco etc nos Dbedits Esses campos estão ligados pelo Datasource da Tabela_Solicitantes e os outros campos como (ASSUNTO E OBSERVACAO) pelo datasource da tabela_Ordem de Serviço no Delphi eU consigo visualizar os registros mas eles não estão gravados na tabela_Ordem de Serviço o que estou fazendo de errado Sou iniciante em Delphi e peço ajuda se alguem puder agradeço _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Edit recebendo conteúdo do dbgrid
Bom dia!! Como fazer para que um edit receba o conteúdo de uma celula de uma coluna especifica do dbrid depois de um duplo clique nessa celula? Alguém pode dar uma dica valeu!!! _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas sobre DBGRID
Boa tarde tenho uns arquivos em pdf e queria que eles fossem acessados com um clique em um dbgrid depois de uma consulta, estou usando o delphi 7. e banco de dados firebird 1.5 como seria muita informação para colocar no campo achei que ficaria mais facil o acesso dessa maneira. alguem pode ajudar??? _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dbgrid + PDF
Boa tarde tenho uns arquivos em pdf e queria que eles fossem acessados com um clique em um dbgrid depois de uma consulta, estou usando o delphi 7. e banco de dados firebird 1.5 como seria muita informação para colocar no campo achei que ficaria mais facil o acesso dessa maneira. alguem pode ajudar??? _ Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas com Windows Desktop Search GRÁTIS! http://desktop.msn.com.br/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Dbgrid + PDF
Obrigado pela dica deu certo!!! E desculpe a insistência em pedir ajuda e também pela forma errônea que escrevi o meu problema, espero não ter infringido nenhuma regra de conduta dentro do grupo com isso. Muito obrigado mesmo valeu! To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 14 Nov 2007 09:20:15 -0300Subject: Re: [delphi-br] Dbgrid + PDF Amigão, ao invés de ficar mandando a mesma mensagem com vários títulos diferentes, já tentou fazer uma pesquisa? Primeiro: o que vc está gravando no BD, o arquivo em si ou o caminho pra ele?Se for o caminho, basta jogar o conteúdo deste campo para alguma instrução como ShellExecute ou ShellExecuteEx, por exemplo.Se estiver gravando o arquivo, extraia o campo blob dele (provavelmente com um TBlobStream ou algo que o valha) e repita o procedimento do ShellExecute ou ShellExecuteEx, como exemplo.Sds,Ricardo.Vicente Alves [EMAIL PROTECTED] escreveu: Boa tarde tenho uns arquivos em pdf e queria que eles fossem acessados com um clique em um dbgrid depois de uma consulta, estou usando o delphi 7. e banco de dados firebird 1.5 como seria muita informação para colocar no campo achei que ficaria mais facil o acesso dessa maneira. alguem pode ajudar???__Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas com Windows Desktop Search GRÁTIS!http://desktop.msn.com.br/[As partes desta mensagem que não continham texto foram removidas]_-Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] _ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] com abrir arquivo por um registro em dbcombobox
Boa tarde tenho uns arquivos em pdf e queria que eles fossem acessados com um clique em um db combobox depois de uma consulta estou usando o delphi 7. e banco de dados firebird 1.5 como seria muita informação para colocar no campo achei que ficaria mais facil o acesso dessa maneira. alguem pode ajudar??? _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas para me conectar em rede por nome??
Boa tarde Sou Iniciante em Delphi e estou desenvolvendo um sistema no Delphi7 e esta dando tudo certo o problema é com o banco Firebird Estou enviando esse e_mail pedindo uma ajuda como eu faço pra me conectar com um banco de dados FB em uma rede sem IP me mandaram um e_mail dissendo que o FB trabalha tanto com nome, como IP, basta eu saber se minha rede tem serviço de resolução de Nome com (DNS, Wins, etc) como eu faço pra configurar isso?? Aqui no meu Trabalho existe umas 20 Maquinas em rede com Ip automatico eu estou desenvolvendo um Banco.fdb e instalei o FB como servidor em uma maquina e não consigo me conectar a ele pela maquina que instalei o firebird como cliente por isso eu queria saber como eu faço pra me conectar usando nome da maquina nenhun nome que eu coloco é aceito da erro se vcs puderem ajudar agradeço Dorival!! _ Descubra como mandar Torpedos SMS do seu Messenger para o celular dos seus amigos. http://mobile.msn.com/