registro duplicado em delphi

[lealdl]

Pessoal, como faço pra não inserir um registro duplicado em um cadastro?

Fiz assim, mas continua sempre inserindo outro registro, por mais que eu digite o mesmo nome. Será que alguém me ajuda a apontar o erro?

--- C O D I G O ---

procedure Tfcadastro.BitBtn7Click(Sender: TObject);
begin
  dm1.tbaluno.Refresh;
  dm1.tbaluno.first;
  if DBEdit2.Text = dm1.tbalunoAluno.value then
     begin
        showmessage('Registro já Incluído');
        exit;
        dm1.tbaluno.Close;
     end
  else begin
          showmessage('Registro Incluído com Sucesso!');
          dm1.tbaluno.Edit;
          Dbedit3.Text:=DateToStr(Date());
          dm1.tbaluno.post;
       end;
end;

---F I M ---

Se os amigos puderem me ajudar, agradeço. Sei que a dúvida é básica, mas não estou conseguindo sair disso. Obrigado!

Edited May 19, 2014 at 07:20 PM by nunopicado
GeShi, Indentação

[nunopicado]

Como estás a fazer, apenas estás a testar com o primeiro registo, e não com o total da tabela.

Por outro lado, estás sempre a editar o mesmo, e não a inserir registos novos.

Quanto à tua dúvida, de três uma:

- Ou bloqueias a base de dados, e metes o campo como Unique - a própria base de dados não irá deixar que hajam duplicados

- Ou filtras o dataset para o nome, e só inseres novo se o RecordCount não devolver resultados filtrados (o que significa que não há nenhum com registo onde o filtro seja validado)

- Usas uma query adicional para pesquisar o nome inserido antes de fazer o Insert.

[lealdl]

Obrigado, amigo! irei rever as linhas do código e pensarei na maneira mais prática. Abraços, qualquer coisa irei chamá-los novamente.

[nunopicado]

Obrigado, amigo! irei rever as linhas do código e pensarei na maneira mais prática. Abraços, qualquer coisa irei chamá-los novamente.

Fica à vontade...

[lealdl]

Acho que o jeito mais rápido é bloquear no BD. Mas como faço isso no database desktop e tabela Paradox?

Grato!

[nunopicado]

Acho que o jeito mais rápido é bloquear no BD. Mas como faço isso no database desktop e tabela Paradox?

Grato!

Nunca usei Paradox, mas procura como criar um índice (tal como crias o índice primário).

Ao criar, deve-te em algum lado perguntar o tipo, e um deles será "Unique" ou algo parecido.

[lealdl]

Mudei um pouco o código, mas o cadastro continua sendo inserido. O que será que estou errando?

if (dm1.tbaluno.State in [dsInsert]) then
begin
if DBEdit2.Text <> '' then
begin
if dm1.tbaluno.Locate('ALUNO', TRIM(DBEdit2.Text), [loPartialKey, loCaseInsensitive]) then
begin
Application.MessageBox('Aluno ja cadastrado!','Sistema',MB_OK + MB_ICONEXCLAMATION);
end;
end;
Exit;
end;

Fiz como o amigo indicou, inserindo um índice secundário, mas não sei o porquê não salva a tabela com o novo índice. Por isso resolvi mudar as linhas de código, mas mesmo assim não deu. O problema é que tenho pouco conhecimento, tudo o que aprendi foi lendo e praticando. Não tenho conhecimento de como criar uma query, mas vou tentar.

Edited May 21, 2014 at 08:43 PM by thoga31
Tags code + GeSHi

[nunopicado]

Se tentaste na DB e não deu, é porque não ficou bem...

Essa é infalível, pois a propria DB não guarda se o valor for contra os índices.

À parte disto, podes usar uma query para pesquisar antes de guardar.

Testa assim:

1. O teu DBEdit2 tem de passar a ser um TEdit simples, e não um TDBEdit.

2. Crias uma Query para usar de forma temporária, independente da outra que já usas

3. Depois do user inserir lá dados, corres a query:

tbTemp.SQL.Text:='SELECT Aluno FROM tuatabela WHERE Aluno = '+edit2.text;
tbTemp.ExecSQL;
if tbTemp.RecordCount>0
  then begin
          Showmessage('Aluno já inserido');
          Exit;
       end;

4. Depois deste código, continuas com o que precisas fazer, não esquecendo de atribuir o valor do edit2 à base de dados (pois comom não é um TDBEdit, não se mete lá sozinho).

dm.tbAluno.Edit;
dm.tbAluno.FieldValues['Aluno']:=edit2.text;
dm.tbAluno.Post;

Edited May 23, 2014 at 03:34 PM by nunopicado

[lealdl]

Obrigado, nunopicado! Irei dar uma estudada no que me indicou. Quero entender o que programo, não somente copiar e colar. Sua ajuda está sendo de grande valor!

Abraços,

Luciano