Problemas con Locate Usando DBEdit

[servicomp]

Hola Compañeros

Estoy tratando de Usar Interbase/Firebird en una pequña base de datos de prueba que es la siguiente

CREATE TABLE UNO (
CODIGO VARCHAR(10) NOT NULL,
NOMBRE VARCHAR(30),
CIUDAD VARCHAR(20),
TELEFONO VARCHAR(15),
EDAD INTEGER
);

/******************************************************************************/
/**** Primary Keys ****/
/******************************************************************************/

ALTER TABLE UNO ADD CONSTRAINT PK_UNO PRIMARY KEY (CODIGO);

He conectado mi tabla gracias a un cuatro componentes IBDatabase, IBTransaction, IBDataset y un DataSource. Hasta aqui muy bien, y leyendo lo poco que se ha escrito y que he teido acceso (si tienen algo más me gustaría).


El problema esta cuando quiero ingresar un codigo que esta repetido. He querido verificar el uso con la funciona LOCATE, pero mepide tres parametros.

El primero el nombre del Campo como es normal.
Lo segundo donde se encuentra la variables pero no se como direccionar mi DBEDit1. Lo e intentado con DBEDit.text, y con BEdit1 y no me funciona

Por otro lado lo he colocado con unntexto fijo, pero no se en que evento colocarlo, para que terminado de escribir el DBEDit1 y salir del foco, este, si esta repetido me traiga la información a los DBEdit restantes.

[jmariano]

Para lo que quieres hacer, te aconsejaría no usar un TDBEdit sino un control TEdit normal (o mejor un TMaskEdit), ya que los TDBEdit, como están enlazados directamente a campos de la base de datos, siempre modificará el valor existente sin darte tiempo a comprobar el valor introducido antes de la modificación. Después, para actualizar el control TEdit, has de servirte de los eventos del DataSource relacionado, más concretamente del evento OnDataChange. Ej:

Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if (Edit1.Text <> '') and not DataSet.Locate('CODIGO', Edit.Text, []) then
  begin
    // Escribe aquí las operacines a realizar si no encuentra el registro
  end;   
end;

procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  // Actualizamos el contenido del control según la base de datos
  Edit1.Text := DataSet.FieldByName('CODIGO').AsString;
end;

Los DataSources posee dos eventos más: OnStateChange (captura los cambios de estado del DataSet) y OnUpdateData (se ejecuta cuando se van a modificar los campos de la base de datos), revisa la ayuda sobre esta clase para más información.

Por último, tienes la opción de crearte tu propio control TDBEdit que realice lo que quieres!

Saludos!

[jmariano]

Escribo de nuevo porque se me había olvidado dos pequeños detalles en el ejemplo anterior:

1º No se ha de buscar registros si el DataSet está en modo de edición o inserción.

2º No se ha de buscar registros si, lógicamente, el contenido del control no ha cambiado (tal y como está ahora, lo busca siempre).

Así que mejorando el ejemplo anterior, quedaría así:

Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Modified and (Edit1.Text <> '') and not (DataSource1.State in [dsInser, dsEdit]) 
      and not DataSet.Locate('CODIGO', Edit.Text, []) then
  begin
    Edit1.Modified := False;
    // Escribe aquí las operacines a realizar si no encuentra el registro
  end;   
end;

(La propiedad Modified indica que el control ha sido modificado)

Saludos!