cheng_pin_tong.~pas

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

unit cheng_pin_tong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBTables, DB;

type
  Tcheng_pin_ton = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    t1: TMaskEdit;
    Label3: TLabel;
    t2: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Table1: TTable;
    Query1: TQuery;
    Query2: TQuery;
    sp1: TStoredProc;
    sp2: TStoredProc;
    A: TStoredProc;
    B: TStoredProc;
    C: TStoredProc;
    D: TStoredProc;
    E: TStoredProc;
    X: TStoredProc;
    Query3: TQuery;
    Label4: TLabel;
    Query4: TQuery;
    query_A: TQuery;
    query_B: TQuery;
    query_C: TQuery;
    query_D: TQuery;
    query_E: TQuery;
    query_X: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure t2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cheng_pin_ton: Tcheng_pin_ton;

implementation
uses cheng_bu_liang_tong_report;
{$R *.dfm}

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

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

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

procedure Tcheng_pin_ton.Button1Click(Sender: TObject);
var   q,pi,pi1,pro_lue2:integer;     pro_lue,pro_lue1:double;  xing_qi1:Tdatetime;
begin
xing_qi1:=strtodate(t1.Text);
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('delete cheng_pin_tong');
query2.ExecSQL;
query1.Active:=false;
  query1.SQl.Clear;
  query1.SQL.Add('select * from  cheng_pin_juan_zhu where (juan_date>=:mm) and (juan_date<=:nn) and (bumen=:jj)');
 query1.ParamByName('mm').AsDateTime:=strtodate(t1.Text);
  query1.ParamByName('nn').AsDateTime:=strtodate(t2.Text);
  query1.ParamByName('jj').AsString:=combobox1.Text;
  query1.Prepare;
  query1.Active:=true;
  if query1.Fields[0].AsString='' then
  begin
 showmessage('