zhi_cheng_juan_report.~pas

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

unit zhi_cheng_juan_report;

interface

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

type
  Tzhi_cheng_juan_repor = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    t1: TMaskEdit;
    t2: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhi_cheng_juan_repor: Tzhi_cheng_juan_repor;

implementation
 uses zhi_cheng_tong_report;
{$R *.dfm}

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

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

procedure Tzhi_cheng_juan_repor.Button1Click(Sender: TObject);
var zhi_cheng_tong_repor:Tzhi_cheng_tong_repor;
begin
zhi_cheng_tong_repor:=Tzhi_cheng_tong_repor.Create(self);
zhi_cheng_tong_repor.QRLabel4.Caption:=combobox1.Text;
zhi_cheng_tong_repor.QRLabel31.Caption:=t1.Text;
zhi_cheng_tong_repor.QRLabel33.Caption:=t2.Text;
zhi_cheng_tong_repor.Query1.Active:=false;
zhi_cheng_tong_repor.Query1.SQL.Clear;
zhi_cheng_tong_repor.Query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where (A.juan_date>=:mm) and (A.juan_date<=:nn) and (A.bumen=:pp)');
zhi_cheng_tong_repor.Query1.ParamByName('mm').AsDateTime:=strtodate(t1.Text);
zhi_cheng_tong_repor.Query1.ParamByName('nn').AsDateTime:=strtodate(t2.Text);
zhi_cheng_tong_repor.Query1.ParamByName('pp').AsString:=combobox1.Text;
zhi_cheng_tong_repor.Query1.Prepare;
zhi_cheng_tong_repor.Query1.Active:=true;
zhi_cheng_tong_repor.QuickRep1.Preview;
end;

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

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

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

procedure Tzhi_cheng_juan_repor.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;

end;

end.