nfinishpno.pas

实用的毛织生产管理系统

unit nfinishpno;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids, DBGridEh,dateutils, DB, DBTables,constb,
  PrnDbgeh;

type
  Tnfinishpnofm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    nfinishqy: TQuery;
    nfinishshowqy: TQuery;
    nfinishshowdb: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  nfinishpnofm: Tnfinishpnofm;

implementation

{$R *.dfm}

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

procedure Tnfinishpnofm.FormDestroy(Sender: TObject);
begin
nfinishpnofm:=nil;
end;

procedure Tnfinishpnofm.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tnfinishpnofm.FormCreate(Sender: TObject);
begin
spinedit1.Value:=yearof(date);
spinedit2.Value:=monthof(date);
end;

procedure Tnfinishpnofm.Button1Click(Sender: TObject);
begin
nfinishqy.SQL.clear;
nfinishqy.sql.Add( 'nfinishpnostore :years,:months ');
nfinishqy.ParamByName('years').AsInteger:=spinedit1.Value;
nfinishqy.ParamByName('months').AsInteger:=spinedit2.Value;
nfinishqy.ExecSQL;

with nfinishshowqy do
begin
sql.clear;
sql.Add('select a.* from nfinishpno a inner join scdepts b on a.dept=b.dept  order by a.pno,b.deptcode,a.scgx ');
open;
end;

end;

procedure Tnfinishpnofm.Button2Click(Sender: TObject);
begin
printdbgrideh1.PageHeader.CenterText.Clear;
printdbgrideh1.PageHeader.CenterText.Add(company+inttostr(spinedit1.Value)+'年'
+inttostr(spinedit1.Value)+'月未完工批号报表');
printdbgrideh1.Preview;
end;

end.