pnomainrpt.pas

实用的毛织生产管理系统

unit pnomainrpt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Spin, Db, DBTables, constb;

type
  Tpnomainrptfm = class(TForm)
    pnoqy: TQuery;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button2: TButton;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pnomainrptfm: Tpnomainrptfm;

implementation

uses pnofinishrpt, finishpnomxrpt;

{$R *.DFM}

procedure Tpnomainrptfm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action := cafree;
end;

procedure Tpnomainrptfm.FormDestroy(Sender: TObject);
begin
  pnomainrptfm := nil;
end;

procedure Tpnomainrptfm.FormCreate(Sender: TObject);
var
  years, months, days: word;
begin
  decodedate(date, years, months, days);
  spinedit1.Value := years;
  spinedit2.Value := months;

end;

procedure Tpnomainrptfm.Button2Click(Sender: TObject);
begin
  with pnoqy do
  begin
    Sql.clear;
    sql.add('select a.*,(a.zxnum-a.pnonum) cxnum ,b.kflink from scpno a left join kftable b on a.kfjz=b.kfjz');
    sql.add(' where datepart(year,finishdate)=:years and datepart(month,finishdate)=:months');
    sql.add(' and finishflg =:finishflg order by pno ');
    parambyname('years').asinteger := spinedit1.Value;
    parambyname('months').asinteger := spinedit2.Value;
    parambyname('finishflg').asboolean := true;
    open;
  end;
  if not assigned(pnofinishrptfm) then
    pnofinishrptfm := tpnofinishrptfm.create(application);
  with pnofinishrptfm do
  begin
    quickrep1.DataSet := pnoqy;
    qrdbtext1.DataSet := pnoqy;
    qrdbtext2.DataSet := pnoqy;
    qrdbtext3.DataSet := pnoqy;
    qrdbtext4.DataSet := pnoqy;
    qrdbtext5.DataSet := pnoqy;
    qrdbtext6.DataSet := pnoqy;
    qrdbtext7.DataSet := pnoqy;
    qrdbtext8.DataSet := pnoqy;
    qrdbtext9.DataSet := pnoqy;
    qrdbtext10.DataSet := pnoqy;
    qrdbtext11.DataField := 'finishdate';
    qrdbtext11.DataSet := pnoqy;
    qrlabel1.Caption := company + spinedit1.Text + '年' + spinedit2.Text + '月'
      + groupbox1.Caption;
    quickrep1.Preview;
    close;

  end;
  pnoqy.Close;


end;

procedure Tpnomainrptfm.Button1Click(Sender: TObject);
begin
  close;
end;

end.