• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 410
  • Last Modified:

dbase record numbers in Quick Report

I have a database application written using Topaz for Delphi (database engine). On the preview of some reports i require the record number to be displayed for each record in the report.
I can not seem to find a way of achieving this. The QRSysData component does not show the actual record number but just numbers the records sequentially. I require the 'Table1.RecNo' value for each of the records in the report.

Thanks Paul.
0
pr_wainwright
Asked:
pr_wainwright
  • 2
  • 2
  • 2
1 Solution
 
IPCHCommented:
Add calculated field.

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  Table1RN.AsInteger:=Table1.RecNo;
end;
0
 
ITugayCommented:
Hi Paul,

you can drop TQRLabel onto your report and write QRLabel.OnPrint event:

....
begin
   Value:=IntToStr(Table1.RecNo);
end;

----
Igor.
0
 
ITugayCommented:
IPCH ;(

What are you talking about?

------------ RecNo -----------
Indicates the current record in the dataset.

property RecNo: Longint;

Description

Examine RecNo to determine the record number of the current record in the dataset......
-------------
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
pr_wainwrightAuthor Commented:
ITugay's answer is exactly what i was looking for.

Thanks Paul.
0
 
pr_wainwrightAuthor Commented:
Right first time. Not bad considering i am terrible at explaining what i am trying to achieve in my questions !.

Thanks Paul.
0
 
IPCHCommented:
I am not Paul, I am Ivan
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now