Re: [delphi-br] Exclusão mestre/detalhe
Caso vc use o FireBird ... ALTER TABLE IPEDIDO ADD CONSTRAINT FK_IPEDIDO FOREIGN KEY (CODIGO) REFERENCES PEDIDO (CODIGO_NF) DELETE CASCADE ON UPDATE CASCADE; Quando deletar o codigo do pedido tambem deletará os itens do pedido usando ON DELETE CASCADE Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Em 24/03/2010 09:07, Huander escreveu: Pessoal, preciso de uma ajuda! Tenho duas tabelas, onde é a mestre e a outra é a detalhe, tipo PEDIDOS E IPEDIDOS (itens do pedido). Já estou com o cadastro funcionando, cadastrando e consultado normalmente! A minha pergunta é qual o melhor método de fazer a exclusão do mestre/detalhe? Sendo que se mando um delete do mestre recebo um erro do banco dizendo que tem detalhes. Tenho que excluir todos os itens do detalhe via código ou tem alguma forma de deletar o mestre e isto se replicar para o detalhe? Att... Huander [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] [OFF TOPIC] Desabafo contra a DevMedia (ClubeDelphi)
Estou com vc JB .. Também não renovei minha assinatura só pensar em LUCRAR !! Tem video aula que mesmo sendo assinante vc tem que ter crédito para baixar !!! Luciano Angelini Prefeitura de Lupionópolis-Pr JB escreveu: por isso não renovo (não assassino ) assino essa merda, algum ganancioso de plantão disfarçou os anúncios dessa merda pra enganar os que querem aprender a merda que eles inventam publicar. saudades quando Guinter Pauli era um ícone, agora são só um bando de moleques com menos experiência que minha avó, querendo apenas lucrar. ponto final. se for mentira falem comigo. 2009/12/1 EmbarcaDelphi embarcadel...@yahoo.com.br Antes de postar este OFF TOPIC eu entrei em contato pelo chat (atendente: Glória), nada foi solucionado, ou seja, é assim mesmo o funcionamento. Na revista não vem falando nada que só se tem um acesso e depois não se pode acessar novamente. É caso de polícia mesmo! Licerio Neto escreveu: Sou usuário da revista e dos videos que muito me auxiliaram nos meus estudos, com certeza deve ter ocorrido algum problema no gerenciador de cadastros deles, vamos ser cautelosos e aguardar que a DevMedia se manifeste sobre o assunto antes de ficarmos atirando pedras, caso isso não aconteca, ai vamos jogar tijolos,,, hehehehhehe, Alguem da DevMedia faça uso da palavra por favor. Licério Neto. _ --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 091202-0, 02/12/2009 Tested on: 12/2/ 09:12:16 avast! - copyright (c) 1988-2009 ALWIL Software. http://www.avast.com
Re: [delphi-br] Filtro no ClientDataSet Usando LIKE
Veja .
Vc pode usar esse exemplo num edit OnChange .. conforme vc vai digitando ...
FrmDm.CDS_Setores.filter := 'NOME_SET LIKE ' +
QuotedStr('%'+Edit1.text+'%');
FrmDm.CDS_Setores.Filtered := true;
FrmDm.CDS_Setores.locate('nome_set','edit1.text',[loPartialKey]) ;
** QuotedStr(''+Edit1.text+'%') que comece com a letra
** QuotedStr('%'+Edit1.text+'%') que contenha a letra
** QuotedStr('%'+Edit1.text+''); que termine com a letra
Espero ter ajudado !
Luciano Angelini
PM de Lupionópolis-Pr
Gilvan Costa escreveu:
Olá Srs
Estou querendo montar um filtro com ClietDataSet de forma que ele me traga
os registro de todos que começa com a letra A por exemplo .
Tipo o que eu faço com no SQL:
CDSPesquisa.Params.ParamByName('Pesquisa').Value := '%'+ Pesquisa +'%';
O objetivo é claro, uma vez que eu já tenho os dados no grid, gostaria de
fazer diversos filtros e não mais precisar
ir no banco de dados e fazer uma nova consulta.
Tentei montar o filtro usando LIKE mais não deu certo:
CDSPesquisa.Filtered := False;
CDSPesquisa.Filter := 'Meu Campo Like '+ QuotedStr('%' + BtePesquisar
Text + '%' );
CDSPesquisa.Filtered := True;
Assim deu certo, mas só funcionar para um valor completo
CDSPesquisa.Filter := 'Meu Campo = ' + QuotedStr(BtePesquisar.Text);
[As partes desta mensagem que não continham texto foram removidas]
avast! Antivirus http://www.avast.com: Inbound message clean.
Virus Database (VPS): 091108-1, 08/11/2009
Tested on: 11/9/ 09:18:35
avast! - copyright (c) 1988-2009 ALWIL Software.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 091108-1, 08/11/2009
Tested on: 11/9/ 09:35:08
avast! - copyright (c) 1988-2009 ALWIL Software.
http://www.avast.com
--
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] Update de tabela atraves de query
Boa Tarde Hugo
Tente dar um espaço em
SQL.Add('UPDATE TABLE PRODUTO');
para
SQL.Add('UPDATE TABLE PRODUTO ');
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Hugo Vieira escreveu:
Boa tarde amigos,
Estou com uma duvida que ja me fez perder a paciencia.
Tenho uma query que a função dela é da baixa em estoque em um modulo
de produtos.
Botei o seguinte codigo:
SQL.Add('UPDATE TABLE PRODUTO');
SQL.Add('SET QUANTIDADE=:QUANTIDADEATUALIZADA ');
SQL.Add('WHERE P.CODIGODOPRODUTO =:CODIGODOPRODUTO
seto os ParamByName como o codigo do produto e a quantidade atualizada
como sendo a quantidade que o operador vendeu do produto. so que da o
seguinte erro: GENERAL SQL ERRO
sou iniciante ainda. p isso tenho essa simples duvida.
Hugo
__
Você sabia que o Hotmail mudou? Clique e descubra as novidades.
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: calculo da idade de nascimento no momento do cadastro
Gustavo Aparentemente seria só substituir o message pelo seu DBedit, mas eu penso que isso daria errado gravar a idade em um campo de dados, quando passar um certo tempo ja não estara correto os dados (idade), o correto seria fazer que calcula-se essa idade e jogaria em uma variavel, se vc por pra calcular a idade, tipo toda vez que vc abrir o sistema, imagine um sistema rodando em rede com 20 micros, com 1 pacientes/clientes, toda vez que uma maquina entra no sistema tem que fazer esse calculo, dar um while na tabela alterando e gravando, é de matar qualquer rede !! Eu tinha um sistema para imprimir cartão de aniversariantes do municipio que eu colocava uma Label só pra mostrar a idade !! Espero ter ajudado Luciano Angelini gustavoandref escreveu: Luciano, fico muito grato pela sua ajuda, mas estou precisando pegar esse valor e colocar em um outro dbedit, como faço isso? um abraço, --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Luciano Angelini luciano.angel...@... escreveu Boa Tarde Gustavo . Eu uso assim function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer; var D1, M1, A1, D2, M2, A2: Word; begin DecodeDate(Data1, A1, M1, D1); DecodeDate(Data2, A2, M2, D2); Result := A2 - A1; if (M1 M2) or ((M1 = M2) and (D1 D2)) then Dec(Result); end; procedure TForm1.Button1Click(Sender: TObject); var DataNasc: TDateTime; begin DataNasc := StrToDate(MaskEdit1.Text); ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos'); end; Espero ter ajudado !1 Luciano Angelini Prefeitura de Lupionópolis-Pr gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: [delphi-br] calculo da idade de nascimento no momento do cadastro
e aproveitando caso vc queira saber anos ... meses e dias . procedure TForm1.BitBtn1Click(Sender: TObject); var Ano, Mes: Integer; Total_dias: Real; begin //Descobrir a idade somente em anos, meses ou dias... ShowMessage(IntToStr(YearsBetween(Date, StrToDate(MaskEdit1.Text))) + ' anos'); ShowMessage(IntToStr(MonthsBetween(Date, StrToDate(MaskEdit1.Text))) + ' meses'); ShowMessage(IntToStr(DaysBetween(Date, StrToDate(MaskEdit1.Text))) + ' dias'); end; gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: [delphi-br] calculo da idade de nascimento no momento do cadastro
Boa Tarde Gustavo . Eu uso assim function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer; var D1, M1, A1, D2, M2, A2: Word; begin DecodeDate(Data1, A1, M1, D1); DecodeDate(Data2, A2, M2, D2); Result := A2 - A1; if (M1 M2) or ((M1 = M2) and (D1 D2)) then Dec(Result); end; procedure TForm1.Button1Click(Sender: TObject); var DataNasc: TDateTime; begin DataNasc := StrToDate(MaskEdit1.Text); ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos'); end; Espero ter ajudado !1 Luciano Angelini Prefeitura de Lupionópolis-Pr gustavoandref escreveu: Pessoal, estou precisando que na tela de cadastro de pacientes ao digitar a data de nascimento apareça em outro campo a idade do paciente (isso é necessário para definir qual especialidade médica ele será direcionado). sei que é possível fazer via eventos do delphi, mas não sei como fazer. se alguém tiver a solução por favor poste aqui, um grande abraço, Gustavo Freitas Hospital Geral de Linhares
Re: RES: [delphi-br] DBGrid
Bom dia Paulo .
eu uso esse tipo de pesquisa no DBGrid usando os componentes DBExpress .
procedure TFrmCadProduto.Edit1Change(Sender: TObject);
begin
FrmDm.CDSCadProduto.filter := 'NOME_PRODUTO LIKE ' +
QuotedStr('%'+Edit1.text+'%');
FrmDm.CDSCadProduto.Filtered := true;
FrmDm.CDSCadProduto.locate('nome_produto','edit1.text',[loPartialKey]) ;
end;
sendo que a tabela esta carregada na memória, evita de ficar indo e
voltando no servidor
espero ter ajudado
Luciano Angelini
Prefeitura deLupionópolis-Pr
Claudiney - Listas escreveu:
Olá Paulo. Tudo bem?
Isso que você fez, do ponto de vista da linguagem, não está errado.
Porém, funciona muito bem em uma tabela com poucos registros. A partir do
momento que você tiver muitos dados na tabela isso pode (e provavelmente
vai) te atrapalhar bastante.
Eu trabalho um pouco diferente. Deixo o usuário digitar o que ele quer
pesquisar primeiro, sem fazer nada, e quando ele clicar num botão de
pesquisar, ou der enter no fim da digitação eu faço a pesquisa. Dessa
maneira fica mais tranqüilo, pois faz apenas um acesso ao servidor. Da
maneira que vc está fazendo hoje ele faz um acesso para cada letra
digitada.
Imagine uma pesquisa com muitas letras. E cada acesso ao servidor é uma
instrução SQL que é executada.
Para fazer dessa maneira é só colocar o seu código no evento click de um
botão, ou no evento onkeyup ou onkeypress to Edit, tratando o
parâmetro Key
e verificando se é um enter (#13 no caso do onkeypress ou vk_return no
onkeyup).
Abraço.
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ http://www.n2solutions.com.br/
www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ http://www.studion2.com.br/
www.studion2.com.br
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de pcedisi
Enviada em: segunda-feira, 24 de agosto de 2009 13:52
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] DBGrid
Ola!
Por favor, preciso de ajuda com DBGrid!
Tenho um DBGrid de clientes e uso onChange para fazer pesquisa
a cada letra digitada, o problema é que ele redimensiona a cada
busca alem de redesenhar o DBGrid gerando um efeito de piscar
a cada letra digitada. Alguem pode ajudar? Isso que estou fazendo
é o certo?
procedure TfrmClientes.edtPesquisaChange(Sender: TObject);
begin
dmcli.qryClientes.Close;
dmcli.qryClientes.Params[0].AsString := Trim(edtPesquisa.Text);
dmcli.qryClientes.Open;
end;
obrigado,
Paulo
[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] [ OFF - Video-aula Free] Orientação a Obj etos...
EmbarcaDelphi Eu também não irei renovar minha assinatura ClubeDelphi, por esse motivo ia para o 4ª de assinatura tem curso... video-aula que vc mesmo sendo assinante voce tem que comprar crédito para assistir os mesmos !!! Que futuro tem isso EmbarcaDelphi escreveu: O único problema desse site passado por Andrei é que os vídeos são todos dentro de um programa, o mesmo contém uma senha para ser acessado por um período de tempo. Não gosto de viver aprisionado por alguma coisa, a ClubeDelphi, em alguns vídeos também tem essa fres Isso foi causa de muita discussão, até mesmo de assinantes da revista, eu mesmo não renovei minha assinatura na ClubeDelphi por causa dessas e de outras coisas que a ClubeDelphi inovou para prender as pessoas a ela. Ricardo César Cardoso escreveu: Valeu Andrei! []'sRicardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 13/8/09, Andrei Luís compuvale.softw...@gmail.com mailto:compuvale.software%40gmail.com mailto:compuvale.software%40gmail.com escreveu: www.istudar. com.br [] Andrei .
Re: [delphi-br] Formas de se fazer com que um computador desligue
Caro Carlos ... Uma pequena parte dos metidos a 'Técnico em Informatica' , quando não acham uma solução para o clientes, colocam culpa em alguma coisa, talvez viu alguma coisa diferente no computador, Seu Sistema ... e falou que é isso ! Desistale seu Programa/Sistema e veja o que acontece, tenho certeza que o computador ira desligar ! Pois isso é falha de hardware e não de Software. Luciano Angelini Prefeitura de Lupionópolis-Pr Carlos Negrão escreveu: Estou com um problema aqui. O computador que um cliente usa para rodar um programa que fiz anda desligando sozinho quando entra no programa. Eu sei que não coloquei nada no programa para desligar o computador, e não tenho a menor idéia de como poderia fazer isso acidentalmente, mas o técnico que olhou a máquina colocou a culpa no meu programa. Existe alguma coisa que eu possa ter feito para causar o problema por acidente, apesar de nunca acontecer em nenhum dos dois computadores que uso para programar e testar? Ou será que o problema deles só pode mesmo ser hardware e o técnico simplesmente não soube diagnosticar?
Re: [delphi-br] Sistema Campeonato de Futebol
Caro Alisson . Talvez vc não entendeu o que eu quiz dizer o sistema seria pra gerar a classificação do campéonato ... tipo o Campeonato brasileiro tem os jogos ... o sistema faz os calculo dos pontos ... dos jogos realizados Alisson escreveu: Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse programa? Qual a finalidade dele? O que ele vai controlar? Quem vai usar? Você deve definir o que realmente quer fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Sistema Campeonato de Futebol
Caro Marcio ... Como é pra mim ter uma base vou começar com pontos corridos Marcio F. Cruz escreveu: é pontos corridos? tem oitavas-de-final? 2009/5/18 Alisson alss...@yahoo.com.br mailto:alssnco%40yahoo.com.br Que pergunta mais genérica! Assim fica difícil alguém ajudar. Como é esse programa? Qual a finalidade dele? O que ele vai controlar? Quem vai usar? Você deve definir o que realmente quer fazer. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ http://br.beta.messenger.yahoo.com/ -- Márcio F. Cruz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Será que é tao difici l escrever um memo justificado no delphi?
Bom dia Rafael Nos meus sistemas eu utilizo o Fortes Reportes os componentes RLMemo e RLDBMemo com as propriedades Aligment := taJustify Funciona corretamente Luciano Angelini Prefeitura de Lupionópolis-PR Rafael Jorge escreveu: eu to tentando escrever um contrato... inicialmente tente usar quickerp.. mas nao consequi justificar de jeito nenhum.. depois tentei com o rave.. e nem consequi preencher um memo.. nao tenho experiencia em nenhum outro compomente de relatorio.. so o quickrep.. e to aqui a 3 dias ja tentando so fazer isso.. se alquem souber alguma forma de transferir um memo de um memo de algum rlatorio justificado me avise uma forma.. pq ja nao sei mais o que fazer.. obrigado e t+ -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Será que é tao difici l escrever um memo justificado no delphi?
Rafael Segue o link do forum do Fortes Report ... http://forum.produsys.com.br/viewforum.php?f=1 Luciano Angelini Prefeitura de Lupionópolis-Pr Rafael Jorge escreveu: tem como vc me enviar o que vc usa.. o que eu usava vivia dando bronca. sem dizer que eu uso o delphi 2006 tem alguma versao pra ele? 2009/3/25 Luciano Angelini luciano.angel...@uol.com.br mailto:luciano.angelini%40uol.com.br Bom dia Rafael Nos meus sistemas eu utilizo o Fortes Reportes os componentes RLMemo e RLDBMemo com as propriedades Aligment := taJustify Funciona corretamente Luciano Angelini Prefeitura de Lupionópolis-PR Rafael Jorge escreveu: eu to tentando escrever um contrato... inicialmente tente usar quickerp.. mas nao consequi justificar de jeito nenhum.. depois tentei com o rave.. e nem consequi preencher um memo.. nao tenho experiencia em nenhum outro compomente de relatorio.. so o quickrep.. e to aqui a 3 dias ja tentando so fazer isso.. se alquem souber alguma forma de transferir um memo de um memo de algum rlatorio justificado me avise uma forma.. pq ja nao sei mais o que fazer.. obrigado e t+ -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas] -- _ Rafael jorge alves Desenvolvedor/analista Ativa Soluções em TI. Recife - PE [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida basica OpenDialog
guimaraesrodrigo23 Tem um componente da JEDI . TJvDriveCombo muito bom !! Luciano Angelini Prefeitura de Lupionópolis-Pr guimaraesrodrigo23 escreveu: Fala galera bom dia. To precisando usar um Opendialog, porém ele funciona apenas para selecionar arquivos. Preciso selecionar diretórios. Utilizei funcao do delphi SelectDirectory, mas aquilo é muito limitado. Alguém tem uma alternativa legal para selecionar pastas? abraço
Re: [delphi-br] Duvida basica OpenDialog
guimaraesrodrigo23 Complementando . Vc usa o JvDriveCombobox junto com o JvDirectoryListBox vc escolhe o Drive com o JVDriveComboBox e o JvDirectoryListBox mostra as pasta que tem bem bacana Luciano Angelini guimaraesrodrigo23 escreveu: Fala galera bom dia. To precisando usar um Opendialog, porém ele funciona apenas para selecionar arquivos. Preciso selecionar diretórios. Utilizei funcao do delphi SelectDirectory, mas aquilo é muito limitado. Alguém tem uma alternativa legal para selecionar pastas? abraço
Re: [delphi-br] FORMULÁRIO FORMULÁRIO
BORDERSTYLE := bsSIZEABLE ; Sergio - Jundiai /SP escreveu: Boa tardea Windowstate WsNormal Gostaria de saber se tem como fixar a borda do form, para que o usuario nao clique na borda e aumente o tamanho. Sergio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FORMULÁRIO FORMULÁRIO
Opa foi mal . BorderStyle := BsSingle ; Luciano Angelini escreveu: BORDERSTYLE := bsSIZEABLE ; Sergio - Jundiai /SP escreveu: Boa tardea Windowstate WsNormal Gostaria de saber se tem como fixar a borda do form, para que o usuario nao clique na borda e aumente o tamanho. Sergio [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressa de Cheque Chronos
Paulo Muito obrigado pela dica ... me escrevi no grupo ''AutomaçãoTotal'' ... ja coloquei minha duvida... estou no aguardo que alguma solução Luciano Angelini Prefeitura de Lupionópolis-Pr Paulo - yahoo escreveu: Luciano: - Certa vez, precisei imprimir cheques em uma impressora desse tipo. Tentei de tudo, inclusive algumas DLLs, mas não deu certo. - A solução foi o conjunto de componentes ACBr, que pode ser encontrado em: http://acbr.sourceforge.net/wiki/index.php http://acbr.sourceforge.net/wiki/index.php Infelizmente, faz muito tempo que mexi com esses componentes, e não me lembro de mais detalhes. Mas consegui ajuda no grupo Automação Total: http://br.groups.yahoo.com/group/AutomacaoTotal/ http://br.groups.yahoo.com/group/AutomacaoTotal/ Acho que você consegue aprender a mexer nos componentes apenas dando uma olhada nos exemplos que vêm no pacote. Boa sorte ! Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressa de Cheque Chronos
Boa Noite Moacir Muito obrigado pela atenção mas segui a dica do Paulo e me escrevi no grupo ''AutomaçãoTotal''. Luciano Angelini Prefeitura de Lupionópolis-Pr Moacir - GMail escreveu: Lá pelos idos de 1990 eu fiz algumas rotinas com esta impressora usando clipper.. O que vc precisa ?? Moacir loangelini escreveu: Bom dia a todos ... Alguém da lista ja desenvolveu algum sistema utilizando a impressora de cheque da chronos Luciano Angelini Prefeitura de Lupionópolis-Pr
Re: [delphi-br] Essa é Nova!!! - Delphi para DVD - Só por diletantismo
Boa dia Coutinho Nas minhas criações caseiras eu utilizo o DVD Lab 2 com ele vc cria menus com imagem de fundo ... com musica de fundo ... muito bom Baixei ele pelo Emule Luciano Angelini Prefeitura de Lupionópolis-Pr Coutinho - Yahoo escreveu: Pessoal Tenho uma filha de 2 anos e 10 meses.. estou querendo pegar os filmes que fiz dela, e as suas fotos etc... e colocar num DVD... Mas não estou querendo investir muito em mídia para DVD... então, estou pensando em criar um programa que pegue os AVI's que gerei nos filminhos dela, e colocar no DVD-R DL (os de 8.5 Gb... Mas quero criar menus com os filminhos... e só encontro ionformações sobre programas que pegam os AVI's e transformam em arquivos .vob e geram os DVDs Pesquisei na internet, mas só encontro informações sobre programas que fazem isso ... Alguém tem literatura ou tem algum conhecimento de como posso criar no Delphi, ou em outra linguagem os arquivos de menu para os DVDs, mas para rodar os mPeg, ou Avi's que intenciono deixar no formato original, pois meu dvd lê mpeg, avi, divx etc... Agradeço qualquer ajuda, desde já!!! Sds Emanuel Coutinho
RE: [delphi-br] Enc: quais são comandos do DBGrid [DBGri d nao ... falai errado .. é DBNavigator]
Felipe para salvar .. FrmTabelas.ADOQ_imoveis.Post . To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 17 Nov 2008 12:21:49 -0800Subject: [delphi-br] Enc: quais são comandos do DBGrid [DBGrid nao ... falai errado .. é DBNavigator] galera foi mau ..falei coisa errada .. nun é DBGrid nao .. é DBNavigator ...hehehehhefalha nossa !!!hehe__Att,Felipe Milagres--- Em seg, 17/11/08, Felipe Milagres [EMAIL PROTECTED] escreveu: De: Felipe Milagres [EMAIL PROTECTED] Assunto: quais são comandos do DBGrid Para: delphi-br delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Novembro de 2008, 17:54 boa tarde galera ... queria saber quais são os comandos usados no DBGrid eu sei alguns .. Primeiro frmTabelas.ADOQ_Imoveis.First; Anterior frmTabelas.ADOQ_Imoveis.prior; Proximo frmTabelas.ADOQ_Imoveis.Next; Ultimo frmTabelas.ADOQ_Imoveis.Last; Adicionar frmTabelas.ADOQ_Imoveis.Insert; Excluir frmTabelas.ADOQ_Imoveis.Delete; Alterar frmTabelas.ADOQ_Imoveis.Edit; Aceitar/Salvar ??? Cancelar frmTabelas.ADOQ_Imoveis.Cancel; Atualizar ? agora o Aceitar/Salvar e Atualizar .. eu nao sei ... alguem sabe ?? __ Att, Felipe Milagres Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.comVeja quais são os assuntos do momento no Yahoo! +Buscadoshttp://br.maisbuscados.yahoo.com _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird não atualiza
Bom dia Stainle2003
quando preciso importar dados TXT para um CDS ... clientDataSet eu uso
assim
um Componente ClientDataSet um DataSource ... um OpenDialog ... um
Edit
2 button(Gerar Dados no CDS e Localizar o Arquivo TXT) e um DBGrid.
OnClick do Button para Localizar o Arquivo TXT
OpenDialog1.Execute ;
edit1.text := OpenDialog1.FileName ;
no clique do Button para Gerar Dados no CDS
var
texto : TStringList;
i,total : integer;
begin
ClientDataSet1.Open ;
texto := TStringList.create ;
texto.LoadFromFile(Edit1.Text) ;
texto.Text := trim(texto.Text) ;
for i := 0 to texto.Count -1 do
begin
ClientDataSet1.Insert;
ClientDataSet1NOME.AsString := trimRight(copy(texto[i],01,45));
ClientDataSet1N_DOC.AsString := TrimRight(copy(texto[i],45,59));
ClientDataSet1ENDERECO.AsString := TrimRight(copy(texto[i],66,120));
ClientDataSet1BAIRRO.AsString := TrimRight(copy(texto[i],119,149));
ClientDataSet1CEP.AsString := TrimRight(copy(texto[i],150,159)) ;
ClientDataSet1.post ;
end;
texto.Free ;
total := ClientDataSet1.RecordCount ;
ShowMessage('Total de Registros Importados: ' + inttostr(total)) ;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionopolis
stainle2003 escreveu:
Amigos, estou com Delphi 7 lendo arquivos textos e tentando atualizar
tabelas no Firebird 1.5, leio os textos e coloco num CDS que está
ligado a um Provider que por sua vez está ligado ao SqlDataSet e este
ao SQLConnection(DBExpress), algumas tabelas são atualizadas outras
não, a configuração do DSP estão todas iguais, não uso Transaction,
não sei se precisa, estou perdido, se alguem puder ajudar desde já
agradeço.
Stainle,
segue abaixo o codigo que utilizo:
if FileExists('c:\remoto\descon\txtdes.txt') then
begin
Dados.CDSDes.First;
While not (Dados.CDSDes.Eof) do
begin
Dados.CDSDes.Delete;
end;
Dados.CDSDes.ApplyUpdates(0);
AssignFile(aa, 'c:\remoto\descon\txtdes.txt');
reset(aa);
While not eof(aa) do
begin
readln(aa, linho);
if Dados.CDSDes.FindKey([copy(linho, 1, 8)]) then
begin
Dados.CDSDes.Edit;
Dados.CDSDesRFornece.Value := copy(linho,
9, 20);
Dados.CDSDes.Post;
Dados.CDSDes.ApplyUpdates(0);
end
else
begin
Dados.CDSDes.Insert;
Dados.CDSDesRNrolinha.Value := copy(linho,
1, 8);
Dados.CDSDesRFornece.Value := copy(linho,
9, 20);
Dados.CDSDes.Post;
Dados.CDSDes.ApplyUpdates(0);
end;
end;
RE: [delphi-br] Firebird não atualiza
Putz ...
me desculpem coloquei o exemplo errado .
esse é pra converter txt para xml
foi mal
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Fri, 14 Nov 2008 09:25:38
-0200Subject: Re: [delphi-br] Firebird não atualiza
Bom dia Stainle2003 quando preciso importar dados TXT para um CDS ...
clientDataSet eu uso assim um Componente ClientDataSet um DataSource
... um OpenDialog ... um Edit2 button(Gerar Dados no CDS e Localizar o
Arquivo TXT) e um DBGrid.OnClick do Button para Localizar o Arquivo
TXTOpenDialog1.Execute ;edit1.text := OpenDialog1.FileName ;no clique do Button
para Gerar Dados no CDSvartexto : TStringList;i,total :
integer;beginClientDataSet1.Open ;texto := TStringList.create
;texto.LoadFromFile(Edit1.Text) ;texto.Text := trim(texto.Text) ;for i := 0 to
texto.Count -1 dobeginClientDataSet1.Insert;ClientDataSet1NOME.AsString :=
trimRight(copy(texto[i],01,45));ClientDataSet1N_DOC.AsString :=
TrimRight(copy(texto[i],45,59));ClientDataSet1ENDERECO.AsString :=
TrimRight(copy(texto[i],66,120));ClientDataSet1BAIRRO.AsString :=
TrimRight(copy(texto[i],119,149));ClientDataSet1CEP.AsString :=
TrimRight(copy(texto[i],150,159)) ;ClientDataSet1.post ;end;texto.Free ;total
:= ClientDataSet1.RecordCount ;ShowMessage('Total de Registros Importados: ' +
inttostr(total)) ;Espero ter ajudado ...Luciano AngeliniPrefeitura de
Lupionopolisstainle2003 escreveu: Amigos, estou com Delphi 7 lendo arquivos
textos e tentando atualizar tabelas no Firebird 1.5, leio os textos e coloco
num CDS que está ligado a um Provider que por sua vez está ligado ao
SqlDataSet e este ao SQLConnection(DBExpress), algumas tabelas são atualizadas
outras não, a configuração do DSP estão todas iguais, não uso Transaction,
não sei se precisa, estou perdido, se alguem puder ajudar desde já agradeço.
Stainle, segue abaixo o codigo que utilizo: if
FileExists('c:\remoto\descon\txtdes.txt') then begin Dados.CDSDes.First;
While not (Dados.CDSDes.Eof) do begin Dados.CDSDes.Delete; end;
Dados.CDSDes.ApplyUpdates(0); AssignFile(aa, 'c:\remoto\descon\txtdes.txt');
reset(aa); While not eof(aa) do begin readln(aa, linho); if
Dados.CDSDes.FindKey([copy(linho, 1, 8)]) then begin Dados.CDSDes.Edit;
Dados.CDSDesRFornece.Value := copy(linho, 9, 20); Dados.CDSDes.Post;
Dados.CDSDes.ApplyUpdates(0); end else begin Dados.CDSDes.Insert;
Dados.CDSDesRNrolinha.Value := copy(linho, 1, 8); Dados.CDSDesRFornece.Value
:= copy(linho, 9, 20); Dados.CDSDes.Post; Dados.CDSDes.ApplyUpdates(0);
end; end;
_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi não quer mais compilar
Bom dia Denise . As vezes acontece isso com o meu Delphi 7 . eu apenas apago o executavel do sistema que esta dando o problema quando compila, e compilo de novo agora porque acontece eu não sei te explicar ! Espero ter ajudado ... Luciano Angelini Prefeitura de Lupionópolis-Pr Janise Dantas escreveu: Meu Delphi não quer mais compilar, só complicar... Ele está dando esse erro: [Fatal Error] Could not create output file 'C:\Program Files\Borland\Delphi6\Projects\P_palestras2.exe' O que é isso? Ontem tava legal, hoje tá não lembro de nada pra rimar, a não ser me deixando mal, pro que tenho exercícios pra fazer. Alguém pode me orientar?? Obrigada Janise Dantas -- 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] Como fazer consulta sql entre tabelas Mestre x Detalhe com Clientdataset ou Sqlquery?
Bom dia Vicente ... Use SQLDataSet ... Ligado ao DataSetProvider Ligado ao ClientDataSet Ligado ao DataSource ... e finalmente ligando o DBGrid ao DataSource Vicente Alves escreveu: Bom dia ! Estou usando os compontes Dbexpress e Data Access para os cadastros nas tabelas Saida e Detalhes_saida tudo OK que no cadastro! Já para consultas? Sempre usei a paleta interbase e as IBQuery para fazer consultas eu queria saber se álguem puder dar uma dica de qual a melhor forma para se fazer consultas já que estou usando os componentes Dbexpress Tentei usar sqlquery mas na hora de ligar com o dbgrid deu este erro operação não permitida em um unidirecional dadaset Seria possivel usar o clientdataset para fazer esse tipo de consulta entre duas tabelas? Me desculpem se as minhas duvidas são simples sou novo em programação e faço porque gosto não sou profissional como a maioria aqui do grupo mas se álguem puder ajudar agradeço muito!! __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] quebra de linha em uma Label
Boa Luciano Calenzani . Estou usando o Delphi 7 o que acontece se eu usar o WordWrap ele vai fazer a quebra de linha ... mas na mesma label... o que eu quero ... é pegar o valor por extenso ... tipo 99.999,99 ja tenho a function pra montar o valor por extenso e jogar na label/edit ... quando o texto na caber mais na label/edit... o restando do texto ira para a outra label/edit. Entendeu ???/ obrigado pela atenção Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Calenzani Simões escreveu: Não me lembro em versões anteriores, mas no Delphi 2006 o TLabel tem a propriedade WordWrap. Mas você pode simular isso com outros componentes como TMemo, por exemplo. Luciano Calenzani Simões - Mensagem original De: loangelini [EMAIL PROTECTED] mailto:lucianoangelini%40msn.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 26 de Setembro de 2008 11:26:29 Assunto: [delphi-br] quebra de linha em uma Label Bom dia a todos do grupo Gostaria de saber como eu faria.. tipo pegar o texto de um Edit e dividi-lo em duas label ´s ou Edit´s a coisa seria pegar o valor por extenso e quando não mais caber em uma label1 ou edit1 e jogar o restante do texto para a segunda label ou edit. Desde ja agradeço a atenção de todos Luciano Angelini Prefeitura de Lupionópolis- Pr Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente Doc x Pdf
José ... eu uso o PDF Factory Pro ele é free vc instala ele .. seria o mesmo que vc tivesse instalado uma impressora ... no word ... vc pede pra imprimi e escolha a impressora: PDF Factory Pro Caso vc queira me manda seu email ou até mesmo pelo msn: [EMAIL PROTECTED] ... que eu te mando é pequeno 1.5 Mb ... Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr === José Ferreira S. Filho escreveu: Caros colegas, Por gentileza algum colega do grupo conhece ulgum componente free para delphi que converta um arquivo Doc em Pdf. grato, José Ferreira Beccasoft Informática
Re: [delphi-br] ajuda criar formulario
Bom dia Alessandra .
Eu utilizo esse método ...
type
procedure AbreForm (aClasseForm : TComponentClass; aForm: TForm);
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application.CreateForm(aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;
para utilizar no clique do componente ... MainMenu SpeedButton ...
Button ...
AbreForm(TNomedoFormulario, NomedoFormulario) ;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis-Pr
alessandra porto escreveu:
Chamo meu formularios assim:
if FmAgenda = nil then
begin
Application.CreateForm(TFmAgenda,FmAgenda);
FmAgenda.ShowModal;
end;
A ideia e criar uma variavel para informar o nome do formulario que
sera aberto naquele momento
var
formulario:string;
formulario:=teste;
if teste = nil then
begin
Application.CreateForm(T+teste,teste);
teste.ShowModal;
end;
com string dá erro como posso fazer isso?
fico agradecida aos colegas que ajudarem
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] consulta com clientdataset
Tenta Assim
dmGeral.qryFinanceiro.Close ;
dmGeral.cdsFinanceiro.close ;
dmGeral.qryFinanceiro.SQL.Clear;
dmGeral.qryFinanceiro.SQL.Add(sql);
dmGeral.qryFinanceiro.Params.ParamByName('parametro').Value := edit1.text;
dmGeral.cdsFinanceiro.Open;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis-Pt
felipe govoni escreveu:
bom dia
qual a maneira mais correta de fazer uma consulta com o clientdataset?
estou acostumado a usar comando sql da query para fazer consultas
mas comecei a usar cds e nao sei a maneiras mais correta.
esta fazendo assim:
dmGeral.qryFinanceiro.Close;
dmGeral.qryFinanceiro.SQL.Clear;
dmGeral.qryFinanceiro.SQL.Add(sql);
dmGeral.qryFinanceiro.Open;
dmGeral.cdsFinanceiro.fetchparams;
dmGeral.cdsFinanceiro.close;
dmGeral.cdsFinanceiro.Params.ParamByName('parametro').Value := edit1.text;
dmGeral.cdsFinanceiro.Open;
dmGeral.cdsFinanceiro.Refresh;
ou é melhor usar o comandtext do cds?
--
Felipe Govoni
-
Programador
Fone 8472-8718
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] nf-e
http://br.groups.yahoo.com/group/nfe_nota_fiscal_eletronica/ http://br.groups.yahoo.com/group/nfe_nota_fiscal_eletronica/ felipe govoni escreveu: alguem ja fez alguma coisa com nf-e? to tentando começar, pelo que entendi devo consumir um webservice, mas qual a maneira correta? pelo wsdl importer? uso delphi 2007. tem esse site http://nf-eletronica.com/blog/ http://nf-eletronica.com/blog/ tem algumas coisa interessantes nele, inclusive um exemplo em delphi 7. -- Felipe Govoni - Programador Fone 8472-8718 [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Problema com Form
Luciano Ja vi e esta correto ... que no entanto tenho outras aplicações que não ocorre esse problema só nesta que esta ocorrendo Luciano Angelini Prefeitura de Lupionópolis- Pr Luciano Calenzani Simões escreveu: Já olhou a configuração da sua barra de tarefas? Lá tem uma opção para ficar sempre visível. No Windows Vista chama-se Manter a barra de tarefas sobre as outras janelas. Luciano Calenzani Simões - Mensagem original De: l_o_angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Julho de 2008 9:42:24 Assunto: [delphi-br] Problema com Form Bom dia Estou tento um pequeno problema com o form principal de minha aplicação. Ele esta sobrepondo a barra do Windows, estou usando as seguintes propriedades: Position = poDesigned Windows State = wsMaximinized Alguem ja passou por isso ou tenho uma solução ??? Luciano Angelini Prefeitura de Lupionópolis- Pr Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Problema com Form
Willian , Estava bsSingle ... mudei para bsSizeable rsrsrsrs dai o form ficou por baixo da barra tenho um statusBar ... ele fica embaixo da barra Willian Jhonnes Lara dos Santos escreveu: Olá... Só uma pergunta: que tipo de borda o seu form principal tem? bsSizeable ou bsSingle? Se a resposta for a segunda, este é o comportamento normal do form... Então, das duas uma: ou vc muda o BorderStyle para bsSizeable ou define as dimensões em tempo de execução (algo como form.Height := Screen.Heght - 24). []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.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.0 Kernel 2.6.21.5-custom --- - Mensagem original De: l_o_angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 17 de Julho de 2008 9:42:24 Assunto: [delphi-br] Problema com Form Bom dia Estou tento um pequeno problema com o form principal de minha aplicação. Ele esta sobrepondo a barra do Windows, estou usando as seguintes propriedades: Position = poDesigned Windows State = wsMaximinized Alguem ja passou por isso ou tenho uma solução ??? Luciano Angelini Prefeitura de Lupionópolis- Pr Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com DBLookupComboBox
Flavio tenta assim ... no evento onClick do DBLookupComboxBox ... Edit1.text := ClientDataSet1EmpNo.value ; Espero que seja isso !!! Luciano Angelini Prefeitura de Lupionópolis-Pr flavio_pnn escreveu: Gostaria de saber como faço para resolver este problema. Estou utilizando um DBlookupComboBox para mostrar os nomes dos fornecedores mas quero saber como faço para que o código deste fornecedora apareça num edit assim que o usuário selecionar o fornecedor desejado. Obrigado.
Re: [delphi-br] dbgrid
DBGrid Properties Options DgRowSelect ... True rzzanatta escreveu: olá queria saber como faço pra ficar focado o cursor numa coluna do dbgrid?
Re: [SPAM][delphi-br] Copiar os Registros de um Dataset para Outro
Boa Tarde Rafael A coisa é bem simples ClientDataSet2.Data := ClientDataSet1.data ; Espero ter ajudado .. Luciano Angelini Prefeitura de Lupionópolis-Paraná Rafael Marques escreveu: bom dia!! alguem sabe se tem alguma rotina q copie todos os registros d um dataset para outro!??! (eu vi aq uma pergunta dessa ha algum tempo e n vi resposta e tb n achei no google!) atualmente eu rodo uma tabela dando insert na outra, mas essa tab d origem tem geralmente mais d 10.000 registros e por isso fica mto lento!! eu pensei em usar a linha ClientDataset1.Data := ClientDataset2.Data, mas no meu caso n funcionaria pq eu preciso q acumule os registros no clientdataset2 (eu faço diversas pesquisas no 1 e preciso q o resultado d cada uma vá acumulando no 2). mto obrigado a todos Rafael [As partes desta mensagem que não continham texto foram removidas]
Re: [SPAM][delphi-br] ClientDataSet
Bom dia Stainle Para fazer alterações em registro deve-se usar : ClientDataSet.Edit e quando vc for gravar/excluir/Cancelar o registro use nos Eventos do ClientDataSet ... AfterCancel - ClientDataSet.CancelUpdates() ; AfterDelete - ClientDataSet.ApplyUpdates(0) ; AfterPost - ClientDataSet.ApplyUpdates(0) ; Luciano Angelini Prefeitura de Lupionópolis-Pr stainle2003 escreveu: Usando a combinação Query(bde) DataSetProvider e ClientDataSet eu estou conseguindo incluir; usando após o POST o CDS.ApplyUpdate(0); quando em inclusão tudo bem, porém quando vou alterar estes dados ao aplicar o POST me é informado que o CDS não está em Insert ou Edit mode, estou pensando em usar sómente o QUERY com algumas mudanças, pois não estou conseguindo fazer EDIÇÃO no REGISTRO. alguém tem uma solução ?? grato Stainle
Re: [delphi-br] Problemas com Firebird
ItaSouza, Acredito que seja a propriedade SQLDialect do SQLConnection !! Luciano Angelini Prefeitura de Lupionópolis-Pr itasouza escreveu: Pessoal, estou com uma aplicação em delphi 7, a mesma não foi feita por mim tem um banco de dados firebird, estou tendo problemas devido ao dialeto que e 3, estou usando o IB Expert que faz a conexão ao banco sem problemas, no delphi estou usando o dbExpress e em algumas TSQLDataSet gera erro. Ex: Data type unknow Cliente SQL dialect 1 does not support reference to DATE datatype Agradeço se alguém pode ajudar!! Atenciosamente
Re: [delphi-br] DBLookupComboBox - Não sei nada
Bom dia Mário Geralmente quando se desenvolve um sistema cria-se um Data Module (DM) , com os componentes de conexões das tabelas ou então faça uma nova conexão no próprio Form, sendo a tabela que vc necessita buscar os dados pra o DBLookupComboBox. Que componentes vc esta usando pra fazer as conexões Luciano Angelini Prefeitura de Lupionópolis-Pr [EMAIL PROTECTED] Mario Rodrigues escreveu: Luciano Angelini, Eu ja tinha encontrado este link porem, fiquei com uma duvida: - No form que eu quero colocar o DBLookupComobox so preciso colocar mais um datasource? Valeu pela ajuda Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br escreveu: http://www.linhadecodigo.com/Dica.aspx?id=556 http://www.linhadecodigo.com/Dica.aspx?id=556 Mario Rodrigues escreveu: Srs, Alguem tem algum material sobre DBLookupComboBox..como criar configurações enfim material sobre o DBLookupComboBox ja q estou iniciando em delphi e é uma boa usar o combo falowww - 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] - 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] DBLookupComboBox - Não sei nada
http://www.linhadecodigo.com/Dica.aspx?id=556 Mario Rodrigues escreveu: Srs, Alguem tem algum material sobre DBLookupComboBox..como criar configurações enfim material sobre o DBLookupComboBox ja q estou iniciando em delphi e é uma boa usar o combo falowww - 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] Re: Excluir um Registro do BD - URGENTE
William ..
Tente assim ...
No click do button
if MessageDlg('Registro Selecionado: '+
ClientDataSet1.fieldbyname('name').asstring, mtConfirmation,
[mbYes,mbNo], 0) = MrYes then
begin
ClientDataSet1.Delete ;
ClientDataSet1.ApplyUpdates(0)
end;
Espero ter ajudado ...
Luciano Angelini
Prefeitura de Lupionópolis-Pr
william.designer escreveu:
Certo, mas gostaria de fazer isso através de um clique em um
botão...quando eu clicasse no botão iria aparecer um pedido de
confirmação e só apos confirmar o registro seria apagado...
será que pode me ajudar
--- Em delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br, Nilson Chagas
[EMAIL PROTECTED] escreveu
apertando a tecla DELETE ou CTRL+DELETE.
Verifique se a opção ConfirmDelete esta true nas Options do DBGrid.
Em 11/12/07, william.designer [EMAIL PROTECTED] escreveu:
olá gostaria de saber como faço para excluir um registro
selecionado
em uma DBGRID.
será que alguém pode me dar um exemplo de como fazer isso.
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Excluir um Registro do BD - URGENTE
William e no DBGrid na propriedade Option passe o DgRowSelect para True !!! william.designer escreveu: Certo, mas gostaria de fazer isso através de um clique em um botão...quando eu clicasse no botão iria aparecer um pedido de confirmação e só apos confirmar o registro seria apagado... será que pode me ajudar --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Nilson Chagas [EMAIL PROTECTED] escreveu apertando a tecla DELETE ou CTRL+DELETE. Verifique se a opção ConfirmDelete esta true nas Options do DBGrid. Em 11/12/07, william.designer [EMAIL PROTECTED] escreveu: olá gostaria de saber como faço para excluir um registro selecionado em uma DBGRID. será que alguém pode me dar um exemplo de como fazer isso. Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Ajuda!! lógica Calculo
Itassouza Eu uso esse função Function Tform1.IdadeN(Nascimento:TDateTime) : String; Type Data = Record Ano : Word; Mes : Word; Dia : Word; End; Const Qdm:String = '312831303130313130313031'; // Qtde dia no mes Var Dth : Data; // Data de hoje Dtn : Data; // Data de nascimento anos, meses, dias, nrd : Shortint; // Usadas para calculo da idade begin DecodeDate(Date,Dth.Ano,Dth.Mes,Dth.Dia); DecodeDate(Nascimento,Dtn.Ano,Dtn.Mes,Dtn.Dia); anos := Dth.Ano - Dtn.Ano; meses := Dth.Mes - Dtn.Mes; if meses 0 then begin Dec(anos); meses := meses+12; end; dias := Dth.Dia - Dtn.Dia; if dias 0 then begin nrd := StrToInt(Copy(Qdm,(Dth.Mes-1)*2-1,2)); if ((Dth.Mes-1)=2) and ((Dth.Ano Div 4)=0) then begin Inc(nrd); end; dias := dias+nrd; meses := meses-1; end; //Result label2.caption := IntToStr(anos)+' Anos '+IntToStr(meses)+' Meses '+IntToStr(dias)+' Dias'; end; itasouza escreveu: Coloquei no onExit do EditDatNascimento o código: EditIdade.Text:= Inttostr(Date - StrToDate(EditDataNascimento.text)); O mesmo gera erro e não compila Alguém saberia uma alternativa? Agradeço!!
Re: [delphi-br] ClientDataSet VALOR DEFAULT
Bom dia Juliano ... Tente assim: DBText2.Caption := '0,00' ; // Campo Aggregate ligado ao DBText2.Caption Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Juliano Silva - Yahoo escreveu: Pessoal Tenho um campo AGGREGATE no ClientDataSet que faz a soma de uma coluna de valores, tenho um TDBText ligado e este campo agregate, quero deixar ele com o valor 0,00 quando não houver nenhum registro, já mexi um monte no ClientDataSet no campo Agregate para fazer isso, mas não estou conseguindo... Já usei a propriedade DEFAULT mas não estou conseguindo... Juliano Silva [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Re: [delphi-br] DBGrid
VC quer saber de uma coisa VAI A MERDA !! Ricardo César Cardoso escreveu: No link que vc passou a na primeira mensagem tinha toda a dica (que eu fui observar pra agregar ao arquivo de dicas que pego daqui.) e não precisava vc repetir e ainda por cima tirar justamente a parte mais importante da dica. Bastava recomendar lesse o que estava no link ou então ressaltasse o trecho importante. Isso independe da correria que todos temos. E seria muito mais rápido! De qualquer maneira a dúvida deve ter sido sanada e o objetivo provavelmente foi cumprido. Sds, Ricardo Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br escreveu: Bom dia Ricardo O interessante é se vc consegui desenvolver a dica/exemplo ... se não mandei antes ou mandei depois é coisa que acontece, pois acredito que todos aqui na lista/forum... estamos na correria... qualquer coisa me desculpe ter me atrapalhado na explicação ou não ter conseguindo te explicar direito Luciano Angelini Prefeitura de Lupionópolis-Pr Ricardo César Cardoso escreveu: O problema não foi entender ou não, mas o fato que vc simplesmente não colocou isso na mensagem em que enviou a transcrição do que estava no seu link, portanto, ficou uma coisa sem pé nem cabeça e vc precisou de mandar duas mensagens pra explicar algo que poderia ter explicado em uma só Entendeu? Sds, Ricardo. Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br mailto:luciano.angelini%40uol.com.br escreveu: Ricardo Column.Title.Caption := S1 + #13#10 + S2. esta aki case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; A mágia de colocar duas linha no titulo que faz é o Canvas: //Escrevendo o Título Canvas.TextOut(Rect.Left+2, 2 , S1) ; Canvas.TextOut(Rect.Left+2, 16, S2) ; Entendeu Luciano Angelini Prefeitura de Lupionópolis-Pr Ricardo César Cardoso escreveu: E quando vc atribui S1 e S2 para os títulos da Coluna!?!?!?!?!?!?!? Acho que faltou alguma instrução como Column.Title.Caption := S1 + #13#10 + S2. Sds, Ricardo. Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br mailto:luciano.angelini%40uol.com.br mailto:luciano.angelini%40uol.com.br escreveu: Caro Adones O exemplo funciona sim . Vc sabe trabalhar com arquivos XML com o ClientDataSet ??? Caso não No form vc coloca um DBDrid / ClientDataSet / DataSource Vc conecta o ClientDataSet com o arquivos XML´s que se encontra na pasta: \arquivos de programas\arquivos comuns\Borland Shared ... e escolha uma arquivo : Ex: Country.xml Ativa a conexão do ClientDataSet ... Faça as conexões: DataSouce com o ClientDataSet , DBGrid com o Data Source ... Acrecente as colunas no DBGrid e coloque o exemplo onDrawColumnCell do DBGrid e executa ... Note que as colunas Name e Capital foram alteradas para Row1 e Row2 agora é só alterar: case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; end; Espero que desta vez tenha te ajudado, caso tenha alguma dúvida me chame no MSN: [EMAIL PROTECTED] mailto:lucianoangelini%40msn.com mailto:lucianoangelini%40msn.com mailto:lucianoangelini%40msn.com Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Luciano, essa rotina não deu certo. Queria que o título da coluna do dbgrid ficasse assim: Valor Empnhado No Mês Anterior ou seja, com 2 linhas. Já tentei DBGrid1.Colunnms[0].Title.Caption := 'Valor Empnhado' + #13 + 'No Mês Anterior'; Mais não dar certo. ---Mensagem original--- De: Luciano Angelini Data: 12/05/07 15:18:16 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] DBGrid Boa Tarde Adenes Como sempre alguem (me desculpe não lembro o nome agora) Quem procura acha ! http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br
Re: Res: Re: [delphi-br] DBGrid
Bom dia Ricardo O interessante é se vc consegui desenvolver a dica/exemplo ... se não mandei antes ou mandei depois é coisa que acontece, pois acredito que todos aqui na lista/forum... estamos na correria... qualquer coisa me desculpe ter me atrapalhado na explicação ou não ter conseguindo te explicar direito Luciano Angelini Prefeitura de Lupionópolis-Pr Ricardo César Cardoso escreveu: O problema não foi entender ou não, mas o fato que vc simplesmente não colocou isso na mensagem em que enviou a transcrição do que estava no seu link, portanto, ficou uma coisa sem pé nem cabeça e vc precisou de mandar duas mensagens pra explicar algo que poderia ter explicado em uma só Entendeu? Sds, Ricardo. Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br escreveu: Ricardo Column.Title.Caption := S1 + #13#10 + S2. esta aki case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; A mágia de colocar duas linha no titulo que faz é o Canvas: //Escrevendo o Título Canvas.TextOut(Rect.Left+2, 2 , S1) ; Canvas.TextOut(Rect.Left+2, 16, S2) ; Entendeu Luciano Angelini Prefeitura de Lupionópolis-Pr Ricardo César Cardoso escreveu: E quando vc atribui S1 e S2 para os títulos da Coluna!?!?!?!?!?!?!? Acho que faltou alguma instrução como Column.Title.Caption := S1 + #13#10 + S2. Sds, Ricardo. Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br mailto:luciano.angelini%40uol.com.br escreveu: Caro Adones O exemplo funciona sim . Vc sabe trabalhar com arquivos XML com o ClientDataSet ??? Caso não No form vc coloca um DBDrid / ClientDataSet / DataSource Vc conecta o ClientDataSet com o arquivos XML´s que se encontra na pasta: \arquivos de programas\arquivos comuns\Borland Shared ... e escolha uma arquivo : Ex: Country.xml Ativa a conexão do ClientDataSet ... Faça as conexões: DataSouce com o ClientDataSet , DBGrid com o Data Source ... Acrecente as colunas no DBGrid e coloque o exemplo onDrawColumnCell do DBGrid e executa ... Note que as colunas Name e Capital foram alteradas para Row1 e Row2 agora é só alterar: case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; end; Espero que desta vez tenha te ajudado, caso tenha alguma dúvida me chame no MSN: [EMAIL PROTECTED] mailto:lucianoangelini%40msn.com mailto:lucianoangelini%40msn.com Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Luciano, essa rotina não deu certo. Queria que o título da coluna do dbgrid ficasse assim: Valor Empnhado No Mês Anterior ou seja, com 2 linhas. Já tentei DBGrid1.Colunnms[0].Title.Caption := 'Valor Empnhado' + #13 + 'No Mês Anterior'; Mais não dar certo. ---Mensagem original--- De: Luciano Angelini Data: 12/05/07 15:18:16 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] DBGrid Boa Tarde Adenes Como sempre alguem (me desculpe não lembro o nome agora) Quem procura acha ! http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Como faço para colocar 2 linhas no caption da coluna de um dbgrid? Adenes [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] _ - 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] DBGrid
Caro Rubem ... Me desculpe de não ter lembrado seu nome ! Luciano Angelini Prefeitura de Lupionópolis - Pr Rubem Nascimento da Rocha escreveu: Para os mais desavisados e os que estão chegando agora na lista, quem usa sempre o bordão Quem Procura, Acha!, sou eu! Sds. To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.brFrom: [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.brDate: Wed, 5 Dec 2007 16:17:13 -0200Subject: Re: [delphi-br] DBGrid Boa Tarde Adenes Como sempre alguem (me desculpe não lembro o nome agora)Quem procura acha !http://www.devmedia.com.br/articles/viewcomp.asp?comp=924Espero http://www.devmedia.com.br/articles/viewcomp.asp?comp=924Espero ter ajudado Luciano AngeliniPrefeitura de Lupionópolis-PrAdenes I. Freire Junior escreveu: Como faço para colocar 2 linhas no caption da coluna de um dbgrid? Adenes [As partes desta mensagem que não continham texto foram removidas] __ Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger! http://spaces.live.com/signup.aspx http://spaces.live.com/signup.aspx [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Re: [delphi-br] DBGrid
Caro Adones O exemplo funciona sim . Vc sabe trabalhar com arquivos XML com o ClientDataSet ??? Caso não No form vc coloca um DBDrid / ClientDataSet / DataSource Vc conecta o ClientDataSet com o arquivos XML´s que se encontra na pasta: \arquivos de programas\arquivos comuns\Borland Shared ... e escolha uma arquivo : Ex: Country.xml Ativa a conexão do ClientDataSet ... Faça as conexões: DataSouce com o ClientDataSet , DBGrid com o Data Source ... Acrecente as colunas no DBGrid e coloque o exemplo onDrawColumnCell do DBGrid e executa ... Note que as colunas Name e Capital foram alteradas para Row1 e Row2 agora é só alterar: case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; end; Espero que desta vez tenha te ajudado, caso tenha alguma dúvida me chame no MSN: [EMAIL PROTECTED] Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Luciano, essa rotina não deu certo. Queria que o título da coluna do dbgrid ficasse assim: Valor Empnhado No Mês Anterior ou seja, com 2 linhas. Já tentei DBGrid1.Colunnms[0].Title.Caption := 'Valor Empnhado' + #13 + 'No Mês Anterior'; Mais não dar certo. ---Mensagem original--- De: Luciano Angelini Data: 12/05/07 15:18:16 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] DBGrid Boa Tarde Adenes Como sempre alguem (me desculpe não lembro o nome agora) Quem procura acha ! http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Como faço para colocar 2 linhas no caption da coluna de um dbgrid? Adenes [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: Re: [delphi-br] DBGrid
Ricardo Column.Title.Caption := S1 + #13#10 + S2. esta aki case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; A mágia de colocar duas linha no titulo que faz é o Canvas: //Escrevendo o Título Canvas.TextOut(Rect.Left+2, 2 , S1) ; Canvas.TextOut(Rect.Left+2, 16, S2) ; Entendeu Luciano Angelini Prefeitura de Lupionópolis-Pr Ricardo César Cardoso escreveu: E quando vc atribui S1 e S2 para os títulos da Coluna!?!?!?!?!?!?!? Acho que faltou alguma instrução como Column.Title.Caption := S1 + #13#10 + S2. Sds, Ricardo. Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br escreveu: Caro Adones O exemplo funciona sim . Vc sabe trabalhar com arquivos XML com o ClientDataSet ??? Caso não No form vc coloca um DBDrid / ClientDataSet / DataSource Vc conecta o ClientDataSet com o arquivos XML´s que se encontra na pasta: \arquivos de programas\arquivos comuns\Borland Shared ... e escolha uma arquivo : Ex: Country.xml Ativa a conexão do ClientDataSet ... Faça as conexões: DataSouce com o ClientDataSet , DBGrid com o Data Source ... Acrecente as colunas no DBGrid e coloque o exemplo onDrawColumnCell do DBGrid e executa ... Note que as colunas Name e Capital foram alteradas para Row1 e Row2 agora é só alterar: case Column.Index of 0: begin Column.Title.Caption := ''; S1 := 'Nome do'; S2 := 'País'; end; 1: begin Column.Title.Caption := ''; S1 := 'Nome da'; S2 := 'Capital'; end; end; Espero que desta vez tenha te ajudado, caso tenha alguma dúvida me chame no MSN: [EMAIL PROTECTED] mailto:lucianoangelini%40msn.com Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Luciano, essa rotina não deu certo. Queria que o título da coluna do dbgrid ficasse assim: Valor Empnhado No Mês Anterior ou seja, com 2 linhas. Já tentei DBGrid1.Colunnms[0].Title.Caption := 'Valor Empnhado' + #13 + 'No Mês Anterior'; Mais não dar certo. ---Mensagem original--- De: Luciano Angelini Data: 12/05/07 15:18:16 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] DBGrid Boa Tarde Adenes Como sempre alguem (me desculpe não lembro o nome agora) Quem procura acha ! http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Como faço para colocar 2 linhas no caption da coluna de um dbgrid? Adenes [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] DBGrid
Boa Tarde Adenes Como sempre alguem (me desculpe não lembro o nome agora) Quem procura acha ! http://www.devmedia.com.br/articles/viewcomp.asp?comp=924 Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Adenes I. Freire Junior escreveu: Como faço para colocar 2 linhas no caption da coluna de um dbgrid? Adenes [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF TOPIC] Por favor, respondam ao meu TESTE
rsrsrsrsrs ... o Marcus Vinícius vc ja consegui receber alguma resposta Caso consegui avisa Luciano Angelini Prefeitura de Lupionópolis-Pr Leslyn Fernandes escreveu: aki! On 11/28/07, Rafael Jorge [EMAIL PROTECTED] mailto:rafael.jorge%40gmail.com wrote: presente.. =] Em 28/11/07, Nilson Chagas [EMAIL PROTECTED] mailto:nilson.chagas.silva%40gmail.comnilson.chagas.silva%40gmail.com escreveu: Testado. Em 28/11/07, Marcus Vinícius Moreira [EMAIL PROTECTED] mailto:marquinhus%40gmail.commarquinhus%40gmail.com marquinhus%40gmail.com escreveu: Olá, esta é uma mensagem de teste. Não estou sendo respondido nas mensagens enviadas. Agradeço. -- Marcus Vinícius Moreira [As partes desta mensagem que não continham texto foram removidas] -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [As partes desta mensagem que não continham texto foram removidas] -- -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF TOPIC] Por favor, respondam ao meu TESTE
Agora vai ! Nilson Chagas escreveu: Testado. Em 28/11/07, Marcus Vinícius Moreira [EMAIL PROTECTED] mailto:marquinhus%40gmail.com escreveu: Olá, esta é uma mensagem de teste. Não estou sendo respondido nas mensagens enviadas. Agradeço. -- Marcus Vinícius Moreira [As partes desta mensagem que não continham texto foram removidas] -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Edit recebendo conteúdo do dbgrid
Bom dia Vicente Tente assim procedure TForm1.DBGrid1DblClick(Sender: TObject); begin edit1.text := DBGrid.DataSource.DataSet.Fields[0].Text ; end; Espero ter ajudado ... Luciano Angelini Prefeitura de Lupionópolis-Pr Vicente Alves escreveu: Bom dia!! Como fazer para que um edit receba o conteúdo de uma celula de uma coluna especifica do dbrid depois de um duplo clique nessa celula? Alguém pode dar uma dica valeu!!! __ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] banco de cep
é Alexandre . Tem gente pra tudo nesse mundo(lista) rsrsrsrsrsrsr Luciano Angelini Prefeitura de Lupionópolis-Pr Alexandre Rodrigues escreveu: Bah, o cara te oferece a base de graça e tu quer ainda em MySQL? Não acha que tá querendo um pouco de mais? Por favor, me corrija se estou errado. Por que isso ai é um abuso ao meu ver. felipe govoni escreveu: de preferencia em mysql Em 20/11/07, Didao [EMAIL PROTECTED] mailto:didao_santo_andre%40yahoo.com.br mailto:didao_santo_andre%40yahoo.com.br escreveu: Felipe Tenho uma aquidesatualizada...acho que eh de 2005, em firebird.Interessa? Obrigado. - Original Message - From: felipe govoni [EMAIL PROTECTED] mailto:felipehietala%40gmail.com mailto:felipehietala%40gmail.com felipehietala%40gmail.com To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, November 20, 2007 11:39 AM Subject: Re: [delphi-br] banco de cep vlw a dica mas alguem tem algum free? Em 20/11/07, Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br mailto:ginho%40mult.com.br ginho%40mult.com.br escreveu: www.gsesoft.com - atualizado a menos de um mês De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br] Em nome de felipe govoni Enviada em: terça-feira, 20 de novembro de 2007 11:25 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Assunto: [delphi-br] banco de cep alguem tem algum banco com os cep's do brasil ou pelo menos do rio grande do sul? -- Felipe Govoni -- Desenvolvedor Delphi e Php http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Felipe Govoni -- Desenvolvedor Delphi e Php http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ -- Felipe Govoni -- Desenvolvedor Delphi e Php http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br http://fgsoft.awardspace.com.br [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Erro midas.dll mas ela nao faltando
Boa Tarde André . Gostaria de saber de vc e também dos outros companheiros da lista se isso causaria alguma problema de performace no sistema, ou o ideal seria registrar no windows, pois analizando um sistema que eu estou desenvolvendo, o executável aumentou em torno de 12%, depois que declarei a lib: MIDASLIB !! Luciano Angelini Prefeitura de Lupionópolis-Pr Andre Gustavo Meister escreveu: Caros colegas tive o mesmo problema mas num micro com win98, resolvi facil, declarei na USES do meu form principal MIDASLIB e resolvido. From: Luiz Carlos Sent: Tuesday, November 13, 2007 8:18 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: RES: [delphi-br] Erro midas.dll mas ela nao faltando Já aconteceu comigo de eu ter a Midas, mas no registro do windows ela estar registrada apontando para outro caminho, Se tiver experiência no Regedit, dá uma olhada, pode ser isso! Espero ter ajudado, _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Clovis iTelefonica Enviada em: terça-feira, 13 de novembro de 2007 09:13 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro midas.dll mas ela nao faltando Ola Ricardo Muito bom dia Agradeceria se vc pudesse dar a relação dos arquivos do Fire e do IB para serem carregados e onde vc os coloca. Pode ser em pvt se vc preferir Obrigado Clovito Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-clovito.ferreira@ mailto:clovito.ferreira%40hotmail.com hotmail.com - Original Message - From: Ricardo Bianchin To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Tuesday, November 13, 2007 9:03 AM Subject: [delphi-br] Erro midas.dll mas ela nao faltando Senhores, eu mesmo fiz a o meu aplicativo de instalacao trabalho com D7 e firebird 1.54 depois de instalar o firebird, meu sistema copia os dll e bpl do delphi necessarios pro sistema funcionar, e nunca tive problemas mas em uma maquina com WXP ta dando erro MIDAS.DLL sempre q vejo um erro assim é pq ta faltando esta dll só q ela com certeza esta no windows\system32 tentei até coloca-la na mesma pasta do .exe mas o erro persiste alguem ja viu algo assim? Ricardo Bianchin ps.: fugindo do assunto, aproveito pra agradecer apoio de todos naquela pergunta se tem como fazer join em tabelas de BDs distintos resolvi usando os trigers! [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] LIMPAR TEXTO de TDBLookupComboBox
DBLookupComboBox.KeyValue := null sampaiobrito escreveu: Amigos, como o próprio assunto já indica, preciso de uma ajuda pra limpar o texto selecionado num TDBLookupComboBox (estou usando-o) como se fosse um ComboBox com a diferença de sua integração com um Tabela de dados para exibir a lista. Uma vez selecionado um item, não consigo fazê-lo ficar LIMPO novamente. Alguém tem alguma sugestão... Desde já agradeço!
Re: [delphi-br] Revista
Bom dia Felipe ... Gosto muito da ClubeDephi, ja estou no segundo ano de assinatura Luciano Angelini Prefeitura Municipal de Lupionópolis Felipe Nunes escreveu: Alguém me indica um revista boua de Delphi 7. Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBLookupComboBox
Boa Tarde Amigos . Estou com um pequeno problema com um DBLookupComboBox ... Ele esta ligado a Tabela CIDADES ... esta com a DBLookupComboBox.dropdown no OnExit ... O que acontece que quando escolha a CIDADE e teclo ENTER ele vai para o próximo componente (DBExit) ... mas o DBLookupComboBox fica vazio/branco ... Alguém tem uma solução ?? Luciano Angelini Prefeitura Municipal de Lupionópolis
Re: [delphi-br] Data no DataSet.
Sandro ... Tenta assim ... SELECT (EXTRACT(MONTH FROM DT_EMI_NF))|| '/' || (EXTRACT(YEAR FROM DT_EMI_NF)) AS MES_ANO FROM NOTAS Espero ter ajudado !!! Luciano Angelini Prefeitura de Lupionópolis-Pr Sandro Ricardo escreveu: Olá amigos Delphianos, Estou com um probleminha por aqui. Preciso colocar num DataSet as datas no seguinte formato MM/. Até aí nenhum mistério, porém, não estou movendo os valores de forma individual (neste caso eu poderia colocar Copy(DateToStr(Data),4,7) por exemplo). Mas 'tenho' que usar uma função (fechada) da minha empresa, que pega todos os campos do Select e movimenta para o DataSet. Pensei então em colocar algo (tô tentando o Copy) na propriedade 'FieldName' do Grid. Mas não tá funcionando. Alguém tem alguma idéia ??? Muito obrigado, desde já. Abraços Sandro Ricardo [As partes desta mensagem que não continham texto foram removidas]
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]
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] OFF TOPIC - Sistema de Licitaçã o.
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]
Re: [delphi-br] ClientDataSet
Boa Tarde Red Mosquito Vc tem que liga o DataSource com o ClientDataSet o ClientDataSet com DataSetProvider ... e finalmente o DataSetProvider no ADOQuery . e seu Select com coloca no ADOQuery e não no ClientDataSet ... Espero ter ajudado Luciano Angelini Prefeitura de Lupiponópolis-Pr Red Mosquito escreveu: Fácil, só pra quem entende: -Coloquei um CDS no meu form -Coloquei Active=True + CommandText ‘select * from clientes’ -na programação apenas dou um Open no CDS e em seguido verifico o RecordCount dele POR QUE ESTÁ RETORNANDO SEMPRE ZERO, SE TENHO CLIENETES CADASTRADOS ? Detalhes: -Este CDS é apenas temporário. Não irei gravar os dados em nenhuma tabela. -No CDS não é preciso ConnectionSring ? Delphi7 + SQLServer + ADO Desde já muitíssimo obrigado pela atenção com este iniciante. Atenciosamente, Junior [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: [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] CDS - Estamos quase lá !!!
Red Mosquito
Acesse o Link tem um exemplo prático para fazer o Master/Detail
tem até uma video Aula
http://clip2net.com/page/m543/40732
é necessario instalar os codec (tscc)
ESpero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Red Mosquito escreveu:
Primeiramente muito obrigado a todos que me ajudaram até o momento.
Foi de enorme valia a participação nesta lista.
Mas ainda resta somente uma dúvida:
Montei 2 “trios” cf. os amigos mandaram:
ADOQuery --- DataSetProvider CDS
1 para Notas Fiscais e 1 para Itens das Notas Fiscais
Porém para ler os itens de cada NF precisei utilizar Parâmetros.
Como no próprio select colocado no ADOQuery.ItensNF já tinha o
‘select.
where itens.codigo_nf = :codigo_nota’
então já foi assumido em ADOQuery.ItensNF o parâmetro CODIGO_NOTA.
Porém na programação qdo dou o Open em CDS.ItensNF o parâmetro vem zerado,
sendo
que antes deste open eu coloquei
QryItensNF.Parameters.ParamByName('codigo_nota').Value :=
CDSNotaCODIGO.Value;
Tem algo mais a ser feito ?
No ADOQuery.ItensNF, em Parameters, o CODIGO_NOTA está como
DataType = Integer
Direction = Input
Size = -1
Value = Null
Desde já muitíssimo obrigado pela atenção com este iniciante
Atenciosamente,
Junior
[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:
[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] Existe alguma diferença neste s dois pedaços de código? Criando Forms ...
Fellipe eu não sei qual é melhor opção mas eu uso assim:
procedure AbreForm (aClasseForm : TComponentClass; aForm: TForm);
procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
{: método para abrir form}
Application.CreateForm(aClasseForm, aForm);
try
aForm.ShowModal;
finally
aForm.Free;
end;
end;
no clique do botão:
AbreForm(TFrmCadProduto, FrmCadProduto) ;
Espero ter ajudado
Luciano Angelini
Prefeitura de Lupionópolis-Pr
Fellipe Henrique escreveu:
Olá amigos, quero criar um tela de localizar, sempre que o usuário
clica no
botão... tenho o FrmLocalizar, e tenho os dois codigos, gostaria de saber
qual deles é o melhor e o correto de ser usado, se é que há diferença
entre
eles..
Desde já agradeço.
Código1:
FrmLocalizar := TFrmLocalizar.Create(nil);
try
FrmLocalizar.ShowModal;
finally
FrmLocalizar.Release;
end;
Código 2:
Type
tLocalizar = TFrmLocalizar;
(..)
ButtonClick():
var
vTelaLoc: tLocalizar;
begin
vTelaLoc := vTelaLoc.Create(nil);
try
vTelaLoc.ShowModal;
finally
vTelaLoc.Release;
end;
--
_
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED] mailto:fellipeh%40gmail.com
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Campos
Marcelo Como vc usa o DBedit quando sua procura achar um CPNJ ... Table.edit ... Se caso não achar ... Table.append ou Table.insert ... os dados que vier da consulta estaram preso do DataSet ... Luciano Angelini Prefeitura de Lupionópolis-Pr mclpaltrin escreveu: Tenho uma duvida e preciso da opnião dos demais. - Tenho dbedit ligado uma table no banco de dados , esse dbedit campo CpfCnpj, informando o dado passa por uma verificação feito a validação procura o dado informado no BD. - Duvida:??? Se encontrado o dado no caso (cpfcnpj) Como faço para um Form2 trazer o campo CpfCnpj preenchido e os demais Campos tbm como nome, endereço , razão social ..etc...? -Não encontrado o cpfcnpj abre o mesmo form2 no caso com apenas o cpfcnpj preenchido e os demais campos pronto pra inclusão dos dados.??? Espero que todos possam me ajudar... -- Marcelo
Re: [delphi-br] Urgente - Digitalização de documentos
Boa Tarde Jorge Eu ainda não usei ... eu apenas me lembrei que tinha lido na Revista ClubeDelphi Luciano Angelini Prefeitura de Lupionópolis-Pr Jorge Ericsson escreveu: O Exemplo do Adriano é muito bom, cai como uma luva no que preciso, mas não esta funcionando bem, apresenta um erro ao capturar a imagem do scanner. Funcionou com vc Luciano ?? Em 25/10/07, Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br escreveu: Bom dia Jorge Acesse o Site da www.devmedia.com.br tem uma edição da revista ClubeDelphi n° 83 que mostra passo a passo como fazer Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Jorge Ericsson escreveu: Olá amigos, Estou com o desafio de implementar em meu sistema de gerenciamento de igrejas, um modúlo para digitalização de imagens e gravação do mesmo em um banco de dados mySql. Já estou com as tabelas prontas mais não consegui uma forma de ler as imagens de qq scanner e jogar a mesma para dentro do campo BLOB. Alguém tem idéia de componente free ou rotina onde possa trabalhar com diversos tipos de Scanner registrando apenas a DLL dos mesmos ? Agradeço. -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Urgente - Digitalização de documentos
Bom dia Jorge Acesse o Site da www.devmedia.com.br tem uma edição da revista ClubeDelphi n° 83 que mostra passo a passo como fazer Espero ter ajudado Luciano Angelini Prefeitura de Lupionópolis-Pr Jorge Ericsson escreveu: Olá amigos, Estou com o desafio de implementar em meu sistema de gerenciamento de igrejas, um modúlo para digitalização de imagens e gravação do mesmo em um banco de dados mySql. Já estou com as tabelas prontas mais não consegui uma forma de ler as imagens de qq scanner e jogar a mesma para dentro do campo BLOB. Alguém tem idéia de componente free ou rotina onde possa trabalhar com diversos tipos de Scanner registrando apenas a DLL dos mesmos ? Agradeço. -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Base de Dados do CID10
Bom dia ... Caso alguém tenha, gostaria de receber também [EMAIL PROTECTED] ou [EMAIL PROTECTED] Grato Luciano Angelini Prefeitura de Lupionópolis-Pr Luciano Reis escreveu: Alguém tem uma base de dados relacionada ao CID10 to fazendo um sistema de clinica, e to precisando se alguem tiver me envia em PVT [EMAIL PROTECTED] mailto:lucianoreis%40netsite.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Consultar Cliente
Boa Tarde DelphiStar ...
Talvez de Ajude
procedure TFrmCadProduto.Edit1Change(Sender: TObject);
begin
DBGrid1.DataSource := FrmDM.DSCadProduto ;
FrmDm.CDSCadProduto.filter := 'NOME_PRODUTO LIKE ' +
QuotedStr('%'+Edit1.text+'%');
FrmDm.CDSCadProduto.Filtered := true;
FrmDm.CDSCadProduto.locate('nome_produto','edit1.text',[loPartialKey]) ;
end;
Luciano Angelini
Prefeitura de Lupionópolis-Pr
DelphiStar escreveu:
Boa Tarde a todos
Estou com um problema que não estou conseguindo resolver
Estou usando Delphi 6
e gostaria de saber, como eu faço para consultar parte do nome de um
cliente no cadastro
Estou usando SET FILTER
por exemplo, gostaria de fazer um filtro no cadastrom de clientes
para saber todos os clientes que comecem com AS.
Agradeço desde já
Abraço a todos
Ademir
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ordenar DBGrid ????
procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin if ClientDataSet1.IndexFieldNames '' then DBGrid1.Columns[ClientDataSet1.FieldByName( ClientDataSet1.IndexFieldNames).Index].Title.Color := DBGrid1.fixedColor; if not (Column.Field.DataType in [ftBlob,ftMemo]) then begin ClientDataSet1.IndexFieldNames := Column.FieldName; Column.Title.Color := $00FFBB77; end; Flavio escreveu: Olá pessoal, boa tarde, Estou querendo ordenar um DBGrid de acordo com a coluna que o usuário escolher. Alguem sabe como ?? No caso, o dataSet do DBGrid é uma Query. Obrigado pela atenção. Flávio. 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] Formulários no Delphi 200 6 e VNC
Bom Dia . Aki onde eu trabalho nós usamos o TeamViewer muito bom !! Daniel Bastos escreveu: Sei que não é a idéia do tópico, mas recomendo tb o serviço do logmein ( https://secure.logmein.com/home.asp?lang=en https://secure.logmein.com/home.asp?lang=en) Com ele não precisa redirecionar nenhuma porta. Abs Daniel A. Bastos Em 16/10/07, Eduardo Silva dos Santos [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com escreveu: Olá Otávio, nao tem mistério para configurar o vnc.. se vc ta querendo acessar o vnc que ta instalado no seu cliente, basicamente vai depender de como é o acesso dele a internet se todas as máquinas usam internet atraz de um modem rotado por exemplo é só fazer um redirecionamento de portas onde cada porta vai ser redirecionada para um ip da rede.. veja se é isso que mesmo que vc ta precisando.. qualquer coisa é so falar. Em 16/10/07, Otavio Luiz Harmatiuk [EMAIL PROTECTED] mailto:htiuk1%40yahoo.com.brhtiuk1%40yahoo.com.br escreveu: Poderia me passar uma referência onde eu possa entender como configurar um vnc nas maquinas da rede do meu cliente? Eduardo Silva dos Santos escreveu: Muito estranho, eu uso VNC e vejo normalmente as telas compiladas no Delphi 2006/2007 será que nao tem um fundo. um bmp .. algo assim nesse formulário? Em 16/10/07, surfista_71 [EMAIL PROTECTED] mailto:diego.surf%40globo.comdiego.surf%40globo.com diego.surf%40globo.com mailto:diego.surf%40globo.com escreveu: Começamos a utilizar e migrar as nossas aplicações para o Delphi 2006 só que estamos com um problema. Utilizamos o VNC para entrar na máquina dos usuários para dar suporte, sendo que quando tem uma aplicação compilada no Delphi 2006 eu não consigo ver as telas da aplicação. Alguém tem alguma dica sobre o que possa ser? -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com eduardo.drd%40gmail.com eduardo.drd% 40gmail.com mailto:eduardo .drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ http://www.drdsistemas.com/ http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.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] Debugando com valores
Bom dia Felipe . Basta vc marcar a linha clicando no F5 e para desmarcar clique novamente no F5 Felipe Nunes escreveu: Ola pessoal, alguem sabe qual opção nas configurações do delphi, que quando estou debugando eu passo o mouse em cima de uma variavel ou outra opção qq que aparece o valor ou estado da variavel no momento. como um showHint. Por favor. Felipe Nunes 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] OFF - Site da devmedia
Desde Sexta-feira ... esta em manutenção ! Rodrigo Bevilacqua Marcondes escreveu: Olá Pessoal, O site da devmedia está fora do ar mesmo ? alguem sabe porque ? Rodrigo Bevilacqua Marcondes [EMAIL PROTECTED] mailto:rodrigod6%40yahoo.com.br 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]
Re: [delphi-br] Como apagar todos os registros de uma tabela access
Retire o asterisco da Query bene20032004 escreveu: Como eu apago todos os registros de uma tabela access via programação ? Estou fazendo assim: tabela.close; tabela.sql.clear; tabela.sql.text:='delete * from tabela'; Esta dando este erro O provedor atual não oferece suporte para retornar vários conjuntos de registros de uma única execução... Dai eu fiz assim: tabela.open; tabela.first; while not tabela.eof do begin tabela.delete; tabela.next; end; Da o erro: Informações insuficientes ou incorretas sobre a coluna-chave muitas linhas foram afetadas pela atualização na linha while; Alguém poderia me ajudar ? Muito obrigado por enqunato ! Bene Barbosa
Re: [delphi-br] DBGrid
Tenta isso .. Valor := DBGrid1.DataSource.DataSet.FieldByName(DBGrid1.Columns[0].FieldName).Value ; Luiz Gustavo Barbosa Teixeira escreveu: Galera, Bom dia. Por favor, alguém pode me explicar como faço para saber quais são os valores de cada coluna de uma linha selecionada em um dbgrid? Ex: coluna 1 coluna 2 coluna 3 coluna 4 zé maria joão manuel essa linha está selecionada Como saber que a coluna 1 tem o valor zé, a coluna 2 tem o valor maria... Do jeito que eu faço, só consigo o valor do primeiro campo: variável := Grade.SelectedField.AsString; Valeu!!! Luiz Gustavo Grupo Mult Infor Partner [EMAIL PROTECTED] mailto:lteixeira%40grupomult.com.br www.grupomult.com.br
Re: [delphi-br] Contratar serviço remoto co mo LogMeIn no Brasil
Adriano . Vc ja ouviu falar do TeamViewer ?? É Free muito bom !! Adriano Santos escreveu: Alguém conhece um serviço, mesmo pago, igual o LogMeIn no Brasil? Preciso contratar um serviço como este para meus clientes. Obrigado -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com
Re: [delphi-br] Contratar serviço remoto co mo LogMeIn no Brasil
Veja . http://baixaki.ig.com.br/download/Radmin-Remote-Administrator.htm Anderson Marques Ferraz escreveu: Tem certeza que utilizar o Windows Server 2003 implica em não pagar nada para terceiros? Em 18/09/07, Renato Bermudo [EMAIL PROTECTED] mailto:renato%40eficazinformatica.com.br escreveu: Olá! Uma dica, você poderia colocar nesse micro o windows 2003 server e utilizar o serviço de Teminal Services que permite abrir sessões, dessa forma você não pagará nada para terceiros. - Original Message - From: Adriano Santos To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, September 18, 2007 2:37 PM Subject: Re: [delphi-br] Contratar serviço remoto como LogMeIn no Brasil A solução que preciso é pro meu cliente. Ele que vai usar isso. Aqui em SP ele vai disponibilizar uma máquina para que várias filiais acessem e o LogMeIn Free não permite mais de um acesso ao mesmo tempo, por isso quero contratar (na realidade indicar) um serviço, mas de preferência nacional. -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com Luciano Angelini respondeu: Adriano . Vc ja ouviu falar do TeamViewer ?? É Free muito bom !! Adriano Santos escreveu: Alguém conhece um serviço, mesmo pago, igual o LogMeIn no Brasil? Preciso contratar um serviço como este para meus clientes. Obrigado -- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.487 / Virus Database: 269.13.22/1013 - Release Date: 17/9/2007 13:29 [As partes desta mensagem que não continham texto foram removidas] -- Anderson Caco Marques Ferraz 2.º Período de Engenharia da Computação - UEFS A player who makes the team great is more valuable than a great player. Losing yourself in the group, for the good of the group, that's teamwork. (John Wooden) [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Retirar sinais de uma data
Talvez ajude..
procedure TForm1.Button1Click(Sender: TObject);
var dt_normal : TDateTime ;
dt_soh_numero : string ;
begin
dt_normal := StrToDate(edit1.text) ;
dt_soh_numero := formatdatetime('DDMM',dt_normal);
label1.Caption := dt_soh_numero ;
end;
Natanael Rodrigues escreveu:
FormatDatetime('ddMM',date)
_
De: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br] Em
nome de pcinfowave
Enviada em: segunda-feira, 3 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] Retirar sinais de uma data
Ola amigos,
Alguem podria me passar uma função que retire os sinais de uma data,
deixando apenas os numeros?
Obrigado!
[]´
Paulo
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tquery
Boa Tarde Satoy .
Talvez isso te ajude
Transacao.TransactionID := 2;
Transacao.IsolationLevel := xilREADCOMMITTED;
try
if not FrmDM.SQLConnection.InTransaction then
FrmDM.SQLConnection.StartTransaction(Transacao);
Inclusao:
FrmDm.QueryCredores.Close;
FrmDm.QueryCredores.CommandText := 'Insert into Credores
(codigo_c,nome_c,endereco_c,complemento_c,bairro_c,cidade_c,uf_c,cep_c,doc,tipo_doc)
values (:vcodigo, :vnome, :vendereco, :vcomplemento, :vbairro, :vcidade,
:vuf, :vcep, :vdoc, :vtipo_doc)' ;
FrmDm.QueryCredores.ParamByName('vcodigo').AsInteger :=
strtoint(edit1.text) ;
FrmDm.QueryCredores.ParamByName('vnome').asstring := Edit2.text ;
FrmDm.QueryCredores.ParamByName('vendereco').asstring := edit3.text ;
FrmDm.QueryCredores.ParamByName('vcomplemento').asstring :=
edit4.text ;
FrmDm.QueryCredores.ParamByName('vbairro').asstring := edit5.Text ;
FrmDm.QueryCredores.ParamByName('vcidade').asstring := edit6.text ;
FrmDm.QueryCredores.ParamByName('vuf').asstring := ComboBox2.Text ;
FrmDm.QueryCredores.ParamByName('vcep').asstring := MaskEdit1.Text ;
FrmDm.QueryCredores.ParamByName('vdoc').asstring := MaskEdit2.Text ;
FrmDm.QueryCredores.ParamByName('vtipo_doc').asstring :=
ComboBox1.text ;
FrmDM.QueryCredores.ExecSQL ;
FrmDM.SQLConnection.Commit(Transacao) ;
end;
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na Tentativa de Gravar o Registro') ;
FrmDM.SQLConnection.Rollback(Transacao);
end;
end;
Alteração:
FrmDm.QueryCredores.Close;
FrmDm.QueryCredores.CommandText := 'Update Credores set codigo_c =
:vcodigo, nome_c = :vnome, endereco_c = :vendereco, complemento_c =
:vcomplemento, bairro_c = :vbairro, cidade_c = :vcidade, uf_c = :vuf,
cep_c = :vcep, doc = :vdoc, tipo_doc = :vtipo_doc where codigo_c = ''' +
edit1.text + ''' ' ;
FrmDm.QueryCredores.ParamByName('vcodigo').AsInteger :=
strtoint(edit1.text) ;
FrmDm.QueryCredores.ParamByName('vnome').asstring := Edit2.text ;
FrmDm.QueryCredores.ParamByName('vendereco').asstring := edit3.text ;
FrmDm.QueryCredores.ParamByName('vcomplemento').asstring :=
edit4.text ;
FrmDm.QueryCredores.ParamByName('vbairro').asstring := edit5.Text ;
FrmDm.QueryCredores.ParamByName('vcidade').asstring := edit6.text ;
FrmDm.QueryCredores.ParamByName('vuf').asstring := ComboBox2.Text ;
FrmDm.QueryCredores.ParamByName('vcep').asstring := MaskEdit1.Text ;
FrmDm.QueryCredores.ParamByName('vdoc').asstring := MaskEdit2.Text ;
FrmDm.QueryCredores.ParamByName('vtipo_doc').asstring :=
ComboBox1.text ;
FrmDM.QueryCredores.ExecSQL ;
FrmDM.SQLConnection.Commit(Transacao) ;
end;
except
on Exc:Exception do
begin
ShowMessage('Ocorreu um erro na Tentativa de Alterar o Registro') ;
FrmDM.SQLConnection.Rollback(Transacao);
end;
end;
sds
Luciano
Satoy Matsuoka escreveu:
Bom dia pessoal,
Por favor desculpe a ignorância, mas como faço um insert update
utilizando o
Tquery ou TUpdate ???
Como seria o comando ?
Exemplo:
Insert into tabela (campo1,campo2) values (???,)
Como me referencio aos campos que vou fazer um insert, update que são da
tela ???
Obrigado
[]'s
[As partes desta mensagem que não continham texto foram removidas]
Re: Res: Res: [delphi-br] Re: Duvidas com Form´s
Caros Amigos veja como ficou : no form FrmCadCredores: var FrmCadCredores: TFrmCadCredores ; Transacao : TTransactionDesc ; Escolha : Char ; somar_codigo : double ; *vform : TFrmCadCredores ;* implementation para chamar o Form FrmConsulta_Credores: procedure TFrmCadCredores.SBPesquisaClick(Sender: TObject); begin if FrmConsulta_Credores = nil then application.createform(TFrmConsulta_Credores,FrmConsulta_Credores) ; FrmConsulta_Credores.showmodal ; Freeandnil(FrmConsulta_Credores) end; e no Form Consulta_Credor no duplo clique no DBGrid: procedure TFrmConsulta_Credores.DBGrid1DblClick(Sender: TObject); begin With FrmDm do if not CDSCredores.isempty then begin with vform do begin Edit1.text := DBGrid1.DataSource.DataSet.Fields[0].Text ; Edit1.setfocus ; show ; FrmConsulta_Credores.close ; vform := nil ; end ; end; end; Mas continua dando o mesmo erro ! Se Possivel gostaria que me envia-se o seu script do seu aplicativo Ribamar Sousa escreveu: Luciano... a sua variavel está declarada errada, quando eu disse que é do tipo TForm, é do tipo TForm que é o nome do Form da sua aplicação... Exemplo: vForm : TFrmCadCredores; vForm1 : TFrmConsulta; então...vc colocar T + NOME DO SEU FORM. Espero ter ajudado. Abraços - Mensagem original De: Luciano Angelini [EMAIL PROTECTED] mailto:luciano.angelini%40uol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 6 de Agosto de 2007 9:54:24 Assunto: Re: Res: [delphi-br] Re: Duvidas com Form´s Ribamar Souza e Ricardo eu mudei e ficou assim: no form FrmCadCredores: Cadastro_Credor : Tform ; e no form FrmConsulta_ Credores ficou assim procedure TFrmConsulta_ Credores. DBGrid1DblClick( Sender: TObject); begin With FrmDm do if not CDSCredores. isempty then begin with Cadastro_Credor do begin edit1.text := DBGrid1.DataSource. DataSet.Fields[ 0].Text ; Edit1.setfocus ; FrmConsulta_ Credores. close ; Cadastro_Credor := nil ; show end ; end; end; só que quando os dois cliques no DBGrid para selecionar o Registro da esse erro: Access Violation At Address 0047C806 in module 'SisRecibo.exe' . Read of address 02F4 Desde ja agreço a atenção de vcs ! Ribamar Sousa escreveu: Boa Tarde, estou fazendo um aplicativo simples, e estou utilizando o mesmo conceito que o seu Luciano, e faço da seguinte mandei: FormA : Cadastro de Produto Tenho um Botão Localizar, que neste Botão eu crio uma variavel do tipo TForm( vPesquisa : TFrmPesquisa ), onde dou o Application. CreateForm ... e dps dou o ShowModal para chamar o meu form( FormB : Pesquisa )... No FormB tenho um dbGrid e um Edit, que pesquiso pelo nome do produto, ou qualquer outro tipo de pesquisa do meu sistema, no no DoubleClick do DbGrid, eu carrego as informações da minha pesquisa para o FormA, ou FormC ... etc... Sendo que eu sempre dou um CLOSE, para fechar o meu FormB e também no OnClose do FormB eu faço: Action := caFree; ... para liberar o form da memoria.. e não tive problema algum Qualquer dúvida é so perguntar... Espero ter ajudado... Abraços Ribamar Sousa Filho - Mensagem original De: Celio Ricardo [EMAIL PROTECTED] com.br mailto:ricknetbr% 40yahoo.com. br Para: [EMAIL PROTECTED] os.com.br mailto:delphi- br%40yahoogrupos .com.br Enviadas: Sexta-feira, 3 de Agosto de 2007 13:10:57 Assunto: [delphi-br] Re: Duvidas com Form´s Nao entendi bem, mas parece que voce esta fechando, mas nao liberando a variavel Tela_Cadastro_ Credor da memoria Tente: Tela_Cadastro_ Credor := nil; //apos o close E, no OnClose do form, colocar: action: caFree; Abraços e Sucesso! Ricardo --- Em [EMAIL PROTECTED] os.com.br, l_o_angelini luciano.angelini@ ... escreveu Boa Tarde . Estou tendo um pequeno problema ... Tenho no meu aplicativo dois form´s FrmCadCredores e FrmConsulta_ Credores, no form FrmConsulta_ Credores tenho um DBGrid, que nele ficam os resultaddos da busca com SQL, quando dou doism cliques no Registro no DBgrid... fecha o form FrmConsulta_ credores e traz pra o Form FrmCadCredores o Código do Credor pesquisado. No entanto vou precisar usar esse form FrmConsulta_ Credor em outra parte do aplicativo, para não precisar toda vez criar o mesmo form. Tentei criar um variavel: Tela_Cadastro_ Credor : Tform Assim que clico no botão para abrir o form FrmConsulta_ credor ele carrega a variavel: Tela_Cadastro_ Credor : FrmCadCredores ; e mudei o DBGridDblClick do DBgrid: procedure TFrmConsulta_ Credores. DBGrid1DblClick( Sender: TObject); begin With FrmDm do if not CDSCredores. isempty then begin with Tela_Cadastro_ Credor.create( self) do begin Show ; Edit1.Text := DBGrid1.DataSource
Re: Res: [delphi-br] Re: Duvidas com Form´s
Ribamar Souza e Ricardo eu mudei e ficou assim: no form FrmCadCredores: Cadastro_Credor : Tform ; e no form FrmConsulta_Credores ficou assim procedure TFrmConsulta_Credores.DBGrid1DblClick(Sender: TObject); begin With FrmDm do if not CDSCredores.isempty then begin with Cadastro_Credor do begin edit1.text := DBGrid1.DataSource.DataSet.Fields[0].Text ; Edit1.setfocus ; FrmConsulta_Credores.close ; Cadastro_Credor := nil ; show end ; end; end; só que quando os dois cliques no DBGrid para selecionar o Registro da esse erro: Access Violation At Address 0047C806 in module 'SisRecibo.exe'. Read of address 02F4 Desde ja agreço a atenção de vcs ! Ribamar Sousa escreveu: Boa Tarde, estou fazendo um aplicativo simples, e estou utilizando o mesmo conceito que o seu Luciano, e faço da seguinte mandei: FormA : Cadastro de Produto Tenho um Botão Localizar, que neste Botão eu crio uma variavel do tipo TForm( vPesquisa : TFrmPesquisa ), onde dou o Application.CreateForm ... e dps dou o ShowModal para chamar o meu form( FormB : Pesquisa )... No FormB tenho um dbGrid e um Edit, que pesquiso pelo nome do produto, ou qualquer outro tipo de pesquisa do meu sistema, no no DoubleClick do DbGrid, eu carrego as informações da minha pesquisa para o FormA, ou FormC ... etc... Sendo que eu sempre dou um CLOSE, para fechar o meu FormB e também no OnClose do FormB eu faço: Action := caFree; ... para liberar o form da memoria.. e não tive problema algum Qualquer dúvida é so perguntar... Espero ter ajudado... Abraços Ribamar Sousa Filho - Mensagem original De: Celio Ricardo [EMAIL PROTECTED] mailto:ricknetbr%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 3 de Agosto de 2007 13:10:57 Assunto: [delphi-br] Re: Duvidas com Form´s Nao entendi bem, mas parece que voce esta fechando, mas nao liberando a variavel Tela_Cadastro_ Credor da memoria Tente: Tela_Cadastro_ Credor := nil; //apos o close E, no OnClose do form, colocar: action: caFree; Abraços e Sucesso! Ricardo --- Em [EMAIL PROTECTED] os.com.br, l_o_angelini luciano.angelini@ ... escreveu Boa Tarde . Estou tendo um pequeno problema ... Tenho no meu aplicativo dois form´s FrmCadCredores e FrmConsulta_ Credores, no form FrmConsulta_ Credores tenho um DBGrid, que nele ficam os resultaddos da busca com SQL, quando dou doism cliques no Registro no DBgrid... fecha o form FrmConsulta_ credores e traz pra o Form FrmCadCredores o Código do Credor pesquisado. No entanto vou precisar usar esse form FrmConsulta_ Credor em outra parte do aplicativo, para não precisar toda vez criar o mesmo form. Tentei criar um variavel: Tela_Cadastro_ Credor : Tform Assim que clico no botão para abrir o form FrmConsulta_ credor ele carrega a variavel: Tela_Cadastro_ Credor : FrmCadCredores ; e mudei o DBGridDblClick do DBgrid: procedure TFrmConsulta_ Credores. DBGrid1DblClick( Sender: TObject); begin With FrmDm do if not CDSCredores. isempty then begin with Tela_Cadastro_ Credor.create( self) do begin Show ; Edit1.Text := DBGrid1.DataSource. DataSet.Fields[ 0].Text ; Edit1.setfocus ; FrmConsulta_ Credores. close ; end; end ; end; Acontece que da um erro dizendo que o Painel1 ja existe.. na verdade o Painel1 tem nos dois form´s... troquei o nome dos dois passando para painel_Cadastro e painel_consulta. .. da o erro dizendo que o painel_Cadstro ja existe !!! Gostaria de saber onde possa estar acontecendo o erro e se alguem tem uma outra solução Obrigado pela Antenção !!! Luciano Lupionópolis- Pr Alertas do Yahoo! Mail em seu celular. Saiba mais em http://br.mobile.yahoo.com/mailalertas/ http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
