Acesso ao servidor, utilizando o 'dmConexao3c'

uses
  // units necessárias para manipulação de dados oriundos de banco de dados e
  // suas tabelas
  DB, DbClient;

var
  // declarando um objeto chamado cds, do tipo Client Data Set, o qual será utilizado
  // para manipulação dos dados oriundos de uma tabela
  cds  : TClientDataSet;    
begin
  // criação do objeto cds
  cds := TClientDataSet.Create(nil);
  // iniciando o ciclo de busca e alteração de dados
  try
    // preparando o objeto cds para receber um TDataSetProvider com nome formado por
    // dsp+NOMETABELA e abertura automática
    dmConexao3c.GetDspEdicao(cds, 'U_REGPESSOAS', true);
    // abre o cds
    cds.Open; 
    // coloca o cds em modo de inserção de dados
    cds.Append;
    // busca um valor válido e ordenado que será o índice da tabela, armazenado em
    // U_REGPESSOAS_ID
    cds.FieldByName('U_REGPESSOAS_ID').value :=
                                dmConexao3c.QueryPegaCampo('SEL_PADRAO_COM_WHERE',
                                'MAX(U_REGPESSOAS_ID)',
                                ['?', '1:s', 'U_REGPESSOAS',              
                                '?', '2:s', '0=0'],   
                                [ftString, ftString],
                                [20, 100])+1;

    // atribui ao campo NOME o valor do campo NOME do formulário FRhPessoa
    cds.FieldByName('NOME').value := FRhPessoa.ValorNaTela('NOME');
    // atribui ao campo IDADE o valor 10
    cds.FieldByName('IDADE').value := 10;
    // Indica ao cds que os dados podem ser gravados
    cds.post;
    // indica ao servidor de aplicações para aplicar as alterações feitas
    dmConexao3c.CDSApplyUpdates([cds]);
  // finalizando o ciclo de busca e alteração de dados
  finally
    // destruindo o objeto cds, para evitar que sejam mantidos dados "perdidos" na memória
    cds.Free;
  end;
end;  

uses
  // units necessárias para manipulação de dados oriundos de banco de dados e
  // suas tabelas
  DB, DbClient;
  
const
  // declaração da constante com o nome do arquivo TXT onde os dados
  // serão gravados
  nomeArquivo = '.\exportaDados.txt';

var
  // declarando um objeto chamado cds, do tipo Client Data Set, o qual será
  // utilizado para manipulação dos dados oriundos de uma tabela
  cds: TClientDataSet;
  // declaração do objeto dados, do tipo TStringList, onde os dados a serem
  // exportados serão armazenados no formato do arquivo de dados TXT
  dados: TStringList;
  // declaração da variável a, do tipo inteira para manipulação de
  // estrutura de repetição
  a: integer;
   
begin
  // criando o objeto dados do tipo TStringList
  dados := TStringList.Create();
  // iniciando o ciclo de exportação dos dados
  try
    // criando o client data set cds que receberá todo o conteúdo
    // da tabela
    cds := TClientDataSet.Create(nil);
    // carregando os dados da tabela a ser importada para o cds.
    // o primeiro parâmetro é o nome da pesquisa personalizada
    // o segundo parâmetro diz quais campos serão carregados. Neste caso, todos.
    // o terceiro parâmetro diz qual é o nome da tabela a ser pesquisada e
    // a comparação a ser feita pela cláusula WHERE. Neste caso, se 0 = 0
    // que retorna verdadeiro. Uma "forma" de trazer todos os dados da tabela
    // o quarto parâmetro descreve o tipo de dados de cada campo
    // carregado na pesquisa. Já o quinto parâmetro especifica o
    // tamanho desses campos individualmente.
      cds.Data := dmConexao3c.QueryPegaData('SEL_PESQUISAFILTRO', '*',
                            ['?', '1:s', 'U_IMPORTATXT',              
                            '?', '2:s', '0=0'],   
                            [ftString, ftString, ftString, ftString, ftString],
                            [45, 100, 11, 14, 11]);

    // iniciando estrutura de repetição que fará a exportação de todos os dados
    // da tabela U_IMPORTATXT                          
    for a:=0 to cds.RecordCount - 1 do
    begin
       // montando a estrutura do arquivo de destino dos dados num
       // objeto TStringList. Cada registro será um item na lista.
       // o caracter separador é o ";"
       dados.Add(cds.FieldByName('NOME').value + ';' +
                 cds.FieldByName('EMAIL').value + ';' +
                 cds.FieldByName('CELULAR').value + ';' +
                 cds.FieldByName('DOCUMENTO1').value + ';' +                       
                 cds.FieldByName('DOCUMENTO2').value + ';');
       // carregando o próximo registro
       cds.Next;
    end;
   // finalizando o ciclo de exportação dos dados
   Finally
     // salvando dados no arquivo TXT, se a lista 'dados' não estiver vazia
     if dados.count > 0 then
        dados.SaveToFile(nomeArquivo)
     else
        showMessage('Lista não possui dados a serem exportados.');
     cds.Free;                                                   
   end;