gzyrpt.pas.bak

实用的毛织生产管理系统

unit gzyrpt;

interface

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

type
  Tgzyrptfm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    gzsaveqy: TQuery;
    gzrptqy: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzyrptfm: Tgzyrptfm;

implementation

uses gzyrpt1;

{$R *.dfm}

procedure Tgzyrptfm.Button1Click(Sender: TObject);
begin
  gzsaveqy.SQL.Clear;
  gzsaveqy.SQL.Add('scgzsave :years,:months ');
  gzsaveqy.ParamByName('years').AsInteger := spinedit1.Value;
  gzsaveqy.ParamByName('months').AsInteger := spinedit2.Value;
  gzsaveqy.ExecSQL;
  gzsaveqy.SQL.Clear;
  gzsaveqy.SQL.Add(' update scgz set dxgz=null where dxgz=0 ');
  gzsaveqy.ExecSQL;
  gzsaveqy.SQL.Clear;
  gzsaveqy.SQL.Add(' update scgz set dbjg=null where dbjg=0 ');
  gzsaveqy.ExecSQL;
   gzsaveqy.SQL.Clear;
  gzsaveqy.SQL.Add(' update scgz set btsg=null where btsg=0 ');
  gzsaveqy.ExecSQL;
    gzsaveqy.SQL.Clear;
  gzsaveqy.SQL.Add(' update scgz set btjg=null where btjg=0 ');
  gzsaveqy.ExecSQL;

  with gzrptqy do
  begin
    SQL.Clear;
    sql.Add('select * from scgz  ');
    if combobox1.Text <> '' then
    begin
      sql.Add('where dept=:dept');
      parambyname('dept').AsString := combobox1.Text;
    end;
    sql.Add(' order by dept,staffid');
    open;
  end;
  if not assigned(gzyrptfm1) then
    gzyrptfm1 := tgzyrptfm1.create(application);
  with gzyrptfm1 do
  begin
    quickrep1.DataSet := gzrptqy;
    qrdbtext1.DataSet := gzrptqy;
    qrdbtext2.DataSet := gzrptqy;
    qrdbtext3.DataSet := gzrptqy;
    qrdbtext4.DataSet := gzrptqy;
    qrdbtext5.DataSet := gzrptqy;
    qrdbtext6.DataSet := gzrptqy;
    qrdbtext7.DataSet := gzrptqy;
    qrlabel1.Caption := company + '璸ン