Page Comparison

uses
   // Importa a unit do formulário
   uImportaDados;
                  
var
  // declara o objeto que herdará todas as características do formulário
  form : TfrmImportaDados;

begin
  // inicia o ciclo de vida do script
  try
    // cria o formulário com o nome form
    form := TfrmImportaDados.Create(nil);

    // aguarda o resultado das ações no formulário por meio do modalresult
    if form.ShowModal = mrOk then
    begin  
    end;    
                                                          
  finally
    // destrói o formulário no final do ciclo de vida do script
    form.Free;
  end;
end;

{$FORM TfrmImportaDados, uImportaDados.sfm} 

uses
  // Essas units serão adicionadas automaticamente.
  Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, System,
  // Já essas units devem ser incluídas manualmente                                                
  Db, DbClient, bib;
                      
// função que adiciona os dados na tabela U_IMPORTATXT
function adicionaDados(campo: Array[0..4] of String; sTabela: String):Boolean;
var
   // declarando o client data set cds, que será utilizado para gravar os dados 
   // importados na na tabela U_IMPORTATXT
   cds: TClientDataSet;
begin
    // criando o cds
    cds := TClientDataSet.Create(nil);
    // preparando o cds para a edição da tabela
    dmConexao3c.GetDspEdicao(cds, sTabela, true);                   

    // executará se o array passado possuir dados a serem gravados na tabela
    if Length(campo) > 0 then    
    begin
      try
        // colocando o cds em modo de operação
        cds.Open;
        // criando espaço no cds para a associação dos dados do arquivo TXT.
        cds.Append;
        // Gerando o índice primário da tabela, buscando o maior índice existente e somando 1.
        cds.FieldByName('U_IMPORTATXT_ID').value := dmConexao3c.QueryPegaCampo('SEL_PADRAO_COM_WHERE',
                                                                               'MAX(U_IMPORTATXT_ID)',
                                                                               ['?', '1:s', sTabela,              
                                                                               '?', '2:s', '0=0'],   
                                                                               [ftString, ftString],
                                                                               [20, 100])+1;
        
        // Atribuindo os valores
        cds.FieldByName('NOME' ).value := campo[0];
        cds.FieldByName('EMAIL').value := campo[1];
        cds.FieldByName('CELULAR').value := campo[2];
        cds.FieldByName('DOCUMENTO1').value := campo[3];
        cds.FieldByName('DOCUMENTO2').value := campo[4];
        // gravando os dados na tabela
        cds.post;
        dmConexao3c.CDSApplyUpdates([cds]);        
      finally
        // destruindo o cds
        cds.Free;
      end;    
    end else
        // caso dê erro, mostrar a mensagem de dados não importados
        ShowMessage('Dados não foram importados.');
end;

function RegistraLog(IdUsuario, Arquivo: String):Boolean;
var
     cdsControle: TClientDataSet;
begin
    // resultado negativo. Caso o processo não finalize corretamente,
    // o resultado será falso. Ou seja, não haverá registro dos dados na tabela
    Result := False;
    
    // inicia o ciclo do registro dos dados na tabela
    try
       // cria o objeto cdsControle do tipo TClientDataSet
       cdsControle := TClientDataSet.Create(nil);
       
       // preparando o objeto cdsControle para receber um TDataSetProvider com nome formado por
       // dsp+NOMETABELA e abertura automática
       dmConexao3c.GetDspEdicao(cdsControle, 'U_CTRLIMPORTACAO', true);
       
       // abre o cdsControle
       cdsControle.Open;
       
       // coloca o cdsControle em modo de inserção de dados
       cdsControle.Append;
       
       // busca um valor válido e ordenado que será o índice da tabela, armazenado em
       // U_CTRLIMPORTACAO_ID
       cdsControle.FieldByName('U_CTRLIMPORTACAO_ID').value :=
                              dmConexao3c.QueryPegaCampo('SEL_PADRAO_COM_WHERE',
                              'MAX(U_CTRLIMPORTACAO_ID)',   
                              ['?', '1:s', 'U_CTRLIMPORTACAO',              
                              '?', '2:s', '0=0'],   
                              [ftString, ftString],
                              [20, 100])+1;

       // atribui ao campo USUARIO o valor do UserID
       cdsControle.FieldByName('USUARIO').value := IdUsuario;
       
       // atribui ao campo DATAHORA com a data/hora atual                       
       cdsControle.FieldByName('DATAHORA').value := now;
       
       // atribui ao campo ARQUIVOTXT com o nome do arquivo informado                       
       cdsControle.FieldByName('ARQUIVOTXT').value := Arquivo;
       
       // Indica ao cds que os dados podem ser gravados
       cdsControle.post;
       
       // indica ao servidor de aplicações para aplicar as alterações feitas
       dmConexao3c.CDSApplyUpdates([cdsControle]);

       // retornando resultado
       Result := True;
       
    // finalizando o ciclo de inclusão do log  
    finally
       cdsControle.free;
    end;
end;

// programando o comportamento do botão btnImportar                      
procedure btnImportarClick(Sender: TObject);
var                                                                   
  // declarando o objeto dados, do tipo TStringList, que receberá os
  // dados a serem importados
  dados: TStringList;
  // criando variáveis auxiliares para lidar com as estruturas de repetição e array de dados
  a, i, j  : Integer;
  // declarando variáveis auxiliares para lidar com os dados
  novaString: String;
  campo: Array[0..4] of String;
begin
  try
      dados := TStringList.Create();
      // configurando o diretório inicial do componente TOpenDialog      
      abreArquivo.InitialDir := '.\';
      // Se for escolhido um arquivo pelo usuário, ele será carregado na lista
      // dados      
      if abreArquivo.Execute(nil) then
          dados.LoadFromFile(abreArquivo.FileName);
          
        // se a lista dados contiver informações, as mesmas serão enviadas colocadas
        // no array campo  
        if (dados.Count > 0) then
        // cria uma estrutura de repetição que irá ler o arquivo de dados do início ao fim
        // para importar as linhas de dados, uma por uma.
        for i:=0 to dados.Count - 1 do
        begin
          if (length(dados.Strings[i]) > 0) and (dados[i] <> '') then
          begin
            novaString := dados.Strings[i];
            a:=0;
            for j:=0 to length(novaString) do
            begin
               if Pos(';', novaString)>0 then
               begin
                  campo[a]:=(Copy(novaString, 1, Pos(';', novaString)-1));             
                  novaString := Copy(novaString, Pos(';', novaString)+1, length(novaString));
                  a:=a+1;
               end;
            end;
            // enviando dados para a função adicionaDados. Ela é responsável por gravar os dados na tabela
            // U_IMPORTATXT. 
            if not adicionaDados(campo, 'U_IMPORTATXT') then
            begin
                // Caso esta função retorne erro, o usuário será avisado
                showMessage(Format('Erro na importação da linha de dados #%d.', [i]));
            end
            else begin    
                 // se os dados forem gravados, o cadastro do controle preenchido.
                 // bastará ao usuário salvar os dados preenchidos automaticamente
           end;
          end;
        end;                                      
        if (RegistraLog(oDadosSis.UserId, abreArquivo.FileName)) then
           ShowMessage('Importação de dados bem sucedida.')
        else
           ShowMessage('Erro no registro do log da Importação de dados.');          
   finally
    // no final do processo, a tStringList dados é destruída
    dados.Free;
    
    // ModalResult será a constante MrOk
    ModalResult := mrOk; 
  end;                               
end;

// programando o comportamento do botão btnExportar
procedure btnExportarClick(Sender: TObject);
var
  // declarando variáveis e objetos
  cds: TClientDataSet;
  dados: TStringList;
  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
     cds := TClientDataSet.Create(nil);
     // carregando os dados da tabela a ser exportada para o cds.
     // 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.
        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
     // configurando a pasta inicial onde o arquivo de dados será gravado
     dlgCriar.InitialDir := '.\';      
     // se o usuário indicar nome e local válidos para o arquivo de daos
     // e clicar no botão Salvar, o arquivo será gravado contendo os dados
     // da lista de strings 'dados'.
     if dlgCriar.Execute(nil) then
     begin
        // salvando dados no arquivo final
        dados.SaveToFile(dlgCriar.FileName);
        // preenchendo automaticamente os dados do formulário de 
        // controle de importação e exportação

        if (not RegistraLog(oDadosSis.UserId, dlgCriar.FileName)) then
           ShowMessage('Erro no registro do log da exportação dos dados.');
     end;
     cds.Free;                           
     ModalResult := mrOk; 
   end;
end;