Ver Mensaje Individual
  #10  
Antiguo 08-07-2004
ramonibk ramonibk is offline
Miembro
 
Registrado: may 2004
Posts: 193
Reputación: 21
ramonibk Va por buen camino
Una pequeña duda.

yo tengo algo parecido y tambien estoy buecando la manera de poder habrir desde el Dbgrid basado en Query un formulario para modificacion de datos.
pero en mi caso se complica por que lo que tengo son barios Query que mandan los datos a un DataSource. el cual es el que pinta en el DbGrid.

Código:
 
procedure TfrmBuscar.btnBuscarClick(Sender: TObject);

begin
 if rbEmpresa.checked then Begin
  qryEmpresas.close;
  qryEmpresas.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.dataSet:=qryEmpresas;
  qryEmpresas.Open;
 End Else
 If rbNombre.checked Then Begin
  qryNombre.Close;
  qryNombre.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryNombre;
  qryNombre.Open;
 End Else
 If rbApellido.checked Then Begin
  qryApellido.Close;
  qryApellido.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryApellido;
  qryApellido.Open;
 End Else
 If rbTelefono.checked Then Begin
  qryTelefono.Close;
  qryTelefono.ParamByName('Buscar').asString := edit1.Text+'%';
  dsBuscar.DataSet:=qryTelefono;
  qryTelefono.Open;
  End;
end;

procedure TfrmBuscar.Salir1Click(Sender: TObject);
begin
 Close;
end;
Este es el codigo que estoy Usando para las diferenres busquedas.
Responder Con Cita