uprn.pas

delphi 源码 小型企业管理软件

unit uPrn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, frxClass, frxDBSet, frxDesgn;

type
  TfrmPrn = class(TForm)
    frxDesigner1: TfrxDesigner;
    frxDBDataset1: TfrxDBDataset;
    Query1Detail: TADOQuery;
    frxReport1: TfrxReport;
    Query1Master: TADOQuery;
    ADOQuery1: TADOQuery;
    DS1Master: TDataSource;
    frxDBDataset2: TfrxDBDataset;
    Query2Detail: TADOQuery;
    Query2Master: TADOQuery;
    frxReport2: TfrxReport;
    frxDBDataset3: TfrxDBDataset;
    frxDBDataset4: TfrxDBDataset;
    procedure frxReport2GetValue(const VarName: String;
      var Value: Variant);
  private
    { Private declarations }
    FID: string;
    TotalAmt: string;
    procedure PrepareData;
    procedure PrepareData2;
  public
    { Public declarations }
  end;

var
  frmPrn: TfrmPrn;

procedure PrnMO(moid: string);
procedure PrnSHD(invid: string);

implementation

uses uDM, uFunc;

{$R *.dfm}

procedure PrnSHD(invid: string);
begin
  frmPrn := TfrmPrn.Create(nil) ;

  with frmPrn do
  try
    FID := invid;
    PrepareData2;
    PrintFr3(frxReport2,'送货单模板.fr3');
  finally
    Free;
  end;
end;

procedure PrnMO(moid: string);
begin
  frmPrn := TfrmPrn.Create(nil) ;

  with frmPrn do
  try
    FID := moid;
    PrepareData;
    PrintFr3(frxReport1,'生产制单模板.fr3');
  finally
    Free;
  end;
end;

procedure TfrmPrn.PrepareData;
begin
  DropTempTables;
  ExecQuery(AdoQuery1.SQL.Text,[FID]);

  Query1Master.Open;
  Query1Detail.Open;
end;

procedure TfrmPrn.PrepareData2;
begin
  with Query2Master do begin
    close;
    SQL.Text := Format(SQL.Text,[FID]);
    Open;
  end;

  DropTempTables;
  with Query2Detail do begin
    close;
    SQL.Text := Format(SQL.Text,[FID]);
    Open;
  end;

  TotalAmt := moneytostr(GetQuery('select sum(Amt) from #temp1').Fields[0].AsFloat);
end;

procedure TfrmPrn.frxReport2GetValue(const VarName: String;
  var Value: Variant);
begin
  if VarName='TotalAmt' then Value := TotalAmt 
end;

end.