bu_liang_tong_ji.pas

品质管理系统：delphi+sql实现了制造企业在生产过程中对产品质量的控制

unit bu_liang_tong_ji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DB, DBTables, TeEngine, Series, ExtCtrls,
  TeeProcs, Chart, DbChart;

type
  Tbu_liang_tong_j = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    t1: TMaskEdit;
    t2: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    Query1: TQuery;
    Button3: TButton;
    Query2: TQuery;
    Table1: TTable;
    sp2: TStoredProc;
    Table2: TTable;
    sp1: TStoredProc;
    Label4: TLabel;
    Query3: TQuery;
    Query4: TQuery;
    Table3: TTable;
    Table4: TTable;
    Query5: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure t2Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bu_liang_tong_j: Tbu_liang_tong_j;

implementation
uses  bu_liang_tong_report;
{$R *.dfm}

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

procedure Tbu_liang_tong_j.FormCreate(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from biao_zheng_chan_liang');
query1.Open;
while not query1.Eof do begin
ComboBox1.Items.Add(query1.FieldByName('gong_xu').AsString);
query1.Next;
end;
combobox1.Text:='';
label4.Visible:=false;
end;

procedure Tbu_liang_tong_j.ComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
 t1.SetFocus;
end;

procedure Tbu_liang_tong_j.t1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
t2.SetFocus;
end;

procedure Tbu_liang_tong_j.t2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
button3.SetFocus;
end;

procedure Tbu_liang_tong_j.Button1Click(Sender: TObject);
var  bu_liang_tong_repor:Tbu_liang_tong_repor;   xws1,xws2,xws3,xws4,xws5,xws6,xws7,xws8,wu1,wu2,wu3,wu4,wu5,wu6,wu7,wu8,sum1,sum2,sum3,sum4,sum5,sum6:integer;
begin
 bu_liang_tong_repor:=Tbu_liang_tong_repor.Create(self);
  bu_liang_tong_repor.QRLabel4.Caption:=combobox1.Text;
  bu_liang_tong_repor.QRLabel7.Caption:=t1.Text;
   bu_liang_tong_repor.QRLabel8.Caption:=t2.Text;

            sp1.Active:=false;
            sp1.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
             sp1.ParamByName('@str2').AsString:=combobox1.Text;
            sp1.Prepare;
            sp1.Active:=true;

            if  sp1.FieldByName('