main.pas

用于实现C/S架构下的表单打印 支持清单打印 还支持多种模式下的打印

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, OleCtrls, ACRptEngineX_TLB, ACRptEngineVcl,
  DB, ADODB, Grids, DBGrids;

type
  TForm1 = class(TForm)
    B1: TBitBtn;
    B2: TBitBtn;
    B3: TBitBtn;
    B4: TBitBtn;
    B5: TBitBtn;
    B6: TBitBtn;
    rg1: TRadioGroup;
    Edit1: TEdit;
    ACRptEngine1: TACRptEngine;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
    procedure B3Click(Sender: TObject);
    procedure B4Click(Sender: TObject);
    procedure B5Click(Sender: TObject);
    procedure B6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses data;
{$R *.DFM}
var
  rpt_path: string = '';

procedure TForm1.FormCreate(Sender: TObject);
begin
  rpt_path := ExtractFilePath(ParamStr(0)) + '..\..\reports\';
  ACRptEngine1.AddSysVariable('使用单位', Edit1.Text) 
end;

procedure TForm1.B1Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('animals', dm.qryAnimals.Recordset);
  ACRptEngine1.AddDataSet('zlemployee', dm.qryZlemployee.Recordset);
  ACRptEngine1.SetReportFile(rpt_path+'list.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;  
end;

procedure TForm1.B2Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('customer', dm.qryCustomer.Recordset);
  ACRptEngine1.AddDataSet('orders', dm.qryOrders.Recordset);
  ACRptEngine1.AddDataSetRelation('customer', 'orders', 'CustNo=CustNo');
  ACRptEngine1.SetReportFile(rpt_path+'md.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;
end;

procedure TForm1.B3Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('zlemployee', dm.qryZlemployee.Recordset);
  ACRptEngine1.SetReportFile(rpt_path+'group.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;

end;

procedure TForm1.B4Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('customer', dm.qryCustomer.Recordset);
  ACRptEngine1.AddDataSet('orders', dm.qryOrders.Recordset);
  ACRptEngine1.AddDataSetRelation('customer', 'orders', 'CustNo=CustNo');
  ACRptEngine1.SetReportFile(rpt_path+'sub1.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;
end;

procedure TForm1.B5Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('customer', dm.qryCustomer.Recordset);
  ACRptEngine1.AddDataSet('orders', dm.qryOrders.Recordset);
  ACRptEngine1.AddDataSet('items', dm.qryItems.Recordset);
  ACRptEngine1.AddDataSetRelation('customer', 'orders', 'CustNo=CustNo');
  ACRptEngine1.AddDataSetRelation('orders', 'items', 'OrderNo=OrderNo');
  ACRptEngine1.SetReportFile(rpt_path+'sub2.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;
end;

procedure TForm1.B6Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('customer', dm.qryCustomer.Recordset);
  ACRptEngine1.AddDataSet('orders', dm.qryOrders.Recordset);
  ACRptEngine1.AddDataSet('zlemployee', dm.qryZlEmployee.Recordset);
  ACRptEngine1.AddDataSet('XueLi', dm.qryXueli.Recordset);
  ACRptEngine1.AddDataSet('photos', dm.qryPhoto.Recordset);
  ACRptEngine1.AddDataSet('XueLiEmp', dm.qryxueLiEmp.Recordset);
  ACRptEngine1.AddDataSetRelation('customer', 'orders', 'CustNo=CustNo');
  ACRptEngine1.SetReportFile(rpt_path+'label.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ACRptEngine1.Visible := false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ACRptEngine1.Init;
  ACRptEngine1.AddDataSet('customer', dm.qryCustomer.Recordset);
  ACRptEngine1.AddDataSet('orders', dm.qryOrders.Recordset);
  ACRptEngine1.AddDataSet('zlemployee', dm.qryZlEmployee.Recordset);
  ACRptEngine1.AddDataSet('xueli', dm.qryXueli.Recordset);
  ACRptEngine1.AddDataSet('photos', dm.qryPhoto.Recordset);
  ACRptEngine1.SetReportFile(rpt_path+'multcol.apt');
  case rg1.ItemIndex of
   0: ACRptEngine1.Preview;
   1: ACRptEngine1.ShowDesigner;
   2: ACRptEngine1.Print;
  end;

end;

end.