[delphi-br] ajuda para usar o delphi 2010
eu estou tentando usar o delphi 2010 porem quando eu coloco um radio group no form porem quando eu tento mudar a cor da fonte do radio group mas quando eu rodo o exe a cor da fonte continua preta. Alguem faz alguma ideia do porque. -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda
Galera, bom dia Estou trabalhando com o Delphi 2010, porem o sistema aqui da empresa foi desenvolvido na versão 7. Tem um modulo do sistema que gera etiqueta com código de barra. Foi utilizado o componente QRBarcode. Como posso resolver o problema do código de barras no delphi 2010 Não encontrei esse componente Fico no aguardo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com Checklistbox
No evento OnclickCheck vc verfica se o item1 está selecionado. if CheckListBox1.Checked[1] then CheckListBox1.Checked[2] := False; Não esqueça que a array começa do Zero. []'s Em 06-08-2010 19:53, rodrigo escreveu: Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois que são mutuamente excludentes, isto é quando um for selecionado o outro tem que estar sem seleção, como posso fazer isso automático, para que quando meu usuario selecionar o item1, o item2 perca a seleção e vice-versa. Desde já agradeço [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com Checklistbox
Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois que são mutuamente excludentes, isto é quando um for selecionado o outro tem que estar sem seleção, como posso fazer isso automático, para que quando meu usuario selecionar o item1, o item2 perca a seleção e vice-versa. Desde já agradeço
[delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS
Olá pessoal, no IBX eu pegava os eventos do banco através do IBEvents da paleta Interbase. Agora estou usando dbExpress para conexão através de aplicações n-tier e não sei como pegar os eventos gerados no FireBird com Post_Event. Agradeço a ajuda.
Res: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS
Veja os eventos do ClientDataSet/SQLQuery. OnPost BeforePost AfterPost espero que seja isso. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: lvmariotti mario...@intelligentsystem.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Julho de 2010 19:12:42 Assunto: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS Olá pessoal, no IBX eu pegava os eventos do banco através do IBEvents da paleta Interbase. Agora estou usando dbExpress para conexão através de aplicações n-tier e não sei como pegar os eventos gerados no FireBird com Post_Event. Agradeço a ajuda. [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS
Oi Jean. Obrigadão, mas não é não. São eventos disparados pelo firebird quando utilizamos POST_EVENT numa trigger ou procedure. Realmente só com IBX. Grato Sds. Mariotti --- Em delphi-br@yahoogrupos.com.br, Jean Barreiros delphij...@... escreveu Veja os eventos do ClientDataSet/SQLQuery. OnPost BeforePost AfterPost espero que seja isso. === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@... e-mail: delphij...@... === De: lvmariotti mario...@... Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 21 de Julho de 2010 19:12:42 Assunto: [delphi-br] [AJUDA URGENTE] COMO CAPTURAR O POST_EVENT NO DBEXPRESS Olá pessoal, no IBX eu pegava os eventos do banco através do IBEvents da paleta Interbase. Agora estou usando dbExpress para conexão através de aplicações n-tier e não sei como pegar os eventos gerados no FireBird com Post_Event. Agradeço a ajuda. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda com migração byte e pbyte
estou tentando migrar ums componentes pro delphi 2010. a bronca e que a gente usa variaveis do tipo byte e pbyte. alquem sabe como converter isso? pois o unico erro que da é E2064 Left side cannot be assigned to nao achei nada a respeito em canto nenhum. obrigado a ajuda t+ -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda basica e fundamental??
preciso de uma dica em um sistema que estou mexendo não consigo encontrar onde estão determinado forms do projeto pelo que percebi foram salvos em diversas pastas diferentes dentro do disco C:\ e inclusas no projeto sem colocar todas na pasta do projeto. como posso fazer para descobrir pelo delphi a origem (pasta de cada unit) associada a esta Bendita aplicação??? Grata a todos que puderem ajudar estou usando o delphi 7 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda basica e fundamental??
Você pode abrir o .DPR do projeto e lá tem todas as units com suas respectivas pastas. att. Alexandre - Original Message - From: alessandra porto To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br Sent: Friday, June 11, 2010 9:33 AM Subject: [delphi-br] ajuda basica e fundamental?? preciso de uma dica em um sistema que estou mexendo não consigo encontrar onde estão determinado forms do projeto pelo que percebi foram salvos em diversas pastas diferentes dentro do disco C:\ e inclusas no projeto sem colocar todas na pasta do projeto. como posso fazer para descobrir pelo delphi a origem (pasta de cada unit) associada a esta Bendita aplicação??? Grata a todos que puderem ajudar estou usando o delphi 7 [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] ajuda basica e fundamental??
Alessandra, Abra o DPR, no comeco do arquivo tem o diretorio de cada PAS associado ao projeto. Obrigado MuriloCunha On 11/06/2010 09:33, alessandra porto wrote: preciso de uma dica em um sistema que estou mexendo não consigo encontrar onde estão determinado forms do projeto pelo que percebi foram salvos em diversas pastas diferentes dentro do disco C:\ e inclusas no projeto sem colocar todas na pasta do projeto. como posso fazer para descobrir pelo delphi a origem (pasta de cada unit) associada a esta Bendita aplicação??? Grata a todos que puderem ajudar estou usando o delphi 7 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda por favor internal error LA30 delphi 7
ja tem dias que estou trabalhando em um projeto que peguei para continuar ele e desde que comecei esse erro tem dado trabalho não consigo achar isso os fontes não estão read only e roda tudo na mesma maquina procurei algo na web mas nada resolveu quem pode dar uma dica de como almenos tentar?? grata [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda por favor internal error LA30 delphi 7
Isso é um bug do Delphi, fecha o Delphi, deleta o executável do programa que esta tentando compilar, pressiona Ctrl+Alt+Del e cancela a execução do processo Delphi32. Tenta que ficara ok. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de alessandra porto Enviada em: terça-feira, 8 de junho de 2010 09:28 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ajuda por favor internal error LA30 delphi 7 ja tem dias que estou trabalhando em um projeto que peguei para continuar ele e desde que comecei esse erro tem dado trabalho não consigo achar isso os fontes não estão read onlye roda tudo na mesma maquina procurei algo na web mas nada resolveu quem pode dar uma dica de como almenos tentar?? grata [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda Procedure Firebird
Pessoal Help, Quero fazer um resumo de resultados financeiros, hoje faço via consultas sql, mas a performance é meio prejudicada, por isto quero fazer via stored procedures. Segue código e mensagem de erro. Vai funcionar assim vou informar o mes e o ano e gerar os resultodas pegando saldo contas a receber, contas a pagar, saldo das contas correntes, e contas poupança e montar um resumo de todas as contas. SET TERM ^ ; CREATE OR ALTER PROCEDURE CONCILIACAO ( mes integer, ano integer) returns ( descricao varchar(35), entradas decimal(15,2), saidas decimal(15,2), cheques decimal(15,2), saldo decimal(15,2), resultados decimal(15,2)) as declare variable cta varchar(15); begin for select conta from contas where tipo = 'POUPANÇA' into :CTA do begin select sum(credito) - sum(debito) from poupanca where conta = :cta into :entradas; suspend; end end ^ SET TERM ; ^ This operation is not defined for system tables. unsuccessful metadata update. STORE RDB$PROCEDURES failed.
Re: [delphi-br] Ajuda com CurrencyEdit
Albuquerque, Tente o seguinte: Edit1.Value := Edit2.Value; Obrigado. MuriloCunha On 26/05/2010 15:25, Albuquerque wrote: Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os CurrencyEdits do outro Panel não são atualizados. Exemplo: No Panel1 digito 10 no Edit1. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com CurrencyEdit
Estou fazendo exatamente isso: Edit1.Value := Edit2.Value; Coloquei o Panel1/Panel2 na frente apenas para exemplificar que cada Edit está dentro de um Panel, só isso. Mas mesmo fazendo Edit1.Value := Edit2.Value o Edit1 não assume o valor do Edit2 Desde já agradeço a atenção dispensada. Att. Albuquerque De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quinta-feira, 27 de maio de 2010 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com CurrencyEdit Albuquerque, Tente o seguinte: Edit1.Value := Edit2.Value; Obrigado. MuriloCunha On 26/05/2010 15:25, Albuquerque wrote: Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os CurrencyEdits do outro Panel não são atualizados. Exemplo: No Panel1 digito 10 no Edit1. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com CurrencyEdit
Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os CurrencyEdits do outro Panel não são atualizados. Exemplo: No Panel1 digito 10 no Edit1. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com sql
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
coddescricaoorigemqtde
1111A 1
1111A 1
1111C 1
2222A 1
2222A 1
3333B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma citada
acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a
quantidade ficaria assim:
1111A 2 aqui soma as duas
quantidades da mesma origem (A) e mesmo produto (1)
1111C 1
2222A 2 aqui soma as duas
quantidades da mesma origem (A) e mesmo produto (2)
3333B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
Rafael.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com sql
select codproduto,origem, count(*) from tmov group
by codproduto,origem order by codproduto,origem
--
José Henrique (Zote)
Analista de TI
Bludata Software
2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod descricao origem qtde
1 111 A 1
1 111 A 1
1 111 C 1
2 222 A 1
2 222 A 1
3 333 B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma
citada acima, mas estou precisando fazer aparecer agrupado por cod,origem
somando a quantidade ficaria assim:
1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e
mesmo produto (1)
1 111 C 1
2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo
produto (2)
3 333 B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
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] Ajuda com sql
Olá José, deu certo, obrigado mesmo.
Atenciosamente,
Rafael
- Original Message -
From: José Henrique (Zote)
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 25, 2010 8:44 PM
Subject: Re: [delphi-br] Ajuda com sql
select codproduto,origem, count(*) from tmov group
by codproduto,origem order by codproduto,origem
--
José Henrique (Zote)
Analista de TI
Bludata Software
2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod descricao origem qtde
1 111 A 1
1 111 A 1
1 111 C 1
2 222 A 1
2 222 A 1
3 333 B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma
citada acima, mas estou precisando fazer aparecer agrupado por cod,origem
somando a quantidade ficaria assim:
1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e
mesmo produto (1)
1 111 C 1
2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo
produto (2)
3 333 B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
Rafael.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com sql
Alan,
Pelo que eu entendi é so somar as quantidade e dar um group by nos itens que
quer agrupar .. desta forma:
select codproduto,Descricao,origem, SUM(Quantidade)AS Quantidade from tmov
Group by codproduto,Descricao,origem
order by codproduto,origem
http://www.gecon.inf.br/ Gecon Cons. e Desen. de Sistemas Ltda.
Filippe Maymone
fili...@gecon.inf.br
fone: 11-22423065 / 11-41192856
Cel: 11-81663158
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Allan GabrielAM
Enviada em: terça-feira, 25 de maio de 2010 05:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com sql
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod descricao origem qtde
1 111 A 1
1 111 A 1
1 111 C 1
2 222 A 1
2 222 A 1
3 333 B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma citada
acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a
quantidade ficaria assim:
1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo
produto (1)
1 111 C 1
2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo
produto (2)
3 333 B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
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] Ajuda com sql
SELECT CAMPO1, CAMPO2, CAMPO3, SUM(CAMPO4) AS SOMA FROM TMOV
GROUP BY CAMPO1, CAMPO2, CAMPO3
ORDER BY CODPRODUTO, ORIGEM
O SUM irá somar os valores do seu campo.
o GROUP BY irá agrupar pelos demais campos...
o/
Em 25/05/2010 05:02, Allan GabrielAM escreveu:
Prezados, tenho uma tabela que tem armazenado os seguintes dados:
cod descricao origem qtde
1 111 A 1
1 111 A 1
1 111 C 1
2 222 A 1
2 222 A 1
3 333 B 1
No gerador de relatórios que uso (fortes report) ele aparece da forma
citada acima, mas estou precisando fazer aparecer agrupado por
cod,origem somando a quantidade ficaria assim:
1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e
mesmo produto (1)
1 111 C 1
2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e
mesmo produto (2)
3 333 B 1
No filtro antes de imprimir estou fazendo assim:
DatAM.ibqMov.close;
DatAM.IbqMov.sql.clear;
DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem');
DataM.ibqmov.open;
Como faço pra sair como eu preciso?
Obrigado.
Rafael.
[delphi-br] Ajuda para analisar multiplos lançamentos
Ola Pessoal, Estou precisando efetuar baixa de múltiplas contas, porem surge a dúvida se o usuario definir que esta pagando ao total valor maior que seria, sendo que esta lançado os juros pagos, como vou definir para que conta é esse juros? E se ele pagar parcial o valor como vou saber qual conta foi pago parcial. Gostaria da ajuda de vcs para me ajudarem nessa analise. grato -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda para analisar multiplos lançamentos
Olá, vc pode fazer a análise de data de vencimento, se ela for anterior a atual, então nela correrá juros. Vc pode dividir o valor de juros por quantidade de lançamentos a ser baixados em atraso e ratear por igual para cada lançamento ou dividir o valor do juro pela quantidade total de dias em atraso e depois multiplicar esse valor pela quantidade de dias atrasados para cada lançamento. pagamento parcial = valor pago valor do lançamento. Vc pode ter um campo de controle (lógico ou smallint) para marcar quando pago, assim se for pago algum lançamento com desconto (portanto valor pago valor lançamento) marca o campo PAGO e assim vc vai saber quais lançamentos estão pagos ou não. Sds, Fabiano Em 24/05/2010 15:49, Eduardo Melo escreveu: Ola Pessoal, Estou precisando efetuar baixa de múltiplas contas, porem surge a dúvida se o usuario definir que esta pagando ao total valor maior que seria, sendo que esta lançado os juros pagos, como vou definir para que conta é esse juros? E se ele pagar parcial o valor como vou saber qual conta foi pago parcial. Gostaria da ajuda de vcs para me ajudarem nessa analise. grato -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda para definir valor de projeto
Ola Pessoal, Eu vou desenvolver um sistema para uma loja de material de construção, o sistema terá cupom fiscal, cadastros, parte financeira. Gostaria de ter uma base de como cobrar por um sistema. Eu devo cobrar pelo projeto a desenvolver mais uma mensalidade? Exemplo penso em cobrar pelo sistema como um projeto que irei no cliente coletar as informações, sempre estarei em contato com o cliente para desenvolver o sistema adequado, pensei no valor de R$ 3.000,00 (três mil reais) pelo projeto e mais uma mensalidade para questão de suporte, gostaria de saber se esta errado o método de cobrar esse valor, ou cobrar só implantação e a mensalidade. Gostaria da opinião do pessoal do grupo. Desde de já agradeço. -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda para definir valor de projeto
Prezado Eduardo. O que costumamos fazer é: 1 - Analisar cuidadosamente o projeto em um todo, isso inclui, telas, relatórios, regras de negócio, recursos externos (interfaces, importações/exportações), enfim. Todo o ciclo de vida do sistema. 2 - ESTIMAR, de acordo com a expertise do time de desenvolvimento, estime quantas horas serão gastas para CADA funcionalidade relatada no item 1. 3- VALORIZAR cada hora, de acordo com o perfil do funcionário. Ex: Hora Analista/Consultor R$ Hora Desenvolvedor Senior R$ Hora Desenvolvedor Pleno R$ Hora Desenvolvedor Junior R$ 4 - Defina o cronograma (ferramentas tais como o MSProjet ou o openproj podem lhe ajudar a definir o cronograma e precificar todo o projeto. 5 - Como Grande observação. Com o preço que passou, você não vai conseguir bancar os custos iniciais principalmente com homologação do seu sistema para o PAF-ECF. Haja visto que para ter o PAF homologado (depende da UF) você vai precisar do TEF homologado, some a isso uma viagem a SP bem no centro (Avenida Paulista) para homologar o TEF (+ - uns 1500 se for tef discado) Mais uns 2000 para homologar o PAF junto a qualquer orgão homologador do Brasil. Na minha modesta opnião, você até pode cobrar o que mencionou, mas faça um rateio dos custos de homologação do teu sistema. O importante é prever tudo e colocar no escopo do projeto, para que você tenha uma boa documentação do teu sistema para entregar a outro cliente, controlar horas e prever futuras implementações. É isso aí! Certamente os colegas da lista irão ter muito mais informações sobre preço de sistemas. Fernando Nati. 2010/5/18 Eduardo Melo edume...@gmail.com Ola Pessoal, Eu vou desenvolver um sistema para uma loja de material de construção, o sistema terá cupom fiscal, cadastros, parte financeira. Gostaria de ter uma base de como cobrar por um sistema. Eu devo cobrar pelo projeto a desenvolver mais uma mensalidade? Exemplo penso em cobrar pelo sistema como um projeto que irei no cliente coletar as informações, sempre estarei em contato com o cliente para desenvolver o sistema adequado, pensei no valor de R$ 3.000,00 (três mil reais) pelo projeto e mais uma mensalidade para questão de suporte, gostaria de saber se esta errado o método de cobrar esse valor, ou cobrar só implantação e a mensalidade. Gostaria da opinião do pessoal do grupo. Desde de já agradeço. -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda Delphi 2010
Galera, boa noite. Migrei a aplicação da empresa no qual trabalho do delphi 2007 para o 2010. O programa compila e nao tem algum erro. Mas estou com uma dificuldade. O delphi esta gerando o executavel em pasta diferente no qual se encontrar a configuração. com isso ele gera na pasta onde o sistema da empresa verifica a atualização e com isso atualiza. mas nem sempre eu posso fazer isso la, pois pode ser no momento em que estou acertando algum erro. Alguem pode me ajudar? http://www.devmedia.com.br/imagens/articles/222542/erro.png [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda Delphi 2010
Verifique as configurações em Build Configuration, pela imagem esta em Base. É o que eu imagino que possa estar lhe atrapalhando. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda para definir valor de projeto
Isso é, provavelmente, a parte mais crítica do projeto. Estimar o preço baseado no tempo de desenvolvimento x custo por hora é o que quase todo mundo faz (inclusive a empresa onde trabalho), mas pressupõe que o cliente sabe exatamente o que ele precisa antes de o projeto começar e que a análise e o projeto serão feitos sem falhas. Nessa abordagem, muitas vezes se acrescenta um percentual de gordura sobre o preço final para cobrir eventuais falhas na estimativa. Às vezes funciona, às vezes não. A margem de acerto é maior em projetos muito pequenos (de alguns dias a 1 ou 2 semanas). O que tenho insistido para conseguir implantar onde trabalho é o Contrato de escopo variável (ou negociável). Talvez seja de ajuda pra você ler sobre o assunto. [ ]'s Dirlei Dionísio http://MaisQueBomCodigo.blogspot.com Em Ter, 2010-05-18 às 14:06 -0300, Eduardo Melo escreveu: Ola Pessoal, Eu vou desenvolver um sistema para uma loja de material de construção, o sistema terá cupom fiscal, cadastros, parte financeira. Gostaria de ter uma base de como cobrar por um sistema. Eu devo cobrar pelo projeto a desenvolver mais uma mensalidade? Exemplo penso em cobrar pelo sistema como um projeto que irei no cliente coletar as informações, sempre estarei em contato com o cliente para desenvolver o sistema adequado, pensei no valor de R$ 3.000,00 (três mil reais) pelo projeto e mais uma mensalidade para questão de suporte, gostaria de saber se esta errado o método de cobrar esse valor, ou cobrar só implantação e a mensalidade. Gostaria da opinião do pessoal do grupo. Desde de já agradeço. -- Atenciosamente Eduardo Melo Bacharelado em Sistemas de Informação
Re: [delphi-br] ajuda com DBGRID
da uma olhada ai... http://scriptbrasil.com.br/forum/index.php?showtopic=103586pid=433423st=0#entry433423 é uma função pra copiar os dados do grid... mas vc pode ver como funciona a rotina pra percorrer teu dataset... o/ Em 11/05/2010 11:29, Richardson Freddo escreveu: Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com mailto:freddodpvat%40hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ajuda com DBGRID
Fala Richardson... Blz? Cara faço isso na minha aplicação é fácil, vc precisa de um ClientDataSet para te servir como Repositório, pois a cada Boleto selecionado vc popula esse ClientDataSet com os dados que o arquivo de remessa necessita, com isso no final vc tem todos os boletos selecionados guardados no Client, depois disso é só fazer um laço no Client e ir desenhando o arquivo de remessa (Vc comentou que já está pronto pronta a rotina de remessa). Espero ter ajudado. Abraços De: Richardson Freddo mjrkon...@yahoo.com.br Para: Grupo delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 11 de Maio de 2010 11:29:55 Assunto: [delphi-br] ajuda com DBGRID Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente. . (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodpvat@ hotmail.com Skype: r.freddo Rondonópolis/ MT [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] ajuda com DBGRID
Tenta esse codigo para pegar os registros selecionados Joao DBGrid1.SelectedRows.CurrentRowSelected := true; qdettit.DisableControls; for i := 0 to DBGrid1.SelectedRows.Count-1 do begin qdettit.BookMark := DBGrid1.SelectedRows.Items[i]; end; - Original Message - From: Richardson Freddo To: Grupo Sent: Tuesday, May 11, 2010 11:29 AM Subject: [delphi-br] ajuda com DBGRID Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [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] ajuda com DBGRID
Exemplo de como faer uma varredura nos registros selecionados:
procedure TForm1.btnDoSumClick(Sender: TObject);
var
i: Integer;
sum : Single;
begin
if DBGrid1.SelectedRows.Count 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
//é aqui que vc processa o registro
GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
sum:= sum + FieldByName('Size').AsFloat;
end;
end;
//exibe num label o resultado da soma
edSizeSum.Text := FloatToStr(sum);
end
end;
Sds,
Fabiano
11/05/2010 11:29, Richardson Freddo escreveu:
Pessoal.
Tenho um DBGRID na tela com registros.. então o usuário vai selecionar
alguns registros aleatoriamente..
(MultiSectc) ..
Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e
trabalhar com eles..
tipo assim
sao boletos emitidos.. e agora, quero gerar os arquivos de remessa
desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer
saber como fazer para ele gerar o arquivo de remessa para os boletos
que ele selecionou no dbgrid.. entenderam?
Valeww
Richardson Marcelo Freddo.
msn: freddodp...@hotmail.com mailto:freddodpvat%40hotmail.com
Skype: r.freddo
Rondonópolis/MT
[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] ajuda com DBGRID
noDbgrid use a propriedade rowselectall ou algo precido --- Em ter, 11/5/10, Richardson Freddo mjrkon...@yahoo.com.br escreveu: De: Richardson Freddo mjrkon...@yahoo.com.br Assunto: [delphi-br] ajuda com DBGRID Para: Grupo delphi-br@yahoogrupos.com.br Data: Terça-feira, 11 de Maio de 2010, 11:29 Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente. . (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodpvat@ hotmail.com Skype: r.freddo Rondonópolis/ MT [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] Ajuda p/ TCC
Olá, Não sei se é inovador ou se já existe, mas algo tipo auto atendimento pela internet. Não estou falando de se consultar ou fazer uma cirurgia pela internet. Algo do tipo a pessoa se cadastra no site, vê relação de médicos por especialidade, quais os dias/horários que eles atendem, solicita marcar uma consulta, se for marcada a consulta emite uma boleta para pagamento ou depósito em conta. Algum tipo de acompanhamento... Sei lá, não entendo nada de hospital, mas fica a sugestão. :o) Juan Mon, 10 May 2010 02:30:23 -, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião.
[delphi-br] ajuda com DBGRID
Pessoal. Tenho um DBGRID na tela com registros.. então o usuário vai selecionar alguns registros aleatoriamente.. (MultiSectc) .. Agora é o seguinte.. eu quero pegar esses registros q ele selecionou e trabalhar com eles.. tipo assim sao boletos emitidos.. e agora, quero gerar os arquivos de remessa desses boletos.. ja tenho a rotina para gerar o arquivo .. so quer saber como fazer para ele gerar o arquivo de remessa para os boletos que ele selecionou no dbgrid.. entenderam? Valeww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda p/ TCC
Voce precisa conhecer regulamentação da ANS Marcos Silva Belem-PA De: Juan J V Garcia usa...@usg.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 10 de Maio de 2010 23:49:12 Assunto: Re: [delphi-br] Ajuda p/ TCC Olá, Não sei se é inovador ou se já existe, mas algo tipo auto atendimento pela internet. Não estou falando de se consultar ou fazer uma cirurgia pela internet. Algo do tipo a pessoa se cadastra no site, vê relação de médicos por especialidade, quais os dias/horários que eles atendem, solicita marcar uma consulta, se for marcada a consulta emite uma boleta para pagamento ou depósito em conta. Algum tipo de acompanhamento. .. Sei lá, não entendo nada de hospital, mas fica a sugestão. :o) Juan Mon, 10 May 2010 02:30:23 -, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciam entos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda p/ TCC
Bom dia, Sou desenvolvedor, e tenho um projeto pronto, trabalhei como analista de negócios de um sistema de e-commerce para atendimento de saúde ao servidor púbico do estado da minha região. Você ficar antenado para o conteúdo programático do seu curso para não citar tecnologias as quais nao foram citadas. A gestão de atendimento em saúde se faz desde o credenciamento, atendimento e validação da identidade do segurado. Então começa a outra fase que é o faturamento dos serviços. Para atendimentos na rede credenciada, você tem que levar em conta as auditorias que devem ser feitas nos credenciados para então prover os pagamentos. Se os serviços se estenderem a regiões que não sejam as próximas ao hospital escolha a tecnologia que atenderá o segurado nessas unidades Ambulatorio Virtual, este foi o meu TCC, pois na minha região existem muitos rios dificultando o pronto atendimento, tornando viável este tipo de virtualização de atendimento, com pessoas treinadas e capacitadas a efetuarem o serviço. E por aí vai... Marcos Silva Belem-PA (91)81757652 De: ersudoski ersudo...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 9 de Maio de 2010 23:30:23 Assunto: [delphi-br] Ajuda p/ TCC Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciam entos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda p/ TCC
vc poderia implementar a parte de RH, fazer levantamentos sobre as doenças que os pacientes estao mais pegando por periodo, levantamento dos medicamentos mais usados. Em 9 de maio de 2010 23:30, ersudoski ersudo...@yahoo.com.br escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. -- Nazareno Neto #507685 Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda Delphi 2010
Galera bom dia Estou migrando um sistema desenvolvido em Delphi 2007 para delphi 2010. Acertei todos os erros e o sistema esta compilando sem nenhum problema. Mas estou com uma dificuldade no quisito input Helper ou seja no 2010 nao esta funcionando no sistema que migrei. posso adicionar qualquer componente que essa função nao abre no codigo. agora se iniciar uma nova aplicação, funciona. Ja quebrei a cabeça e nao consigo identificar o problema. E essa ferramenta é de grande ajuda quando temos alguma dificuldade no codigo. Alguem sabe como me ajudar?
Re: [delphi-br] Ajuda p/ TCC
Olá Ersudoski, Essa questão de inovação realmente conta muito. Mais de 10 anos atrás, quando fiz o meu TCC do curso técnico, fui convidado para expor o meu projeto numa feira das melhores escolas técnicas aqui do RJ. O meu projeto era, tecnicamente, o melhor da feira, mas foi reconhecido como tal porque não era suficientemente inovador. Um outro projeto ridículo, mas relativamente inovador ganhou do meu projeto e foi eleito o melhor do RJ. Por isso, já que seu projeto é para um TCC, te recomendo deixar de lado qualquer coisa que se encontre facilmente no mercado. Relacionado a hospitais, penso que implementar um prontuário eletrônico seja uma ótima alternativa. Vai te agregar uma excelente experiência também. Se te interessar ler sobre o assunto: http://pt.wikipedia.org/wiki/Prontuário_eletrônico []'s Dirlei. Em Seg, 2010-05-10 às 02:30 +, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião.
Re: [delphi-br] Ajuda p/ TCC
Pensa na seguinte maneira, um software de cadastro e muito simples, procure visualizar e tentar pensar de que forma isso poderá ajudar? Que resultados irão refeletir de positivo? o que o hospital tem a ganhar com isso? tente pensar em segurança, acesso a dados a qualquer lugar do mundo. Imagino que uma boa medida tambem pensar em soluções web, nao necessariamente uma pagina mais sim como sua aplicação pode se comunicar com a internet, ainda pode-se incluir criptografia um otimo tema pra tcc, ou seja temas que podem ser utilizados junto com a aplicação. -- Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda p/ TCC
Ja pensou em uma ferramenta OLAP? talvez focando não apenas o hospital em si, mas ferramenta para prover informação processado e de valor real para campanhas preventivas Em 09/05/2010 23:30, ersudoski escreveu: Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda p/ TCC
Boa noite, estou no ultimo ano de Sistemas de INformação, e estou pensando em desenvolver como tcc um sistema em delphi p/ o hospital da minha cidade, mas p/ ser aprovado pelos professores eu preciso desenvolver algo utilizando uma técnica nova ou algo inovador, além de simples controles/gerenciamentos de pacientes e estoque, etc. Alguém teria alguma idéia p/ tal? Agradeço mto quem puder dar opinião.
[delphi-br] Ajuda Zeos 7 delphi 2010
Bom dia galera. Estou migrando meu sistema desenvolvido no delphi 2007 para o delphi 2010. Instalei todos os componentes e esbarrei no primeiro problema. Esta dando erro de sintaxe quando utilizo TZquery do delphi quando trabalho com paramentros. Esse erro acontece em qualquer operação. Ja tive pesquisando e vi algumas pessoas com o mesmo problema mas sem soluções. Alguem pode me ajudar?
Re: [delphi-br] Ajuda Zeos 7 delphi 2010
Voce atualizou o Zeos para a ultima versão dele? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: felipearaujolopes To: delphi-br@yahoogrupos.com.br Sent: Friday, April 30, 2010 8:51 AM Subject: [delphi-br] Ajuda Zeos 7 delphi 2010 Bom dia galera. Estou migrando meu sistema desenvolvido no delphi 2007 para o delphi 2010. Instalei todos os componentes e esbarrei no primeiro problema. Esta dando erro de sintaxe quando utilizo TZquery do delphi quando trabalho com paramentros. Esse erro acontece em qualquer operação. Ja tive pesquisando e vi algumas pessoas com o mesmo problema mas sem soluções. Alguem pode me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda delphi 2010
Uma sugestão:
Como o Delphi 2010 é unicode, Caso esteja utilizando a versão 6.X.X do
Zeos, Sugiro substituir pela mais recente, a 7.0 que já provê o suporte
ao padrão unicode. A versão 7.0 pode ser baixada no svn do zeos em
svn://zeos.firmos.at/zeos/trunk
Espero ter ajudado.
--
[]’s.
Evandro Siqueira
Programador de Sistemas
L’essentiel Lingerie
(79) 3254-5511 Ramal 218
skype: evandro.lessentiel
Felipe Lopes escreveu:
Galera, boa noite
Estou migrando minha aplicação desenvolvida em Delphi 2007 para 2010 e já
esbarrei no primeiro problema.
Tenho uma tzquery(zeos) com a seguinte SQL: select * from tblusuario where
login=:login and senha=:senha
Jogos os parâmetros da seguite forma:
with qryusuario do
begin
Close;
ParamByName('login').AsString := edtlogin.Text;
ParamByName('senha').AsString := edtsenha.Text;
Open;
Isso este me retornando a seguinte mensagem: First chance exception at
$75D49617. Exception class EZSQLException with message 'SQL Error: You have
an error in your SQL syntax; check the manual that corresponds to your MySQL
server version for the right syntax to use near 'and senha=' at line 1'.
Process uniquesystems2009.exe (4424)
Esse procedimento funciona perfeitamente no Delphi 2007.
Alguem pode me ajudar?
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] ajuda delphi 2010
Galera, boa noite
Estou migrando minha aplicação desenvolvida em Delphi 2007 para 2010 e já
esbarrei no primeiro problema.
Tenho uma tzquery(zeos) com a seguinte SQL: select * from tblusuario where
login=:login and senha=:senha
Jogos os parâmetros da seguite forma:
with qryusuario do
begin
Close;
ParamByName('login').AsString := edtlogin.Text;
ParamByName('senha').AsString := edtsenha.Text;
Open;
Isso este me retornando a seguinte mensagem: First chance exception at
$75D49617. Exception class EZSQLException with message 'SQL Error: You have
an error in your SQL syntax; check the manual that corresponds to your MySQL
server version for the right syntax to use near 'and senha=' at line 1'.
Process uniquesystems2009.exe (4424)
Esse procedimento funciona perfeitamente no Delphi 2007.
Alguem pode me ajudar?
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda quanto a Form
ops... corrigindo... é fsStayOnTop... hehehe Em 26/04/2010 18:16, Roni Rodrigo escreveu: Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show? Em 26/04/2010 10:04, anckerdj escreveu: Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [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] Ajuda quanto a Form
Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo
Re: [delphi-br] Ajuda quanto a Form
Tentou alterar a propriedade FormStyle para fsAlTop e exibir só com o Show? Em 26/04/2010 10:04, anckerdj escreveu: Leandro Augusto Soares wrote: Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. A intenção é atualizar o TEdit a medida que vai sendo digitado no teclado virtual. Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda quanto a Form
Olá. uma idéia é você colocar o que o usuário digita numa variável de form que fica acima e ler essa variável a partir de um método. No form que tem o TEdit vc atualiza o TEdit através desse método, após o retorno do ShowModal. Acho que deve funcionar. []s Leandro Em 23 de abril de 2010 15:44, anckerdj ancke...@yahoo.com.br escreveu: Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ajuda sql uso do or ?
Desse jeito não funciona... todos os registros serão devolvidos (a menos da questão dos valores nulos, como já disseram aqui). Reparei que assim vc devolverá todos os registros que com SEXO diferente de F ou diferente de M. Assim, um registro que seja igual a F é diferente de M, atende à restrição where e será devolvido, situação que não é a desejada. O corretor é usar a cláusula AND, não usar OR. Se o campo puder ser nulo há de se ter um cuidado especial com esses valores também. []s Leandro Em 23 de abril de 2010 13:45, Luciano Danilo Machado lucianodan...@yahoo.com.br escreveu: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M' tem que colocar o campo para 'M' . [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda sql uso do or ?
Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda sql uso do or ?
Alessandra tente assim
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO NOT IN ('F','M')
essa opção tbm funciona
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M'
Em 22 de abril de 2010 22:23, alessandra porto
alessandraport...@yahoo.com.br escreveu:
Peguei um banco velho de cadastros de clientes
que possui uma serie de erros e preciso
pesquisar todos os clientes que estão cadastrados
com SEXO diferente do padrão F ou M
Algo como:
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M'
mas assim não funcionou
como faço para mostrar os registros que sejam diferentes
de F ou M no firebird
Grata a todos que colaborarem
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RE: [delphi-br] ajuda sql uso do or ?
WHERE (SEXO 'F') and (SEXO 'M') -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]on Behalf Of alessandra porto Sent: 23 April 2010 02:24 To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br Subject: [delphi-br] ajuda sql uso do or ? Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem *** This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received. Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles. This footnote also confirms that, unless otherwise stated, this email message has been swept by Sophos Anti-virus for the presence of computer viruses. ** Please consider the environment before printing this email. ** ***
Re: [delphi-br] ajuda sql uso do or ?
Alessandra,
Tente assim:
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F','M')
Sucesso,
Moacir
Em 22/04/2010 22:23, alessandra porto escreveu:
Peguei um banco velho de cadastros de clientes
que possui uma serie de erros e preciso
pesquisar todos os clientes que estão cadastrados
com SEXO diferente do padrão F ou M
Algo como:
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M'
mas assim não funcionou
como faço para mostrar os registros que sejam diferentes
de F ou M no firebird
Grata a todos que colaborarem
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] ajuda sql uso do or ?
Acho que você pode utilizar o not in da sequinte forma.
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F', 'M');
[]'s
To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
lista-del...@yahoogrupos.com.br
From: alessandraport...@yahoo.com.br
Date: Thu, 22 Apr 2010 18:23:32 -0700
Subject: [delphi-br] ajuda sql uso do or ?
Peguei um banco velho de cadastros de clientes
que possui uma serie de erros e preciso
pesquisar todos os clientes que estão cadastrados
com SEXO diferente do padrão F ou M
Algo como:
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M'
mas assim não funcionou
como faço para mostrar os registros que sejam diferentes
de F ou M no firebird
Grata a todos que colaborarem
[As partes desta mensagem que não continham texto foram removidas]
_
O seu navegador também te ajuda a ficar longe de vírus. Leia mais sobre
segurança.
http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] ajuda sql uso do or ?
SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or SEXO 'M' tem que colocar o campo para 'M' Em 22/4/2010 22:23, alessandra porto escreveu: Peguei um banco velho de cadastros de clientes que possui uma serie de erros e preciso pesquisar todos os clientes que estão cadastrados com SEXO diferente do padrão F ou M Algo como: SELECT NOME,SEXO FROM CLIENTE WHERE SEXO 'F' or 'M' mas assim não funcionou como faço para mostrar os registros que sejam diferentes de F ou M no firebird Grata a todos que colaborarem [As partes desta mensagem que não continham texto foram removidas] -- Luciano Danilo Machado WLE Tecnologia em automação - Desenvolvedor Twitter: @DevLuciano [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda quanto a Form
Lista, Preciso da ajuda/idéia de Vcs. Estou desenvolvendo uma aplicação touch e fiz 2 formulários que possuem 1 teclado alfa e outro numérico respectivamente. Quando em outro form a pessoa toca o TEdit, tenho que mostrar o form (alfa ou numérico) acima e preencher o TEdit com os dados. Se eu usar ShowModal no form do teclado, não vou conseguir atualizar o TEdit... se não usar, a pessoa alterna entre os form's... Alguém consegue pensar numa solução que eu consiga deixar o form do teclado por cima do outro e atualizar o TEdit e apenas fechar o form do teclado quando o usuário apertar avançar ou cancelar? []'s marcelo
[delphi-br] Ajuda com Rave
Olá Pessoal, Tenho um relatório que tem 3 colunas no Rave mas ele só gera as colunas Da Esquerda Pra Direita e eu quero De cima para Baixo. Ele está gerando Assim: 1 - 2 - 3 4 - 5 - 6 E eu quero que faça assim: 1 - 3 - 5 2 - 4 - 6 Deu para entender? Não estou achando isso no Rave. Valeu DarkZad [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com Contas a Pagar e a Receber
Olá pessoal, Como todo bom sistema estou criando um módulo financeiro no meu. Mas não tenho muita experiência. Tenho uma tabela chamada CONTAS nela tem os campos: Código da Conta, Código do Banco, Conta corrente, Saldo e Data do Saldo E tenho as tabelas PAGAR e RECEBER relacionado com a tabela CONTAS. Minha dúvida é a seguinte: No relatório de Conta Corrente tenho que trazer o saldo anterior da conta. Neste momento eu tenho que calcular todo o movimento ou a cada movimento que faço tenho que gravar a movimentação diária em outra tabela para trazer o saldo anterior? Se eu tiver que gravar a cada movimento sempre que tiver alguma alteração na tabela PAGAR/RECEBER o sistema vai ter que fazer recalculo. Gostaria de saber se existe uma maneira mais fácil. Desde já DarkZad __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Ajuda Arquivo TXT
Galera boa noite Estou com uma dificuldade na seguinte função var i: Integer; txt : TextFile; f : TextFile; conteudo : string; begin Assignfile(txt,'C:\projetos\delphi\cascatai\Sistema Novo\exportacao nota eletronica\NE16.txt'); Reset(txt); AssignFile(f,'C:\projetos\delphi\cascatai\Sistema Novo\exportacao nota eletronica\NE1601.txt'); //CRIO O ARQUIVO Rewrite(f); //abre o arquivo para escrita while not Eof(txt) do begin readln(txt,conteudo); for i := 0 to Length(conteudo) do case conteudo[i] of 'á', 'à', 'â', 'ä', 'ã': conteudo[i] := 'a'; 'Á', 'À', 'Â', 'Ä', 'Ã': conteudo[i] := 'A'; 'é', 'è', 'ê', 'ë': conteudo[i] := 'e'; 'É', 'È', 'Ê', 'Ë': conteudo[i] := 'E'; 'í', 'ì', 'î', 'ï': conteudo[i] := 'i'; 'Í', 'Ì', 'Î', 'Ï': conteudo[i] := 'I'; 'ó', 'ò', 'ô', 'ö', 'õ': conteudo[i] := 'o'; 'Ó', 'Ò', 'Ô', 'Ö', 'Õ': conteudo[i] := 'O'; 'ú', 'ù', 'û', 'ü': conteudo[i] := 'u'; 'Ú', 'Ù', 'Û', 'Ü': conteudo[i] := 'U'; 'ç': conteudo[i] := 'c'; 'Ç': conteudo[i] := 'C'; ',': conteudo[i] := '.'; end; Writeln(f,conteudo); end; Closefile(f); //fecha o handle de arquivo end; Estou tendo erro de access violation. O estranho que o erro so ocorre no final da correção do arquivo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda para um sql interessante
tenho tabela: TBPRODUTO id_produto id_grupo produto peso TBGRUPO id_grupo grupo preciso criar um sql que toda vez que for feito um pedido seja somado o peso do produto conforme o grupo que ele pertence id_grupo 1 = GELO id_grupo 2 = SORVETE id_grupo 3 = SALADA estou usando o firebird agradeço muito aos amigos que derem uma ideia de como fazer isso Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda para um sql interessante
select sum(peso) from TBPRODUTO p, TBGRUPO g where p.id_grupo = g.id_grupo /* and id_produto = 999 */ Acho que isso resolve. Se é que entendi direito, pois voce nao descreveu o peso de quais produtos quer somar, nem o relacionamento de produtos com pedidos. Abraco -- José Henrique (Zote) Analista de TI Bludata Software 2010/3/25 alessandra porto alessandraport...@yahoo.com.br tenho tabela: TBPRODUTO id_produto id_grupo produto peso TBGRUPO id_grupo grupo preciso criar um sql que toda vez que for feito um pedido seja somado o peso do produto conforme o grupo que ele pertence id_grupo 1 = GELO id_grupo 2 = SORVETE id_grupo 3 = SALADA estou usando o firebird agradeço muito aos amigos que derem uma ideia de como fazer isso __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Ajuda com Package
Cara..
eu tambem trabalho com pacotes, e realmente é muito bom.
Para resolver esse problema, eu criei um pacote onde tenho varias funçoes, por
exemplo validar CPF e CNPJ entre outras, declarar variaveis publicas, enfim, na
minha aplicação principal e nos outros pacotes tenho só o basico mesmo (Gravar,
excluir, Novo, etc..).
Para poder usar esse pacote q tem todas as variaveis e funçoes, eu declaro esse
paconte na Uses dos outros pacotes ou na aplicação principal.. veja o codigo
abaixo:
unit fLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCore, dxButton, StdCtrls, ComCtrls, ExtCtrls, MEU PACOTE;
type
TfLogin = class(TForm)
dxButton1: TdxButton;
dxButton2: TdxButton;
dslogin: TEdit;
dssenha: TEdit;
Entendeu?
Richardson Marcelo Freddo.
msn: freddodp...@hotmail.com
Skype: r.freddo
Rondonópolis/MT
De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Fevereiro de 2010 12:29:30
Assunto: [delphi-br] Ajuda com Package
Olá pessoal,
Para modularizar minha aplicação resolvi utilizar Packges e que é uma
opção muito boa.
Mas estou tendo um problema:
Não consigo enviar o valor deu uma variável publica da minha Aplicação
principal para o Pacote.
Meu pacote é carregado dinamicamente através do código mais abaixo
Na minha aplicação principal tenho uma váriavel declarada com pública
E quando tento acessar essa várivel ela fala o valor dela é INACESSÍVEL.
O que pode está acontecendo?
Desde já Agradeço
Marcelo Pomarolli
Código para carregar o pacote dinamicamente.
procedure TFPrincipal. ac_PagarExecute( Sender: TObject);
var
H : HMODULE;
PForm : TFormClass;
Form : TForm;
begin
if FileExists(' FINANCEIRO. bpl') then
begin
H := LoadPackage( 'FINANCEIRO. bpl');
if H 0 then
begin
PForm := TFormClass(GetClass ('TfFiltro_ PAGAR'));
if Assigned(PForm) then
begin
Form := PForm.Create( nil);
Form.ShowModal;
FreeAndNil(Form) ;
UnloadPackage( H);
end
else
Application. MessageBox( 'Error ao carregar o MODULO
FINANCEIRO!' ,'Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
end
else
Application. MessageBox( 'Para usar este recurso você deve adquirir o
Modulo FINANCEIRO.' +#13+
'Entre em contato com o seu Revendedor para
maiores detalhes.',' Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1) ;
end;
_ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta. messenger. yahoo.com/
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda com CDS e memo
Colegas, Tenho a seguinte questão: tenho um CDS com 02 campos tipo String: CID e STATUS, com a seguinte estruturação: CID Status F20.0 Atual F43.2 Pregresso I10 Atual G40 Hipotese Z35 Atual Gostaria de fazer uma verificação no CDS e colocar estes dados dentro de um memo com a seguinte organização: Diagnostico atual F20.0 I10 Z35 Diagnostico Pregresso F43.2 Diagnostico Hipotese F43.2 Se alguém tiver alguma idéia de como fazer, agradeço. Luis Henrique [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ajuda em sql
Outra solução provavel voce poderia ter 3 campos na tabela de cientes, onde ira gravar o numero da ultima compra, data e valor (exemplos). Depois vc apenas seleciona os clientes que deseja. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Miguel Franco Galego Enviada em: sábado, 20 de fevereiro de 2010 14:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ajuda em sql Pode ser feito o select dessa maneira: select a.id_cliente, a.cliente , ( select max(b.dta_compra) from compras b where b.id_cliente = a.id_cliente ) as dta_compra from cliente a / Dessa forma lista todos clientes e suas respectiva data de ultima compra, caso o cliente nunca tenha comprado o campo será nulo, Espero ter ajudado, Em 20 de fevereiro de 2010 07:05, alessandra porto alessandraport...@yahoo.com.br escreveu: esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- M I G U E LF R A N C OG A L E G O INFORMARK / VIRTUALAGE Analista de Sistema mig...@infomark.com.br / gale...@gmail.com Av. Paraíba, 1959, Fundos / Rua José Rodrigues Brianez, 111-A Cianorte - PR / 87.200-000 (44) 3619-4555 ramal 4727 (44) 9985-1449 celular (44) 3019-1449 residencial [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Ajuda com código....
Bom dia a todos... Estou comum problema em um script, não sei se estou fazendo certo, por isso peço a ajuda de vcs. Tenho o seguinte código: function TfrmQILaser.udf_VerificaSentido( tlin : integer ) : integer; var i : integer; kmInicial, kmFinal : double; colI, colF : String; begin Excel.WorkBooks[1].Sheets['5406'].select; kmInicial := Excel.WorkBooks[1].Sheets['5406'].cells[1,2].value; kmFinal := Excel.WorkBooks[1].Sheets['5406'].cells[1,3].value; colI := 'B2'; colF := 'F' + intToStr(tlin - 9); if (kmInicial kmFinal) then begin Excel.WorkBooks[1].Sheets['5406'].range[ColI +':'+ ColF].select; ///O problema é nesta parte Excel.WorkBooks[1].Sheets['5406'].range[ColI +':'+ ColF].xlDescending; end ; end; Depois de selecionar gostaria de deixar na ordem decrescente, ou crecente, como referencia apenas a coluna B.
[delphi-br] ajuda Sql parte 2
Amigo Fabio Schunig sua dica foi a que mais facil resolvel a questão select cli.id_cliente, max(cli.cliente) cliente, max(cmp.dta_ compra) dta_compra, count(cmp.id_ compras) contador from cliente cli left join compras cmp on (cmp.id_cliente = cli.id_cliente) group by cli.id_cliente Deu certinho agora o ''pro'' é que eu preciso por exemplo filtrar esses clientes por sexo como eu faria isso usando essa ideia Ja tentei de varias formas alterar mas dá erro por causa do group by como aproveitar essa formula que deu certo e alterar ela para conseguir fazer isso ? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda em sql
esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ajuda em sql
Pode ser feito o select dessa maneira: select a.id_cliente, a.cliente , ( select max(b.dta_compra) from compras b where b.id_cliente = a.id_cliente ) as dta_compra from cliente a / Dessa forma lista todos clientes e suas respectiva data de ultima compra, caso o cliente nunca tenha comprado o campo será nulo, Espero ter ajudado, Em 20 de fevereiro de 2010 07:05, alessandra porto alessandraport...@yahoo.com.br escreveu: esta é uma parte de uma pesquisa grande onde estou meio com duvidas preciso de uma ajudinha é o seguinte tenho 2 tabelas compras cliente id_compras id_cliente id_cliente cliente dta_compra preciso selecionar somente a ultima compra (dta_compra) dos clientes que possuem compras. Pode existir cliente que nunca comprou e deve retornar na pesquisa que ele possui (zero) compras. Portanto possui 70.000 clientes e 30.000 compras sendo que parte destes clientes comprou mais de uma vez e só preciso que retorne na pesquisa a ultima compra dele. E os demais que nunca compraram preciso listar eles como zero(compra) Grata pela atenção dos amigos que colaborarem __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- M I G U E LF R A N C OG A L E G O INFORMARK / VIRTUALAGE Analista de Sistema mig...@infomark.com.br / gale...@gmail.com Av. Paraíba, 1959, Fundos / Rua José Rodrigues Brianez, 111-A Cianorte - PR / 87.200-000 (44) 3619-4555 ramal 4727 (44) 9985-1449 celular (44) 3019-1449 residencial [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda com Package
Olá pessoal,
Para modularizar minha aplicação resolvi utilizar Packges e que é uma
opção muito boa.
Mas estou tendo um problema:
Não consigo enviar o valor deu uma variável publica da minha Aplicação
principal para o Pacote.
Meu pacote é carregado dinamicamente através do código mais abaixo
Na minha aplicação principal tenho uma váriavel declarada com pública
E quando tento acessar essa várivel ela fala o valor dela é INACESSÍVEL.
O que pode está acontecendo?
Desde já Agradeço
Marcelo Pomarolli
Código para carregar o pacote dinamicamente.
procedure TFPrincipal.ac_PagarExecute(Sender: TObject);
var
H : HMODULE;
PForm : TFormClass;
Form : TForm;
begin
if FileExists('FINANCEIRO.bpl') then
begin
H := LoadPackage('FINANCEIRO.bpl');
if H 0 then
begin
PForm := TFormClass(GetClass('TfFiltro_PAGAR'));
if Assigned(PForm) then
begin
Form := PForm.Create(nil);
Form.ShowModal;
FreeAndNil(Form);
UnloadPackage(H);
end
else
Application.MessageBox('Error ao carregar o MODULO
FINANCEIRO!','Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1);
end;
end
else
Application.MessageBox('Para usar este recurso você deve adquirir o
Modulo FINANCEIRO.'+#13+
'Entre em contato com o seu Revendedor para
maiores detalhes.','Carregamento do Modulo',MB_OK + MB_ICONINFORMATION +
MB_DEFBUTTON1);
end;
__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Ajuda...Atualização de Software
Éh, a questão do IP fixo, é que aqui a coisa toda acontece dentro da rede interna. Pra Internet realmente o processo será outor. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Dirlei Dionísio To: delphi-br@yahoogrupos.com.br Sent: Thursday, February 11, 2010 7:56 PM Subject: Re: [delphi-br] Ajuda...Atualização de Software Obrigado pelo retorno Walter, mais comentários abaixo. Em 10 de fevereiro de 2010 15:36, Walter Chagas (Bol) Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. O nosso caso roda dentro da rede interna. Sempre que o programa é atualizado, somos obrigados a entrar no banco de dados do servidor e trocar a versão. Tem uma tabela específica pra isto. A tabela fica no banco de dados que seu sistema irá interagir. Quando o caboclo lá executa o sistema, a primeira coisa que ele faz é ir na tabela e confrontar sua versão com a versão que tá lá. Caso haja divergencia, ele avisa pro usuario atualizar. Senão, continua executando o programa. Na telemont, temos 4 servidores cada um com um banco diferente dada a quantidade de sistemas que rodam na operacional. Todos estes bancos tem a tabela de controle de versões dos sistemas que irão interagir com estes referidos bancos. Eu acredito que suas atualizações são cumulativas, portanto não seria problema se o cliente está na 1.0 e seu projeto já no 1.5. Pelo menos aqui na Telemont a coisa é assim. As atualizações são cumulativas Então as atualizações de banco de dados são feitas manualmente, certo? No meu caso, as atualizações do banco de dados também são automáticas. Não entendi, por que IP fixo? Se voce trocar o IP do servidor, aonde estão as atualizações, toda hora, como é que se programa de update irá achar o servidor para pegar o arquivo e instalá-lo no cliente? Via DNS. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] Re: [delphi-br] Ajuda...Atualiza ção de Software
Em 10/02/2010 15:36, Walter Chagas (Bol) escreveu: Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Desenvolvi 3 programinhas para esse feito: 1 - o primeiro programa q fica no meu computador faz a compactacao do arquivo executavel e de um arquivo texto contendo as instruções sql de atualizacao do banco de dados. Ao compactar esses arquivos ele gera um numero ex: controle-23564.bck, controle e o nome do sistema envolvido e o numero seria a data de criacao do executavel; 2 - o segundo sistema fica no meu computador tambem... seria o servidor, esperando conexao dos clientes atraves de socket; 3 - o terceiro programa fica nos meus clientes, ao executa-lo atravez desse atualizador este manda para o servidor a data de criacao do executavel do cliente, o servidor recebe essas informações e procura o numero superior ao recebido, e envia ao cliente o arquivo atualizado; Ao receber esse arquivo ele descompacta o mesmo substitui o executavel antigo pelo novo em seguida abre o arquivo texto e executa as instruçoes sql de atualização do banco de dados caso o sistema do cliente for antigo e ir atualizando ate chegar a versão mais nova _._,___ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Obrigado pelo retorno Walter, mais comentários abaixo. Em 10 de fevereiro de 2010 15:36, Walter Chagas (Bol) Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. O nosso caso roda dentro da rede interna. Sempre que o programa é atualizado, somos obrigados a entrar no banco de dados do servidor e trocar a versão. Tem uma tabela específica pra isto. A tabela fica no banco de dados que seu sistema irá interagir. Quando o caboclo lá executa o sistema, a primeira coisa que ele faz é ir na tabela e confrontar sua versão com a versão que tá lá. Caso haja divergencia, ele avisa pro usuario atualizar. Senão, continua executando o programa. Na telemont, temos 4 servidores cada um com um banco diferente dada a quantidade de sistemas que rodam na operacional. Todos estes bancos tem a tabela de controle de versões dos sistemas que irão interagir com estes referidos bancos. Eu acredito que suas atualizações são cumulativas, portanto não seria problema se o cliente está na 1.0 e seu projeto já no 1.5. Pelo menos aqui na Telemont a coisa é assim. As atualizações são cumulativas Então as atualizações de banco de dados são feitas manualmente, certo? No meu caso, as atualizações do banco de dados também são automáticas. Não entendi, por que IP fixo? Se voce trocar o IP do servidor, aonde estão as atualizações, toda hora, como é que se programa de update irá achar o servidor para pegar o arquivo e instalá-lo no cliente? Via DNS. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Aqui na telemont temos um sistema de atualização automatica também. Porém com algumas diferenças: 1) Feito em VB 2) Ele nao guarda o update no banco e sim numa pasta em um servidor de arquivos. 3) Guardamos no banco o número da ultima versão que deve estar rodando nas estações. 4) Ao ser executado na estação, o sistema consulta o banco se a versão dele é a mesma que está na tabela. Caso contrario, ele chama um programinha de atualização automática para baixar o update do servidor. Quando ele chama este aplicativo, ele já se auto finaliza. Este programinha baixa o update e já o executa automaticamente. Pela WEB é possível que isto funcione também porém, o servidor aonde as atualizações vão ficar, deverá ter IP fixo.. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Dirlei To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 09, 2010 8:25 AM Subject: Re: [delphi-br] Ajuda...Atualização de Software Vou explicar como funciona o sistema de atualização automática que projetei e desenvolvi aqui onde trabalho. Não pretendo que criar um manual de como fazer, mas creio que dê pra explicar resumidamente como funciona e inspirar aqueles que pretendem fazer algo parecido. Há uma base MySQL na internet com os Updates de cada produto (nossos softwares). Cada Update, atualiza um conjunto de versões. Exemplo: o update ProgramaX 1.5 atualiza as versões do Programa X 1.3 e 1.4. Os updates são setups gerados com o NSIS (poderia ser outro gerador de instalações, mas escolhemos esse). Cada setupt de update leva apenas as atualizações necessárias, não a instalação inteira. Isso pode incluir o EXE do programa, DLL's, arquivos de relatório etc. Um detalhe importante é a atualização do banco de dados. Aqui trabalhamos com databases versionados. Ex: a primeira versão liberada tem o database 1.0. À cada alteração no database, incrementamos a versão (1.1, 1.2 ou 2.0 se a alteração for expressiva). Aqui criamos uma linguagem para contemplar os scripts de atualização e os upgrades de versão (XML + SQL + criptografia). Chamamos essa linguagem de DBML (Databse Maintenance Language). Um arquivo DBML contêm o script para realizar cada salto de versão. Ex: da versão 1.0 para 1.1 foi criado um índice; da versão 1.1 para 1.2 foi criada uma nova tabela e assim por diante. O setup de atualização carrega consigo um arquivo DBML (sempre que tiver acontecido uma alteração de database) com os saltos de versão (de database) contemplados pela atualização. Ex: se a atualização faz update da versão (de database) 1.0 e 1.1, o DBML conterá apenas esses saltos de versão. Agora a parte da atualização automática: Foi criado um serviço PHP que consulta a base MySql (citada no início) e informa se há atualização disponível para uma determinada versão. Nossos sistemas carregam consigo um componente que chamei de SelfUpdate (Atualização de si mesmo). Esse componente, 1 vez por dia, dispara o serviço PHP que diz se há atualização para a versão do produto em execução. Se houver atualização, o PHP devolve a URL para download e o componente faz download do setup de atualização. Isso acontece numa outra thread, então o sistema continua podendo ser operado. No fim do download, o usuário é avisado que na próxima execução, o programa será atualizado. Na próxima execução, se não houver nenhum outro usuário utilizando o programa, é executado o setup de atualização, que atualiza os arquivos do programa e o banco de dados, se necessário. É assim que fazemos. Funciona há alguns anos com cerca de 2 mil usuários. Qualquer dúvida, postem aqui que posso tentar ajudar na medida do possível. Um abraço, Dirlei. snakesjb escreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização d e Software
É interessante saber como funcionam outras soluções Walter! Fiz alguns comentários/perguntas abaixo. Walter Chagas (Bol) escreveu: Aqui na telemont temos um sistema de atualização automatica também. Porém com algumas diferenças: 1) Feito em VB 2) Ele nao guarda o update no banco e sim numa pasta em um servidor de arquivos. O meu também não. No banco fica apenas a URL para o setup de atualização (compactado com LZMA para burlar proxies que bloqueiam download de EXE) 3) Guardamos no banco o número da ultima versão que deve estar rodando nas estações 4) Ao ser executado na estação, o sistema consulta o banco se a versão dele é a mesma que está na tabela. Caso contrario, ele chama um programinha de atualização automática para baixar o update do servidor. Quando ele chama este aplicativo, ele já se auto finaliza. Este programinha baixa o update e já o executa automaticamente. Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Pela WEB é possível que isto funcione também porém, o servidor aonde as atualizações vão ficar, deverá ter IP fixo.. Não entendi, por que IP fixo? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil mailto:wchagasj%40bol.com.br
Re: [delphi-br] Ajuda...Atualização de Software
Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. O nosso caso roda dentro da rede interna. Sempre que o programa é atualizado, somos obrigados a entrar no banco de dados do servidor e trocar a versão. Tem uma tabela específica pra isto. A tabela fica no banco de dados que seu sistema irá interagir. Quando o caboclo lá executa o sistema, a primeira coisa que ele faz é ir na tabela e confrontar sua versão com a versão que tá lá. Caso haja divergencia, ele avisa pro usuario atualizar. Senão, continua executando o programa. Na telemont, temos 4 servidores cada um com um banco diferente dada a quantidade de sistemas que rodam na operacional. Todos estes bancos tem a tabela de controle de versões dos sistemas que irão interagir com estes referidos bancos. Eu acredito que suas atualizações são cumulativas, portanto não seria problema se o cliente está na 1.0 e seu projeto já no 1.5. Pelo menos aqui na Telemont a coisa é assim. As atualizações são cumulativas Não entendi, por que IP fixo? Se voce trocar o IP do servidor, aonde estão as atualizações, toda hora, como é que se programa de update irá achar o servidor para pegar o arquivo e instalá-lo no cliente? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Dirlei To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 10, 2010 8:32 AM Subject: Re: [delphi-br] Ajuda...Atualização de Software É interessante saber como funcionam outras soluções Walter! Fiz alguns comentários/perguntas abaixo. Walter Chagas (Bol) escreveu: Aqui na telemont temos um sistema de atualização automatica também. Porém com algumas diferenças: 1) Feito em VB 2) Ele nao guarda o update no banco e sim numa pasta em um servidor de arquivos. O meu também não. No banco fica apenas a URL para o setup de atualização (compactado com LZMA para burlar proxies que bloqueiam download de EXE) 3) Guardamos no banco o número da ultima versão que deve estar rodando nas estações 4) Ao ser executado na estação, o sistema consulta o banco se a versão dele é a mesma que está na tabela. Caso contrario, ele chama um programinha de atualização automática para baixar o update do servidor. Quando ele chama este aplicativo, ele já se auto finaliza. Este programinha baixa o update e já o executa automaticamente. Como vocês lidam com o caso de a instalação estar mais de uma versão defasada? Exemplo: o cliente está na versão 1.0 e não fez a atualização para 1.1. Quando ele resolve atualizar, a versão mais recente já é 1.2. Pela WEB é possível que isto funcione também porém, o servidor aonde as atualizações vão ficar, deverá ter IP fixo.. Não entendi, por que IP fixo? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil mailto:wchagasj%40bol.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Soft ware
Você deu uma pesquisada em: www.delphibr.com.br www.linhadecodigo.com.br www.delphi.eti.br www.devmedia.com.br ? --- Em seg, 8/2/10, Domingos domingosp...@gmail.com escreveu: De: Domingos domingosp...@gmail.com Assunto: Re: [delphi-br] Ajuda...Atualização de Software Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 8 de Fevereiro de 2010, 22:45 Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelbasso@ yahoo.com. brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazinaffo@ hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável... alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelbasso@ gmail.com Web site: www.samuelbasso. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- - - - - - - Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização de Software
Eu uso ftp para baixar o executavel do sistema e para o banco eu utilizo arquivo texto mesmo com os scripts e executo na base de cada um que baixar os novos arquivos. 2010/2/8 Domingos domingosp...@gmail.com Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco? Você usa o Database Comparer do IBExpert? Em 8 de fevereiro de 2010 16:13, snakesjb robsontazina...@hotmail.com escreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda...Atualização d e Software
Vou explicar como funciona o sistema de atualização automática que projetei e desenvolvi aqui onde trabalho. Não pretendo que criar um manual de como fazer, mas creio que dê pra explicar resumidamente como funciona e inspirar aqueles que pretendem fazer algo parecido. Há uma base MySQL na internet com os Updates de cada produto (nossos softwares). Cada Update, atualiza um conjunto de versões. Exemplo: o update ProgramaX 1.5 atualiza as versões do Programa X 1.3 e 1.4. Os updates são setups gerados com o NSIS (poderia ser outro gerador de instalações, mas escolhemos esse). Cada setupt de update leva apenas as atualizações necessárias, não a instalação inteira. Isso pode incluir o EXE do programa, DLL's, arquivos de relatório etc. Um detalhe importante é a atualização do banco de dados. Aqui trabalhamos com databases versionados. Ex: a primeira versão liberada tem o database 1.0. À cada alteração no database, incrementamos a versão (1.1, 1.2 ou 2.0 se a alteração for expressiva). Aqui criamos uma linguagem para contemplar os scripts de atualização e os upgrades de versão (XML + SQL + criptografia). Chamamos essa linguagem de DBML (Databse Maintenance Language). Um arquivo DBML contêm o script para realizar cada salto de versão. Ex: da versão 1.0 para 1.1 foi criado um índice; da versão 1.1 para 1.2 foi criada uma nova tabela e assim por diante. O setup de atualização carrega consigo um arquivo DBML (sempre que tiver acontecido uma alteração de database) com os saltos de versão (de database) contemplados pela atualização. Ex: se a atualização faz update da versão (de database) 1.0 e 1.1, o DBML conterá apenas esses saltos de versão. Agora a parte da atualização automática: Foi criado um serviço PHP que consulta a base MySql (citada no início) e informa se há atualização disponível para uma determinada versão. Nossos sistemas carregam consigo um componente que chamei de SelfUpdate (Atualização de si mesmo). Esse componente, 1 vez por dia, dispara o serviço PHP que diz se há atualização para a versão do produto em execução. Se houver atualização, o PHP devolve a URL para download e o componente faz download do setup de atualização. Isso acontece numa outra thread, então o sistema continua podendo ser operado. No fim do download, o usuário é avisado que na próxima execução, o programa será atualizado. Na próxima execução, se não houver nenhum outro usuário utilizando o programa, é executado o setup de atualização, que atualiza os arquivos do programa e o banco de dados, se necessário. É assim que fazemos. Funciona há alguns anos com cerca de 2 mil usuários. Qualquer dúvida, postem aqui que posso tentar ajudar na medida do possível. Um abraço, Dirlei. snakesjb escreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar???
[delphi-br] Ajuda com componente .png
Bom dia. Estou precisando trabalhar com algumas imagens .png, no entanto o componente que eu usava no Delphi 7 não estão funiconando no Delphi 2007. Alguém poderia me sugerir algum outro componente que leia .png? Grato, Douglas Henrique de Souza _ Você sabia que o Windows 7 inicia e desliga mais rápido? Clique e conheça mais. http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com componente .png
Douglas, No site do silvio clécio, na seção de downloads tem um componente para trabalhar com png no delphi. Eu testei no delphi 2007 e funcionou corretamente. Dá uma olhada lá que acho que vai ser útil pra vc. O link é: http://sites.google.com/site/silvioprogbs/Home Espero ter ajudado. -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel Douglas Henrique de Souza escreveu: Bom dia. Estou precisando trabalhar com algumas imagens .png, no entanto o componente que eu usava no Delphi 7 não estão funiconando no Delphi 2007. Alguém poderia me sugerir algum outro componente que leia .png? Grato, Douglas Henrique de Souza _ Você sabia que o Windows 7 inicia e desliga mais rápido? Clique e conheça mais. http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda...Atualização de Software
Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar???
Re: [delphi-br] Ajuda...Atualização de Software
Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazina...@hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ajuda...Atualização de Software
Estou com a mesma dúvida, para o executável eu uso FTP, mas e para o banco? Você usa o Database Comparer do IBExpert? Em 8 de fevereiro de 2010 16:13, snakesjb robsontazina...@hotmail.comescreveu: Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ajuda...Atualização de Software
Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelba...@yahoo.com.brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazina...@hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável...alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Domingos José Martins de Souza [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite vitor , seguinte a primeira duvida foi resonvida , pela sua primeira
sugestão matou o problema, agora quanto ao segundo voce perguntou Não existe
nenhum tipo de enablecontrols/disablecontrols.. desculpe minha ignorancia mas
eu não sei do qeu se trata essas funções, voce disse tambem ente fechar e
abrir novamente o dataset no caso como seria aplicado esta função ?
Obrigado pela atenção.
Danilo Moura
--- Em delphi-br@yahoogrupos.com.br, Vitor Yahoo vredesredsys...@...
escreveu
Opa, tudo certo?
Seguinte, você está chamando o formulário 2 com ShowModal, isso quer dizer
que sistema irá esperar os processos serem executados no formulário 2, para
depois passar pelo código que existe abaixo dele.
Faça assim e deve funcionar ok.
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
FrmConsultaMedico.ShowModal;
Aconselho você a criar parâmetros no formulário 2, para evitar código
manipulando o formulário de outro formulário, por exemplo:
No formulário 2:
Public
VMedido : Integer;
VData : TDateTime;
No FormShow (ou em qualquer outro evento do segundo formulário):
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico'] :=VMedico;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := VData;
frmConsultaMedico.ADOQuery1.Open;
No primeiro formulário, o código ficaria reduzido a:
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.VMedido := EdtMedido;
FrmConsultaMedico.VData := EdtData; (aqui o edtdata deve seguir um typecast
ou ser do tipo date)
FrmConsultaMedico.ShowModal;
Quanto a segunda duvida:
Não existe nenhum tipo de enablecontrols/disablecontrols no
FrmModMedicoConsulta né? Tente fechar e abrir novamente o dataset, caso o
resultado seja positivo poste aqui para que possamos melhorar isso.
Até mais.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de dssmoura
Enviada em: quinta-feira, 14 de janeiro de 2010 21:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando
de uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial
onde e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira
vez o grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão
e o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho
o formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o
seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asIn
teger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda duvida
Bom dia pessoal, Então estou com uma duvida de como fazer um pequeno aplicativo, que pegue valores de duas planilhas em excel e jaogue esses valores em uma planilha nova Alguem sabe como eu posso fazer ?
[delphi-br] Ajuda com SQL
Amigos, andei pesquisando nas mensagens antigas e na net e não encontrei resposta que atenda o meu problema. Tenho duas tabelas, uma com dados de um pedido e outra com o andamento. para cara registro na tabela 1 tenho varios na tabela 2 com a data e o tipo de movimento. o que eu quero e pegar somente o último movimento que cada pedido em aberto possui. O meu banco é FB 2.1, D7. Já Tentei diversas combinações, mais não esta dando certo. select distinct A.CDPEDIDO, max(B.DATAMOVIMENTO) fROM bdpedidos A JOIN BDANDAMENTO B on B.CDPEDIDO = A.cdpedido Alguem pode me dar uma luz. Agradeço antecipadamente. Vinicius
[delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando de
uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial onde
e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira vez o
grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão e
o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho o
formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asInteger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
RES: [delphi-br] Ajuda com Filtro para abrir formulario..
Opa, tudo certo?
Seguinte, você está chamando o formulário 2 com ShowModal, isso quer dizer
que sistema irá esperar os processos serem executados no formulário 2, para
depois passar pelo código que existe abaixo dele.
Faça assim e deve funcionar ok.
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
FrmConsultaMedico.ShowModal;
Aconselho você a criar parâmetros no formulário 2, para evitar código
manipulando o formulário de outro formulário, por exemplo:
No formulário 2:
Public
VMedido : Integer;
VData : TDateTime;
No FormShow (ou em qualquer outro evento do segundo formulário):
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico'] :=VMedico;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := VData;
frmConsultaMedico.ADOQuery1.Open;
No primeiro formulário, o código ficaria reduzido a:
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.VMedido := EdtMedido;
FrmConsultaMedico.VData := EdtData; (aqui o edtdata deve seguir um typecast
ou ser do tipo date)
FrmConsultaMedico.ShowModal;
Quanto a segunda duvida:
Não existe nenhum tipo de enablecontrols/disablecontrols no
FrmModMedicoConsulta né? Tente fechar e abrir novamente o dataset, caso o
resultado seja positivo poste aqui para que possamos melhorar isso.
Até mais.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de dssmoura
Enviada em: quinta-feira, 14 de janeiro de 2010 21:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando
de uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial
onde e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira
vez o grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão
e o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho
o formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o
seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asIn
teger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda array dinamico DLL
Bom dia!
Estou com problemas em uma função de uma dll que estou criando.
A função recebe um array dinamico de um tipo de dado.
De acordo com a quantidade de informação, a dll altera o tamanho e preenche o
array.
Na aplicação pego o array e passo para outra função preencher preencher um item
de um Mainmenu.
consigo acessar e usar os dados do array que a dll alterou sem erros.
Mas depois, quando a aplicação já carregou, quando eu clico no item que
adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu
não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro
não ocorre.
Por exemplo :
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi
carregada
end;
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption :='Teste' //sem erro
end;
Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu
mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada.
Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao
deveria ocorrer.
Função da dll que me retorna o que preciso:
procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ;
var Item : TMenuDLL;
begin
item := TMenuDLL.Create('DLL','FunçõesCliente');
item.Caption := 'DLL Funções de Clientes';
SetLength( Lista ,( length(lista)+1) );
Lista[length(lista)-1] := (item);
item := TMenuDLL.Create('DLL','CadastroCliente');
item.Caption := 'Cadastro de Cliente';
SetLength(Lista,length(lista)+1 );
Lista[length(lista)-1] := (item);
end;
//Array
type TListaMenuDLL = array of TMenuDLL;
//Tipo de dado
TMenuDLL = record
AssinaturaFuncao: string;
NomeDLL: string;
Caption: string;
end;
uso o delphi 2007
Se aguém puder dar alguma sugestão, Obrigado!
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ajuda array dinamico DLL
Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma
DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua
rotina utilitária em um package. Com o package, você poderá declarar funções e
rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com
tipos de dados customizados criados por vc.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: evaldoave...@yahoo.com.br
Date: Wed, 13 Jan 2010 05:50:45 -0800
Subject: [delphi-br] Ajuda array dinamico DLL
Bom dia!
Estou com problemas em uma função de uma dll que estou criando.
A função recebe um array dinamico de um tipo de dado.
De acordo com a quantidade de informação, a dll altera o tamanho e preenche o
array.
Na aplicação pego o array e passo para outra função preencher preencher um item
de um Mainmenu.
consigo acessar e usar os dados do array que a dll alterou sem erros.
Mas depois, quando a aplicação já carregou, quando eu clico no item que
adicionei para o main menu a aplicação da um acess vilation. Percebi que se eu
não acesso nenhuma posicição do array que veio da dll, dentro da função, o erro
não ocorre.
Por exemplo :
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption := lista[i].caption //ocorre erro depois que a aplicação foi
carregada
end;
procedure TForm1.ADDToMenu(var Lista: TListaMenuDLL);
begin
if length(Lista) = 0 then
exit;
Menu.caption :='Teste' //sem erro
end;
Pesquisando, descobrir que se a dll aloca memória, ela também destrói. Eu
mantenho a dll na memória enquanto eu monto menu, só depois ela é liberada.
Mas eu não estou mais apontando para o array que a dll alocou, então o erro nao
deveria ocorrer.
Função da dll que me retorna o que preciso:
procedure MenuDLL(var Lista: TListaMenuDLL); stdcall ;
var Item : TMenuDLL;
begin
item := TMenuDLL.Create('DLL','FunçõesCliente');
item.Caption := 'DLL Funções de Clientes';
SetLength( Lista ,( length(lista)+1) );
Lista[length(lista)-1] := (item);
item := TMenuDLL.Create('DLL','CadastroCliente');
item.Caption := 'Cadastro de Cliente';
SetLength(Lista,length(lista)+1 );
Lista[length(lista)-1] := (item);
end;
//Array
type TListaMenuDLL = array of TMenuDLL;
//Tipo de dado
TMenuDLL = record
AssinaturaFuncao: string;
NomeDLL: string;
Caption: string;
end;
uso o delphi 2007
Se aguém puder dar alguma sugestão, Obrigado!
_
Deixe seu computador compatível com a sua vida. Clique para conhecer o Windows
7!
http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings??? Variáveis do tipo String realmente dão problemas em DLLs... -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Obrigado! vou tentar isso. From: Willian Jhonnes L. dos Santos willianjhon...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda array dinamico DLL
Deu certinho com WideStrings! Muito obrigado! From: Evaldo evaldoave...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 1:50:17 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado! vou tentar isso. _ _ __ From: Willian Jhonnes L. dos Santos willianjhonnes@ yahoo.com. br To: delphi...@yahoogrup os.com.br Sent: Wed, January 13, 2010 1:09:41 PM Subject: Re: [delphi-br] Ajuda array dinamico DLL Olá, Evaldo... TMenuDLL = record AssinaturaFuncao: string; NomeDLL: string; Caption: string; end; Bem, pra começar, que tal você trocar essas Strings por WideStrings? ?? Variáveis do tipo String realmente dão problemas em DLLs... [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] Ajuda array dinamico DLL
Se pensa em migrar pra C#, a melhor coisa a fazer é fazer essa DLL do tipo COM. Vai faciliar mais ainda. Sds. To: delphi-br@yahoogrupos.com.br From: evaldoave...@yahoo.com.br Date: Wed, 13 Jan 2010 07:49:28 -0800 Subject: Re: [delphi-br] Ajuda array dinamico DLL Obrigado, mas preciso usar dll por causa de uma futura migração para C#. From: Rubem Nascimento da Rocha djpardalro...@hotmail.com To: delphi-br delphi-br@yahoogrupos.com.br Sent: Wed, January 13, 2010 12:05:20 PM Subject: RE: [delphi-br] Ajuda array dinamico DLL Quando utilizamos arrays dinâmicos do Delphi como parâmetros em funções de uma DLL, estes são tratados como ponteiros. Seu eu fosse vc, empacotaria essa sua rotina utilitária em um package. Com o package, você poderá declarar funções e rotinas que possam lidar tranquilamente tanto com arrays dinâmicos como com tipos de dados customizados criados por vc. Boa sorte. _ Sabia que você tem 25Gb de armazenamento grátis na web? Conheça o Skydrive agora. http://www.windowslive.com.br/public/product.aspx/view/5?ocid=CRM-WindowsLive:produtoSkyDrive:Tagline:WLCRM:On:WL:pt-BR:SkyDrive [As partes desta mensagem que não continham texto foram removidas]
