Hola
Código Delphi [-]
procedure TForm6.SpeedButton1Click(Sender: TObject);
var
Valor: Real;
begin
Valor:= StrToFloat(DBEdit1.Text);
with Form26.Query1 do
begin
Close;
SQL.text:= 'SELECT * FROM propietario WHERE Cod_prop = :PVALOR';
ParamByName('PVALOR').Value := Valor;
Open;
end;
Form26.QuickRep1.Preview; end;
Saludos
__________________
Siempre Novato
Última edición por Caral fecha: 28-07-2013 a las 19:07:54.
|