qc_report.pas

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

unit qc_report;

interface

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

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

var
  qc_repor: Tqc_repor;

implementation
uses QC_xin_report;
{$R *.dfm}

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

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

procedure Tqc_repor.FormCreate(Sender: TObject);
begin
edit1.Text:='';
label2.Visible:=false;
end;

procedure Tqc_repor.Button1Click(Sender: TObject);
var QC_xin_repor:TQC_xin_repor;
begin
QC_xin_repor:=TQC_xin_repor.Create(self);
QC_xin_repor.Query2.Active:=false;
QC_xin_repor.Query2.SQL.Clear;
QC_xin_repor.Query2.SQL.Add('select * from qc_xin_zhu where xin_no=:pp');
QC_xin_repor.Query2.ParamByName('pp').AsString:=edit1.Text;
QC_xin_repor.Query2.Prepare;
QC_xin_repor.Query2.Active:=true;

QC_xin_repor.QRLabel20.Caption:= QC_xin_repor.Query2.FieldByName('bumen').AsString;
QC_xin_repor.QRLabel21.Caption:=QC_xin_repor.Query2.FieldByName('xin_date').AsString;
  QC_xin_repor.Query1.Active:=false;
  QC_xin_repor.Query1.SQL.Clear;
   QC_xin_repor.Query1.SQL.Add('select * from qc_xin_chong where xin_no=:jj');
     QC_xin_repor.Query1.ParamByName('jj').AsString:=edit1.Text;
    QC_xin_repor.Query1.Prepare;
   QC_xin_repor.Query1.Active:=true;
  QC_xin_repor.QRLabel23.Caption:=label2.Caption;
 QC_xin_repor.QuickRep1.Preview;
end;

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

end.