fdeptgx.pas.bak

实用的毛织生产管理系统

unit fdeptgx;

interface

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

type
  Tfdeptgxfm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    pnoqy: TQuery;
    saveqy: TQuery;
    schqy: TQuery;
    finishqy: TQuery;
    pnodb: TDataSource;
    finishdb: TDataSource;
    finishrptqy: TQuery;
    BitBtn1: TBitBtn;
    sch2: TQuery;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    ActionList1: TActionList;
    Button4: TButton;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
 //   procedure BitBtn3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);

  private
    years, months: integer;
    { Private declarations }

  public
    { Public declarations }
  end;

var
  fdeptgxfm: Tfdeptgxfm;
  A:array[0..50] of string;
  b:array[0..50] of string;

implementation

uses finishpnomxrpt;

{$R *.dfm}

procedure Tfdeptgxfm.Button1Click(Sender: TObject);
var
  pno, dept, scgx, price, memo: string;

begin

  if (years <> spinedit1.Value) or (months <> spinedit2.Value) then
  begin
    years := spinedit1.Value;
    months := spinedit2.Value;
    with saveqy do
    begin
      sql.Clear;
      sql.add('delete from finishpno');
      execsql;
      sql.Clear;
      sql.Add('update scinmx set scgx='''' where scgx is null ');
      execsql;
      sql.clear;
      sql.add('insert into finishpno(pno,dept,scgx,scprice,totalnum,totalsum)');
      sql.Add(' select b.pno,a.dept,b.scgx,b.inprice,sum(b.innum),sum(b.totalin)');
      sql.add(' from  scintb a ,scinmx b,scpno c ');
      sql.add(' where a.idno=b.idno and b.pno=c.pno ');
      if checkbox2.Checked then
      sql.add(' and b.sg=''