gong_shang_wu_tong.pas

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

unit gong_shang_wu_tong;

interface

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

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

var
  gong_shang_wu_ton: Tgong_shang_wu_ton;

implementation
uses ng_gong_shang_tong;
{$R *.dfm}

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

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

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

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

procedure Tgong_shang_wu_ton.Button1Click(Sender: TObject);
var ng_gong_shang_ton:Tng_gong_shang_ton;
begin
ng_gong_shang_ton:=Tng_gong_shang_ton.Create(self);
ng_gong_shang_ton.sp1.Active:=false;
ng_gong_shang_ton.sp1.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
ng_gong_shang_ton.sp1.ParamByName('@str2').AsDateTime:=strtodate(t2.Text);
ng_gong_shang_ton.sp1.Prepare;
ng_gong_shang_ton.sp1.Active:=true;

ng_gong_shang_ton.QRLabel21.Caption:=t1.Text;
ng_gong_shang_ton.QRLabel22.Caption:=t2.Text;
ng_gong_shang_ton.QRLabel20.Caption:=label3.Caption;
ng_gong_shang_ton.QuickRep1.Preview;
end;

procedure Tgong_shang_wu_ton.FormCreate(Sender: TObject);
begin
label3.Visible:=false;
end;

end.