Ver Mensaje Individual
  #1  
Antiguo 05-06-2004
carlosmoralesm carlosmoralesm is offline
Miembro
 
Registrado: feb 2004
Posts: 94
Reputación: 21
carlosmoralesm Va por buen camino
Algo interesante Evitar el mismo nombre de un registro

estoy haciendo una pantalla de actualizacion de dispositivos tipo ABC

pero cuando edito un registro no puede tener el mismo nombre de dispositivo que otro entonces cuando doy de alta checo que el record count no sea mayor que 0 pero cuando edito uno existente y repito el nombre aproposito antes de guardarlo ya se que hay uno como puedo hacer para que no se incluya el mismo en caso de que la condicion diga que es >1


Código Delphi [-]
procedure TPropdis.Valida(Sender: TObject);
begin
  tabled.Filter:='Nombre = ' + quotedstr(ednom.Text);
  tabled.Filtered:=true;
  tabled.RecordCount;
  if ednom.Text = '' then
  begin
    showmessage('Tiene que escribir un Nombre Nuevo de dispositivo');
    customform.Formcustom.wwTableD.CancelUpdates;
    ednom.SetFocus;
  end;
  if n=True then
  begin
    if tabled.RecordCount >0 then
      showmessage('ya existe un dispositivo con este nombre');
    customform.Formcustom.wwTableD.CancelUpdates;
    tabled.Filtered:=False;
    edNom.SetFocus;
  end;
  if n=False then
  begin
    if tabled.RecordCount > 1 then
      showmessage('ya existe un dispositivo con este nombre');
    tabled.Filtered:=False;
    edNom.SetFocus;
  end;

Gracias de Antemano

Última edición por roman fecha: 05-06-2004 a las 04:40:16. Razón: formato de código
Responder Con Cita