Ver Mensaje Individual
  #8  
Antiguo 18-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola DOS.

Cita:
Basicamente donde va la codificacion, por defecto se tiene que ver al entrar al formulario todos los registros que esten activos, por eso digo si se debe codificar el Form.
Podés poner la sentencia SQL en tiempo de diseño desde el Object Inspector ->tuQuery-> SQL, o hacerlo por código:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with tuQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT APELLIDO, NOMBRE, DIRECCION, ...'); // el campo 'Visible' no es necesario aquí
    SQL.Add('FROM CLIENTES');
    SQL.Add('WHERE VISIBLE = 1');
    Open;
  end;
end;

Cita:
la segunda codificacion, si puede ir algo asi en el boton eliminar, ya que la codificacion que pones no hace eso
Código Delphi [-]
procedure TForm1.btnEliminarClick(Sender: TObject);
var
  bkp: string;
  id: Integer;
begin
  with tuQuery do
  begin
    id := FieldByName('CODIGO').AsInteger;
    bkp:= SQL.Text;
    SQL.Clear;
    SQL.Add('UPDATE CLIENTES SET VISIBLE = 0');
    SQL.Add('WHERE CODIGO = :PID');
    ParamByName('PID').AsInteger:= id;
    ExecSQL;
    SQL.Text:= bkp;
    Open;
  end;
end;
Cita:
ademas quiero saber si cuando oculte el registro se vera en el DBGrid una fila vacia intercalada con los registros visbles?
No.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita