Page Comparison

{$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 formulário
        cds.Free;
      end;    
    end else
        // caso dê erro, mostrar a mensagem de dados não importados
        ShowMessage('Dados não foram importados.');
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]));
                // cancela a inclusão dos dados no formulário de controle de importação                
                FFormPadraoU_CTRLIMPORTACAO.ActRetornarExecute(nil);
            end
            else begin
                 // se os dados forem gravados, o cadastro do controle preenchido.
                 // bastará ao usuário salvar os dados preenchidos automaticamente
                 FFormPadraoU_CTRLIMPORTACAO.ValorParaTela('USUARIO',
                                                           oDadosSis.UserId);
                                                           
                 FFormPadraoU_CTRLIMPORTACAO.ValorParaTela('DATAHORA', Now);
                 
                 FFormPadraoU_CTRLIMPORTACAO.ValorParaTela('ARQUIVOTXT',
                                                           abreArquivo.FileName);
                                                  
                // executando automaticamente o clique no botão de salvar
                FFormPadraoU_CTRLIMPORTACAO.ActSalvarExecute(nil);                                                             
            end;                
          end;
        end;                            
   finally
    // no final do processo, a tStringList dados é destruída e o ModalResult será a constante MrOk
    dados.Free;                                                   
    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
        FFormPadraoU_CTRLIMPORTACAO.ValorParaTela('USUARIO',
                                                  oDadosSis.UserId);
                                                                                
        FFormPadraoU_CTRLIMPORTACAO.ValorParaTela('DATAHORA', Now);
     
        FFormPadraoU_CTRLIMPORTACAO.ValorParaTela('ARQUIVOTXT',
                                                  dlgCriar.FileName);
                                                                                               
        // executando automaticamente o clique no botão de salvar
        FFormPadraoU_CTRLIMPORTACAO.ActSalvarExecute(nil);                                                   
     end;
     cds.Free;                                                   
     ModalResult := mrOk; 
   end;
end;