Valida��o de NickName

Question

Caras, minha Base de Dados � MS Access, portanto todas as minhas tabelas tem no campo Chave Primaria o tipo definido como Autonumera��o. O que eu quero � fazer a verifica��o da Identifica��o (Nickname...

Pedro Bugim · Answer

P�, n�o sei se vai ajudar muito... vai dar mais trabalho, mas � como eu fa�o (at� hj n�o me deixou na m�o).
Ao inv�s de um dbedit, coloque um edit simples.
Coloque uma query apontando para sua tabela e no onexit do edit coloque o c�digo:

var
  I: Integer;
begin
  //verifica a exist�ncia do nickname na tabela
  With query do
  begin
    close;
    sql.clear;
    sql.add(�select * from TABELA where CAMPO=�+Quotedstr(Edit.text)+��);
    Open;
  end;
  //verifica se o nickname foi encontrado
  I:=query.recordcount;
  //em caso negativo, mostra a seguinte mensagem
  If I=0 then showmessage(�Nickname inv�lido�)
  //em caso positivo, continue com o que desejar
  else ...
end;

Pedro Bugim · Answer

caso n�o funcione, me avisa!!!...

Diorgenes175 · Answer

Caras, valeu a ajuda. Consegui fazer a valida��o e n�o precisei colocar Edit�s comuns, mas tive que mudar o campo autonumera��o para Numero e fazer a autonumera��o manualmente:
No evento OnExit do DBEdit fiz:

With QryNick Do
begin
Close;
SQL.Clear;
SQL.Add(�SELECT * FROM TbUsuarios WHERE Identificacao=�+ QuotedStr (FldIdentificacao.Text) + ��);
Prepared;
Open;
If (Not QryNick.IsEmpty) Then
begin
Modulo.TbUsuarios.Cancel;
Modulo.TbUsuarios.Locate(�Identificacao�, QryNickIdentificacao.AsString,[loPartialKey]);
FldNome.SetFocus;
end
End

Ou seja, se ele encontrou um registro com o nome de usuario desejado ele localiza o registro e nao permite a duplica��o, caso nao haja ele lan�a o foco para outro DBEdit e permite a inser��o.

Valeu!!!!

F�rum Valida��o de NickName #214766