Illustrates how to work with QuickReport.
Download Absolute Database | Learn more
unit Main;
interface
{$I CompVer.inc}
uses
{$IFDEF D6H}
Variants,
{$ENDIF}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ABSMain, ExtCtrls, DBCtrls;
const DataBaseFileName: String = '..\..\Data\Demos.abs';
type
TfrmMain = class(TForm)
dbDemos: TABSDatabase;
ABSTable1: TABSTable;
DBGrid1: TDBGrid;
Label1: TLabel;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Button1: TButton;
GroupBox1: TGroupBox;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
uses QReport;
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
dbDemos.DatabaseFileName := ExtractFilePath(Application.ExeName) + DataBaseFileName;
ABSTable1.Open;
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
frmReport.QuickRep1.Preview;
end;
end.
Download Absolute Database | Learn more |
|
|
Current version: 7.94
Released: February 08, 2023
Price: $ 149
 
|
|
Component Ace is all that it advertises. It is easy to implement and is very fast.
In addition, the customer support is the best I have ever had. All my questions were answered within hours, often immediately. The responses also answered my questions, no need for followup emails.
If your application needs the functionality that Component Ace provides, search no further.
Linda Murphy
|
|
|