FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
registros duplicados
hola amigos
mi problema es el siguiente.. quiero que al ingresar un registro en el sistema no me permita incluir codigos que ya esten incluidos.. osea si trato de inculir un registro cuyo codigo ya se encuente en el sistema me envie un mensage de erros que el registro ya esta en el sistema... estoy trabajando en delphi y con gestor paradox este es el codigo que estoy utilizando encontrado := false; while (not encontrado) do begin if td1.cod1 = clave2 then encontrado:=true; end; if not encontrado then showmessage ('el registro ya existe') else begin Tb1.Insert; Tb1.FieldByName('cod1').AsString := Clave; Tb1.FieldByName('cod2').AsString := clave2; Tb1.Post; Tb1.Next; Tb1.FlushBuffers; Tb1Close; Tb2.Insert; Tb2.FieldByName('cod2').AsString := Clave2; Tb2.FieldByName('des').AsString := clave4; Tb2.post; Tb2.Next; Tb2.FlushBuffers; Tb2.Close; ShowMessage('LOS DATOS FUERON GRABADOS SATISFACTORIAMENTE!!'); end |
|
|
|