[Resolvido] Não poder mais de um CPF

[FiReBrunOa 0]

Gente eu estou fazendo um banco da dados

para cadastros

 

e queria saber como que eu posso fazer para

 

impidir que coloque o mesmo cpf duas vezes

 

utilizando umas das funções do componente

 

Table - TTable

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[Rodrigo Miss 1]

Olá, bom dia!

Este é um assunto bastante discutido aqui no fórum.

Você pode fazer isto, basicamente de duas maneiras:

1º) Configurando o campo CPF no banco de dados, como PrimaryKey, desta forma, quando tentar cadastrar um cpf já existente, automaticamente, o Banco de Dados vai impedir e emitir uma exeção...

2º) Antes de salvar os dados no Banco, use uma query para fazer um select e verificar se o registro já existe no banco ....

 

with QueryVerifica do
begin
	Close;
	SQL.Clear;
	SQL.Add('SELECT CPF FROM CLIENTES WHERE CPF = ' + QuotedStr(txtCPF.Text));
	Open;
end;

if QueryVerifica.RecordCount > 0 then
begin
	ShowMessage('CPF já cadastrado!'); Exit;
end
else begin
	//Cadastra o Cliente
end;

[FiReBrunOa 0]

Cara eu posso inserir esse código sem precisar da PrimaryKey?

 

é que eu tentei

 

mais ja usei ela em outro

[Rodrigo Miss 1]

Sim. Como citei no post acima, são duas formas diferentes de fazer .... ou usa primary key ou não usa;;;

como você está fazendo? posta um trecho do seu code .

[FiReBrunOa 0]

Cara tou com um problema

 

Como eu faço para colocar a db no query

 

tpw no table

 

vai em database name e bota o diretório

 

e bota la em tablename a tabela da db

 

mais no query eu n sei

 

with QueryVerifica do
begin
	Close;
	SQL.Clear;
	SQL.Add('SELECT CPF FROM CLIENTES WHERE CPF = ' + QuotedStr(txtCPF.Text));
	Open;
end;

if QueryVerifica.RecordCount > 0 then
begin
	ShowMessage('CPF já cadastrado!'); Exit;
end
else begin
	//Cadastra o Cliente
end;

QueryVerifica é o nome da query?

[Rodrigo Miss 1]

Quais as ferramentas de acesso ao Db que você está usado?? ADO??

Qual é o DB?

 

Se estiver usando ADO, siga os seguintes passos:

1º) Coloque um ADOConnection no form, vai na propriedade ConnectionString e da duplo clique, logo em Build, e configura tudo de acordo com o seu DB ... Em seguida sete o LoginPrompt para False

2º) Colque um ADOQuery no form, ligue a propriedade Connection com o ADOConnection, e pronto, já temos uma Query ligada diretamente ao Db através de uma ponte chamada ADOConnection ... Agora basta passar a instrução SQL que desejar ...

[FiReBrunOa 0]

N tou usando os componentes da aba

 

BDE

 

utilizando o .db do próprio delphi

[Rodrigo Miss 1]

N tou usando os componentes da aba

 

BDE

 

utilizando o .db do próprio delphi

Certo!

Li sua Mp, pelo que entendi, você está usando DataBase Desktop para manipular seu banco de dados, e imagino que o seu Banco de Dados seja PARADOX. Lembre - se DataBase Desktop não é um banco de dados, e sim uma ferramenta para modelar um banco, como criar tabelas por exemplo ....

Banco de dados são: Microsoft SQL Server, Oracle, Firebird, MySQL, PostGree, Access e dezenas a mais ...

Agora vamos ao que interessa ...

 

Como você me disse que está usando BDE, então coloque no seu form uma Query da propria palheta BDE, e liga a propriedade DataBaseName com o seu Alias e pronto. Temos sua Query conectada com seu Banco ... agora basta montar o codigo. Antes de salvar um cliente, faz a verificação:

 

with Query1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM TBL_CLIENTES WHERE CPF = ' + QuotedStr(Edit1.Text));
  Open;
end;

if Query1.RecordCount > 0 then
begin
  ShowMessage('O CPF já foi cadastrado!');
end
else begin
  ShowMessage('Ta limpo! Pode cadastrar!');
end;

[FiReBrunOa 0]

Opaaaaa vlw....... Pode dar closed funfo