Cita:
Empezado por Casimiro Notevi
O sea, que lo que quieres es que cuando pulses en el botón "Imprimir ficha" se muestre el informe con los datos que has puesto en pantalla para imprimirlo.
¿Y qué problema tienes con ello?, explícalo en detalle.
|
Lo que se ve en la imagen con el siguiente codigo en el boton imprimir
Código Delphi
[-]procedure TForm6.SpeedButton1Click(Sender: TObject);
var
Valor:string;
begin
with Form26.Query1 do
begin
Valor:=DBEdit1.Text;
Close;
SQL.Clear;
SQL.Add('SELECT * FROM propietario');
SQL.Add('WHERE Cod_prop = :PVALOR');
ParamByName('PVALOR').AsString := Valor;
Open;
end;
Form26.QuickRep1.Preview; end;
me tira el siguiente error "Project1.exe raised exception class EDBEngineError with message 'type mismatch in expression.'. Process stopped..." no se cual es el error o que significa esto.