Reports Fast Report Delphi Example 

unit Main;

interface
{$I CompVer.inc}

uses
{$IFDEF D6H}
  Variants,
{$ENDIF}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ABSMain,
  frxClass, frxDBSet;

const  DataBaseFileName: String = '..\..\Data\Demos.abs';

type
  TForm1 = class(TForm)
    dbDemos: TABSDatabase;
    ABSTable1: TABSTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    frxDBDataset1: TfrxDBDataset;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    frxReport1: TfrxReport;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  dbDemos.DatabaseFileName := ExtractFilePath(Application.ExeName) + DataBaseFileName;
  ABSTable1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 frxReport1.ShowReport;
end;

end.

Reports Fast Report Delphi Example

Comments

Post a Comment

Popular posts from this blog

Delphi stringgrid Sample (Using for loop)

Image
1.   Open new Delphi  VCL application. 2. Drag and drop  stringgrid component to the form. 3. Drag and drop  Button component to the form. 4. Copy and past below code to the button "click" property. procedure TForm1.Button1Click(Sender: TObject); var i, ix :integer; begin StringGrid1.ColCount:=10; StringGrid1.RowCount:=10; for I := 0 to 10 do for Ix := 0 to 10 do   with StringGrid1 do   begin   Cells[i,ix] := 'Col - ' + inttostr(i) + ', Row - ' + inttostr(ix);   ColWidths[i-1]:=100;   end; end; 5. Run the application.
Read more

How to encode a datetime in delphi

function EncodeDateTime ( const AYear : Word ; const AMonth : Word ; const ADay : Word ; const AHour : Word ; const AMinute : Word ; const ASecond : Word ; const AMilliSecond : Word ): TDateTime ; See this example uses DateUtils ; var myDateTime : TDateTime ; begin //Your Code myDateTime := EncodeDateTime ( 2009 , 11 , 28 , 14 , 23 , 12 , 000 ); //Your Code End ; Another option uses SysUtils ; var myDateTime : TDateTime ; begin //Your Code myDateTime := EncodeDate ( 2009 , 11 , 28 )+ EncodeTime ( 14 , 23 , 12 , 000 ); //Your Code end ; The second option works because the  TDatetime  It is stored as a Double ( TDateTime = type Double; ), with the date as the integral part (the  EncodeDate  function returns the integral), and time as fractional part. The date part of the TDateTime represents the number of days that have passed since 12/30/1899. a TDateTime can be any date through 31 Dec 9...
Read more

How to save jpg image to database and then load it in Delphi using FIBplus and TImage?

Image
unit uMain; interface {$I CompVer.inc} uses {$IFDEF D6H} Variants, {$ENDIF} Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBCtrls, Grids, DBGrids, ABSMain, ABSDecUtil; type TForm1 = class (TForm) tblImages: TABSTable; DBGrid1: TDBGrid; DBImage1: TDBImage; dsImages: TDataSource; GroupBox2: TGroupBox; Label1: TLabel; memQuery: TMemo; tblImagesID: TAutoIncField; tblImagesFilePath: TStringField; tblImagesImage: TBlobField; Label2: TLabel; Label3: TLabel; btnCreateQuery: TButton; btnExecuteQuery: TButton; Label4: TLabel; qryAddImage: TABSQuery; dlgOpen: TOpenDialog; procedure FormCreate(Sender: TObject); procedure btnCreateQueryClick(Sender: TObject); procedure btnExecuteQueryClick(Sender: TObject); procedure memQueryChange(Sender: TObject); private { Private declarations } public { Public declarations } end ; var Form1: T...
Read more