cheng_pin_zhou_yang.pas

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

unit cheng_pin_zhou_yang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, Grids, DBGrids, ExtCtrls, DBCtrls, Mask, StdCtrls,
  Buttons;

type
  Tcheng_pin_zhou_yan = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Shape3: TShape;
    Shape4: TShape;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    GroupBox3: TGroupBox;
    SpeedButton3: TSpeedButton;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    BitBtn7: TBitBtn;
    BitBtn9: TBitBtn;
    t1: TMaskEdit;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    Query5: TQuery;
    Query6: TQuery;
    Query7: TQuery;
    Query8: TQuery;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label2: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit5: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBComboBox3: TDBComboBox;
    DBEdit12: TDBEdit;
    GroupBox1: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBComboBox7: TDBComboBox;
    DBComboBox8: TDBComboBox;
    DBComboBox9: TDBComboBox;
    DBComboBox10: TDBComboBox;
    DBComboBox11: TDBComboBox;
    DBComboBox12: TDBComboBox;
    Table1: TTable;
    Table2: TTable;
    Label28: TLabel;
    DBEdit13: TDBEdit;
    Label29: TLabel;
    DBComboBox13: TDBComboBox;
    Label14: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Query9: TQuery;
    Query10: TQuery;
    Query11: TQuery;
    Table3: TTable;
    Query12: TQuery;
    Label33: TLabel;
    DBComboBox14: TDBComboBox;
    Label34: TLabel;
    DBComboBox15: TDBComboBox;
    Table4: TTable;
    Table5: TTable;
    DBComboBox16: TDBComboBox;
    Table6: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox8KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox9KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox10KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox11KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox13KeyPress(Sender: TObject; var Key: Char);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn9Click(Sender: TObject);
    procedure DBComboBox16KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox14KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox15KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cheng_pin_zhou_yan: Tcheng_pin_zhou_yan;

implementation
 uses cheng_pin_zhou_yang_report;
{$R *.dfm}

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

procedure Tcheng_pin_zhou_yan.t1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
table1.Edit;
table1.FieldByName('juan_date').AsDateTime:=strtodate(t1.Text);
dbcombobox2.SetFocus;
end;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox2KeyPress(Sender: TObject;
  var Key: Char);
begin
query5.Active:=false;
query5.SQL.Clear;
query5.SQL.Add('select * from dingdan1 where dh=:pp');
query5.ParamByName('pp').AsString:=dbcombobox2.Text;
query5.Prepare;
query5.Active:=true;
if key=chr(13) then
begin


dbedit6.Text:=query5.FieldByName('pm').AsString;
dbedit7.Text:=query5.FieldByName('sl').AsString;

dbedit8.SetFocus;

 end;

end;

procedure Tcheng_pin_zhou_yan.DBEdit8KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbedit9.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit9KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbedit10.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit10KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbedit11.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit11KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox3.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox3KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox1.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbedit2.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit2KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox16.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit4KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox4.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox4KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox5.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox5KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox6.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox6KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox7.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox7KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox8.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox8KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox9.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox9KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox10.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox10KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox11.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox11KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox12.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox12KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
bitbtn2.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit12KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbedit13.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBEdit13KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox14.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.DBComboBox13KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
dbcombobox15.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.Table1AfterScroll(DataSet: TDataSet);
begin
if table1.FieldByName('juan_date').AsString<>'' then
t1.Text:=table1.FieldByName('juan_date').AsString
else
t1.Text:='    /  /  ';
begin
dbcombobox2.ReadOnly:=true;
dbedit8.ReadOnly:=true;
dbedit9.ReadOnly:=true;
dbedit10.ReadOnly:=true;
dbedit11.ReadOnly:=true;
dbcombobox3.ReadOnly:=true;
dbcombobox1.ReadOnly:=true;
dbedit2.ReadOnly:=true;
dbcombobox16.ReadOnly:=true;
dbcombobox4.ReadOnly:=true;
dbcombobox5.ReadOnly:=true;
dbcombobox6.ReadOnly:=true;
dbcombobox7.ReadOnly:=true;
dbcombobox8.ReadOnly:=true;
dbcombobox9.ReadOnly:=true;
dbcombobox10.ReadOnly:=true;
dbcombobox11.ReadOnly:=true;
dbcombobox12.ReadOnly:=true;
dbedit7.ReadOnly:=true;
 t1.ReadOnly:=true;







end;
end;

procedure Tcheng_pin_zhou_yan.BitBtn1Click(Sender: TObject);
begin
dbcombobox2.ReadOnly:=false;
dbedit8.ReadOnly:=false;
dbedit9.ReadOnly:=false;
dbedit10.ReadOnly:=false;
dbedit11.ReadOnly:=false;
dbcombobox3.ReadOnly:=false;
dbcombobox1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
dbcombobox16.ReadOnly:=false;
dbcombobox4.ReadOnly:=false;
dbcombobox5.ReadOnly:=false;
dbcombobox6.ReadOnly:=false;
dbcombobox7.ReadOnly:=false;
dbcombobox8.ReadOnly:=false;
dbcombobox9.ReadOnly:=false;
dbcombobox10.ReadOnly:=false;
dbcombobox11.ReadOnly:=false;
dbcombobox12.ReadOnly:=false;
dbedit7.ReadOnly:=false;
bitbtn2.Enabled:=true;
 t1.ReadOnly:=false;
t1.SetFocus;
end;

procedure Tcheng_pin_zhou_yan.SpeedButton2Click(Sender: TObject);
begin
if MessageDlg('