//************************************************************************
procedure TForm1.Button1Click(Sender: TObject);
var
SQLQuery, aux: string;
begin
ADOQuery1.Active := false;
ADOQuery1.SQL.Clear;
SQLQuery:='select * from borrar limit 1';
ADOQuery1.SQL.Add(SQLQuery);
ADOQuery1.Active := true;
if ADOQuery1.RecordCount > 0 then
begin
if ADOQuery1.FieldByName('nombre').IsNull then
begin
ShowMessage('nombre es null');
end
else
begin
aux:=ADOQuery1.FieldByName('nombre').AsString;
ShowMessage(aux);
end;
end;
ADOQuery1.Active := false;
end;
.
martes, 23 de febrero de 2016
domingo, 14 de febrero de 2016
Crear un informe con RAVE v2
Tienes que añadir un control de la clase RvSystem y enlazar la propiedad engine del RvProject con el.
La Clase RVSystem tiene una propiedad SystemSetups donde puedes configurar las opciones de destinos (Impresora, preview, file..) si solo dejas opciones de impresión y ssAllowsetup a false, la impresión sale directa.
Si solo dejas opciones de Preview te saldra directamente la pantalla de previsualización y podras imprimir desde ella.
Saludos.
La Clase RVSystem tiene una propiedad SystemSetups donde puedes configurar las opciones de destinos (Impresora, preview, file..) si solo dejas opciones de impresión y ssAllowsetup a false, la impresión sale directa.
Si solo dejas opciones de Preview te saldra directamente la pantalla de previsualización y podras imprimir desde ella.
Saludos.
Suscribirse a:
Entradas (Atom)