PASAR DE UN DBGRID A OTRO DBGRID
Publicado por Juicy Couture (50 intervenciones) el 17/03/2010 17:05:52
LOS TENGO en dos forms diferente uno se borran los registros pero al ser borrados quiero actualizar el principal dbgrid ¿como se realiza tengo este codigo? o que me falta gracias cuando es eliminado el registro kiero ke no aparesca en el dbgrid principal gracias
procedure TForm7.Button1Click(Sender: TObject);
begin
CLOSE;
end;
procedure TForm7.Button2Click(Sender: TObject);
var
boton : integer;
begin
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
if boton = mrOK then
Begin
query1.delete;
sHOWMESSAGE('El registro es borrado');
close;
end else begin
query1.close;
query1.sql.text:='select * from blibros';
query1.open;
end
end;
procedure TForm7.FORMCLOSE(Sender: TObject; var Action: TCloseAction);
begin
FORM3.QUERY1.CLOSE;
FORM3.QUERY1.OPEN;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
CLOSE;
end;
procedure TForm7.Button2Click(Sender: TObject);
var
boton : integer;
begin
boton:=messagedlg('¿Estàs seguro que deseas eliminar?',mtConfirmation,mbOKCancel,0);
if boton = mrOK then
Begin
query1.delete;
sHOWMESSAGE('El registro es borrado');
close;
end else begin
query1.close;
query1.sql.text:='select * from blibros';
query1.open;
end
end;
procedure TForm7.FORMCLOSE(Sender: TObject; var Action: TCloseAction);
begin
FORM3.QUERY1.CLOSE;
FORM3.QUERY1.OPEN;
end;
Valora esta pregunta
0