fpnojrpt.pas.bak

实用的毛织生产管理系统

unit fpnojrpt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtCtrls, DB, DBTables, constb, Grids, DBGridEh,
  Buttons,comobj, Excel2000;

type
  Tfpnojrptfm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button2: TButton;
    fpnoqy: TQuery;
    Button1: TButton;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    fpnodb: TDataSource;
    Button3: TButton;
    BitBtn1: TBitBtn;
    saveqy: TQuery;
    sch2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure fpnoqyAfterOpen(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fpnojrptfm: Tfpnojrptfm;

implementation

uses finishpnomem, fpnojrpt1;

{$R *.dfm}

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

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

procedure Tfpnojrptfm.FormDestroy(Sender: TObject);
begin
  fpnojrptfm := nil;
end;

procedure Tfpnojrptfm.Button2Click(Sender: TObject);
begin
  if not assigned(fpnojrptfm1) then
    fpnojrptfm1 := tfpnojrptfm1.create(application);

  with fpnojrptfm1 do
  begin
    quickrep1.dataset := fpnoqy;
    qrdbtext1.DataSet := fpnoqy;
    qrdbtext2.DataSet := fpnoqy;
    qrdbtext3.DataSet := fpnoqy;
    qrdbtext4.DataSet := fpnoqy;
    qrdbtext5.DataSet := fpnoqy;
    qrdbtext6.DataSet := fpnoqy;
    qrdbtext7.DataSet := fpnoqy;
    qrdbtext8.DataSet := fpnoqy;
    qrdbtext9.DataSet := fpnoqy;
    qrdbtext10.DataSet := fpnoqy;
    qrdbtext11.DataSet := fpnoqy;
    qrdbtext12.DataSet := fpnoqy;
    qrdbtext13.DataSet := fpnoqy;
    qrdbtext14.DataSet := fpnoqy;
    qrdbtext15.DataSet := fpnoqy;
    qrdbtext16.DataSet := fpnoqy;
    qrdbtext17.DataSet := fpnoqy;
    qrlabel1.Caption := company + 'Ч