Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Problema ao Salvar


Geomar Canjundo

Pergunta

Ola Pessoal,

Estou desenvolvendo um sistema de Gestao de Oficinas e na tabela cliente, defini como o chaves o codigo e o Identificacao do cliente.

Acontece que ao salvar gera o seguinte erro:

Se a tabela estiver em modo de Insercao o processo é pacifico salva tranquilo, se a identificacao for repetida ela informa.

O problema esta a edicao de dados, eu quero que o sistema verifique se a identificacao foi alterada e caso tenha sido alterada impedir a edicao de dados.

o codigo do Metodo esta abaixo

procedure SalvarClientes;
begin
if FormClientes.EditIdentificacao.Text='' then
     begin
      ShowMessage('Digite a Identificacao do Cliente');
      FormClientes.EditIdentificacao.SetFocus;
      Exit;
     end
     else
      begin
            With ModuloDados.QryAuxiliar do
              begin
               Close;
               Sql.Clear;
               SQl.Text:='Select * from clientes where identificacao="'+
               ModuloDados.QryClientesIDENTIFICACAO.Text+'"';
               Open;
               if IsEmpty then
               else
                 begin
                  if ModuloDados.DsClientes.state in [dsInsert] then
                   begin
                   ShowMessage('A Identificação já existe');
                   FormClientes.EditIdentificacao.SetFocus;
                   Exit;
                   end
                   else
                   ???????
                 end;
              end;

           end;
     end;
If Mensagem('Deseja Salvar o Cadastro?')= Idyes then
        begin
        FormClientes.BarraEstado.Panels[0].Text:= 'A Salvar Registo...';
        if ModuloDados.DsClientes.state in [dsInsert] then
        begin
        ModuloDados.QryClientes.Post;
        ModuloDados.QryClientes.Last;
        ShowMessage('Cliente Cadastrado com Sucesso!!!');
        FormClientes.BarraEstado.Panels[0].Text:= 'Dados do Cliente Adicionados ao Sistema...';
        end
        else
         begin
         ModuloDados.QryClientes.UpdateRecord;
         ModuloDados.QryClientes.Last;
         ShowMessage('Cliente Alterados com Sucesso!!!');
         FormClientes.BarraEstado.Panels[0].Text:= 'Dados do Cliente Adicionado ao Sistema...';
         end;
         FormClientes.ButNovo.Enabled:=True;
         FormClientes.ButFechar.Enabled:=True;
        end;
end;

alguém pode me ajudar?

OBS: Procure usar as tags de identação de código para facilitar a leitura

Editado por Jhonas
Identação de código
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

With ModuloDados.QryAuxiliar do
  begin
     Close;
     Sql.Clear;
     SQl.Text:='Select * from clientes where identificacao="'+
     ModuloDados.QryClientesIDENTIFICACAO.Text+'"';
     Open;
     if IsEmpty then
     else
     begin
       if ModuloDados.DsClientes.state in [dsInsert] then
          begin
             ShowMessage('A Identificação já existe');
             FormClientes.EditIdentificacao.SetFocus;
             Close; ///////  <-----
             Exit;
          end
       else
          ???????
       end;
  end;

end;

OBS: se o registro foi encontrado , dá a mensagem, fecha a query e sai

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...