zhi_cheng_report.~pas

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

unit zhi_cheng_report;

interface

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

type
  Tzhi_cheng_repor = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhi_cheng_repor: Tzhi_cheng_repor;

implementation
uses zhi_report;
{$R *.dfm}

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

procedure Tzhi_cheng_repor.Button2Click(Sender: TObject);
begin
close;
end;

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

procedure Tzhi_cheng_repor.FormCreate(Sender: TObject);
begin
edit1.Text:='';
end;

procedure Tzhi_cheng_repor.Button1Click(Sender: TObject);
var zhi_repor:Tzhi_repor;
begin
zhi_repor:=Tzhi_repor.Create(self);
zhi_repor.Query1.Active:=false;
zhi_repor.Query1.SQL.Clear;
zhi_repor.Query1.SQL.Add('select * from zhi_chuan_juan_chong where juan_no=:kk');
zhi_repor.Query1.ParamByName('kk').AsString:=edit1.Text;
zhi_repor.Query1.Prepare;
zhi_repor.Query1.Active:=true;
zhi_repor.Query2.Active:=false;
zhi_repor.Query2.SQL.Clear;
zhi_repor.Query2.SQL.Add('select * from zhi_chuan_juan_zhu where juan_no=:pp' );
zhi_repor.Query2.ParamByName('pp').AsString:=edit1.Text;
zhi_repor.Query2.Prepare;
zhi_repor.Query2.Active:=true;


zhi_repor.QRLabel4.Caption:=zhi_repor.Query2.FieldByName('bumen').AsString;
zhi_repor.QRLabel17.Caption:=datetostr(date);
zhi_repor.QRLabel22.Caption:=edit1.Text;
zhi_repor.QuickRep1.Preview;
end;

end.