Re: RES: [delphi-br] Memo Justificado
Amigo, Acho que esse componente vai resolver seu problema http://www.torry.net/vcl/edits/rich/justifyrichedit.zip ele não é um memo, mas sim um richedit. Até. Em 01/11/07, Eduardo Suruagy [EMAIL PROTECTED] mailto:eduardosuruagy%40gmail.com escreveu: Pessoal, como faço pra colocar um memo justificado igual ao word?
[delphi-br] CONEXÃO COM SQL SERVER 2005
Amigos, qual a melhor forma de acessar os dados em um servidor Sql Server 2005 a partir de uma aplicação feita em Delphi 7? Quais os componentes? Se possível, passar um exemplo...
Re: [delphi-br] Programa nao atualiza entradas no BD(ACCESS)
Bom dia Rodrigo. Qual componente de conexão vc tá usando? Tem duas coisas que acho que vc pode tentar. A primeira, se não fizer assim já, é sempre manter as tabelas fechadas e só abri-las no momento que entra no form. E na saída fechar novamente. Se ainda assim não funciona, tente logo após as atualizações, utilizar o requery. Tipo, se você usa um TTable pra acessar a tabela com o nome TblBancos por exemplo, use o comando TblBancos.Requery... Se não for esse o caso, por favor, passe mais detalhes, ok? Abraço. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br - Original Message - From: rodrigomarzo To: delphi-br@yahoogrupos.com.br Sent: Sunday, November 04, 2007 11:46 PM Subject: [delphi-br] Programa nao atualiza entradas no BD(ACCESS) Ola, poderiam me ajudar? Sou iniciante em delphi, estou desenvolvendo um aplicativo de controle de contas a pagar, ele ja esta completamente desenvolvido, mas em meus teste me deparei com uma coisa frustante. Qualquer tipo de inclusao que for feita pelo cliente no banco de dados nao atualiza no mesmo momento, tipo no formulario banco se for add um banco(agencia,conta, etc), e depois for para o formulario de lançamentos de contas, e procurar o registro novo ele nao aparece, para mostrar tenho que fechar o programa e abrir de novo, ai ele aparece as atualizaçao(ou inclusao que foram feitas). OBs: Uso Delphi 7 Banco de dados := Access O que sera que pode ser, acho que ja fiz de tudo que meus poucos conhecimentos me fornecem, ja inseri o comando 'refresh', coloquei instruçao para desconectar e conectar novamente, mas nada...por favor alguem me ajude... Rodrigo Marzo __ NOD32 2636 (20071103) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] CONEXÃO COM SQL SERVER 2005
Bom dia... Eu acessei utilizando ADO, com ADOConnection (Aba ADO) + ADODataSet (Aba ADO) + DataSetProvider (Aba Data Access) + ClientDataSet (Aba Data Access) + DataSource (Aba Data Access)... ligados nesta ordem. Mas é possível essa conexão substituindo os componentes da aba ADO pelos equivalentes da dbexpress também, sem problema (SQLConnection e SQLDataSet). _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br - Original Message - From: vida080969 To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 7:25 AM Subject: [delphi-br] CONEXÃO COM SQL SERVER 2005 Amigos, qual a melhor forma de acessar os dados em um servidor Sql Server 2005 a partir de uma aplicação feita em Delphi 7? Quais os componentes? Se possível, passar um exemplo... __ NOD32 2637 (20071105) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] ot - Inno Setup
usando da seguinte forma, aparecera um checkBox: Filename: {tmp}\Firebird-1.5.2.4731-Win32.exe; Description: Instalar o gerenciador banco de dados - Firebird®; StatusMsg: Instalando banco de dados...; Flags: postinstall skipifsilent hidewizard para os demais é só colocar os flags: Flags: postinstall skipifsilent hidewizard - Mensagem original De: Jefferson - Fórum [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 5 de Novembro de 2007 1:17:45 Assunto: Re: [delphi-br] ot - Inno Setup Aproveito esse ot, e pergunto! Como posso no Inno, colocar as opções pra fazer instalação: - completa (aplicativo e servidor de banco de dados [firebird]) - somente aplicativo - somente servidor de banco de dados Alguém pode me ajudar, por favor? Jefferson - Original Message - From: José Claudemir To: [EMAIL PROTECTED] os.com.br Sent: Sunday, November 04, 2007 11:13 PM Subject: Res: [delphi-br] ot - Inno Setup Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original --- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: [EMAIL PROTECTED] os.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com. br Dúvidas:http://nilsoftware. blogspot. com/ Obrigatório: www.saopaulofc. com.br [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] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
Re: [delphi-br] Update em campo do tipo Date!!
Não tem segredo velho: with Query, SQL do begin Close; Clear; Add('UPDATE TABELA SET DATA1=:DATA1, DATA2=:DATA2, DATA3=:DATA3'); ParamByName('DATA1').AsDateTime := StrToDateTime(Edit1.Text + Edit2.Text); ParamByName('DATA2').AsDateTime := StrToDateTime(Edit3.Text + Edit4.Text); ParamByName('DATA3').AsDateTime := StrToDateTime(Edit5.Text + Edit6.Text); ExecSQL; end; -- Adriano Santos - Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp itasouza respondeu: Boa Tarde a todos Amigos Estou precisando fazer update em 4 campos diferentes e um dos campo e do tipo DATE ,gostaria se possível que alguém postasse um código para que eu possa seguir como modelo. Um detalhe e que precisava separa a data da hora, mostrando os mesmos em edits separados e atualizando os mesmos conforme alteração. Agradeço!! No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.17/1103 - Release Date: 01/11/2007 06:01
[delphi-br] Re: CONEXÃO COM SQL SERVER 2005
Na verdade Claudiney, eu sou iniciante no uso do sql server(banco de dados). Tentei utilizar o dbexpress mas não consigo manter a conexão com o banco de dados. Tenho um banco chamado RESUMO e uma tabela chamada Filial feitos com o Sql Server 2005. Poderia me orientar passo-a-passo como devo configurar esta conexão? Agradeço muito... --- Em delphi-br@yahoogrupos.com.br, Claudiney Cogo claudiney- [EMAIL PROTECTED] escreveu Bom dia... Eu acessei utilizando ADO, com ADOConnection (Aba ADO) + ADODataSet (Aba ADO) + DataSetProvider (Aba Data Access) + ClientDataSet (Aba Data Access) + DataSource (Aba Data Access)... ligados nesta ordem. Mas é possível essa conexão substituindo os componentes da aba ADO pelos equivalentes da dbexpress também, sem problema (SQLConnection e SQLDataSet). _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br - Original Message - From: vida080969 To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 7:25 AM Subject: [delphi-br] CONEXÃO COM SQL SERVER 2005 Amigos, qual a melhor forma de acessar os dados em um servidor Sql Server 2005 a partir de uma aplicação feita em Delphi 7? Quais os componentes? Se possível, passar um exemplo... __ NOD32 2637 (20071105) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF TOPIC - Sistema de Licit ação.
Ola.. Desenvolvi um sistema pra licitacoes.. controla apenas a parte de andamento de licitacoes, comissao de vendedores, conta a pagar e receber sobre licitacoes.. nao obedece a legislacao nenhuma.. mas podemos implementar caso tenha interesse.. qq coisa entre em contato em pvt: [EMAIL PROTECTED] Te+ Luciano Angelini [EMAIL PROTECTED] escreveu: www.sysmar.com.br Jota Pyl Gmail escreveu: Preciso de um sistema de controle de Licitações para orgão publicos. O sistema deve respeitar as legislações pertinentes (Lei 8.666/93, Lei de Micros e Pequenas empresas). Deve englobar tambem a Modalidade de Pregão. Se algum dos amigos tiver e quiser ter uma representação, por favor entre em contato. Grato pela atenção. [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Memo Justificado
Valeu Dercino Em 05/11/07, dercino [EMAIL PROTECTED] escreveu: Amigo, Acho que esse componente vai resolver seu problema http://www.torry.net/vcl/edits/rich/justifyrichedit.zip ele não é um memo, mas sim um richedit. Até. Em 01/11/07, Eduardo Suruagy [EMAIL PROTECTED] mailto:eduardosuruagy%40gmail.com escreveu: Pessoal, como faço pra colocar um memo justificado igual ao word? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atribuir valor sem chamar create
Olá, Estou construindo uma classe e me surgiu uma idéia... Existe uma propriedade padrão nesta classe... Vamos dizer que seja 'Valor'. Esta propriedade possui métodos Get e Set implementados. Basicamente, interface ... private FValor : Integer; function GetValor: Integer; procedure SetValor(const Value: Integer); ... public property Valor : Integer read GetValor write SetValor; ... implementation ... function TMyClass.GetValor: Integer; begin Result := FValor; end; ... procedure TISNumber.SetValor(const Value: Integer); begin FValor := Value; end; ... end. Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare uma variável X : TMyClass, e tente fazer X.Valor := 1, por exemplo, eu consiga uma forma de implementar o create da classe automaticamente... Eu tentei fazer o seguinte: ... procedure TISNumber.SetValor(const Value: Integer); begin if not assigned(Self) then Self := TMyClass.Create; FValor := Value; end; ... Mas não funcionou... Eu na verdade nem sei se dá para fazer isso que eu estou tentando... Mas se alguém tiver alguma idéia, ou explicação, gostaria de ouvir... Obrigado a todos! Leslyn Fernandes [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atribuir valor sem chamar create
acredurti qye vc so possa atribuir um valor para alguma variavel de uma classe, apos cria-la. Carlos Leslyn Fernandes [EMAIL PROTECTED] escreveu: Olá, Estou construindo uma classe e me surgiu uma idéia... Existe uma propriedade padrão nesta classe... Vamos dizer que seja 'Valor'. Esta propriedade possui métodos Get e Set implementados. Basicamente, interface ... private FValor : Integer; function GetValor: Integer; procedure SetValor(const Value: Integer); ... public property Valor : Integer read GetValor write SetValor; ... implementation ... function TMyClass.GetValor: Integer; begin Result := FValor; end; ... procedure TISNumber.SetValor(const Value: Integer); begin FValor := Value; end; ... end. Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare uma variável X : TMyClass, e tente fazer X.Valor := 1, por exemplo, eu consiga uma forma de implementar o create da classe automaticamente... Eu tentei fazer o seguinte: ... procedure TISNumber.SetValor(const Value: Integer); begin if not assigned(Self) then Self := TMyClass.Create; FValor := Value; end; ... Mas não funcionou... Eu na verdade nem sei se dá para fazer isso que eu estou tentando... Mas se alguém tiver alguma idéia, ou explicação, gostaria de ouvir... Obrigado a todos! Leslyn Fernandes [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Evento no DBGrid
consegui criar tantos DBGRIDS quantos necessários; agora preciso que ao clicar em uma celula de um determinado GRID eu execute um EVENTO, alguém sabe como faço isto. grato Stainle
Re: [delphi-br] Atribuir valor sem chamar create
Leslyn Fernandes wrote: Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare uma variável X : TMyClass, e tente fazer X.Valor := 1, por exemplo, eu consiga uma forma de implementar o create da classe automaticamente... Desta forma, não, de alguma forma você tem que dizer a X qual é o endereço do objeto, e quem faz isto é o resultado do Create: X := TMyClass.Create; X.Valor := 1; Você pode construir um método de classe ou outro construtor na sua classe, a fim de associar um valor à propriedade e retornar o endereço do objeto: public constructor CreateComValor(Value: Integer); ou public class function CreateComValor(Value: Integer): TMyClass; O construtor cria a instância de TMyClass sozinho; o class function é mais propósito geral, você tem que criar a instância manualmente e depois associar o valor. constructor TMyClass.CreateComValor(Value: Integer); begin inherited Create; Valor := Value; end; ou class function TMyClass.CreateComValor(Value: Integer): TMyClass; begin Result := Create; Result.Valor := Value; end; -- Joao Morais
Re: [delphi-br] Re: CONEXÃO COM SQL SERVER 2005
USO AQUI SQLSERVER 2005 COM DBEXPRESS SEM PROBLEMAS... e nao tem mistério nenhum pra configurar ... qual problema e mensagem de erro ta dando aeee ??? - Original Message - From: vida080969 To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 8:27 AM Subject: [delphi-br] Re: CONEXÃO COM SQL SERVER 2005 Na verdade Claudiney, eu sou iniciante no uso do sql server(banco de dados). Tentei utilizar o dbexpress mas não consigo manter a conexão com o banco de dados. Tenho um banco chamado RESUMO e uma tabela chamada Filial feitos com o Sql Server 2005. Poderia me orientar passo-a-passo como devo configurar esta conexão? Agradeço muito... --- Em delphi-br@yahoogrupos.com.br, Claudiney Cogo claudiney- [EMAIL PROTECTED] escreveu Bom dia... Eu acessei utilizando ADO, com ADOConnection (Aba ADO) + ADODataSet (Aba ADO) + DataSetProvider (Aba Data Access) + ClientDataSet (Aba Data Access) + DataSource (Aba Data Access)... ligados nesta ordem. Mas é possível essa conexão substituindo os componentes da aba ADO pelos equivalentes da dbexpress também, sem problema (SQLConnection e SQLDataSet). _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br - Original Message - From: vida080969 To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 7:25 AM Subject: [delphi-br] CONEXÃO COM SQL SERVER 2005 Amigos, qual a melhor forma de acessar os dados em um servidor Sql Server 2005 a partir de uma aplicação feita em Delphi 7? Quais os componentes? Se possível, passar um exemplo... __ NOD32 2637 (20071105) Information __ This message was checked by NOD32 antivirus system. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] displayformat em run-time
to precisando formatar um valor de um field em run-time, a bronca é que o campo e criado em runtime tambem.. ai tente Tfmtbcdfield(dados.FieldByName('total')).DisplayFormat:= '#,##0.00'; so que nao resolveu.. alquem ai sabe como fazer isso? obrigado t+ -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- ERP completo www.acinformatica.org -- Empresa [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Relatório de itens
Bom dia pessoal, Estou desenvolvendo um relatório de controle de estoque de madeiras, onde tenho a entrada por item e local de armazenagem, e preciso mostrar no relatório as entradas que foram para o picador e o total que foram para as pilhas de armazenagem, os dados estão todos na mesma tabela, e não estou conseguindo fazer o SQL para trazer o total separado por item e Local, porque tenho se somar todas as entradas do local que vai para o picador e tenho varias pilhas que tenho que somar a entrada em todas elas por item., se eu gerar essa soma separados consigo mas junto não sei como fazer, pensei em criar wiews e depois juntar os resultados mas não sei se vai funcionar. Gostaria da ajuda dos amigos para encontrar a melhor forma para fazer este relatório. Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a http://www.iguacucelulose.com.br/ www.iguacucelulose.com.br P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: CONEXÃO COM SQL SERVER 2005
Quando tento conectar -- O erro: ERROR MAPPING FAILED! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de MiNuTo Enviada em: segunda-feira, 5 de novembro de 2007 09:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: CONEXÃO COM SQL SERVER 2005 USO AQUI SQLSERVER 2005 COM DBEXPRESS SEM PROBLEMAS... e nao tem mistério nenhum pra configurar ... qual problema e mensagem de erro ta dando aeee ??? - Original Message - From: vida080969 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, November 05, 2007 8:27 AM Subject: [delphi-br] Re: CONEXÃO COM SQL SERVER 2005 Na verdade Claudiney, eu sou iniciante no uso do sql server(banco de dados). Tentei utilizar o dbexpress mas não consigo manter a conexão com o banco de dados. Tenho um banco chamado RESUMO e uma tabela chamada Filial feitos com o Sql Server 2005. Poderia me orientar passo-a-passo como devo configurar esta conexão? Agradeço muito... --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Claudiney Cogo claudiney- [EMAIL PROTECTED] escreveu Bom dia... Eu acessei utilizando ADO, com ADOConnection (Aba ADO) + ADODataSet (Aba ADO) + DataSetProvider (Aba Data Access) + ClientDataSet (Aba Data Access) + DataSource (Aba Data Access)... ligados nesta ordem. Mas é possível essa conexão substituindo os componentes da aba ADO pelos equivalentes da dbexpress também, sem problema (SQLConnection e SQLDataSet). _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Maringá - Paraná www.n2solutions.com.br - Original Message - From: vida080969 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, November 05, 2007 7:25 AM Subject: [delphi-br] CONEXÃO COM SQL SERVER 2005 Amigos, qual a melhor forma de acessar os dados em um servidor Sql Server 2005 a partir de uma aplicação feita em Delphi 7? Quais os componentes? Se possível, passar um exemplo... __ NOD32 2637 (20071105) Information __ This message was checked by NOD32 antivirus system. http://www.eset. http://www.eset.com com [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]
Re: [delphi-br] Relatório de itens
posta ae os principais campos da tebela ( ou tabelas) ... FIca mais facil de analizar e ajudar... - Original Message - From: Marcelo Mendes de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 9:48 AM Subject: [delphi-br] Relatório de itens Bom dia pessoal, Estou desenvolvendo um relatório de controle de estoque de madeiras, onde tenho a entrada por item e local de armazenagem, e preciso mostrar no relatório as entradas que foram para o picador e o total que foram para as pilhas de armazenagem, os dados estão todos na mesma tabela, e não estou conseguindo fazer o SQL para trazer o total separado por item e Local, porque tenho se somar todas as entradas do local que vai para o picador e tenho varias pilhas que tenho que somar a entrada em todas elas por item., se eu gerar essa soma separados consigo mas junto não sei como fazer, pensei em criar wiews e depois juntar os resultados mas não sei se vai funcionar. Gostaria da ajuda dos amigos para encontrar a melhor forma para fazer este relatório. Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a http://www.iguacucelulose.com.br/ www.iguacucelulose.com.br P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! [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] Relatório de itens
Os campos de entrada são Data Item Local Quantidade Tem que sair assim no relatório Data item x item Y itemx item Y picador picador pilha pilha 1/11/2007 16000 33000 13800 124590 2/11/2007 24420 24110 19010 Os valores são os totais de todos os lançamentos do dia. Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de MiNuTo Enviada em: segunda-feira, 5 de novembro de 2007 10:59 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Relatório de itens posta ae os principais campos da tebela ( ou tabelas) ... FIca mais facil de analizar e ajudar... - Original Message - From: Marcelo Mendes de Oliveira To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Monday, November 05, 2007 9:48 AM Subject: [delphi-br] Relatório de itens Bom dia pessoal, Estou desenvolvendo um relatório de controle de estoque de madeiras, onde tenho a entrada por item e local de armazenagem, e preciso mostrar no relatório as entradas que foram para o picador e o total que foram para as pilhas de armazenagem, os dados estão todos na mesma tabela, e não estou conseguindo fazer o SQL para trazer o total separado por item e Local, porque tenho se somar todas as entradas do local que vai para o picador e tenho varias pilhas que tenho que somar a entrada em todas elas por item., se eu gerar essa soma separados consigo mas junto não sei como fazer, pensei em criar wiews e depois juntar os resultados mas não sei se vai funcionar. Gostaria da ajuda dos amigos para encontrar a melhor forma para fazer este relatório. Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a http://www.iguacuce http://www.iguacucelulose.com.br/ lulose.com.br/ www.iguacucelulose.com.br P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! [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]
[delphi-br] String em Negrito
Bom dia pessoal... Estou prescisando saber se consegui concatenar strings com negrito exemplo string 1 + negrito(string 2) + string 3 intaum so preciso que a string 2 fique negrito.. Abraço [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] inputbox ou inputquery
Senhores, Gostaria de fazer um inputbox ou inputquery de modo que os caracteres apareçam como asterisco (password char), como método de confirmação de senha... tem como? obrigado! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [lista-delphi] inputbox ou inputquery
Eu criei meu próprio InputQuerySenha, veja se ajuda. Abs function Dc_InputQuerySenha(const ACaption, APrompt: string; var Value: string): Boolean; var Form: TForm; Prompt: TLabel; Edit: TEdit; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; function GetAveCharSize(Canvas: TCanvas): TPoint; var I: Integer; Buffer: array[0..51] of Char; begin for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A')); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a')); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result)); Result.X := Result.X div 52; end; procedure Saida(Sender: TObject); begin if TEdit(Sender).Text = '' then begin ShowMessage('Vazio'); TEdit(Sender).SetFocus; end; end; begin Result := False; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; Caption := ACaption; ClientWidth := MulDiv(180, DialogUnits.X, 4); Position := poScreenCenter; Prompt := TLabel.Create(Form); with Prompt do begin Parent := Form; Caption := APrompt; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4); WordWrap := True; end; Edit := TEdit.Create(Form); with Edit do begin PasswordChar := '*'; Parent := Form; Left := Prompt.Left; Top := Prompt.Top + Prompt.Height + 5; Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; Text := Value; SelectAll; end; ButtonTop := Edit.Top + Edit.Height + 15; ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TButton.Create(Form) do begin Parent := Form; Caption := 'Confirmar'; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := 'Cancelar'; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15, ButtonWidth, ButtonHeight); Form.ClientHeight := Top + Height + 13; end; if ShowModal = mrOk then begin Value := Edit.Text; Result := True; end; finally Form.Free; end; end; -- Adriano Santos - Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp Fabinho respondeu: Senhores, Gostaria de fazer um inputbox ou inputquery de modo que os caracteres apareçam como asterisco (password char), como método de confirmação de senha... tem como? obrigado! Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.22/ - Release Date: 05/11/2007 04:36
Re: [delphi-br] ot - Inno Setup
Irei testar isso na prática. Obrigado amigão! - Original Message - From: Evaldo To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 7:42 AM Subject: Res: [delphi-br] ot - Inno Setup usando da seguinte forma, aparecera um checkBox: Filename: {tmp}\Firebird-1.5.2.4731-Win32.exe; Description: Instalar o gerenciador banco de dados - Firebird®; StatusMsg: Instalando banco de dados...; Flags: postinstall skipifsilent hidewizard para os demais é só colocar os flags: Flags: postinstall skipifsilent hidewizard - Mensagem original De: Jefferson - Fórum [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 5 de Novembro de 2007 1:17:45 Assunto: Re: [delphi-br] ot - Inno Setup Aproveito esse ot, e pergunto! Como posso no Inno, colocar as opções pra fazer instalação: - completa (aplicativo e servidor de banco de dados [firebird]) - somente aplicativo - somente servidor de banco de dados Alguém pode me ajudar, por favor? Jefferson - Original Message - From: José Claudemir To: [EMAIL PROTECTED] os.com.br Sent: Sunday, November 04, 2007 11:13 PM Subject: Res: [delphi-br] ot - Inno Setup Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original --- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: [EMAIL PROTECTED] os.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com. br Dúvidas:http://nilsoftware. blogspot. com/ Obrigatório: www.saopaulofc. com.br [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] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
Re: [delphi-br] displayformat em run-time
Rapaz, eu faço quase dessa forma e da certo, so que uso TFloatField(dados.FieldByName('total') ).DisplayFormat := '#,##0.00'; Em 05/11/07, Rafael Jorge [EMAIL PROTECTED] escreveu: to precisando formatar um valor de um field em run-time, a bronca é que o campo e criado em runtime tambem.. ai tente Tfmtbcdfield(dados.FieldByName('total')).DisplayFormat:= '#,##0.00'; so que nao resolveu.. alquem ai sabe como fazer isso? obrigado t+ -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- ERP completo www.acinformatica.org -- Empresa [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atribuir valor sem chamar create
é... parece que não tem jeito mesmo... Mas obrigado pelas respostas... :) On 11/5/07, Joao Morais [EMAIL PROTECTED] wrote: Leslyn Fernandes wrote: Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare uma variável X : TMyClass, e tente fazer X.Valor := 1, por exemplo, eu consiga uma forma de implementar o create da classe automaticamente... Desta forma, não, de alguma forma você tem que dizer a X qual é o endereço do objeto, e quem faz isto é o resultado do Create: X := TMyClass.Create; X.Valor := 1; Você pode construir um método de classe ou outro construtor na sua classe, a fim de associar um valor à propriedade e retornar o endereço do objeto: public constructor CreateComValor(Value: Integer); ou public class function CreateComValor(Value: Integer): TMyClass; O construtor cria a instância de TMyClass sozinho; o class function é mais propósito geral, você tem que criar a instância manualmente e depois associar o valor. constructor TMyClass.CreateComValor(Value: Integer); begin inherited Create; Valor := Value; end; ou class function TMyClass.CreateComValor(Value: Integer): TMyClass; begin Result := Create; Result.Valor := Value; end; -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] String em Negrito
Faz... de mais detalhes ai porque tudo que vc postou ta muito vago. Em 05/11/07, Felipe Nunes [EMAIL PROTECTED] escreveu: Bom dia pessoal... Estou prescisando saber se consegui concatenar strings com negrito exemplo string 1 + negrito(string 2) + string 3 intaum so preciso que a string 2 fique negrito.. Abraço [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] ot - Inno Setup
Olá Jefferson; isso q vc esta querendo pode ser feito assim : crie a seção [components] [Components] Name: Completa; Description: Instalação Completa ( Servidor / Aplicativo ); Types: full Name: Executaveis; Description: Instalação somente Aplicativo; Types: custom full Name: Servidor; Description: Somente servidor de banco de dados; Types: custom full depois coloque em cada arquivo na Seção [files] a tag Components, Ex: [Files] Source: ..\Sist. Comercial\Dados\INSTALAR\*.*; DestDir: {app}; Components: Completa Executaveis Source: ..\Sist. Comercial\Dados\REPARA.exe; DestDir: {app}; Components: Completa Executaveis Source: ..\Sist. Comercial\Dados\INSTALAR\PRINT.ANI; DestDir: {app}; Components: Executaveis Completa Source: ..\..\TOOLS\Firebird-2.0.1.12855-1-Win32.exe; DestDir: {tmp}; Components: Servidor Completa Ai para finalizar acrescente na seção Run [Run] Filename: {tmp}\Firebird-2.0.1.12855-1-Win32.exe; Components: Servidor Completa Espero ter ajudado, qquer coisa e so mandar um email. [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: Jefferson - Fórum Data: 05/11/2007 00:22:39 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] ot - Inno Setup Aproveito esse ot, e pergunto! Como posso no Inno, colocar as opções pra fazer instalação: - completa (aplicativo e servidor de banco de dados [firebird]) - somente aplicativo - somente servidor de banco de dados Alguém pode me ajudar, por favor? Jefferson - Original Message - From: José Claudemir To: delphi-br@yahoogrupos.com.br Sent: Sunday, November 04, 2007 11:13 PM Subject: Res: [delphi-br] ot - Inno Setup Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Testando campos no delphi
Valeu Adriano Santos pelo código exemplo, suas dicas são valiosas. Mais uma dúvida!! Amigos Estou precisando testar alguns campos, então declarei as procedure: procedure Alteracao1; procedure Alteracao2; E tenho o meu código: procedure TfrmAlteracao.Alteracao1; begin //1º teste if DBEditInicialAlteracao1.Text = DBEditInicioEfetivada.Text then begin if Application.MessageBox('A Data Inicial Efetivada está igual a anterior, Deseja Alterar?','Confirme',MB_YESNO+ MB_ICONQUESTION)= MRYES then begin DBEditInicialAlteracao1.SetFocus; Exit; end; end end; procedure TfrmAlteracao.Alteracao2; begin //2º teste if DBEditFinalAlteracao1.Text = DBEditFinalEfetivada.Text then begin if Application.MessageBox('A Data Final Efetivada está igual a anterior, Deseja Alterar?','Confirme',MB_YESNO+ MB_ICONQUESTION)= MRYES then begin DBEditFinalAlteracao1.SetFocus; Exit; end; end end; O problema e que precisava fazer os dois testes dentro de uma só procedure pois da forma que está o sistema não da tempo para alteração e já vai testando o outro campo na seqüência., o correto seria jogar o foco no campo e parar caso a alternativa seja sim, se a alternativa for não, então ele testa o outro campo seguindo a mesma seqüência. Alguém poderia dizer o que está errado ou faltando neste código? Agradeço..
RES: [delphi-br] String em Negrito
É porque estou usando o Report Builder, e eu concateno varias strings, e uma dessas strings eu keria que ela ficasse negrito, qndo mando imprimir eu faco um campo do report builder receber essa string inteira. faço o campo.caption := stringInteira (e dentro dessa string toda concatenada tem uma frase que deveria estar em negrito) exemplo: dasafjklshdfhasdfhlkasjdhflkashdfklajshdlfhsdfhk + dajsghdahsjkdhsahdkahskdhasjkhd + sdhasjhdjsh + adhsjhdas + aasjhgdashgdas abraço _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: segunda-feira, 5 de novembro de 2007 11:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] String em Negrito Faz... de mais detalhes ai porque tudo que vc postou ta muito vago. Em 05/11/07, Felipe Nunes nunesfelipe@ mailto:nunesfelipe%40yahoo.com.br yahoo.com.br escreveu: Bom dia pessoal... Estou prescisando saber se consegui concatenar strings com negrito exemplo string 1 + negrito(string 2) + string 3 intaum so preciso que a string 2 fique negrito.. Abraço [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [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] Atribuir valor sem chamar create
Leslyn Fernandes wrote: é... parece que não tem jeito mesmo... Como não tem jeito? A resposta que eu passei _é_ o jeito. Se você não quer se preocupar com criar e destruir instância, então deveria usar tipo objeto ao invés de classe: type TMyObj = object ... var VMyObj: TMyObj; begin VMyObj.Valor := 1; Mas é muito menos flexível. -- Joao Morais On 11/5/07, Joao Morais [EMAIL PROTECTED] wrote: Leslyn Fernandes wrote: Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare uma variável X : TMyClass, e tente fazer X.Valor := 1, por exemplo, eu consiga uma forma de implementar o create da classe automaticamente... Desta forma, não, de alguma forma você tem que dizer a X qual é o endereço do objeto, e quem faz isto é o resultado do Create: X := TMyClass.Create; X.Valor := 1; Você pode construir um método de classe ou outro construtor na sua classe, a fim de associar um valor à propriedade e retornar o endereço do objeto: public constructor CreateComValor(Value: Integer); ou public class function CreateComValor(Value: Integer): TMyClass; O construtor cria a instância de TMyClass sozinho; o class function é mais propósito geral, você tem que criar a instância manualmente e depois associar o valor. constructor TMyClass.CreateComValor(Value: Integer); begin inherited Create; Valor := Value; end; ou class function TMyClass.CreateComValor(Value: Integer): TMyClass; begin Result := Create; Result.Valor := Value; end; -- Joao Morais
Re: [delphi-br] String em Negrito
intendi.. infelizmente isso que vc ta querendo acho que é impossível, pois o negrito vai esta na fonte do componente, qualquer valor que seja passado para o caption dele vai ficam em negrito. Em 05/11/07, Felipe Nunes [EMAIL PROTECTED] escreveu: É porque estou usando o Report Builder, e eu concateno varias strings, e uma dessas strings eu keria que ela ficasse negrito, qndo mando imprimir eu faco um campo do report builder receber essa string inteira. faço o campo.caption := stringInteira (e dentro dessa string toda concatenada tem uma frase que deveria estar em negrito) exemplo: dasafjklshdfhasdfhlkasjdhflkashdfklajshdlfhsdfhk + dajsghdahsjkdhsahdkahskdhasjkhd + sdhasjhdjsh + adhsjhdas + aasjhgdashgdas abraço _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: segunda-feira, 5 de novembro de 2007 11:27 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] String em Negrito Faz... de mais detalhes ai porque tudo que vc postou ta muito vago. Em 05/11/07, Felipe Nunes nunesfelipe@ mailto:nunesfelipe%40yahoo.com.br yahoo.com.br escreveu: Bom dia pessoal... Estou prescisando saber se consegui concatenar strings com negrito exemplo string 1 + negrito(string 2) + string 3 intaum so preciso que a string 2 fique negrito.. Abraço [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Inno Setup - Data
Boa Tarde a todos.. Alguem saberia me informa se o Inno Setup, consegue gerar um instalador com data programada? ou seja, que esse instalador, funcione apenas durante um certo periodo?? Grato, desde já! Junior - Araraquara/SP [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atribuir valor sem chamar create
Então... é que do jeito que vc tinha falado antes, eu teria que me preocupar com a criação / destruição da instância... desse jeito não há necessidade... Nunca trabalhei com object ao invés de classe... como funciona? Grato, Leslyn Fernandes On 11/5/07, Joao Morais [EMAIL PROTECTED] wrote: Leslyn Fernandes wrote: é... parece que não tem jeito mesmo... Como não tem jeito? A resposta que eu passei _é_ o jeito. Se você não quer se preocupar com criar e destruir instância, então deveria usar tipo objeto ao invés de classe: type TMyObj = object ... var VMyObj: TMyObj; begin VMyObj.Valor := 1; Mas é muito menos flexível. -- Joao Morais On 11/5/07, Joao Morais [EMAIL PROTECTED]post%40joaomorais.com.br wrote: Leslyn Fernandes wrote: Eu gostaria de saber se há alguma forma de fazer com que, quando eu declare uma variável X : TMyClass, e tente fazer X.Valor := 1, por exemplo, eu consiga uma forma de implementar o create da classe automaticamente... Desta forma, não, de alguma forma você tem que dizer a X qual é o endereço do objeto, e quem faz isto é o resultado do Create: X := TMyClass.Create; X.Valor := 1; Você pode construir um método de classe ou outro construtor na sua classe, a fim de associar um valor à propriedade e retornar o endereço do objeto: public constructor CreateComValor(Value: Integer); ou public class function CreateComValor(Value: Integer): TMyClass; O construtor cria a instância de TMyClass sozinho; o class function é mais propósito geral, você tem que criar a instância manualmente e depois associar o valor. constructor TMyClass.CreateComValor(Value: Integer); begin inherited Create; Valor := Value; end; ou class function TMyClass.CreateComValor(Value: Integer): TMyClass; begin Result := Create; Result.Valor := Value; end; -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida Firebird + DBExpress
Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] String em Negrito
Acho eu que sua solução é braçal... ou seja, vai ter que fazer na mão. Quando vc usa um gerador de relatorio, vc esta sujeito aos limites do gerador, vc só tem o que ele te oferece. Agora, se vc fizer o relatorio na mão, utilizando o comando printer... desenhando o form e sabendo os caracteres de controle da sua impressora, tudo fica facil. Texto + CHR(xx) + CHR(negrito) + texto + chr(xx) + CHR(normal) Eu já fiz muito isso é cansativo... mais funciona. []´s -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Felipe Nunes Enviada em: segunda-feira, 5 de novembro de 2007 13:35 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] String em Negrito É porque estou usando o Report Builder, e eu concateno varias strings, e uma dessas strings eu keria que ela ficasse negrito, qndo mando imprimir eu faco um campo do report builder receber essa string inteira. faço o campo.caption := stringInteira (e dentro dessa string toda concatenada tem uma frase que deveria estar em negrito) exemplo: dasafjklshdfhasdfhlkasjdhflkashdfklajshdlfhsdfhk + dajsghdahsjkdhsahdkahskdhasjkhd + sdhasjhdjsh + adhsjhdas + aasjhgdashgdas abraço _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: segunda-feira, 5 de novembro de 2007 11:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] String em Negrito Faz... de mais detalhes ai porque tudo que vc postou ta muito vago. Em 05/11/07, Felipe Nunes nunesfelipe@ mailto:nunesfelipe%40yahoo.com.br yahoo.com.br escreveu: Bom dia pessoal... Estou prescisando saber se consegui concatenar strings com negrito exemplo string 1 + negrito(string 2) + string 3 intaum so preciso que a string 2 fique negrito.. Abraço [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [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 Links do Yahoo! Grupos
Re: [delphi-br] Duvida Firebird + DBExpress
Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente.Post ; Excluir: CDSCadCliente.Delete; Alterar: CDSCadCliente.Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente.CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente.ApplyUpdates(0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi7 c/ Dbexpress
Bom Tarde !!! Estou comecando a usar o Dbexpress e estou c/ algumas duvidas ? Gostaria de saber como eu faço para ligar DbGrid a um SimpledataSet usando parametro Ex: Qprod.Close; Qprod.ParamByName('Codigo').AsInteger:=1; Qprod.Open; Alguma coisa +- assim Obr.
Re: [delphi-br] Atribuir valor sem chamar create
João... Só mais uma pergunta... Eu posso declarar várias instâncias desse objeto, da mesma forma que eu posso fazer com classes, não? Grato, Leslyn Fernandes On 11/5/07, Joao Morais [EMAIL PROTECTED] wrote: Leslyn Fernandes wrote: Nunca trabalhei com object ao invés de classe... como funciona? Troque class por object e use os campos diretamente sem precisar de create e destroy. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida Firebird + DBExpress
Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro novamente por exemplo nao efetuou as alteracoes que eu fiz. Em 05/11/07, Luciano Angelini [EMAIL PROTECTED] escreveu: Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente.Post ; Excluir: CDSCadCliente.Delete; Alterar: CDSCadCliente.Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente.CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente.ApplyUpdates(0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Duvida Firebird + DBExpress
Samuel, vc observou os valores do applyupdates? no exemplo q vc enviou vc colocou -1 e no exemplo do luciano 0 (zero) Kaputz, Robson Skype: kaputz_gri Keep the Dream Alive - Mensagem original De: Samuel M. Basso [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 5 de Novembro de 2007 15:16:48 Assunto: Re: [delphi-br] Duvida Firebird + DBExpress Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro novamente por exemplo nao efetuou as alteracoes que eu fiz. Em 05/11/07, Luciano Angelini luciano.angelini@ uol.com.br escreveu: Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente. Post ; Excluir: CDSCadCliente. Delete; Alterar: CDSCadCliente. Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente. CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente. ApplyUpdates( 0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis- Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate( -1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: samuelbasso@ gmail.com samuelbasso% 40gmail.com mailto:samuelbasso %40gmail. com MSN: samuelbasso@ gmail.com samuelbasso% 40gmail.com mailto:samuelbasso %40gmail. com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: samuelbasso@ gmail.com MSN: samuelbasso@ gmail.com -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: samuelbasso@ gmail.com MSN: samuelbasso@ gmail.com [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida Firebird + DBExpress
sim ja testei com 0 e com -1 mesma coisa Em 05/11/07, Robson [EMAIL PROTECTED] escreveu: Samuel, vc observou os valores do applyupdates? no exemplo q vc enviou vc colocou -1 e no exemplo do luciano 0 (zero) Kaputz, Robson Skype: kaputz_gri Keep the Dream Alive - Mensagem original De: Samuel M. Basso [EMAIL PROTECTED] samuelbasso%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 5 de Novembro de 2007 15:16:48 Assunto: Re: [delphi-br] Duvida Firebird + DBExpress Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro novamente por exemplo nao efetuou as alteracoes que eu fiz. Em 05/11/07, Luciano Angelini luciano.angelini@ uol.com.br escreveu: Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente. Post ; Excluir: CDSCadCliente. Delete; Alterar: CDSCadCliente. Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente. CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente. ApplyUpdates( 0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis- Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate( -1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: samuelbasso@ gmail.com samuelbasso% 40gmail.com mailto: samuelbasso %40gmail. com MSN: samuelbasso@ gmail.com samuelbasso% 40gmail.com mailto: samuelbasso %40gmail. com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: samuelbasso@ gmail.com MSN: samuelbasso@ gmail.com -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: samuelbasso@ gmail.com MSN: samuelbasso@ gmail.com [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Atribuir valor sem chamar create
Leslyn Fernandes wrote: Eu posso declarar várias instâncias desse objeto, da mesma forma que eu posso fazer com classes, não? Sim. Se você tem: type TCliente = object ... então: var VCli1, VCli2: TCliente; irá criar duas instâncias de cliente, pronta para uso, sem que você precise de Create e Destroy. -- Joao Morais
RES: [delphi-br] Duvida Firebird + DBExpress
Olá, boa tarde. Tente colocar um showmessage no OnReconcileError do clientdataset. Pode estar ocorrendo um erro na gravação e ele não está lhe dando o retorno, as não está gravando. []s Topolniak. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Samuel M. Basso Enviada em: segunda-feira, 5 de novembro de 2007 13:17 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Duvida Firebird + DBExpress Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro novamente por exemplo nao efetuou as alteracoes que eu fiz. Em 05/11/07, Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br escreveu: Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente.Post ; Excluir: CDSCadCliente.Delete; Alterar: CDSCadCliente.Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente.CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente.ApplyUpdates(0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com [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] Duvida Firebird + DBExpress
Samuel Vc verificou os campos do ProviderFlags no CDS ... ProviderFlags: Primary Key = [pfInUpdate,pfInWhere,pfInKey]= true / pfHidden = false outros Campos = [pfInUpdate] = true [pfInWhere,pfInKey,pfInHidden] = false e no DataSetProvider: UpdateMode: upWhereAll ou tenta assim para descobrir o erro: no evento onReconcileError do clientdataset... Label1.Caption := E.Message; Luciano Angelini Prefeitura de Lupionópolis-Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi7 c/ Dbexpress
Use o ClientDataSet: SQLConnection + SQLQuery + DataSetProvider + ClientDataSet 1. SQLConnection --- Clique dua vezes no componente e na tela que se abre clique no + --- Crie uma nova conexão --- Marque LoginPrompt como False 2. SQLQuery --- Propriedade SQLConnection ligue ao componente SQLConnection --- Propriedade SQL, ponha seu Select 3. DataSetProvider --- Ligue-o ao componente SQLQuery pela proppriedade DataSet 4. ClientDataSet --- Ligue-o ao DataSetProvider pela propriedade ProviderName Pronto Abs -- Adriano Santos - Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp dorettodor respondeu: Bom Tarde !!! Estou comecando a usar o Dbexpress e estou c/ algumas duvidas ? Gostaria de saber como eu faço para ligar DbGrid a um SimpledataSet usando parametro Ex: Qprod.Close; Qprod.ParamByName('Codigo').AsInteger:=1; Qprod.Open; Alguma coisa +- assim Obr. No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.22/ - Release Date: 05/11/2007 04:36
Re: [delphi-br] ot - Inno Setup
Boa tarde! Coloquei um tutorial lá no meu site pra downloads que pode ser que te ajude nisso. [ http://www.esnips.com/doc/5bec9f51-f80d-4db5-a4fd-44dab8810237/Material-para-criar-instaladores-com-Inno-Setup ] Sds, Ricardo. Jefferson - Fórum [EMAIL PROTECTED] escreveu: Aproveito esse ot, e pergunto! Como posso no Inno, colocar as opções pra fazer instalação: - completa (aplicativo e servidor de banco de dados [firebird]) - somente aplicativo - somente servidor de banco de dados Alguém pode me ajudar, por favor? Jefferson - Original Message - From: José Claudemir To: delphi-br@yahoogrupos.com.br Sent: Sunday, November 04, 2007 11:13 PM Subject: Res: [delphi-br] ot - Inno Setup Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [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] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ot - Inno Setup
Testei e funcionou blz... Obrigado. []s Em 05/11/07, José Claudemir [EMAIL PROTECTED] escreveu: Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [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]
[delphi-br] Re: Delphi7 c/ Dbexpress
Desculpe a minha falta de conhecimento, mas na minha aba de dbexpress do delphi 7 eu nao tenho o datasetProvider ou tem outro nome ? Doretto. --- Em delphi-br@yahoogrupos.com.br, Adriano Santos [EMAIL PROTECTED] escreveu Use o ClientDataSet: SQLConnection + SQLQuery + DataSetProvider + ClientDataSet 1. SQLConnection --- Clique dua vezes no componente e na tela que se abre clique no + --- Crie uma nova conexão --- Marque LoginPrompt como False 2. SQLQuery --- Propriedade SQLConnection ligue ao componente SQLConnection --- Propriedade SQL, ponha seu Select 3. DataSetProvider --- Ligue-o ao componente SQLQuery pela proppriedade DataSet 4. ClientDataSet --- Ligue-o ao DataSetProvider pela propriedade ProviderName Pronto Abs -- Adriano Santos - Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp dorettodor respondeu: Bom Tarde !!! Estou comecando a usar o Dbexpress e estou c/ algumas duvidas ? Gostaria de saber como eu faço para ligar DbGrid a um SimpledataSet usando parametro Ex: Qprod.Close; Qprod.ParamByName('Codigo').AsInteger:=1; Qprod.Open; Alguma coisa +- assim Obr. -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.22/ - Release Date: 05/11/2007 04:36
Re: [delphi-br] ot - Inno Setup
Obrigado pela contribuição Ricardo. []s Em 05/11/07, Ricardo César Cardoso [EMAIL PROTECTED] escreveu: Boa tarde! Coloquei um tutorial lá no meu site pra downloads que pode ser que te ajude nisso. [ http://www.esnips.com/doc/5bec9f51-f80d-4db5-a4fd-44dab8810237/Material-para-criar-instaladores-com-Inno-Setup] Sds, Ricardo. Jefferson - Fórum [EMAIL PROTECTED] t_object%40yahoo.com.br escreveu: Aproveito esse ot, e pergunto! Como posso no Inno, colocar as opções pra fazer instalação: - completa (aplicativo e servidor de banco de dados [firebird]) - somente aplicativo - somente servidor de banco de dados Alguém pode me ajudar, por favor? Jefferson - Original Message - From: José Claudemir To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Sunday, November 04, 2007 11:13 PM Subject: Res: [delphi-br] ot - Inno Setup Olá Nilson, Como vc está mandando criar a pasta, está usando a seção [Dirs]? eu utilizo assim e funciona perfeitamente : [Dirs] Name: {app}\DADOS; Components: Completa Name: {app}\CONFIGURACAO; Components: Completa Name: {app}\SEGURANCA; Components: Completa Name: {app}\SINTEGRA; Components: Completa Espero ter ajudado [] José Claudemir Costa CCNA / Certificado Borland Delphi / MCSA ---Mensagem original--- De: Nilson Chagas Data: 11/03/07 13:31:40 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] ot - Inno Setup Algum dos nobres colegas conseguiu fazer o Inno Setup criar uma pasta vazia??? []s Nilson -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [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] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Delphi7 c/ Dbexpress
ClientDataSet e DataSetProvider são da aba Data Access -- Adriano Santos - Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp dorettodor respondeu: Desculpe a minha falta de conhecimento, mas na minha aba de dbexpress do delphi 7 eu nao tenho o datasetProvider ou tem outro nome ? Doretto. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Adriano Santos [EMAIL PROTECTED] escreveu Use o ClientDataSet: SQLConnection + SQLQuery + DataSetProvider + ClientDataSet 1. SQLConnection --- Clique dua vezes no componente e na tela que se abre clique no + --- Crie uma nova conexão --- Marque LoginPrompt como False 2. SQLQuery --- Propriedade SQLConnection ligue ao componente SQLConnection --- Propriedade SQL, ponha seu Select 3. DataSetProvider --- Ligue-o ao componente SQLQuery pela proppriedade DataSet 4. ClientDataSet --- Ligue-o ao DataSetProvider pela propriedade ProviderName Pronto Abs -- Adriano Santos -- Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp http://www.devmedia.com.br/clubedelphi/pagina.asp dorettodor respondeu: Bom Tarde !!! Estou comecando a usar o Dbexpress e estou c/ algumas duvidas ? Gostaria de saber como eu faço para ligar DbGrid a um SimpledataSet usando parametro Ex: Qprod.Close; Qprod.ParamByName('Codigo').AsInteger:=1; Qprod.Open; Alguma coisa +- assim Obr. -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.22/ - Release Date: 05/11/2007 04:36 No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.22/ - Release Date: 05/11/2007 04:36
Re: [delphi-br] Re: Delphi7 c/ Dbexpress
TclienteDataSet e TDataSetProvider Ficam na Data Access e Claro no Help tbm tem... Abraço! Em 05/11/07, dorettodor [EMAIL PROTECTED] escreveu: Desculpe a minha falta de conhecimento, mas na minha aba de dbexpress do delphi 7 eu nao tenho o datasetProvider ou tem outro nome ? Doretto. --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Adriano Santos [EMAIL PROTECTED] escreveu Use o ClientDataSet: SQLConnection + SQLQuery + DataSetProvider + ClientDataSet 1. SQLConnection --- Clique dua vezes no componente e na tela que se abre clique no + --- Crie uma nova conexão --- Marque LoginPrompt como False 2. SQLQuery --- Propriedade SQLConnection ligue ao componente SQLConnection --- Propriedade SQL, ponha seu Select 3. DataSetProvider --- Ligue-o ao componente SQLQuery pela proppriedade DataSet 4. ClientDataSet --- Ligue-o ao DataSetProvider pela propriedade ProviderName Pronto Abs -- Adriano Santos -- Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Editor Técnico, Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp dorettodor respondeu: Bom Tarde !!! Estou comecando a usar o Dbexpress e estou c/ algumas duvidas ? Gostaria de saber como eu faço para ligar DbGrid a um SimpledataSet usando parametro Ex: Qprod.Close; Qprod.ParamByName('Codigo').AsInteger:=1; Qprod.Open; Alguma coisa +- assim Obr. -- -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.22/ - Release Date: 05/11/2007 04:36 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida Firebird + DBExpress
commit!!! º.·´¯`·. º.·´¯`·. º.·´¯`·. Omar L. M. Rosa º.·´¯`·. º.·´¯`·. º.·´¯`·. [EMAIL PROTECTED] - Original Message - From: Samuel M. Basso To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 2:16 PM Subject: Re: [delphi-br] Duvida Firebird + DBExpress Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro novamente por exemplo nao efetuou as alteracoes que eu fiz. Em 05/11/07, Luciano Angelini [EMAIL PROTECTED] escreveu: Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente.Post ; Excluir: CDSCadCliente.Delete; Alterar: CDSCadCliente.Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente.CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente.ApplyUpdates(0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] [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] Duvida Firebird + DBExpress
aconselho usar Firebird + Dbexpress + UIB : é o que eu uso aqui , apesar da DLL ser ainda do 1.5 funciona sem problemas no FB 2.0 ... segue abaixo uma materia sobre isso com exemplos: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=375mode=threadorder=0thold=0 - Original Message - From: omar l m rosa To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 5:22 PM Subject: Re: [delphi-br] Duvida Firebird + DBExpress commit!!! º.·´¯`·. º.·´¯`·. º.·´¯`·. Omar L. M. Rosa º.·´¯`·. º.·´¯`·. º.·´¯`·. [EMAIL PROTECTED] - Original Message - From: Samuel M. Basso To: delphi-br@yahoogrupos.com.br Sent: Monday, November 05, 2007 2:16 PM Subject: Re: [delphi-br] Duvida Firebird + DBExpress Boa tarde luciano , obrigado pela ajuda mas ainda nao sei o que é cara acontece mesma coisa eu altero o registro gravo e qdo fecho o sistema abro novamente por exemplo nao efetuou as alteracoes que eu fiz. Em 05/11/07, Luciano Angelini [EMAIL PROTECTED] escreveu: Boa Tarde Samuel . Olha aki eu uso assim nos botões: Gravar: CDSCadCliente.Post ; Excluir: CDSCadCliente.Delete; Alterar: CDSCadCliente.Edit ; e nos eventos do ClientDataSet ... AfterCancel: CDSCadCliente.CancelUpdates ; AfterDelete e AfterPost: CDSCadCliente.ApplyUpdates(0) ; Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Samuel M. Basso escreveu: Boa Tarde! Tenho o seguinte problema, estou fazendo um sistema de solicitacoes coisa simples para praticar com dbexpress e tenho um problema que ao gravar e excluir eu adicione applyupdate(-1) mas mesmo assim ao gravar funciona vai pro banco de dados mas qdo altero ou excluo nao funciona continua como tava antes. -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com MSN: [EMAIL PROTECTED] samuelbasso%40gmail.com mailto:samuelbasso%40gmail.com [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] -- Atenciosamente, Samuel M. Basso Tel: (54) 3452-9126 Cel: (54) 8135-3723 E-mail: [EMAIL PROTECTED] MSN: [EMAIL PROTECTED] [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]
[delphi-br] unir contagem de 3 tabelas
Ola pessoal, estou tendo dificuldades em fazer uma query, eu tenho 4 tables (empresas,entrada,saidas,servicos) preciso fazer a contagem de registros individualizando, a quantidade de registros que cada empresa tem, obedecendo o periodo informado: Ex: filtrando o periodo de 01/10/2007 a 31/10/2007 empresa - rg entrada - rg saidas - rg servicos fulano1 5 600 fulano2 1 001 e assim vai. Eu sei que para contar nr de registros uso o count (select count(*) as rg1 from entrada where (filtro do periodo) ) mas isso é individual para cada tabela, tem como fazer uma query para todos de uma vez ? Gostaria de em uma query só utilizar a contagem para as 3 tabelas (entrada,saida e servicos). uso o mysql5 com zeos e delphi7 Agradeco a quem se manifestar com alguma ideia Francisco Carlos de Andrade [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/
Re: [delphi-br] Fim do Delphi ???
Passei alguns dias sem ver email, mas algumas coisas nunca mudam !!! aoliveira_sys escreveu: Estava conversando com amigos, e eles me disseram uma coisa q fiquei preocupado, disseram q o Delphi está com seus dias contados? Disseram q o arquiteto da Delphi foi para a Microsoft, e q essa versão do Delphi foi a ultima. E Q a tecnologia q vai predominar vai ser o C#. Esse noticia é verdadeira? Ou se trata de boatos.
Re: [delphi-br] [1/2 Off] Banco feito no SQLServer Express funciona no SQLServer normal?
Pessoal por favor, discutam esse assunto em um forum apropriado.. Isso não tem nada a ver com Firebird.. []Os Joel -- 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [1/2 Off] Banco feito no SQLServer Express funciona no SQLServer normal?
Me desculpem. Me equivoquei []Os Joel -- 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: [EMAIL PROTECTED] 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: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi x SOA
Amigos, estou necessitando de alguns exemplos de acesso com um cliente Delphi (7 ou 2006) a um servidor SOA em C#. Alguém poderia me ajudar? Desde já Agradeço Marcos Pinto
[delphi-br] ERRO TRIGGER
CREATE trigger t_devolucao_i for devolucao active after insert position 0 AS begin update produto set produto.devolucao=produto.devolucao+devolucao.quantidade where produto.codigoproduto=devolucao.codigoproduto end Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 7, column 1. end. onde esta errado? eu ja coloquei o ; no final da linha do where , mais ai ele diz q o campo devolucao.quantidade nao existe ajudinha por favor valew.. well