RES: [delphi-br] Ajuda com ADO SQL SERVER? ao amigo Demian Lessa
Desculpe me intrometer más... Já fiz aplicação com banco em uma uf e executável em outra e foi beleza... Se você está usando o sgdb sql-server, coloque o numero do IP do servidor que está em curitiba. No componente adoconnection que tem a propriedade connectonSTRING, clique nas reticencias e vá pela opção BUILD que fica mole-mole. No lugar do banco de dados, coloque o numero Ip de onde está o sqlserver.. Preencha os outros parametros. faça um teste rápido com um dbnavigator/dbgrid/adosorce/adoquery/adoconnection e você vai ver que vai ter inclusao,alteração,exclusão e tudo o mais que voce vai precisar. Nao use named pipe use tcpIP direto -Mensagem original- De: delphi6_2005 [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de fevereiro de 2005 13:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda com ADO SQL SERVER? ao amigo Demian Lessa Amigo será que poderia me ajudar? Já pesquisei sobre ADO e SQL SERVER, encontrei muita teoria e as estou testando mais na prática as coisas não estão funcionando. Tenha a seguinte situação: aplicativo em Paranaguá e banco aqui em Curitiba. utilizando ADSL VPN 256KB Estava Utilizando o ADO Connect da seguinte forma, com SQLOLEDB 'Provider=SQLOLEDB.1; Integrated Security=SSPI;Persist Security Info=False;User ID=' + #39 +sUsuarioDB +#39+';Initial Catalog='+#39 + initial + #39+';Data Source='+#39 + datasource + #39+';Use Procedure for Prepare=1;Use Encryption for Data=False;Tag with column collation when possible=False'; Nesse caso ajudaria utilizar o número do endereço ip em vez do data source? O que seria named pipe? algum método de acesso? Mais estava muito lento daí passei a utilizar ODBC: 'Provider=MSDASQL.1; Persist Security Info=False;Data Source='+#39 + datasource + #39+';Initial Catalog='+#39 + initial + #39+''; Qual a melhor forma para fazer? Tenha uma aplicação relativamente simples, faço select, insert e update em uma única transação que está levando em torno de 2 minutos fara ser efetuada no banco cada transação. Agradeço toda ajuda dos amigos. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Interrupção de envio de email
O que posso fazer para interromper recebimento de email da lista entre 27/01/2005 até 15/02/2005 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro (consulta muito complexa)
Galera,
Esse POST tem 86 campos. Porque o delphi está me retornando CONSULTA MUITO
COMPLEXA ?
Já fiz post com mais campos.. o que pode estar acontecendo ?
O erro ocorre exatamente na ultima linha POST;
begin
dmestrutbd.tabbem.first;
dmEstrutBD.tabBem.Locate('Uf;Ident',
VarArrayOf([dmEstrutBD.qryBem.FieldByName('Uf').asstring,
dmEstrutBD.qryBem.FieldByName('Ident').asstring]), [loCaseInsensitive]);
wbookmark := dmestrutbd.qryBem.GetBookmark;
posicao := dmEstrutBD.tabBem.FieldByName('SerialBem').AsInteger;
dmEstrutBD.tabBem.Edit;
dmEstrutBD.tabBem.FieldByName('LocalPredio').AsString :=
trim(ed1localpredio.Text);
dmEstrutBD.tabBem.FieldByName('TermoAutorizado').AsString :=
inttostr(Integer(cboTermoAutorizado.Items.Objects[cboTermoAutorizado.ItemInd
ex]));
dmEstrutBD.tabBem.FieldByName('Titulo').AsString :=
trim(EdTitulo.Text);
dmEstrutBD.tabBem.FieldByName('IdentClasse').AsString :=
inttostr(Integer(cboClasse.Items.Objects[cboClasse.ItemIndex]));
dmEstrutBD.tabBem.FieldByName('IdentSubClasse').AsString :=
inttostr(Integer(cboSubClasse.Items.Objects[cboSubClasse.ItemIndex]));
dmEstrutBD.tabBem.FieldByName('Epoca').AsString :=
trim(EdEpoca.Text);
dmEstrutBD.tabBem.FieldByName('Autoria').AsString :=
trim(EdAutoria.Text);
dmEstrutBD.tabBem.FieldByName('MaterialTecnica').AsString :=
trim(MemMaterial.Text);
dmEstrutBD.tabBem.FieldByName('NumeroInvent').AsString :=
trim(ed1NumeroInvent.Text);
dmEstrutBD.tabBem.FieldByName('NumInventAnt').AsString :=
trim(edNumInventAnt.Text);
dmEstrutBD.tabBem.FieldByName('Origem').AsString :=
trim(EdOrigem.Text);
dmEstrutBD.tabBem.FieldByName('Procedencia').AsString :=
trim(EdProcedencia.Text);
dmEstrutBD.tabBem.FieldByName('ModoAquisicao').AsString :=
trim(ed1modoaquisicao.Text);
dmEstrutBD.tabBem.FieldByName('AquisicaoData').asstring :=
EdAquisicaoData.text;
dmEstrutBD.tabBem.FieldByName('MarcasInscricoesLegendas').AsString
:= trim(MemMarca.Text);
dmEstrutBD.tabBem.FieldByName('Altura').Asstring :=
trim(ed2altura.Text);
dmEstrutBD.tabBem.FieldByName('Largura').Asstring :=
trim(ed2largura.Text);
dmEstrutBD.tabBem.FieldByName('Comprimento').Asstring :=
trim(ed2comprimento.Text);
dmEstrutBD.tabBem.FieldByName('Profundidade').Asstring :=
trim(ed2profundidade.Text);
dmEstrutBD.tabBem.FieldByName('Diametro').Asstring :=
trim(ed2diametro.Text);
dmEstrutBD.tabBem.FieldByName('Peso').Asstring :=
trim(ed2peso.Text);
dmEstrutBD.tabBem.FieldByName('Circunferencia').Asstring :=
trim(ed2circunferencia.Text);
dmEstrutBD.tabBem.FieldByName('Descricao').Asstring :=
trim(mem2descricao.Text);
if chkprotlegal1.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal1').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal1').Asboolean :=
false;
if chkprotlegal2.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal2').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal2').Asboolean :=
false;
if chkprotlegal3.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal3').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal3').Asboolean :=
false;
if chkprotlegal4.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal4').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal4').Asboolean :=
false;
if chkprotlegal5.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal5').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal5').Asboolean :=
false;
if chkprotlegal6.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal6').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal6').Asboolean :=
false;
if chkprotlegal7.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal7').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal7').Asboolean :=
false;
if chkRoubo.Checked then
dmEstrutBD.tabBem.FieldByName('Roubo').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Roubo').Asboolean := false;
if chkExtravio.Checked then
dmEstrutBD.tabBem.FieldByName('Extravio').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Extravio').Asboolean := false;
if chkFurto.Checked then
dmEstrutBD.tabBem.FieldByName('Furto').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Furto').Asboolean := false;
if chk3Registro_1.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroFilme').Asboolean := true
else
RES: [delphi-br] Re: Ancestrais - Highlander
Cobra 480 eh claro ( o melhor ) ahahah 20, robustos 20 mb. ahh ninguem falou do grande editor de textos da Cobra computadores. Qual ? ahahah o fortíssimo SPP - Sistema de processamento de palavras. Pense no atualíssimo HTML p para paragrafos e assimmm vai.. eheheheh. E se alguem trabalhou com a linguagem GOL DA COBRA.vai ganhar um doce eheheheh. -Mensagem original- De: Josir [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 7 de dezembro de 2004 15:09 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Re: Ancestrais - Highlander Pessoal, essa para arrematar o assunto pois a galera com menos de 20 deve estar de saco cheio desse assunto: Quando eu comecei a trabalhar com Informática, era só em Assembler e binário e o computador era tão antigo que só tinha zeros. Só meses depois é que implementaram o 1. ;) Eu estou aqui, curtindo todo este saudosismo, e estava tentando me lembrar de alguma coisa que conhecia e ainda nao havia sido dito. e Lembrei!. MUMPS em equipamentos COBRA!! - Original Message - From: itamar [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, December 07, 2004 9:46 AM Subject: Re: [delphi-br] Ancestrais. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Ancestrais
E o Walquiria?? quer pegar um executável e transformar em fontes (.prg) use o walquiria. Isso para o clipper eh claro eheheheh. Quer saber? eu tenho ele até hoje quardado em minha máquina pentium 4 com windows2000 eheheh. -Mensagem original- De: itamar [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 7 de dezembro de 2004 15:52 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Ancestrais tambem colecionei muito posso te pedir um favor em uma das revistas do ano de 1982 tem um a figura de um diabinho sentado em um bancoquinho na freter de um micro cp500 estilizado em cor azul. nesta pagina logo abaixo da figura tem uma rotina em basic usando uma reotina de compactacao de 8 para 3 bytes e de 3 para 2 byte e as respectivas descompactacao, eu usava esta coisa para exconder valores em folhas de pagamento e diminuir tamanho dos arquivos so que eu perdi a bendita rotina e com toda esta onda de nostalgia bateu SAUDADES SE ENCONTRAR A REFERIDA ROTINA FAVOR ME CONTACTE EM PVT [EMAIL PROTECTED] Analista de Sistemas itamar roloff --- - Original Message - From: Eduardo Jedliczka [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, December 07, 2004 4:37 PM Subject: Re: [delphi-br] Ancestrais MicroSistemas ?? Acho que tenho uns 80 exemplares... Mas será que o amigo lembra da revista INPUT ??? [S] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = - Original Message - From: Fabiano Catrinck To: [EMAIL PROTECTED] Sent: Tuesday, December 07, 2004 3:37 PM Subject: Re: [delphi-br] Ancestrais O moderador está certo, esse assunto nada tem haver com o objetivo da lista e portanto deve ser banido da mesma... Um abraço, Fabiano Catrinck -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Ancestrais.
É,,, são boas viagens. Só entrei aqui para te dizer que saudade: Mump(eiro) de coração, dizia: esse cobol não tá com nada, enquanto você faz uma rotina com dez linhas, no mumps EU USO APENAS UMA. Lembra? Como era mesmo? ^linha, print, *31,*31,*12 if linha=2, W vale 2, w imprime minha linha ahhh que saudade das nossa INVIRONMENT DIVISION, DATA DIVISION, IDENTIFICATION DIVISION. Cada uma dessas com 100, 50 linhas. E o 210 da cobra computadores? Indexar um arquivo de 2 mb em dbase? Em disquete de 8 polegadas? o papo era o seguinte: Chefe preciso ir ao banco. O CHEFE... tudo bem então coloca a tabela para reindexar. Eu ia ao banco e o WINCHESTER ficava lá.. tec, tec, tec, tec, tec, tec, tec, e quando eu voltava do banco ainda sobrava um tec para eu ouvir. Isss Terminou zero erro. É isso... mas o que mais me aborrece eh ver alguns garotos que ainda não descobriram que informática não é bicho de 7 cabeças e que seus subrinhos de 9 anos já fazem o que eles não faziam aos 30. Claro, aconteceu comigo e vai acontecer com todos. Quando todos enchergarem que o importante eh repartir, compartilhar e parar com esse sentimeno de que você eh o bam-bam-bbam, nós todos estaremos orgulhosos de termos participado da história tecnológica e poderemos dizer aos nossos 60 anos: eh garoto você está com esse chip na mão, tentando configurar esse coração ou esse figado, mas isso não começou agora. Esse eh um desabafo de quem já pegou milhares de cartões perfurados que haviam caido das mãos de um office-boy assustado. Esses cartões tinham milhares de instruções e para organiza-los novamente a bons tempos. -Mensagem original- De: Sávio Cler [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 7 de dezembro de 2004 01:08 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Ancestrais. É, quando fui fazer meu curso de BASIC (86 acho), lembro do professor tá comprando um PC, já tinha teclado e estava juntando dinheiro pra comprar um tal de Winchester. Mas eu adorava o Comodore 64, e o 128 então, cada jogão. Sávio Cler ICQ 142428832 www.stc.eti.br [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.rg3.net --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Williams Diaz [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, December 06, 2004 11:47 PM Subject: Re: [delphi-br] Ancestrais. Pois é André, eu que sou um ancestral te confirmo: eu mesmo programei muito em cobol perfurando cartão. Eu até tinha esquecido disso, você tinha que lembrar? :); É mais, quando surgiu o pc tinhamos diskete de 125 K para processar, guardar (atenção: k mesmo, não megas). e 8k de memória ram, se não me falha a memória. Quando surgiu o HD de 1MB, depois de5MB e de 10 Megas foi uma festa. Eu chamava meus amigos programadores para dar um dir e que vissem a velocidade e morressem de inveja. Para digitar um acento num editor de texto? era mais ou menos assim, você digitava a letra, digitava um backspace com um CTRL da vida, CTRL-H senão me engano, e depois o acento. O texto ficava lindíssimo na tela, ninguém entendia nada. Uma vez assisti uma palestra de um concorrente do Word chamado Carta Certa, e o máximo que ele permitia eram textos de 64K. Eu questionei o tamanho quando o próprio word permitia mais do que isso, e o cara me ridicularizou na platéia fazendo uma piada com o tamanho de arquivo que eu ia fazer, que nunca ia chegar a um tamanho desses e tal e tal. E as primeiras placas fax modem? 2K de velocidade. Era mais rápido pegar o ônibus e levar o diskete no cliente, quando você voltava ainda estava transmitindo. A única coisa que tenho saudade era o salário: eu ganhava em torno de 4.000 dólares na época, e como programador. Hoje muito diretor de informática não ganha isso. A gente conhecia comandos que poucos mortais sabiam o que significavam. Você não imagina o terror que era treinar usuários novos (hoje ainda é, imagine). Eu tive alunos que ficavam minutos olhando para o teclado com medo de pegar. Livros? hehehehe - só em inglês e se comprasse fora, o máximo que você encontrava na livraria era introdução aos computadores, desde o Univac até... o Univac. Depois apareceu um livro muito bom de dbase II (precursor do clipper) escrito por Laercio Cosentino, hoje por sinal dono da Microsiga. Esse foi bom, tinha enormes 60 páginas. Eu dizia: meu deus, quanto coisa para estudar, aonde chegaremos? Já não vou te cansar mais com tanta história de velharia, mas lembre, daqui a uns 20 anos (ou menos) você estará contando sobre delphi e .net a um cara novinho que programa falando com um computador. Ele vai dizer: é verdade que vocês programavam clicando com um mouse e digitando 20 30 mil linhas de código?. Eta.. viajei... será?. abraços, williams *--- Williams
RES: [delphi-br] Ancestrais
Até porque, você ainda pode encontrar uma empresa grande como o SERPRO por exemplo que ainda pode ter alguma coisa em cobol e/ou mumps. Não que se vá fazer cursos dessas linguagens, mas se em uma entrevista o cara falar em cobol... a amigão se você não souber do que se trata. o outro candidato leva a vaga. -Mensagem original- De: Marcos Paulo [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 7 de dezembro de 2004 14:07 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Ancestrais Eu acho que as experiências dos programadores e conhecimento sobre como foi há 20 anos e como está agora me dá uma visão de como as coisas evoluem e como preciso estar me reciclando diariamente. Eu acho que está sim, no escopo da lista e deve ser mantida. Afinal, a história e evolução das linguagens de programação deve ser a base para os programadores atuais, afinal, sempre aprendemos com a história, não? Acho que a lista não deve ser somente códigos e respostas prontas e sim um lugar para abrir a mente do programador e mostrar que o mundo não é feito só de delphi e pascal e que ele deve estar atento a tudo. Respeitosamente, minha opinião é esta. Atenciosamente, Marcos [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] OFF-TOPIC - Ancestrais.
ahhh o CP500. com um winchester do tamanho de uma bateria de carro, disquete de 8 polegadas... -Mensagem original- De: Eduardo Galvão [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 7 de dezembro de 2004 09:58 Para: Lista Delphi Assunto: [delphi-br] OFF-TOPIC - Ancestrais. Olá, Alguém se lembra da revista Micro Sistemas, quando saiu um jogo Adventure (perdidos na selva, algo assim)? Ele ocupava cerca de 10k, e só para carregar do gravador eram 5 minutos de muita emoção, pois nem sempre dava certo. Tive um CP200, depois um CP300, Apple, MSX, e assim por diante. Bons tempos aqueles!!! Grande parte do que aprendi foi quebrando a cabeça com o 'poderoso' BASIC da época.. Saudações, Eduardo Paci Galvão Engenheiro UFMG 1990 Belo Horizonte - Brasil www.egalvao.com.br MSN: [EMAIL PROTECTED] -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] OFF-TOPIC - Ancestrais.
Como esquecer do dbase II ? eu tenho o DBU até hoje na minha máquina. Muitas coisas nos DBF ainda faço usando o dbu. -Mensagem original- De: Francisco Carlos Andrade [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 7 de dezembro de 2004 08:14 Para: delphi-br Assunto: Re: [delphi-br] OFF-TOPIC - Ancestrais. é mas vcs estao esquecendo do inacreditabel PC 500 MC 80 TURBO, e o dbase II que foi o meu inicio de tudo. Realmente isso é NOSTAUGICO Em Ter, 2004-12-07 às 09:58, Eduardo Galvão escreveu: Olá, Alguém se lembra da revista Micro Sistemas, quando saiu um jogo Adventure (perdidos na selva, algo assim)? Ele ocupava cerca de 10k, e só para carregar do gravador eram 5 minutos de muita emoção, pois nem sempre dava certo. Tive um CP200, depois um CP300, Apple, MSX, e assim por diante. Bons tempos aqueles!!! Grande parte do que aprendi foi quebrando a cabeça com o 'poderoso' BASIC da época.. Saudações, Eduardo Paci Galvão Engenheiro UFMG 1990 Belo Horizonte - Brasil www.egalvao.com.br MSN: [EMAIL PROTECTED] -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] TRAY ICON
Pegando carona no tray
e já passando para outro assunto.
então quer dizer que se eu quizer definir uma variável no form principal,
para valer em todos os outros form's,, devo defini-la na secao PUBLIC ??
-Mensagem original-
De: MOITA [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 15:44
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] TRAY ICON
nid é a variavel que uso e foi declarada em public, veja o nome que vc esta
usando ou utilize assim
public
{ Public declarations }
nid: TNotifyIconData;
- Original Message -
From: Eduardo Silva ®
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 3:18 PM
Subject: RES: [delphi-br] TRAY ICON
Ta dando erro na primeira linha, nid
-Mensagem original-
De: MOITA [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 3 de dezembro de 2004 15:08
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] TRAY ICON
Eu tambem tinha esse problema, coloquei o seguinte codigo que resolveu:
procedure TFIcon.FormDestroy(Sender: TObject);
begin
nid.uFlags := 0;
Shell_NotifyIcon (NIM_DELETE, @nid);
end;
- Original Message -
From: Osmar de Souza Júnior
To: [EMAIL PROTECTED]
Sent: Friday, December 03, 2004 1:41 PM
Subject: [delphi-br] TRAY ICON
criei um icone no tray (bandeja) do windows para minha aplicação.
quando encerro a aplicação, o icone não desaparece automaticamente.
ai quando passo o mouse por cima, ele desaparece.
alguem sabe porque ???
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
--
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004
[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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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,
RES: [delphi-br] Erro Conexão com o SQL
Como você sabe, o Trust connection te dá a possibilidade de voce entrar comn um nome e senha de usuario que esteja cadastrado no dominio de sua rede. O que deve estar acontecendo, eh que voce está tentando lançar um usuario que o dominio da rede nao conhece. Eu costumo cadasrar um usuario soh para os acessos aos sistemas feitos por mim no delphi. Dessa forma, todos os meus sistemas tem apenas um usuario e eu controlo o acesso ao sistema por uma rotina e uma tabela de usuarios chamado na tela de acesso ao sistema. -Mensagem original- De: Lenilson Medeiros [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 1 de dezembro de 2004 15:04 Para: Delphi Lista Assunto: [delphi-br] Erro Conexão com o SQL Caros amigos listeiros mudamos o nosso Servidor para Windows 2003 e atualizamos o SQL 2000 com o Service Pack 3 , começamos a ter problemas com a conexão do Delphi 7 com o Banco SQL Utilizamos a BDE para acessar o SQL Server . É Postada a seguinte mensagem de erro: Unknown user name or password Login Failed For user '(null)'. Not associated with a trusted SQL Server connection Login Incorret Usando o ADO não há erro de acesso Alguém já passou por isso e pode me dar um help ? Obrigado a todos Lenilson Medeiros __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] problema com inserção
É... vai pelo Vitor que ele tá sabendo das coisas Tabela cliente codCliente NomeCliente 1 a 2 aa 3 aaa Tabela de consultas CodCliente outroscampos 2 primeira consulta do 2 2 segunda consulta do 2 2 terceira consulta do 2 1 primeira consulta do 1 3 primeira conwsulta do 3 e assim vai até vc ter uma super aplicação.. Codificar não é problema.. A quest]ao eh: conhecer bancos de dados e lógica de programação, e essa.. ou você tem a manha ou vai ser Deputado ou Senador. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] problema com inserção
É... vai pelo Vitor que ele tá sabendo das coisas Tabela cliente codCliente NomeCliente 1 a 2 aa 3 aaa Tabela de consultas CodCliente outroscampos 2 primeira consulta do 2 2 segunda consulta do 2 2 terceira consulta do 2 1 primeira consulta do 1 3 primeira conwsulta do 3 e assim vai até vc ter uma super aplicação.. Codificar não é problema.. A quest]ao eh: conhecer bancos de dados e lógica de programação, e essa.. ou você tem a manha ou vai ser Deputado ou Senador. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Leiam
Grande Eneas.. Você está conseguindo fazer uma propaganda MUNDIAL do referido filme. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: RES: [delphi-br] Delphi com Access em rede from Cicerot
Tudo bem... você falou que estaá desenvolvendo o sistema em casa.mas
deve rodar em um servidor em uma rede qualquer. Então faça o seu
executável em casa para c:\ e quando estiver pronto, mude para
\\servidor/tal e tal.
-Mensagem original-
De: Eneias Sousa Carvalho [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 22 de novembro de 2004 14:31
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [delphi-br] Delphi com Access em rede from Cicerot
Caro amigo, acredito que você não tenha entendido bem o que eu quiz dizer,
estou criando o programa em casa, e vc sabe que quando colocalamos a
propriedade connection string, ele sempre vai buscar naquele caminho, a não
ser que eu ponha um parametro e digo que o meu connection string, vai
receber aquele parametro, ainda não tentei isso mais vou tentar, más caso vc
tenha outra idea agradeço.
Cícerot [EMAIL PROTECTED] wrote:Se voce está em uma rede então sabe o
nome do computador que está servindo
como servidor.
Se você usa ADO , em connection string você vai colocar o PATH do banco em
access e isso vai valer para todos os seus usuários. Seu executável sempre
vai procurar um banco em
\\servidor/seubanco.mdb
-Mensagem original-
De: Eneias Sousa Carvalho [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 19 de novembro de 2004 16:28
Para: [EMAIL PROTECTED]; lista de discussão
Assunto: [delphi-br] Delphi com Access em rede.
gente, continuo com o problema, não posso fazer a o programa em
firebird/interbase, por que não terei permissão de instalar o banco, ou
colocar as dll's no computador que será usado como servidor, volto a pedir
ajuda, para quem puder me ajudar no seguinte problema, tenho de desenvolver
um sistema em delphi que use banco de dados access, até ai tudo bem, ai sim
vem o problema, instalarei os bancos de dados em um computador que servirá
como servidor, e instalarei o sistema em varias estações, o sistema na sua
primeira execução (ou tendo um menu), devera apresentar uma janela de
configurações, onde devo indicar o caminho de onde esta o banco de dados,
alguem tem algum exemplo (fonte ou apostila), que pode me enviar, pois estou
precisando muito e só tenho até quarta-feira (24/11/2004) para fazer essa
aplicação, desde já agradeço pela ajuda.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert(Por favor, digite
algo.); return false; }else { document.form_combo.action
=http://br.rd.yahoo.com/SIG=12as980vl/M=264105.3931087.6562589.1588051/D=br
clubs/S=2137111264:HM/EXP=1101209375/A=2361264/R=0/SIG=11uaou2jn/*http://www
.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11; } return true;} [input]
[input] [input]
-
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 Termos do Serviço do
Yahoo!.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens
RES: [delphi-br] curso
Normalmente o aprendaemcasa.com.br tem alguma coisa -Mensagem original- De: james nascimento [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 22 de novembro de 2004 10:16 Para: [EMAIL PROTECTED] Assunto: [delphi-br] curso Qual o site que encontro um curso on line de delphi? [EMAIL PROTECTED] - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Re: Servidor MYSQL Grátis
Então informa pra nós. -Mensagem original- De: lordeleo [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 24 de novembro de 2004 11:18 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Re: Servidor MYSQL Grátis Eu consegui. Servidor MYSQL web gratuíto e permite acesso remoto. Tenho uma aplicação em delphi que acessa a base de dados e eltera tudo o que eu quiser, ex: preços de produtos. []'s --- Em [EMAIL PROTECTED], Rodrigo Americo [EMAIL PROTECTED] escreveu Acredido que deva existir sim. Há um tempo atrás, utilizei um, mas não consegui reencontrá-lo para passar-lhe. No entanto, uma coisa você não vai conseguir: acesso remoto. Hoje em dia, nem os servidores pagos permitem acesso remoto ao banco. A possibilidade de acesso é sempre phpMyAdmin ou similar, o que, se pensarmos bem, não deixa de ser um acesso remoto. Att. Rodrigo Américo On Wed, 24 Nov 2004 10:59:37 -, lixeirod [EMAIL PROTECTED] wrote: Alguém conhece um servidor MYSQL na WEB que seja grátis e que permita o acesso remotamente ao servidor? Valeu! -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Cadastro básico (inclui, altera, exclui)
O mais simples que voce pode fazer eh colocar os dbedit na tela e um dbnavigator. Voce faz essa aplicação em menos de 5 minutos. -Mensagem original- De: ltgodinho [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 17 de novembro de 2004 08:03 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Cadastro básico (inclui, altera, exclui) Alguém tem algum exemplo de cadastro, usando componentes da aba Interbase, para acessar o banco? Obrigado -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Dúvida Intraweb.
Como você já tem uma rotina para alimentar esse combobox, agora você vai na tua rotina de inserção do novo bairro e ao fechar sua janela ou ao clicar no botao de salvarBairroNovo voce manda executar aaquela rotina de montar combobox: MONTARCOMBOBOX(SENDER); -Mensagem original- De: Otávio Barreto [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 16 de novembro de 2004 14:35 Para: Delphi-Br Assunto: [delphi-br] Dúvida Intraweb. Boa Tarde, Como faço para abrir um nova janela do navegador e nesta um formulario(intraweb) para efetuar um cadastro basico. Segue melhor explicação: Na tela de cadastro de funcionários tem um campo dblookcombobox com os bairros, ao clicar no botão do lado do controle abre-se uma nova janela para cadastrar um novo bairro. e ao fechar ele já estara disponivel para seleção. Espero ter conseguido explicar. Desde já agradeço. = Otávio Barreto de Melo Programador Tel: +55 21 3159-2381 Cel: +55 21 8879-5021 MSN: [EMAIL PROTECTED] ICQ: 33276 = [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] intraweb
Peguei um help sobre INTRAWEB no www.linhadecodigo.com.br. Acontece que a apostila fala sobre o INTRAWEB APPLICATIN WIZARD na opção file / new /other. Meu delphi 6 não tem essa aba. O que pode estar acontecendo? Como vou chegar ao INTRAWEB ? --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Dúvidas, por favor me ajudem...
Se voce colocou o seu source com a tabela ou query corretamente isso acontece automaticamente. Se nao esta acontecendo tem algum buchicho aí... -Mensagem original- De: Giovani Zanuto [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 11 de novembro de 2004 21:09 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Dúvidas, por favor me ajudem... Caros colegas programmadores, por favor me ajudem... Como faço para que ao aparecer meu dbgrid, ele já fique com a primeira linha acionada? Como faço para por máscara no combobox? Se nao é possível, existe algum componente que seja como o combobox e que dê para por máscara? Se existe, onde eu posso arranjar e como se chama? Atenciosamente, Giovani - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Conexão remota
Legal mais o que eh mesmo o Intraweb he...? Onde posso conseguir algo aa respeito ? Fortíssimo abraço -Mensagem original- De: Mario Conglom [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 11 de novembro de 2004 16:35 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Conexão remota Cícerot: Como voce conhece o D6, indico o Intraweb. Se nao me engano, o Delphi 2005 virá com o IW 7.2. E, para o inicio de 2005, tudo novo em D8+aspnet. Para um cliente nosso, usamos o D7+Intraweb+Oracle. Como manda o figurino, temos um Web Server Win2kPro (PIII 1Ghz) em separado do BD Oracle (Win2kServer). Tudo bem rapido e sem carga nas maquinas. []s, Mario. Já fiz um cadastro de funcionários pequeno usando ASP também sem massa de teste grande. O que eu devo usar para um banco de dados sql-server (futuramente oracle) para rotinas de INCLUSÃO, ALTERAÇÃO, EXCLUSÃO, CONSULTAS USANDO LIKE EM TODOS OS CAMPOS e finalmente alguns relatorios. Minha estrutura eh: Desenvolvimento delhi6, banco access2000, sql-server, estação de desenvolvimento win2000. G -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] on delete cascade
Suas tabelas estao com relacionamentos definidos. Das duas uma: Ou você tira o relacionamento (não aconselho) ou você implementa a roti para exclusão da primeira e depois da segunda. Você sabe: Tem uma tabela de Uf onde o seu cadastro usa o campo uf como master. Claro se você deleta uma UF, seu cadastro vai ficar doidão porque um dos registros tem por exemplo a UF (mg) como conteúdo. Se você deleta MG da tabela de uf's ferrou. -Mensagem original- De: claudiomf1 [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 12 de novembro de 2004 01:23 Para: [EMAIL PROTECTED] Assunto: [delphi-br] on delete cascade No Interbase este comando funciona certo.. ON DELETE CASCADE Agora no aplicativo reclama... diz que nao pode apaga a tabela master por causa da detalhe.. Tem que configurar algo mais no aplicativo pra poder funcionar ? -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Conexão remota
Meus queridos, Estou com um turbilhao de coisas para implementar na internet e preciso de opnioes experientes: Já usei o winzeus conectando aa um numero de ip de nossa rede mas não tive opoertunidade de testar com 500 mb de banco sql-server, já usei o ADO com connection string citando o IP sem massa de teste também, Já fiz um cadastro de funcionários pequeno usando ASP também sem massa de teste grande. O que eu devo usar para um banco de dados sql-server (futuramente oracle) para rotinas de INCLUSÃO, ALTERAÇÃO, EXCLUSÃO, CONSULTAS USANDO LIKE EM TODOS OS CAMPOS e finalmente alguns relatorios. Minha estrutura eh: Desenvolvimento delhi6, banco access2000, sql-server, estação de desenvolvimento win2000. Gratíssimo pelas futuras opnioes. [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Conexao dedlphi via internet
Coloque o numero do Ip na propriedade connection string de sua adoconnection -Mensagem original- De: Trigo [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 11 de novembro de 2004 09:16 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Conexao dedlphi via internet Oi pessoal, eu tenho um projeto que usa postgre e delphi + zeos. Eu preciso conectar o banco via internet. Alguem sabe se é possível fazer e como se faz? Valew - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Ajuda(urgente)
Sua questao parece tão simples que se torna complicada. Se você tem um formulario com vários tedit (esqueçamos os botoes de comandos suponho), obviamente o primeiro tedit vai ter o foco (principalmente se o TABORDER desse tedit for = 1. Logo que você clicar no TAB, o normal eh o foco passar altomaticamente para o tedit2 que deve ter o TABORDER = 2 e assim sucessivamente nos outros edits. Se falei besteira entao nao entendi a questao, contacte-me novamente. -Mensagem original- De: Ramilton Junior [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 11 de novembro de 2004 09:31 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Ajuda(urgente) Ola pessoal... Estou prescisando de uma ajuda... eu tenho um formulario onde tem varios botoes e dois edits.. onde o usuario vai clicar para informar o seu codigo e sua senha... ja tentei de tudo... mais nao consigo fazer com que o usuario digite o seu codigo ne um edit e a sua senha no outro edit.. sempre que eu clico no botao ele sempre digita no primeiro edit e quando eu mudo o foco para o segundo ele ainda continua escrevendo no primeiro edit como eu faço para que o usuario utilizando os botoes ele consiga digitar tanto no primeiro edit como no segundo?? alguem ja fez alguma coisa parecida assim... Atenciosamente, Ramilton.. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] ADO exigem recurso ou configuração para funcionar nos Windows?
Até onde eu fui,,, não precisei de nada. -Mensagem original- De: delphi6_2005 [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 9 de novembro de 2004 13:33 Para: [EMAIL PROTECTED] Assunto: [delphi-br] ADO exigem recurso ou configuração para funcionar nos Windows? Algum amigo sabe me informar se para utilizar os Componentes ADO em meus aplicativos eu terei de efeturar alguma configuração nas máquinas onde irei instalar o aplicativo, Poderei utilizar o aplicativo com ADO em qualquer Windows? Necessido instalar ou configurar algum drive, fazer alguma atualização? e o windows 98 terei problemas? Grato aos amigos Paulo -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Duvidas SQL
Voce ainda pode fazer:
no lugar de ASPAS como o colega indicou:
quotedstr(nome.text)
-Mensagem original-
De: Tasquim [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 9 de novembro de 2004 12:55
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Duvidas SQL
legal, era isso mesmo, agradeço, eu queria saber era como fazer a sintaxe,
agora ja deu uma clareada
Tasquim
- Original Message -
From: luagodoy
To: delphi-br
Sent: Tuesday, November 09, 2004 1:23 PM
Subject: Re: [delphi-br] Duvidas SQL
Veja se isto pode te ajudar
Procedure ..
var
nome : string;
const
Aspa = ;
begin
//usa variável apenas para demonstrar
nome := 'Luis';
with query1 do
begin
if active then close;
sql.clear;
sql.add('SELECT * FROM TAB_CLIENTES WHERE NOME LIKE (' +
aspa + nome + aspa + ')' + chr(13) +
' order by nome');
open;
end;
end;
espero que seja isso a sua dúvida.
lugodoy
-- Cabeçalho inicial ---
De: Tasquim [EMAIL PROTECTED]
Para: [EMAIL PROTECTED]
Cópia:
Data: Tue, 9 Nov 2004 13:15:13 -0200
Assunto: Re: [delphi-br] Duvidas SQL
vcs não teriam um exemplo mais pratico
- Original Message -
From: Yahoo
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 11:49 AM
Subject: Re: [delphi-br] Duvidas SQL
help do delphi: TQuery
ou google: delphi usando query
Tasquim wrote:
Bom dia!
Alguem saberia me informar como inicio/faço uma chamada (ou
mesclar) em sql dentro do delphi,ou seja, tenho a programação em
delphi, mas preciso colocar uma parte em sql,
Ex.: uma Pesquisa.
Tem como fazer isto??
Quais comandos uso??
Agradeço
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 09/11/2004 / Versão:
4.3.20 (10.21) - Dat 4405
Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
--
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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Critica de datas
Agora que fiz uma coisinha mais complexa olha o erro na segunda linha da
procedure:
(Privileged instruction)
Como tenho varias datas, quero fazer uma unica rotina de critica. Então fiz
assim. Más ta tam bonitinha, o que deu erro PRIVILEGED INSTRUCTION
A intenção eh ir até a procedure validadata independente do campo data em
que esteja. Ele vai lah pelo EXIT DOS TEDITMASK'S.
procedure tfrmobjetos.validadata;
var
i : integer;
begin
i := frmObjetos.ComponentCount - 1;
if tmaskedit(frmObjetos.Components[i]).Text = ' / /' then
begin
ShowMessage('Digite a data.') ;
TMaskedit(frmObjetos.Components[i]).setfocus ;
exit ;
end;
try
TMaskedit(frmObjetos.Components[i]).Text :=
DateToStr(Strtodate(TMaskedit(frmObjetos.Components[i]).Text));
except
Showmessage('Data inválida. Corrija por favor.') ;
TMaskedit(frmObjetos.Components[i]).Text := ' / /';
TMaskedit(frmObjetos.Components[i]).setfocus ;
end;
end;
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [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
RES: [delphi-br] Image - Urgente
Não me lembro do 5 e não uso o 7 e sim o 6 mas eu acredito que se você quer selecionar uma imagem em tempo de desenvolvimento, você deve clicar na propriedade picture do seu IMAGE. -Mensagem original- De: fpsp2000 [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 1 de novembro de 2004 20:33 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Image - Urgente Fiz o upgrade do Delphi5 para o 7, sendo q no 5 utilizava o componente Image para por as imagens, bastava dar dois cliques em cima do componente q abria uma tela pra busca da imagem, sendo q no 7 nao, qdo dou o duplo clique vai para a unit (TForm1.Image1Click). Se alguem puder dizer qual componete devo usar? Desde ja agradeco, Fernanda. -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] BCD
Se você estiver usando BDE, veja lá que tem uma propriedade BCD. Eu já tive um problema assim com banco de dados sql-server usando bde e resolvi invertendo o valor que estava lá. Não conheço a fundo o caso mas se lá estava true, mudei para false ou vice-versa. -Mensagem original- De: Laira Gasparello [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 3 de novembro de 2004 06:41 Para: [EMAIL PROTECTED] Assunto: [delphi-br] BCD Olá.. Estou com o seguinte problema... Tenho uma tabela temporária com o componente TClientDataSet, nele existe um campo vlr_unitario_item do tipo asBcd. Ao passar o valor 0.1 para este campo, ele me diz que 1E-5 não é um valor válido, e se eu usar vlr_unitario_item.asfloat para receber este valor, fica convertido em zero. Ou seja: vlr_unitario_item.asbcd := 0.1 = erro 1E-5 não é valor válido vlr_unitario_item.asfloat := 0.1 = 0 alguém já passou por este problema, como resolveu? Agradeço Laira [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] HELP - Problemas com consulta!
Aqui em baixo,
Identtermoautoriz = seu codigo do item
termoautorizado = nome do remedio
na minha tabela principal,
Bem = tabela principal
bem.termoautorizado = seu codigo do remedio
entao aa query fica assim:
dmEstrutBD.qryGRID.Close;
dmEstrutBD.qryGRID.SQL.Clear;
cmdosql := 'SELECT Autorizado.IdentTermoAutoriz,
Autorizado.TermoAutorizado AS Autorizado_TermoAutorizado, '
+ ' Bem.uf, Bem.Ident, Bem.TermoAutorizado AS
Bem_TermoAutorizado'
+ ' FROM Autorizado INNER JOIN Bem ON
Autorizado.IdentTermoAutoriz = Bem.TermoAutorizado'
+ ' where uf = ' + wuf + '';
dmEstrutBD.qryGRID.SQL.Add(cmdoSQL);
dmEstrutBD.qryGRID.Open;
qualquer duvida me chame em [EMAIL PROTECTED]
-Mensagem original-
De: Erika [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 17:40
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] HELP - Problemas com consulta!
Boa tarde... estou com problemas na minha consulta! É o seguinte:
Tenho 3 tabelas:
- Item (preciso da quantidade de medicamentos)
- Pedido (preciso saber quais itens referem-se ao pedido)
- Medicamento (preciso do nome do medicamento)
Queria listar em um DBGrid os medicamentos contidos nos itens de um
pedido. Mas não só o código e sim o nome.
Então meu DBGrid teria: Nome Medicamento e Quantidade.
Fiz esta procedure, mas dá erro de falta de parâmetros, o que será
que está errado? Estou usando banco access e conexão ADO.
procedure TFormPedido.BuscaItem;
begin
with DM.QrItem do
begin
close;
sql.Clear;
sql.add('SELECT item_quantidade, med_nome');
sql.Add('FROM item,medicamento');
sql.Add(('WHERE(item.item_med_numero=:nummed)AND
(item.item_ped_num =:numped))');
Parameters.ParamByName('numped').Value := StrToFloat
(EditPedNum.Text);{Edit com o número do pedido}
Parameters.ParamByName('nummed').Value := StrToFloat
(EditPedMedNum.Text); {edit com o número do medicamento}
Open;
end;
end;
Bom, não sei se consegui me expressar direito desculpe se está
muito confuso...
Obrigado
[]'s
Erika
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [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
RES: [delphi-br] Diminuir tamanho de imagem sem preder muita resolução!
Gostaria de ver esse conversor.exe. Pode me enviar para (
[EMAIL PROTECTED]).
-Mensagem original-
De: MYSQL [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 19 de outubro de 2004 18:22
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Diminuir tamanho de imagem sem preder muita
resolução!
Você deve usar jpg ou gif.
Use um programa chamado conversor.exe.
Se quiser eu posso enviar.
Michelangelo V. Freitas
[EMAIL PROTECTED]
- Original Message -
From: David Leão [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Friday, October 15, 2004 7:58 PM
Subject: [delphi-br] Diminuir tamanho de imagem sem preder muita resolução!
Caros Amigos,
Tenho uma rotina pra capturar uma imagem da área de trabalho e salvar como
bmp, gostaria de saber se existe uma maneira melhor de fazer, pois do jeito
que está a imagem fica com mais de 3mb.
Será que gravando em jpg melhora??
vcs podem me ajudar??
a rotina que estou usando eh a descrita abaixo .
Keybd_Event(VK_SnapShot, 0, 0, 0); // Simula o pressionamento da tecla
Print Screen
Image1.Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard
GetAsHandle(cf_Bitmap), 0); // Captura da área de transferência a imagem
Image1.Picture.SaveToFile('C:\Desktop.Bmp'); // salva a imagem como
bmp.
__
David Leão Alves
Administrador de Banco de Dados
Governo do Estado do Amapá
Secretaria de Estado do Meio Ambiente - SEMA
Av. Mendonça Furtado, 53 - Centro / Macapá-AP
212-5318 - 212-5378
212-5303
[EMAIL PROTECTED]
www.sema.ap.gov.br
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Só meio off-topic
Tenho vários sistemas desenvolvidos em delphi 6 com access, sql-server. O mapeamento do diretório onde se encontra o banco de dados (como são de estados diferentes) eu faço através de uma chave do REGEDIT. Como mando a instalação dos sistemas para vários estados, o pessoal reclama que o windows só permite essa ação se o usuário for administrador da máquina (ex do win 2000). Como faço para contornar isso e conseguir mandar essas instalações e o pessoal conseguir escrever no REG DO WINDOWS? Gratíssimo, Cícero --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Só meio off-topic
Vou usar Hkey_Current_user. Esse eh o problema. Preciso fugir da questão de o usuario ter que ser o administrador. Valeu vai melhorar assim com current -Mensagem original- De: Felipe Guerço Oliveira [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 4 de outubro de 2004 13:09 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Só meio off-topic Você não informou onde você tenta gravar a chave, então acredito que seja no HKEY_LOCAL_MACHINE. Se for, vai corrigir se o programa armazenar no HKEY_CURRENT_USER, mas vai gravar só para o usuário. Se você quiser gravar as configurações para todos os usuários, deverá gravar na HKEY_LOCAL_MACHINE mesmo e terá que rodar com privilégios de administrador. o que pode resolver isso é criar um programa de instalação (se não houver). Aí é só o administrador rodar o programa de instalação/configuração. Espero ter ajudado em alguma coisa. Atenciosamente, Felipe Guerço Oliveira - Original Message - From: Cícerot To: [EMAIL PROTECTED] Com. Br Sent: Monday, October 04, 2004 11:24 AM Subject: [delphi-br] Só meio off-topic Tenho vários sistemas desenvolvidos em delphi 6 com access, sql-server. O mapeamento do diretório onde se encontra o banco de dados (como são de estados diferentes) eu faço através de uma chave do REGEDIT. Como mando a instalação dos sistemas para vários estados, o pessoal reclama que o windows só permite essa ação se o usuário for administrador da máquina (ex do win 2000). Como faço para contornar isso e conseguir mandar essas instalações e o pessoal conseguir escrever no REG DO WINDOWS? Gratíssimo, Cícero --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: Assine Claudia em 5x de R$ 18,96 Assine Info em 5x de R$ 21,48 Mais... Capricho Manequim Boa Forma Nova Exame -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Rede
Se voce estiver usando sql-server, ele tem isso. Por exemplo em uma trigger de inserção você pode mandar o sql enviar essa mensagem (a sintaxe nao me lembro mais tem net e tem send nela) -Mensagem original- De: Edilson Mendes BIzerra Jÿfanior [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 29 de setembro de 2004 18:47 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Rede Ola pessoal, gostaria de saber onde consigo uma rotina p/ desligar computadores pela rede, e enviar mensangens tipo net send do win2000. Uso delphi 6, winXP! Obrigado! Edilson Mendes [EMAIL PROTECTED] - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] erro dificil de entender
Galera , peguei um sistema que jah nao manuseava ha muito tempo. Preciso fazeer umas alterações. O problema eh que o me diz que tcombobox nao existe. Tirei 2 combos que tenho na aplicação e ele passou. Agora me diz que não tenho timage. Parei por aqui porque acho que ele chegarah até tedid, tmemo e vou limpar tudo. Allguem tem alguma ideia. Já abri um sistema diferente desse e não deu os erros acima. Gratissimo [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Pergunta ignorante
Depois de fazer vários sistemas (acreditem ahahahhaha), minha dúvida: Tenho um sistema, tenhos os .PAS .dfm MAS NÃO TENHO O DPR. Como faço para montar o sistema novamente [EMAIL PROTECTED] --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: RES: RES: [delphi-br] Edit ou DBEdit
É,,, vai valer muito aa pena eu buscar essa experiencia... valeu
-Mensagem original-
De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 24 de setembro de 2004 12:22
Para: [EMAIL PROTECTED]
Assunto: Re: RES: RES: [delphi-br] Edit ou DBEdit
Na Classe você teria:
Function TEmpresa.SalvaEmpresa: Boolean;
Begin
Result := dtm_empresa.SalvaEmpresa(Self);
End;
==
No DataModule você teria: (isso é só parte do código)
Function Tdtm_empresa.SalvaEmpresa(oEmpresa: TEmpresa): Boolean;
Begin
Result := False;
With dtm_empresa.cds_empresa do
Begin
Try
...
FieldByName('RazaoSocial' ).AsString := oEmpresa.RazaoSocial;
FieldByName('NomeFantasia').AsString := oEmpresa.NomeFantasia;
FieldByName('CNPJ').AsString := oEmpresa.CNPJ;
FieldByName('InscEstadual').AsString := oEmpresa.InscEstadual;
Post;
If ApplyUpdates(0) = 0 Then
Result := True;
Except
on E: Exception do
ShowMessage(E.Message);
End;
End;
End;
==
Fiz de cabeça diretamente no corpo do e-mail. Pode ser que haja erro.
Espero ter ajudado na compreensão.
Uma ótima referência é o livro:
Título : Desenvolvendo Aplicações com Uml 2.0
Autor : Ana Cristina Melo
Editora : Brasport
Edição : 2/2004
ISBN: 8574521752
Páginas : 284
Sds,
Romario
Cícerot escreveu:
Desculpe a ignorancia e já concordando (óbvio por isso minha pergunta), o
que se faz depois de criado o empresa.salvaempresa. Já que ficou tao
bonito... me diga como continuar com o salvaempresa (assumo que sou um
desses que voce falou) mais eu chego lá
-Mensagem original-
De: Romario (Delphi) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 23 de setembro de 2004 18:18
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [delphi-br] Edit ou DBEdit
O problema é que dessa forma você chutou a orientação a objetos para bem
longe da sua aplicação.
As ferramentas RAD induzem o programador a trabalhar de uma forma não
muito orientada a objetos. Criamos funções e procedimentos, utilizamos
vários dos eventos que a ferramenta nos disponibiliza e fechamos os
olhos para enxergar o futuro que virá pela frente.
Quando damos ênfase à orientação a objetos e trabalhamos de uma forma a
reusar nossos objetos no futuro, estamos evitando ser comparados com
aqueles que alguns chamam de meros pregadores de botão.
Aí você diz: a minha função é reusável, mas será que você pensou que
ela poderia ser um objeto? Que ela poderia ter atributos e métodos
próprios? Que poderia ao invés de receber vários componentes, receber
apenas as informações necessárias?
Ex. do código na Interface:
Empresa:= TEmpresa.Create;
Empresa.RazaoSocial := edt_razao.Text;
Empresa.NomeFantasia := edt_nome.Text;
Empresa.CNPJ := edt_cnpj.Text;
Empresa.InscricaoEstadual := edt_inscricao.Text;
Empresa.SalvaEmpresa;
Lembre-se que programar qualquer um pode, mas desenvolver com excelência
são poucos os que conseguem. Espero que um dia eu consiga chegar lá.
Sds,
Romario
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [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
RES: [delphi-br] Diferencas entre arquivos de texto do MS-DOS e Windows...
Já que são nomes de arquivos, gere-os sem os acentos. -Mensagem original- De: Ronaldo Assis Alves [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 22 de setembro de 2004 21:52 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Diferencas entre arquivos de texto do MS-DOS e Windows... Olá, pessoal. Está acontecendo o seguinte, estou precisando gravar pelo delphi, alguns arquivos de texto que serão interpretados por programas no MS- DOS (como o edit por exemplo). O problema é que quando gravo com o assginfile(var,file) e tento acessar no MS-DOS, alguns acentos ficam desconfigurados. O formato Texto do MS-DOS e Somente texto são diferentes. Veja o exemplo. Exemplos: (Arquivo gerado) Você Maçã João José Maíra Lúcia fica assim: (no ms-dos) Exemplos VocÛ MaþÒ JoÒo JosÚ MaÝra L·cia Como gravar pelo delphi o formato de arquivo que o ms-dos lê sem erros? -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] query... outro
Sim,,, nao vejo problema nisso
query1.fieldbyname('nome').asstring; vai ser igual a x.
query2.fieldbyname('nome'.asstring; vai ter o mesmo valor..
Talvez voce tenha um caso especial, do contrario pense melhor nessa opcao..
-Mensagem original-
De: Filipe [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 23 de setembro de 2004 11:12
Para: _Delphi
Assunto: [delphi-br] query... outro
Alguem sabe se eh possivel duas querys (ou dois datasets) acessarem o mesmo
campo da mesma tabela ao mesmo tempo???
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [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
RES: [delphi-br] Últimos dados
Pegando carona,,, o max(campo) soh pode ser usado com campo numerico? -Mensagem original- De: Gabriel Dimas [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 21 de setembro de 2004 16:50 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Últimos dados Faça um select assim em sua TQuery: Select Max(Campo_Codigo) as Ult_Codigo este select ira retornar apenas um registro com uma Tfield chamada Ult_Codigo com o ultimo codigo registrado. vc tambem pode usar assim: Select Max(Campo_Codigo)+1 as Ult_Codigo -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Dúvida Inno SetUp
Se voce estiver usando sql-server, no curso que fiz, vih que tem uma rotina com alguns parametros do tipo (usuariologado,estacao,mensagem) nao sei fazer porque nunca usei mas sei que tem. com uma trigger de insert por exemplo, voce pode avisar a algumas pessoas que foram inseridos novos registros. Também existe um componente (eu ateh tinha) que te permite isso. Sei disso porque tenho oum sistema (soh executavel terceirizado) que um tecnico fez que envia mensagem baseadas em trigger também. -Mensagem original- De: Coutinho - Pessoais [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 22 de setembro de 2004 09:17 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Dúvida Inno SetUp Colegas!!! Perdoem se volto ao assunto, mas não obtive ainda uma resposta que me ajudasse de verdade! É o Seguinte: Estou fazendo um aplicativo que será: Agenda de Compromissos, Agenda Telefônica, Banco de mensagens de HelpDesk e precisa além disso, enviar mensagens entre as máquinas da rede como o programa Win Pop-Up que vinha com o windows 98. Bem... Há estações com windows 2000, XpHome, e Win98... isso aqui é um mangue... e eu tenho de fazer a rotina executar por dentro do meu aplicativo. Já papirei a net muito, e estou pedindo aos camaradas da lista se têm uma luz de como eu posso fazer isso... eu mesmo fazer... Não pode ser um programa fora da minha aplicação, mas uma rotina que seja parte do programa... Talvêz tenha de deixar um client rodando... escutando alguma porta... sei lá... Estou CEGUINHO. Alguém aí se habilita a ajudar com exemplos este cego em tiroteio ??? SOCORRO!!! Agradeço desde já idéias e exemplos... Sds Emanuel Coutinho http://www.emailprotegido.terra.com.br/ [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ainda as imagens
Todos os helps de tratamento de imagem no delphi falam de como pegar uma imagem arquivo.jpg, jogar em um timage e salva-lo na tabela com um campo OBJETO OLE. Eu tenho uma necessidade de alterar 1005 imagens e não quero jogar no timage para depois aplicar minha rotina de alteração que já está pronta. Essa rotina pega uma imagem já gravada em uma tabela, em um campo objeto ole (bmp) e a transforma em BINARIOS LONGOS (fica muito menor). Agora, como pegar essa imagem na tabela e aplicar minha rotina tipo: le tabela, pega campo imagem1 while not eof uppdate na tabela (sem passar por um timage ou seja direto) next fimpegacampo Sei fazer a gravação e tudo o mais. O que não sei é de onde vou pegar a imagem para salvar com uma rotina faça ateh o fim. OBS: Não vou pegar de um diretorio e nem de um timage. Quero pegar direto da tabela e altera-la. Talvez com clipboar (como seria?) Gratissimo. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Alternativa ao Locate no FireBird
Talvez voce possa criar uma query com apenas um registro (esse que estah procurando). -Mensagem original- De: MARCOS BATISTA [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 16 de setembro de 2004 15:08 Para: [EMAIL PROTECTED]; [EMAIL PROTECTED] Assunto: Re: [delphi-br] Alternativa ao Locate no FireBird Você tem índice para os campos usados no Locate? Eu li que se tiver indice é mais rápido. Minha base ainda não chegou a isso, mas chegará e eu já estou estudando alternativas para o Locate. Voce pode usar a TQuery, ou seja realizar uma SQL para retornar o que voce precisa. O problema, no meu caso é que, no meu padrão de form preciso navegar entre os registros e para isso às vezes preciso usar o Locate para setar um registro e a partir dele partir para os outros. Alguem sabe se para isso, tem outra alternativa além do LOCATE Obrigado Batista -- [EMAIL PROTECTED] 16/9/2004 12:41:41 Estou com graves problemas de velocidade no uso do locate, tenho uma tabela pequena de 1500 registros apenas, e qdo dou um locate, no servidor demora em torno de 4 segundos no servidor e nas estações demora de 15 a 20 segundos, isso se o que esta sendo procurado nao existe, qdo existe é quase imediato no servidor e nas estações demora uns 3 segundos. select * from CONTRATO possuo apenas 3 campos lookups no FieldsEditor dessa IBDataSet Gostaria de saber quais sao as alternativas que podem ser usadas ao inves do locate??? Ate + --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] Módulo 11
Arrumei essa rotina e adaptei para NUMERO DE PROCESSO que eh modulo 11.
01450.12345/2345-99
O segrego eh o seguinte:
Inverta tudo
5432 54321 05410 e faça
5x1+4X2+3x3+2x4
5x5+4x6+3x7+2x8+1x9
0x10+5x11=4x13+'x14+0x15
some dos tres / 11
resto=0 primeiro digito = 1
resto=1 primeiro digito = 0
resto=10 primeiro digito= 1
diferente de 0,1,10 primeiro digito eh o resto encontrado.
Pegue o primeiro digito e coloque no final do numero que você tem
01450.12345/2345(coloque aqui o primeiro digito encontrado)
Comece tudo novamente com esse numero incluido (neste caso a ultima
multiplicação vai ser igual a wvariavel x 16)
agora você vai encontrar o segundo digito verificador e pronto.
Essa regra se aplica para processos no serviço publico.
Function CalculaCpfProc(Numero : string) : string;
var i,j,k,Soma,Digito : Integer;
CNPJ : Boolean;
resto : integer;
begin
case Length(Numero) of
9 : CNPJ := True;
15 : CNPJ := true;
else raise Exception.Create('Número inválido');
end;
Result := Numero;
for j := 1 to 2 do
begin
k := 2;
Soma := 0;
for i := Length(Result) downto 1 do
begin
Soma := Soma + (Ord(Result[i])-Ord('0'))*k;
Inc(k);
if (k 16) and CNPJ then
k := 2;
end;
resto := soma mod 11;
begin
if resto = 0 then
digito := 1
else
if resto = 1 then
digito := 0
else
if resto = 10 then
digito := 1
else
digito := 11- soma mod 11
end;
Result := Result + Chr(Digito + Ord('0'));
MessageDlg(inttostr(digito), mtInformation, [mbOk], 0);
end;
end;
-Mensagem original-
De: Trama Paulista .:sites .:sistemas
[mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 15 de setembro de 2004 12:57
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Módulo 11
Alguém saberia me dizer onde onde opsso encontro o cálculo do dígito
verificador módulo 11???
Desde já, obrigado.
Magno
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Ajuda quase fácil
Agora eu ví um buchicho legal... Depois de vários sistemas prontos, agora estou com um buchicho que não entendi.. Compilo a aplicação = Zero erros Depois de correr a compilação, correu o link com zero erros zero warning. Mas cade o .exe ??? Não gerou Quem pode me ajudar (delphi 6) (componentes externos.. soh o rx) --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
RES: [delphi-br] [Off-Topic] Seleção no mysql que não retorne dados repetidos
Se for soh para eliminar as repetições: select distinct(nomepaciente) from tabela; -Mensagem original- De: sr_doidera . [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 9 de setembro de 2004 12:59 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] [Off-Topic] Seleção no mysql que não retorne dados repetidos as tabelas tao normalizadas?? se nao tiver trata de normalizar elas!! pq tu vai ter muita dor de cabeça se realmente for um sistema. e principalmente se vc estiver vendendo ele ;) t+ From: Vinicius Mommensohn [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: Re: [delphi-br] [Off-Topic] Seleção no mysql que não retorne dados repetidos Date: Thu, 9 Sep 2004 11:49:46 -0300 Luciano, Preciso retornar todos os registros que não possuem o nomepaciente repetido. Por exemplo, Se minha tabela tem 3 registros. As duas primeiras tem o nomepaciente como José e a ultima tem o nomepaciente como Rogério. Eu preciso de um sql que retorne somente a primeira e a terceira linha já que a segunda tem o nomepaciente repetido com a primeira. Só que eu quero pegar todos os campos da tabela e não somente o nomepaciente. Por isso que eu não posso usar o select distinct nomepaciente, pq dai iria retornar somente a coluna nomepaciente. Consegui explicar melhor agora?!?!? []s Vinicius - Original Message - From: Luciano R. Machado To: [EMAIL PROTECTED] Sent: Thursday, September 09, 2004 11:23 AM Subject: Re: [delphi-br] [Off-Topic] Seleção no mysql que não retorne dados repetidos Está meio confusa sua explicação, quais campos além do nomepaciente são repetidos? O que exatamente vc precisa retornar nesse Select? -- Luciano Rodrigues Machado Programador - Ribeirão Preto-SP Vinicius Mommensohn wrote: Bom dia pessoal, To com um probleminha aqui pra resolver, quem puder me ajudar eu agradeço muito. O problema é que eu tenho uma tabela e quero jogar os dados dela em um grid. Só que, um dos campos dessa minha tabela tem dados repetidos. Tentei um select assim: SELECT DISTINCT nomepaciente FROM solicitacoes; Mas esse select só me retorna o campo nomepaciente e eu preciso todos os campos da minha tabela. Alguem sabe como resolver isso?!?! Obrigado desde já, Vinicius -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: --- - Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Informação do NOD32 1.853 (20040830) __ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [As partes desta mensagem que não continham texto foram removidas] _ MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- 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] ou [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
