Programming Forums > Application Development > Delphi

JoseCardoso · May 17th, 2006, 7:33 AM

I need examples for starting using Rave Reports on code based.

DaWei · May 17th, 2006, 7:46 AM

People in hell need ice water. Please read the forum's rules/FAQ and a "How To Ask a Question" thread. Then consider that this is a community of volunteers who give their help at no charge. After all that, you might want to rephrase your question, or move it to the "Hire A Geek" forum.

skoob · May 18th, 2006, 6:02 PM

Did you use google? If don't "like my old friend says" Please read the forum's rules/FAQ and a "How To Ask a Question" thread. We are better than that.

JoseCardoso · May 19th, 2006, 7:52 AM

Sorry but is the first time that I use a forum and I have some difficulties on writing in English because I�m Portuguese from Azores islands, but I will try.

I have using QuickReport in Delphi 6 like this example:

(Toggle Plain Text)

procedure TfrmDockChildFiles.EditPrintExecute(Sender: TObject);
var
  iLeft      : Integer;
  sTitle     : String;
  LQuickRep  : TQuickRep;
  LQRLabel   : TQRLabel;
  LQRDBText  : TQRDBText;

begin
  inherited;

  sTitle := GetLongHint(FModalAction.Hint);
  if Copy(sTitle,Length(sTitle),Length(sTitle)) = '.' then sTitle := Copy(sTitle,1,Length(sTitle)-1);
  sTitle := UpperCase(sTitle);

  LQuickRep := TQuickRep.Create(Self);
  LQuickRep.DataSet := dsFile.DataSet;
  LQuickRep.Bands.HasColumnHeader := True;
  LQuickRep.Bands.HasDetail := True;

  LQuickRep.Bands.ColumnHeaderBand.Frame.DrawBottom := True;
  LQuickRep.Bands.ColumnHeaderBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.ColumnHeaderBand.Font,'X') + 3;
  LQuickRep.Bands.DetailBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.DetailBand.Font,'X');

  iLeft := 0;
  LQRLabel := TQRLabel.Create(LQuickRep);
  LQRLabel.Name := 'LQRLabelCod' ;
  LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand;
  LQRLabel.Caption := fraFileMostrar.DBGridFiles.Columns[0].Title.Caption;
  LQRLabel.Left := iLeft;
  LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[0].Width;

  LQRDBText := TQRDBText.Create(LQuickRep);
  LQRDBText.Name := 'LQRDBTextCod';
  LQRDBText.Parent := LQuickRep.Bands.DetailBand;
  LQRDBText.DataSet := LQuickRep.DataSet;
  LQRDBText.DataField := fraFileMostrar.DBGridFiles.Columns[0].FieldName;
  LQRDBText.Left := iLeft;
  LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[0].Width;

  iLeft := iLeft + LQRLabel.Width ;

  LQRLabel := TQRLabel.Create(LQuickRep);
  LQRLabel.Name := 'LQRLabelMostrarNome' ;
  LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand;
  LQRLabel.Caption := fraFileMostrar.DBGridFiles.Fields[1].DisplayName;
  LQRLabel.Left := iLeft;
  LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[1].Width;

  LQRDBText := TQRDBText.Create(LQuickRep);
  LQRDBText.Name := 'LQRDBTextMostrarNome';
  LQRDBText.Parent := LQuickRep.Bands.DetailBand;
  LQRDBText.DataSet := LQuickRep.DataSet;
  LQRDBText.DataField := fraFileMostrar.DBGridFiles.Fields[1].FieldName;
  LQRDBText.Left := iLeft;
  LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[1].Width;

  frmPreview.ShowReport(LQuickRep,sTitle);


end;

procedure TfrmDockChildFiles.EditPrintExecute(Sender: TObject);
var
  iLeft      : Integer;
  sTitle     : String;
  LQuickRep  : TQuickRep;
  LQRLabel   : TQRLabel;
  LQRDBText  : TQRDBText;

begin
  inherited;

  sTitle := GetLongHint(FModalAction.Hint);
  if Copy(sTitle,Length(sTitle),Length(sTitle)) = '.' then sTitle := Copy(sTitle,1,Length(sTitle)-1);
  sTitle := UpperCase(sTitle);

  LQuickRep := TQuickRep.Create(Self);
  LQuickRep.DataSet := dsFile.DataSet;
  LQuickRep.Bands.HasColumnHeader := True;
  LQuickRep.Bands.HasDetail := True;

  LQuickRep.Bands.ColumnHeaderBand.Frame.DrawBottom := True;
  LQuickRep.Bands.ColumnHeaderBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.ColumnHeaderBand.Font,'X') + 3;
  LQuickRep.Bands.DetailBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.DetailBand.Font,'X');

  iLeft := 0;
  LQRLabel := TQRLabel.Create(LQuickRep);
  LQRLabel.Name := 'LQRLabelCod' ;
  LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand;
  LQRLabel.Caption := fraFileMostrar.DBGridFiles.Columns[0].Title.Caption;
  LQRLabel.Left := iLeft;
  LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[0].Width;

  LQRDBText := TQRDBText.Create(LQuickRep);
  LQRDBText.Name := 'LQRDBTextCod';
  LQRDBText.Parent := LQuickRep.Bands.DetailBand;
  LQRDBText.DataSet := LQuickRep.DataSet;
  LQRDBText.DataField := fraFileMostrar.DBGridFiles.Columns[0].FieldName;
  LQRDBText.Left := iLeft;
  LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[0].Width;

  iLeft := iLeft + LQRLabel.Width ;

  LQRLabel := TQRLabel.Create(LQuickRep);
  LQRLabel.Name := 'LQRLabelMostrarNome' ;
  LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand;
  LQRLabel.Caption := fraFileMostrar.DBGridFiles.Fields[1].DisplayName;
  LQRLabel.Left := iLeft;
  LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[1].Width;

  LQRDBText := TQRDBText.Create(LQuickRep);
  LQRDBText.Name := 'LQRDBTextMostrarNome';
  LQRDBText.Parent := LQuickRep.Bands.DetailBand;
  LQRDBText.DataSet := LQuickRep.DataSet;
  LQRDBText.DataField := fraFileMostrar.DBGridFiles.Fields[1].FieldName;
  LQRDBText.Left := iLeft;
  LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[1].Width;

  frmPreview.ShowReport(LQuickRep,sTitle);


end;

I�m trying doing something like this in Rave Report. I thing is possible but I�m just starting with Rave.

May 17th, 2006, 7:33 AM	#1
JoseCardoso Newbie Join Date: May 2006 Posts: 4 Rep Power: 0	Rave Reports BE 6.0 I need examples for starting using Rave Reports on code based.

May 17th, 2006, 7:46 AM	#2
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	People in hell need ice water. Please read the forum's rules/FAQ and a "How To Ask a Question" thread. Then consider that this is a community of volunteers who give their help at no charge. After all that, you might want to rephrase your question, or move it to the "Hire A Geek" forum. __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers

May 18th, 2006, 6:02 PM	#3
skoob Newbie Join Date: May 2006 Location: AZ Posts: 8 Rep Power: 0	Did you use google? If don't "like my old friend says" Please read the forum's rules/FAQ and a "How To Ask a Question" thread. We are better than that. __________________ What is more powerful 357magnum, 9mm, 45ACP, or C++?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

May 19th, 2006, 7:52 AM	#4
JoseCardoso Newbie Join Date: May 2006 Posts: 4 Rep Power: 0	Sorry but is the first time that I use a forum and I have some difficulties on writing in English because I�m Portuguese from Azores islands, but I will try. I have using QuickReport in Delphi 6 like this example: (Toggle Plain Text) procedure TfrmDockChildFiles.EditPrintExecute(Sender: TObject); var iLeft : Integer; sTitle : String; LQuickRep : TQuickRep; LQRLabel : TQRLabel; LQRDBText : TQRDBText; begin inherited; sTitle := GetLongHint(FModalAction.Hint); if Copy(sTitle,Length(sTitle),Length(sTitle)) = '.' then sTitle := Copy(sTitle,1,Length(sTitle)-1); sTitle := UpperCase(sTitle); LQuickRep := TQuickRep.Create(Self); LQuickRep.DataSet := dsFile.DataSet; LQuickRep.Bands.HasColumnHeader := True; LQuickRep.Bands.HasDetail := True; LQuickRep.Bands.ColumnHeaderBand.Frame.DrawBottom := True; LQuickRep.Bands.ColumnHeaderBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.ColumnHeaderBand.Font,'X') + 3; LQuickRep.Bands.DetailBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.DetailBand.Font,'X'); iLeft := 0; LQRLabel := TQRLabel.Create(LQuickRep); LQRLabel.Name := 'LQRLabelCod' ; LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand; LQRLabel.Caption := fraFileMostrar.DBGridFiles.Columns[0].Title.Caption; LQRLabel.Left := iLeft; LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[0].Width; LQRDBText := TQRDBText.Create(LQuickRep); LQRDBText.Name := 'LQRDBTextCod'; LQRDBText.Parent := LQuickRep.Bands.DetailBand; LQRDBText.DataSet := LQuickRep.DataSet; LQRDBText.DataField := fraFileMostrar.DBGridFiles.Columns[0].FieldName; LQRDBText.Left := iLeft; LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[0].Width; iLeft := iLeft + LQRLabel.Width ; LQRLabel := TQRLabel.Create(LQuickRep); LQRLabel.Name := 'LQRLabelMostrarNome' ; LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand; LQRLabel.Caption := fraFileMostrar.DBGridFiles.Fields[1].DisplayName; LQRLabel.Left := iLeft; LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[1].Width; LQRDBText := TQRDBText.Create(LQuickRep); LQRDBText.Name := 'LQRDBTextMostrarNome'; LQRDBText.Parent := LQuickRep.Bands.DetailBand; LQRDBText.DataSet := LQuickRep.DataSet; LQRDBText.DataField := fraFileMostrar.DBGridFiles.Fields[1].FieldName; LQRDBText.Left := iLeft; LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[1].Width; frmPreview.ShowReport(LQuickRep,sTitle); end; procedure TfrmDockChildFiles.EditPrintExecute(Sender: TObject); var iLeft : Integer; sTitle : String; LQuickRep : TQuickRep; LQRLabel : TQRLabel; LQRDBText : TQRDBText; begin inherited; sTitle := GetLongHint(FModalAction.Hint); if Copy(sTitle,Length(sTitle),Length(sTitle)) = '.' then sTitle := Copy(sTitle,1,Length(sTitle)-1); sTitle := UpperCase(sTitle); LQuickRep := TQuickRep.Create(Self); LQuickRep.DataSet := dsFile.DataSet; LQuickRep.Bands.HasColumnHeader := True; LQuickRep.Bands.HasDetail := True; LQuickRep.Bands.ColumnHeaderBand.Frame.DrawBottom := True; LQuickRep.Bands.ColumnHeaderBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.ColumnHeaderBand.Font,'X') + 3; LQuickRep.Bands.DetailBand.Height := LQuickRep.TextHeight(LQuickRep.Bands.DetailBand.Font,'X'); iLeft := 0; LQRLabel := TQRLabel.Create(LQuickRep); LQRLabel.Name := 'LQRLabelCod' ; LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand; LQRLabel.Caption := fraFileMostrar.DBGridFiles.Columns[0].Title.Caption; LQRLabel.Left := iLeft; LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[0].Width; LQRDBText := TQRDBText.Create(LQuickRep); LQRDBText.Name := 'LQRDBTextCod'; LQRDBText.Parent := LQuickRep.Bands.DetailBand; LQRDBText.DataSet := LQuickRep.DataSet; LQRDBText.DataField := fraFileMostrar.DBGridFiles.Columns[0].FieldName; LQRDBText.Left := iLeft; LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[0].Width; iLeft := iLeft + LQRLabel.Width ; LQRLabel := TQRLabel.Create(LQuickRep); LQRLabel.Name := 'LQRLabelMostrarNome' ; LQRLabel.Parent := LQuickRep.Bands.ColumnHeaderBand; LQRLabel.Caption := fraFileMostrar.DBGridFiles.Fields[1].DisplayName; LQRLabel.Left := iLeft; LQRLabel.Width := fraFileMostrar.DBGridFiles.Columns[1].Width; LQRDBText := TQRDBText.Create(LQuickRep); LQRDBText.Name := 'LQRDBTextMostrarNome'; LQRDBText.Parent := LQuickRep.Bands.DetailBand; LQRDBText.DataSet := LQuickRep.DataSet; LQRDBText.DataField := fraFileMostrar.DBGridFiles.Fields[1].FieldName; LQRDBText.Left := iLeft; LQRDBText.Width := fraFileMostrar.DBGridFiles.Columns[1].Width; frmPreview.ShowReport(LQuickRep,sTitle); end; I�m trying doing something like this in Rave Report. I thing is possible but I�m just starting with Rave.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Delphi

Rave Reports BE 6.0