Re: [delphi-br] Componente WebBrowser

Debora Fri, 11 Nov 2005 06:57:31 -0800

obrigada andre. problema resolvido
----- Original Message ----- 
From: "Andre - Yahoo" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, November 11, 2005 10:27 AM
Subject: Re: [delphi-br] Componente WebBrowser



> vc deve trocar o FINALLY por EXCEPT, o FINALLY semrpe é executado
> independente de erro ou não, o except só é executado quando tem um erro.
> ----- Original Message ----- 
> From: "Debora" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Friday, November 11, 2005 10:05 AM
> Subject: Re: [delphi-br] Componente WebBrowser
>
>
> > Bom dia. estou tendo problemas com a gravação de dados abaixo, o que
> > poderia
> > estar errado, já tentei ler mas não consegui encontarr o problema. grata
> > pela atenção
> >
> > PROCEDURE PASSAPARAMETROS;
> > BEGIN        //TENTA GRAVAR NO BANCO DE DADOS PASSANDO OS PARAMETROS
> > DM.qryMOV.Close;
> > dm.trmov.active:=true;
> > DM.qryMOV.SELECTSQL.Clear;
> > DM.qryMOV.SELECTSQL.Add('Insert Into MOVIMENTO (ID, DATA, ESPECIE,
> >
PROTOCOLO,NUM_REG,DESC_ATO,COD_ATO,COD_CLASSE,LIVRO,FOLHAS,PAGOS,GRATIS,EMOL
> > UM,LEI3217,LEI3761,DESC_SELO,CODSELO,SIGLA,MATRIC,RECIBO,NUM_REMESSA)');
> >
> >
DM.qryMOV.SELECTSQL.Add('Values(:ID,:DAT,:ESP,:PROT,:REG,:DESC,:COD,:CLASSE,
> >
:LIV,:FOL,:PAG,:GRAT,:VAL,:TJ,:MUT,:DESCSELO,:CODSELO,:SIG,:MAT,:REC,:NUMREM
> > )');
> > DM.qryMOV.ParamByName('ID').Asinteger:=strtoint(FRMCLIENTE.edit1.Text);
> > DM.qryMOV.ParamByName('DAT').Asdatetime:=(FRMCLIENTE.dateedit1.date);
> > DM.qryMOV.ParamByName('ESP').AsString:=FRMCLIENTE.combobox1.Text;
> > DM.qryMOV.ParamByName('PROT').AsString:=FRMCLIENTE.edit2.Text;
> > DM.qryMOV.ParamByName('REG').AsString:=FRMCLIENTE.edit3.Text;
> > DM.qryMOV.ParamByName('DESC').AsString:=FRMCLIENTE.combobox2.Text;
> > DM.qryMOV.ParamByName('COD').AsString:=FRMCLIENTE.edit4.Text;
> > DM.qryMOV.ParamByName('CLASSE').AsString:=FRMCLIENTE.edit5.Text;;
> > DM.qryMOV.ParamByName('LIV').AsString:=FRMCLIENTE.edit6.Text;
> > DM.qryMOV.ParamByName('FOL').AsString:=FRMCLIENTE.edit7.Text;
> > DM.qryMOV.ParamByName('PAG').Asinteger:=strtoint(FRMCLIENTE.edit8.Text);
> >
DM.qryMOV.ParamByName('GRAT').Asinteger:=strtoint(FRMCLIENTE.edit9.Text);
> >
DM.qryMOV.ParamByName('VAL').Asfloat:=strtofloat(FRMCLIENTE.edit10.Text);
> > DM.qryMOV.ParamByName('TJ').Asfloat:=strtofloat(FRMCLIENTE.edit11.Text);
> >
DM.qryMOV.ParamByName('MUT').Asfloat:=strtofloat(FRMCLIENTE.edit12.Text);
> > DM.qryMOV.ParamByName('DESCSELO').AsString:=FRMCLIENTE.edit13.Text;
> > DM.qryMOV.ParamByName('CODSELO').AsString:=FRMCLIENTE.edit14.Text;
> > DM.qryMOV.ParamByName('SIG').AsString:=FRMCLIENTE.edit15.Text;
> > // DM.qryMOV.ParamByName('NUMSELO').AsString:=FRMCLIENTE.edit16.Text;
> > DM.qryMOV.ParamByName('MAT').AsString:=FRMCLIENTE.edit17.Text;
> >
DM.qryMOV.ParamByName('REC').Asinteger:=strtoint(FRMCLIENTE.edit18.Text);
> >
> >
DM.qryMOV.ParamByName('NUMREM').Asinteger:=strtoint(FRMCLIENTE.edit19.Text);
> >
> > END;
> > no botão que uso para gravar coloquei
> >
> > Procedure TFrmCliente.BtnGravarClick(Sender: TObject);
> > Begin
> > PASSAPARAMETROS;
> > TRY
> >  DM.QRYMOV.EXECSQL;
> > FINALLY
> >  Application.MessageBox('Erro na tentativa de gravação dos
> > DADOS!'+chr(13)+'Reinicie a operação!',
> >                                       'E R R O', mb_IconError+mb_Ok);
> > END;
> > uso delphi 5 e ibdataset . mas qdo clico para gravar ele só aparece o
que
> > está escrito no application.message.
> >
> >
> >
> >
> >
> >
> >
> > _______________________________________________________
> > Yahoo! Acesso Grátis: Internet rápida e grátis.
> > Instale o discador agora!
> > http://br.acesso.yahoo.com/
> >
> >
> >
> > -- 
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis: Internet rápida e grátis.
> Instale o discador agora!
> http://br.acesso.yahoo.com/
>
>
>
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>


        

        
                
_______________________________________________________ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.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]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Re: [delphi-br] Componente WebBrowser

Responder a