umain.pas

fastreport演示程序。fastreport是vcl库的下的一个报表三方控件

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls;

type
  TfrmMain = class(TForm)
    dbgrdFR: TDBGrid;
    ds1: TDataSource;
    btnQuery: TButton;
    btnPreview: TButton;
    rb1: TRadioButton;
    rb2: TRadioButton;
    btnExit: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure btnPreviewClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses dmConn, uReport;

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
  DBPath: string;
begin
  DBPath := ExtractFilePath(Application.Name) + 'FR3Demo.mdb';
  with dmFRDemo.conAccess do   //连接Access数据库
  begin
    try
      Close;
      ConnectionString :=
        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBPath +
        ';Persist Security Info=False;Jet OLEDB:Database Password=';
      Open;
    except
      Application.MessageBox('连接数据库失败！', '警告', MB_OK +
        MB_ICONWARNING);
      Application.Terminate;
    end;
  end;
end;

procedure TfrmMain.btnQueryClick(Sender: TObject);
begin
  with dmFRDemo.qryAccess do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from tMenu');
    Open;
  end;
end;

procedure TfrmMain.btnPreviewClick(Sender: TObject);
begin
  if not dmFRDemo.qryAccess.Active then
    btnQuery.Click;

  if frmReport = nil then
    frmReport := TfrmReport.Create(Self);

  with frmReport do
  begin
    WindowState := wsMaximized;
    frxReport1.Preview := frxPreview1;
    frxReport1.PrepareReport;

    if rb1.Checked then
    begin
      frxReport1.LoadFromFile('fr3Demo1.fr3');
      ReportFile := 'fr3Demo1.fr3';
    end else
    begin
      frxReport1.LoadFromFile('fr3Demo2.fr3');
      ReportFile := 'fr3Demo2.fr3';
    end;
    frxReport1.ShowReport;
    ShowModal;
  end;
end;

procedure TfrmMain.btnExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

end.