[delphi-br] TCrpe VCL Crystal 11 com Delphi 7
Boa Tarde a Todos. Estou usando Delphi 7 e tenho relatórios em Crystal 11, instalei a vcl do Delphi versão 11, e não consigo passar parâmetros. Pesquise na internet e os exemplos q eu achei não funcionaram... Ainda aparece a tela do prompt dos parâmetros qdo executo o componente. Abaixo segue minha tentativa... if FileExists('Y:\SGMC\www\SgmcW\Rpt\'+NomeRpt+'.rpt') then begin cCrystal.ReportName := 'Y:\SGMC\www\SgmcW\Rpt\'+NomeRpt+'.rpt'; cCrystal.Output := toWindow; for i := 0 to cCrystal.ParamFields.Count -1 do if cCrystal.ParamFields.Items[i].Name = '@CodAiip' then cCrystal.ParamFields.Items[i].CurrentValue := sparam1; cCrystal.WindowStyle.BorderStyle := bsSizeable; cCrystal.WindowStyle.SystemMenu := True; cCrystal.Refresh; cCrystal.Execute; end; O q eu achei estranho é q o meu relatorio tem apenas 1 parametro e qdo eu faço esse for ele passa 16 vezes, é como se meu relatorio tivesse 16 parametros... Todos com o mesmo nome Eu crio os relatorio com ODBC, abro o crystal adiciono a procedure q eu quero trabalhar através do ODBC e mando bala Se alguma alma caridosa puder me ajudar, ficarei imensamente grata.. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OPORTUNIDADE PROG DELPHI SAO BERNARDO - SP
CONSLADEL CONSTR LAÇOS E DET ELETRONICOS VAGA: PROGRAMADOR DELPHI 7 BANCO SQL SERVER 2000 EXPERIENCIA 1 ANO SAO BERNARDO DO CAMPO AV. SACRAMENTO 787 - RUDGE RAMOS -SAO BERNARDO CLT + VR + VT + PLANO MEDICO INTERESSADOS ENVIAR CURRICULUM EM ANEXO PARA: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um determinado processo.
Oi Anderson. Desculpa me intrometer assim. Mas eu fiquei interessada nesse seu programa q desliga o micro. Vc coloca o seu programa como serviço? Pode me mandar tb? meu email: [EMAIL PROTECTED] Brigada - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 9:36 AM Subject: Re: [delphi-br] Desligar o micro após um determinado processo. eu criei um programa q vc agenda um horário... daí sim, ele desliga o micro... se quiser, até te mando ele! sobre o processo, explique melhor: vc quer monitorar o fechamento de um certo programa???´ - Original Message - From: Sandro Ricardo To: Undisclosed-Recipient:; Sent: Wednesday, September 19, 2007 9:13 AM Subject: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2540 (20070919) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Copiar ARQUIVO para uma pasta...
Boa Tarde Ribamar é só usar a funcao CopyFile(Origem, Destino, True). Olha o help do delphi q da uma esclarecida. - Original Message - From: Ribamar Sousa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 18, 2007 4:40 PM Subject: [delphi-br] Como Copiar ARQUIVO para uma pasta... Boa Tarde pessoal, estou querendo saber como eu eu faço para copiar um arquivo que o usuario vai selecionar para uma pasta especificada por mim... Exemplo: O Usuario vai selecionar uma IMAGEM no caminho: C:\Meus Documentos\Imagens\FOTO.JPG e na hora que for salvar... quero COPIAR para uma pasta especifica: C:\Projeto\Imagens\ Espero ter sido claro. Desde já agradeço. Abraços Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Dúvidas entre DbExpress e IBX
Oi Rafael. Não se preocupe q vc nao incomoda em nada Normalmente esse erro de list index of out bound significa que vc esta referenciando algum registro que nao existe no componente. percebi que vc fecha a query e depois referencia um parametro. Verifique se nao é esta linha que esta dando pau. DM.IBQueryBairro.Params[0].Value:= -1; Outra coisa q pode ser. Vc da um open sem colocar um comando SQL... Vc usa comandos SQL fixos na propria query??? Se nao for isso me manda o código do envento create ou show do form que vc chama meu email: [EMAIL PROTECTED] Vlw - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 12, 2007 1:49 PM Subject: [delphi-br] Re: Dúvidas entre DbExpress e IBX Muito obrigado Ruth, mas optei por programar como meu chefe mesmo. Comecei a usar os componentes da palheta InterBase. Estou já com um probleminha. Tenho um form de consulta de CEP com um Botão Incluir CEP(BtnIncluir). É uma opção para o Usuário que, se caso na consulta ele não achar o CEP que precisa ele pode optar por Cadastrar o CEP, clicando no Incluir CEP(BtnIncluir). Ou seja...ao pressionar o botão, chama um outro form de Cadastro de CEP. Aí é que está o Problema...Sempre quando Clica no botão da a seguinte mensagem de erro... List index out of Bounds (0) e em seguida e tela não abre. Que erro pode ser? Tem um DataModule com um IBDataBase(IBDataBase1), um IBTransaction(IbTransaction1)e uma IbQuery(IbqueryBairro) todos esses componentes ligados corretamentes e esse é o Código do Botão: procedure TFConsCEP.BtnIncluirClick(Sender: TObject); begin DM.IBQueryBairro.Close; DM.IBQueryBairro.Params[0].Value:= -1; DM.IBQueryBairro.Open; DM.IBQueryBairro.Append; Try Application.CreateForm(TFCadCEP,FCadCEP); FCadCEP.ShowModal; Finally FCadCEP.Release; end; Onde estou errando??? Será que o erro pode ser no form de Cadastro de CEP mesmo?? Desculpe -me Incomodar!!! Grato Rafael. --- Em delphi-br@yahoogrupos.com.br, Ruth [EMAIL PROTECTED] escreveu Bom dia Rafael. Para sua 1º duvida não precisa usar 2 ClientDataSet. O que vc precisa é usar sql dinamico. se estiver checado por bairro, vc faz alguma coisa assim: select * from TbCep where Cep = edtCep.txt se for por bairro entao: select * from TbCep where Bairro = edtbairro.txt se a sua consulta tiver apenas q ordenar por cep ou bairro entao é só tirar o where e colocar assim order by Cep order by Bairro Para a sua 2º duvida. É assim: Manda quem pode obedece quem tem juizo Eu nunca trabalhei com o IBX, mas se for uma exigencia do seu chefe. Nao tem como vc nao fazer, ne!! Mas se ele nao se opoe, tem muito mais material sobre o DBExpress do que o IBX. Espero ter ajudado. Abç - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 2:07 PM Subject: [delphi-br] Dúvidas entre DbExpress e IBX Boa tarde a todos, sou novo no grupo e iniciante em Delphi. Estou desenvolvendo uma pequena aplicação com a Tecnologia DbExpress. Tenho um Form com Consulta de CEP(FConsCEP). E nesse Form Também tem as opções de critério de consulta para o Usuário escolher. Os critérios São Por CEP ou pelo BAIRRO através de dois RadioButton (RbCEP e RbBairro). O Problema é que não sei como consigo fazer funcionar a consulta através destes critérios. Não Sei se Precisa de 2 ClientDataSet, não sei tbm se precisa de 2 DataSource. Essa é a primeira Dúvida. A Segunda é que onde trabalho, meu Chefe programa usando componentes da paleta Interbase(IBX) e eu aprendi no curso usando o DbExpress e achei fácil. Qual o conselho vcs me dão?? Eu aprendo a programar como meu Chefe programa ou Continuo aprofundando na Tecnologia DbExpress? Se alguém puder me ajudar nestas 2 dúvidas, se não der, pelo menos a primeira dúvida agradecerei. Estou Usando o Banco de Dados InterBase/Firebird. Grato Rafael. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] trabalhar com data
Bom dia Fabinho. Pra mim a sua dúvida nao ficou muito clara. - Original Message - From: Fabinho To: lista ; delphi-br Sent: Wednesday, September 12, 2007 10:05 PM Subject: [delphi-br] trabalhar com data Senhores, boa noite. Tenho um campo do tipo timestamp no firebird. Preciso ser informado 5 minutos antes do valor desse campo, que é do tipo TDatetime, seja igual ao timestamp atual. Uso Delphi 7 e Firebird 2.1. grato. Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Varrer TStringList e Retornar os valores para um CheckBox
Bom dia Jorge. As vezes da um branco mesmo ne? Eu sempre uso assim: var sTemp: String; Varrival := TStringList.Create; Variavel.Add(FieldbyName('campo').AsString); Eu tentei um for mais ele me retorna toda os valores: for I := 0 to Configuracoes.Count-1 do begin sTemp:= Variavel[i]; end; freeandnil(Variavel) Espero ter ajudado - Original Message - From: Jorge Ericsson Sent: Wednesday, September 12, 2007 11:57 PM Subject: [delphi-br] Varrer TStringList e Retornar os valores para um CheckBox Olá amigos delphianos, Eu criei um campo em uma tabela do tipo Text e acrescentei o seguinte texto abaixo: [Geral] ExibirBarraFerramentas=1 ExibirBarraTarefas=1 ... [Mensagem] RodapeRecibo='' RodapeRelatorio='' Bom, eu criei uma varriavel to tipo TStringList para armazerna o valor do campo: Varrival := TStringList.Create; Variavel.Add(FieldbyName('campo').AsString); O problema é que não consigo lembrar como verificar cada linha da Lista e carregar os parametros que estão logo abaixo do procedimento entre parenteses. Eu tentei um for mais ele me retorna toda os valores: for I := 0 to Configuracoes.Count-1 do begin Showmessage(Trim(Configuracoes[I])); end; Alguém poderia me ajuda com uma idéia ? Valew Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Varrer TStringList e Retornar os valores para um CheckBox
Desconsidere meu 1º email. rsrs Vicio de copiar e colar.. ahhh Bom dia Jorge. As vezes da um branco mesmo ne? Eu sempre uso assim: var sTemp: String; Varrival := TStringList.Create; Variavel.Add(FieldbyName('campo').AsString); for I := 0 to Variavel.Count-1 do begin sTemp:= Variavel[i]; end; freeandnil(Variavel) Espero ter ajudado - Original Message - From: Jorge Ericsson Sent: Wednesday, September 12, 2007 11:57 PM Subject: [delphi-br] Varrer TStringList e Retornar os valores para um CheckBox Olá amigos delphianos, Eu criei um campo em uma tabela do tipo Text e acrescentei o seguinte texto abaixo: [Geral] ExibirBarraFerramentas=1 ExibirBarraTarefas=1 ... [Mensagem] RodapeRecibo='' RodapeRelatorio='' Bom, eu criei uma varriavel to tipo TStringList para armazerna o valor do campo: Varrival := TStringList.Create; Variavel.Add(FieldbyName('campo').AsString); O problema é que não consigo lembrar como verificar cada linha da Lista e carregar os parametros que estão logo abaixo do procedimento entre parenteses. Eu tentei um for mais ele me retorna toda os valores: for I := 0 to Configuracoes.Count-1 do begin Showmessage(Trim(Configuracoes[I])); end; Alguém poderia me ajuda com uma idéia ? Valew Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Dúvidas entre DbExpress e IBX
O que eu quis dizer com sql fixo é na query mesmo. Entao só pode estar dando pau nessa linha DM.IBQueryBairro.Params[0].Value:= -1; ela é realmente necessária? vc sabe debugar o código Rafael? Marca essa linha com F5 e roda pelo F9. qdo vc clicar no botao pra chamar o outro form vai parar onde vc marcou com F5, ai vc pode ir olhando o código em tempo de execução, linha a linha. Entao conseguira ver onde realmente é o erro. Pra isso use o F8. Espero q isso resolva - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 13, 2007 9:11 AM Subject: [delphi-br] Re: Dúvidas entre DbExpress e IBX Comandos Fixos na Própria query???Como Assim??? Na propriedade SQL da Query? Se for esse o caso, eu coloco sim. Coloco ese comando... select * from CEP where CEP = :CEP order by BAIRRO, CEP desc e o Form que eu chamo tbm não tem código no Evento OnShow nem no OnCreate. Será que seria necessário eu colocar?? Obrigado pela atenção. Rafael. --- Em delphi-br@yahoogrupos.com.br, Ruth [EMAIL PROTECTED] escreveu Oi Rafael. Não se preocupe q vc nao incomoda em nada Normalmente esse erro de list index of out bound significa que vc esta referenciando algum registro que nao existe no componente. percebi que vc fecha a query e depois referencia um parametro. Verifique se nao é esta linha que esta dando pau. DM.IBQueryBairro.Params[0].Value:= -1; Outra coisa q pode ser. Vc da um open sem colocar um comando SQL... Vc usa comandos SQL fixos na propria query??? Se nao for isso me manda o código do envento create ou show do form que vc chama meu email: [EMAIL PROTECTED] Vlw - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 12, 2007 1:49 PM Subject: [delphi-br] Re: Dúvidas entre DbExpress e IBX Muito obrigado Ruth, mas optei por programar como meu chefe mesmo. Comecei a usar os componentes da palheta InterBase. Estou já com um probleminha. Tenho um form de consulta de CEP com um Botão Incluir CEP(BtnIncluir). É uma opção para o Usuário que, se caso na consulta ele não achar o CEP que precisa ele pode optar por Cadastrar o CEP, clicando no Incluir CEP(BtnIncluir). Ou seja...ao pressionar o botão, chama um outro form de Cadastro de CEP. Aí é que está o Problema...Sempre quando Clica no botão da a seguinte mensagem de erro... List index out of Bounds (0) e em seguida e tela não abre. Que erro pode ser? Tem um DataModule com um IBDataBase(IBDataBase1), um IBTransaction(IbTransaction1)e uma IbQuery(IbqueryBairro) todos esses componentes ligados corretamentes e esse é o Código do Botão: procedure TFConsCEP.BtnIncluirClick(Sender: TObject); begin DM.IBQueryBairro.Close; DM.IBQueryBairro.Params[0].Value:= -1; DM.IBQueryBairro.Open; DM.IBQueryBairro.Append; Try Application.CreateForm(TFCadCEP,FCadCEP); FCadCEP.ShowModal; Finally FCadCEP.Release; end; Onde estou errando??? Será que o erro pode ser no form de Cadastro de CEP mesmo?? Desculpe -me Incomodar!!! Grato Rafael. --- Em delphi-br@yahoogrupos.com.br, Ruth ruth_formandos2006@ escreveu Bom dia Rafael. Para sua 1º duvida não precisa usar 2 ClientDataSet. O que vc precisa é usar sql dinamico. se estiver checado por bairro, vc faz alguma coisa assim: select * from TbCep where Cep = edtCep.txt se for por bairro entao: select * from TbCep where Bairro = edtbairro.txt se a sua consulta tiver apenas q ordenar por cep ou bairro entao é só tirar o where e colocar assim order by Cep order by Bairro Para a sua 2º duvida. É assim: Manda quem pode obedece quem tem juizo Eu nunca trabalhei com o IBX, mas se for uma exigencia do seu chefe. Nao tem como vc nao fazer, ne!! Mas se ele nao se opoe, tem muito mais material sobre o DBExpress do que o IBX. Espero ter ajudado. Abç - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 2:07 PM Subject: [delphi-br] Dúvidas entre DbExpress e IBX Boa tarde a todos, sou novo no grupo e iniciante em Delphi. Estou desenvolvendo uma pequena aplicação com a Tecnologia DbExpress. Tenho um Form com Consulta de CEP(FConsCEP). E nesse Form Também tem as opções de critério de consulta para o Usuário escolher. Os critérios São Por CEP ou pelo BAIRRO através de dois RadioButton (RbCEP e RbBairro). O Problema é que não sei como consigo fazer funcionar a consulta através destes critérios. Não Sei se Precisa de 2 ClientDataSet, não sei tbm se precisa de 2 DataSource. Essa é a primeira Dúvida. A Segunda é que onde trabalho, meu Chefe programa
Re: [delphi-br] Dúvidas entre DbExpress e IBX
Bom dia Rafael. Para sua 1º duvida não precisa usar 2 ClientDataSet. O que vc precisa é usar sql dinamico. se estiver checado por bairro, vc faz alguma coisa assim: select * from TbCep where Cep = edtCep.txt se for por bairro entao: select * from TbCep where Bairro = edtbairro.txt se a sua consulta tiver apenas q ordenar por cep ou bairro entao é só tirar o where e colocar assim order by Cep order by Bairro Para a sua 2º duvida. É assim: Manda quem pode obedece quem tem juizo Eu nunca trabalhei com o IBX, mas se for uma exigencia do seu chefe. Nao tem como vc nao fazer, ne!! Mas se ele nao se opoe, tem muito mais material sobre o DBExpress do que o IBX. Espero ter ajudado. Abç - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Tuesday, September 11, 2007 2:07 PM Subject: [delphi-br] Dúvidas entre DbExpress e IBX Boa tarde a todos, sou novo no grupo e iniciante em Delphi. Estou desenvolvendo uma pequena aplicação com a Tecnologia DbExpress. Tenho um Form com Consulta de CEP(FConsCEP). E nesse Form Também tem as opções de critério de consulta para o Usuário escolher. Os critérios São Por CEP ou pelo BAIRRO através de dois RadioButton (RbCEP e RbBairro). O Problema é que não sei como consigo fazer funcionar a consulta através destes critérios. Não Sei se Precisa de 2 ClientDataSet, não sei tbm se precisa de 2 DataSource. Essa é a primeira Dúvida. A Segunda é que onde trabalho, meu Chefe programa usando componentes da paleta Interbase(IBX) e eu aprendi no curso usando o DbExpress e achei fácil. Qual o conselho vcs me dão?? Eu aprendo a programar como meu Chefe programa ou Continuo aprofundando na Tecnologia DbExpress? Se alguém puder me ajudar nestas 2 dúvidas, se não der, pelo menos a primeira dúvida agradecerei. Estou Usando o Banco de Dados InterBase/Firebird. Grato Rafael. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClientDataset -- DatasetProvider --SqlDataset
Bom dia Luciano. Vc usa todas as tabelas de uma vez só?? Pq vc pode usar sql dinamico e usar somente 1 conjunto de componente. - Original Message - From: Luciano Topolniak To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 05, 2007 10:38 AM Subject: [delphi-br] ClientDataset -- DatasetProvider --SqlDataset Olá pessoal, bom dia. Há algum tempo eu uso o trio ClientDataset -- DatasetProvider --SqlDataset nas minhas aplicações. Todavia, para cada tabela no banco eu coloco três novos componentes no datamodule. Gostaria de saber se alguém na lista os usa, mas não colocando três componentes para cada tabela na base e sim acrescentando apenas um clientdataset e ligando ao provider que já está ligado ao sqldataset. []'s Topolniak. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Consulta sql mais de um campos
Vc precisa colocar todos os campos da tabela em uma unica coluna? e depois dar order by nessa coluna unica? - Original Message - From: Hudson To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 06, 2007 12:15 AM Subject: [delphi-br] Consulta sql mais de um campos Ola gente, estou com uma duvida, e gostaria de compartilhar aqui na lista... tenho que fazer uma consulta sql like dados % em mais de uma campo exemplo: select * from cliente where dp1 like '+ Edit1.Text +'% or dp2 like '+ Edit1.Text +'% or dp3 like '+ Edit1.Text +'% or dp4 like '+ Edit1.Text +'% or dp5 like '+ Edit1.Text +'% or dp6 like '+ Edit1.Text +'%' o problema e que apos feito isso tenho que jogar em uma coluna no dbgrid e dar order by.. alguem ja teve essa duvida, poois não tenho como separar estes campos, já tem mais ou mesno 30,000 registro na tabela... Atenciosamente Hudson Dias www.alcancedigital.com.br MSN: [EMAIL PROTECTED] Skype: hudson_bh Tele: (31)3434-6304 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBExpress X IBX
Na internet se encontra muito material do Firebird com o DbExpress. Entao presumo que se vc nao é experiente no assunto, é melhor programar com o DBExpress... - Original Message - From: Satoy Matsuoka To: delphi-br Sent: Tuesday, September 04, 2007 8:12 AM Subject: [delphi-br] DBExpress X IBX Pessoal, Com Firebird, qual o melhor ?? Grato []'s Satoy [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]