Jump to content


Photo

Delphi Com Bd ?


  • Faça o login para participar
1 reply to this topic

#1 gabrieltpp

gabrieltpp

    Novato no fórum

  • Usuários
  • 14 posts
  • Sexo:Masculino

Posted 17/11/2008, 19:20

boa noite.

possuo no projeto .
edit
botao salvar
banco de dados

na hora que eu vou inserir o edit (nome) no meu banco , beleza .
mas não gostaria de estar repetindo este nome como eu faço ?

-- obrigado desde já

#2 Operador

Operador

    12 Horas

  • Usuários
  • 228 posts
  • Sexo:Masculino
  • Localidade:Picos - PI

Posted 11/01/2009, 21:04

no botão salvar faça assim:

dm.qryCliente.Close;
dm.qryCliente.SQL.Clear;
dm.qryCliente.SQL.Add('select NOME_CLIENTE from CLIENTE where ');
dm.qryCliente.SQL.Add('NOME_CLIENTE=:NOME_CLIENTE');
dm.qryCliente.Parameters.ParamByName('NOME_CLIENTE').Value:=nome_cliente.Text;
dm.qryCliente.Open;
if dm.qryCliente.Eof = true then
begin
if nome_cliente.Text = '' then
begin
Mensagem('Campo NOME DO CLIENTE é de Preenchimento obrigatório!');
//nome_cliente.SetFocus;
abort;
end;
end;
dm.tblCliente.Post;
Mensagem('Cliente cadastrado com sucesso!');
end
else
begin
Mensagem('Está prefeitura já está cadastrada!');
nome_cliente.SetFocus;
abort;
end
end;
----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq