Ixi, agora ta complicando cada vez mais....rs rs É bom que, se alguém souber, explique quais as formas e para que serve cda instrução dessa função.....para poder ajudar a todos aqui.... -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Wilson Valdevite Enviada em: quinta-feira, 4 de agosto de 2005 10:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Onde será que estou errando???????????
if Application.MessageBox('Deseja excluir esse registro?','Confirmação de Exclusão',36)=6 then begin ...; ...; ...; ...; end; ----- Original Message ----- From: Anderson To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 04, 2005 9:57 AM Subject: RES: [delphi-br] Onde será que estou errando??????????? if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?', Rapaz me diz para que server esse zero ? Anderson Daniel Técnico em Informática Naju informática Tel: (21) 2203-0280 / (21)9173-8940 [EMAIL PROTECTED] _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Miguelito Enviada em: segunda-feira, 28 de fevereiro de 2005 13:16 Anderson Assunto: [delphi-br] Onde será que estou errando??????????? Pessoal, num botao que exclui os dados das tabelas coloquei o seguinte código: if messagebox(0, 'TEM CERTEZA QUE DESEJA EXCLUIR A NOTA DE DEVOLUÇÃO?', 'CONFIRMAÇÃO', MB_YESNO + MB_ICONQUESTION) = 6 THEN IF MESSAGEBOX(0, 'TEM CERTEZA MESMO?' + #13+ 'APOS APAGAR A NOTA NÃO PODERAM SER RECUPERADA!', 'CONFIRMAÇÃO!!!!', MB_YESNO + MB_ICONQUESTION) = 6 THEN BEGIN WITH qrDados DO //apaga os itens da nota fiscal tabela itens_devolucao BEGIN CLOSE; SQL.Clear; SQL.Add('DELETE * FROM ITENS_DEVOLUCAO '); SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO '); ParamByName('DEVOLUCAO').AsInteger := cdsNotaDEVOLUCAO.Value; ExecSQL; END; WITH qrGrid DO //apaga os dados da tabela com os dados da nota BEGIN CLOSE; SQL.Clear; SQL.Add('DELETE * FROM DEVOLUCAO '); SQL.Add('WHERE DEVOLUCAO = :DEVOLUCAO '); ParamByName('DEVOLUCAO').AsInteger := cdsNotaDEVOLUCAO.Value; ExecSQL; END; END; cdsDadosQuery.Refresh; cdsNota.Refresh; da o seguinte erro INVALID USE OS KEYWORD TOKEN : * LINE NUMBER 1 se tiro o * da sentença sql, aparece outro erro, TABLE IS READ ONLY o que será que esta dando pau??? Miguel Villacorta 4446-4100 ramal 4126 7312-5509 [EMAIL PROTECTED] www.dpfautopecas.com.br MSN [EMAIL PROTECTED] ---------- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.9.6/59 - Release Date: 27/7/2005 [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 * 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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [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 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!. -------------------------------------------------------------------------- ---- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.0/63 - Release Date: 03/08/2005 [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 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!. __________ NOD32 1.1185 (20050801) Information __________ This message was checked by NOD32 antivirus system. http://www.nod32.com [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [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