Como Faço para Incluir ?

Caro Amigo
voce poderia fazer o seguinte procedimento:
Vamos chamar codigo para o campo de edição do codigo.
no evento o onexit do campo de [color=darkred:917d035ed4]codigo [/color:917d035ed4]voce dispara a uma pesquisa SQL, parar isso precisará de um query com a seguinte instrução.

SQL=select * from <nome da tabela>
where codigo=:codigo
de um clique com o botao da direita na query1 e adicone todos os campos. ADD ALL FIELDS

procedure TFRMprincipal.codigoExit(Sender: TObject);
begin
1- query1.close;
2- query1.parambyname(´codigo´).value:=edit1.text;
3- query1.open
4- if not query1.EOf then
begin
5- showmessage(´Tipo de Contato Já Cadastrado´);
6- tipo.text:=query1tipo.value
end;
end;
o que significa cada linha:
1- fecha a query1 para edição.
2-Preenche o valor do parametro (2º do instrução SQL=´ where codigo=:codigo´) ou seja quando o codigo informado for igual a um codigo já aramzenado.
3-Abre a query1
4- Faz uma pesquisa na query1 comparando o codigo informado com os já cadastrados se não chwegar até o fim (EOF). Sgnifica que o codigo já estar cadastrado.
5-Lança uma mensagem na tela.
6-preenche o campo tipo informado o que foi cadastrado com codigo informado.


Esperoque te ajude
Um abraço Adisson SILVA

Uma outra opção é criar duas tabelas uma para inserção outra somente para pesquisa. antes de gravar (Evento BeforePost) entre:

begin
if TabelaPesquisa.Locate(´CAMPO´, VALOR, []) then
begin
Application.MessageBox(´Esse valor já existe.´, ´Informação´,
MB_IconInformation + MB_OK);
end;
end;

ao final atualize a tabela de pesquisa (Evento AfterPost):

begin
TabelaPesquisa.Close;
TabelaPesquisa.Open;
end;