Abra seu delphi 2010.
Faça sua conexao com ADOConnection.
Estou usando tabela simples com poucos dados.
Tabela ->cliente
Tabela - Exportacao
Feito a conexao com o banco de dados.
Deixe seu formulario já pronto para a codificação.
os botoes:
novo:
tblcliente.insert;
dbedit1.setfocus;
salvar:
tblcliente.post;
showmessage('registrado com sucesso');
cancela
tblcliente.cancel;
Agora iremos codificar o botao exportação de dados.
procedure TForm1.btnexpostarClick(Sender: TObject);
begin
tblexportacao.Open;//abrindo tabela de exportação
tblexportacao.Insert; // colocndo em modo de inserção tabela expprtaçãoi
tblexportacao.FieldByName('nome').AsString:=tblcliente.fieldbyname('nome').AsString; //transferindo o nome do dbgrid para outro
tblexportacao.FieldByName('endereco').AsString := tblcliente.FieldByName('endereco').AsString;
tblexportacao.FieldByName('fone').AsString := tblcliente.fieldbyname('fone').AsString;
tblexportacao.FieldByName('exportado').AsString := 'sim';
tblexportacao.Post;
tblcliente.Delete; //deleta o ddos do dbgrid cliente
end;
Feito Isso! Parabéns veja o resultado.
Até a proxima...
