No realiza el update :(

[nosferatu177]

Hola a todos
mi problema es el siguiente, en el programa que estoy realizando requiero actualizar un campo de la tabla usuarios(pantalla "Login"), osea que: si despues de 3 intentos no esta correcta la contraseña desactivar el usuario(campo "estatus=0"); solo que no realiza actualizacion alguna; podría alguien ayudarme porfavor. utilizo los componentes zeos, mysql 5 y delphi 7; este es el codigo:

Código Delphi [-]
 
 else   begin     //si intentos =3
    showmessage('Demasiados intentos. El usuario ha sido bloqueado!');
    //checamos q exista el usuario para bloquearlo
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from usuarios where user='+QuotedStr(usuario.Text));
    query1.Open;
    if not(data1.DataSet.Eof and data1.DataSet.Bof) then     begin       query1.Close;       query1.SQL.Clear;                           //?????NO funciona!!!
      query1.SQL.Add('update usuarios set estatus='+QuotedStr('0'));
      query1.SQL.Add(' where user='+QuotedStr(usuario.Text));
      query1.ExecSQL;
    end;
    query1.Active:=false;
    Application.Terminate;
  end;

donde:
query1=TZQuery
data1=TDataSource

[FrancisR]

Creo que deberías cambiar esta línea:

if not(data1.DataSet.Eof and data1.DataSet.Bof) then

por

if not(query1.isempty) then


Entiendo que data1.dataset es query1, ¿no?

[nosferatu177]

gracias por tu aporte....pero no funciono :'(; el datasource es donde queda la consulta para despues de ahi poder tomar datos en caso q se rechaze un movimiento: nuevo registro, modificacion o eliminar registro.

no se que pueda estar mal en el codigo o porq no realiza la actualizacion del campo....:'(

gracias por tu aporte!!!!