no evento do botao incluir, verifique se o componente ja esta em "modo de insercao"
if not (DataSet.State in [dsInsert] then DataSet.Insert; para gravar na tabela utilize DataSet.ApplyUpdates; para gravar fisicamente, em paradox, utilize DbiSaveChanges(DataSet.Handle); --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]> escreveu > A tabela já vai estar aberta, o problema são dois: > > como salvar o registro. > > Como fazer pra continuar o registro caso o usuário clique sem querer ou > querendo no botão incluir novamente? > > Esqueci de mencionar que essa tabela é filha de outra... > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] > nome de ricknetbr > Enviada em: segunda-feira, 26 de setembro de 2005 19:59 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Re: Inserir - Gravar no dbgrid > > > Por exemplo, se for Paradox > utilize no botao incluir = > if not qrInserir.Active then qrInserir.Open; > qrInserir.Insert; > > Coloque um TUpdateSQL e coloque a sql correspondente, nao esqueca de > liga-o a query pela propriedade UpdateObject. > No evento qrInserir.AfterPost coloque o codigo para salvar fisicamente > os dados na tabela (quando o usuario mudar de linha, o dbgrid dispara > o post ) > > -- <<<<< 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
