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
CODE
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?
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