unitprint.~pas

纺织类 纤维强力测试中蠕变性能测试源码

unit UnitPrint;

interface

uses Windows, SysUtils, Classes,Dialogs, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, DbChart, QRTEE, QuickRpt,printers;

type
  TOKRightDlg1 = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    PrintDialog1: TPrintDialog;
    QRCompositeReport1: TQRCompositeReport;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure QRCompositeReport1AddReports(Sender: TObject);
  private
    { Private declarations }
  public
     procedure CopySeries(DestChart: TQRDBChart; SourceChart:TChart;
                                  AOwner:TComponent);
    { Public declarations }
  end;

var
  OKRightDlg1: TOKRightDlg1;

implementation

uses UnitYarnlslook, UnitYarnRP, UnitQRchart, UnitRPTitle;

{$R *.dfm}
procedure TOKRightDlg1.CopySeries(DestChart: TQRDBChart; SourceChart:TChart;
                                  AOwner:TComponent);
var
 tmpSeries: TChartSeries;
 tmpS: TChartSeriesClass;
 t: Longint;
begin
  for t := 0 to SourceChart.SeriesCount-1 do
  begin
    tmpS := TChartSeriesClass(SourceChart.Series[t].ClassType);
    tmpSeries := tmpS.Create(AOwner);
    tmpSeries.Assign(SourceChart.Series[t]);
    //tmpSeries.Name := (SourceChart.Series[t].Name) + 'copy23';
    DestChart.AddSeries(tmpSeries);
  end;
end;

procedure TOKRightDlg1.BitBtn1Click(Sender: TObject);
var
  X:LongInt;

begin
   if  printer.Printers.Count=0 then
   begin
    if  messagedlg('没能找到打印机,是否安装打印机',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
   //调用打印机添加向导
    X:=winexec('rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter',9);
    printdialog1.Execute;
     end
    else
    exit
   end
   else
   PrintDialog1.Execute;
end;

procedure TOKRightDlg1.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TOKRightDlg1.BitBtn2Click(Sender: TObject);
var
 i:integer;
begin
 if  (checkbox1.Checked=true) or (checkbox1.Checked=true)  then
    Application.CreateForm(TFormyanReport, FormyanReport);
  if checkbox1.Checked=false then FormyanReport.QuickRep1.Bands.HasSummary:=false
    else FormyanReport.QuickRep1.Bands.HasSummary:=true;
  if checkbox2.Checked=false then
     begin
    FormyanReport.QuickRep1.Bands.HasColumnHeader:=false;
    FormyanReport.QuickRep1.Bands.HasDetail:=false;
     end
     else
     begin
    FormyanReport.QuickRep1.Bands.HasColumnHeader:=true;
    FormyanReport.QuickRep1.Bands.HasDetail:=true;
     end;


  if checkbox3.Checked=true then  begin
     FormQRChart.QuickRep1.PrintIfEmpty:=true;
     for i:=0 to FormyarnLSlook.Chart2.SeriesCount-1 do
    FormyarnLSlook.Chart2.Series[0].ParentChart :=FormQRChart.QRChart1.Chart;
     end
     else
   FormQRChart.QuickRep1.PrintIfEmpty:=false;

 QRCompositeReport1.Preview;
  OKRightDlg1.Close;
  FormyanReport.QuickRep1.Destroy;
 QRCompositeReport1.CleanupInstance;
end;

procedure TOKRightDlg1.QRCompositeReport1AddReports(Sender: TObject);
begin
 with QRCompositeReport1.Reports do
  begin
      Add(FormRPtitle.QuickRep1);
      Add(FormQRChart.QuickRep1);
      Add(FormyanReport.QuickRep1);
  end;
end;

end.