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á
Delphi Com Bd ?
Started By gabrieltpp, 17/11/2008, 19:20
1 reply to this topic
#1
Posted 17/11/2008, 19:20
#2
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;
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
----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)