bu_liang_ton.~pas

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

unit bu_liang_ton;

interface

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

type
  Tbu_liang_to = class(TForm)
    Label1: TLabel;
    t1: TMaskEdit;
    Button2: TButton;
    Button3: TButton;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bu_liang_to: Tbu_liang_to;

implementation
 uses sheng_buliang_tong;
{$R *.dfm}

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

procedure Tbu_liang_to.Button2Click(Sender: TObject);
 var sheng_buliang_ton:Tsheng_buliang_ton; xws1,xws2:integer;
begin
sheng_buliang_ton:=Tsheng_buliang_ton.Create(self);


sheng_buliang_ton.Query2.Active:=false;
sheng_buliang_ton.Query2.SQL.Clear;
sheng_buliang_ton.Query2.SQL.Add('select sum(juan_shu) from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where A.juan_date=:jj');
sheng_buliang_ton.Query2.ParamByName('jj').AsDateTime:=strtodate(t1.Text);
sheng_buliang_ton.Query2.Prepare;
sheng_buliang_ton.Query2.Active:=true;
if sheng_buliang_ton.Query2.Fields[0].AsString='' then
begin
showmessage('