qc_xin_juan.~pas

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

unit qc_xin_juan;

interface

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

type
  Tqc_xin_jua = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Shape1: TShape;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    t1: TMaskEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBComboBox3: TDBComboBox;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBNavigator2: TDBNavigator;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    BitBtn5: TBitBtn;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label6: TLabel;
    t2: TMaskEdit;
    Query1: TQuery;
    Label17: TLabel;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    SpeedButton7: TSpeedButton;
    Table3: TTable;
    Query5: TQuery;
    Label18: TLabel;
    DBComboBox4: TDBComboBox;
    Label19: TLabel;
    DBComboBox5: TDBComboBox;
    Table4: TTable;
    Table5: TTable;
    DBComboBox6: TDBComboBox;
    Table6: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton7Click(Sender: TObject);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qc_xin_jua: Tqc_xin_jua;

implementation
uses QC_xin_report;
{$R *.dfm}

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

procedure Tqc_xin_jua.Table2AfterScroll(DataSet: TDataSet);
begin
if table2.FieldByName('xin_time').AsString<>'' then
t2.Text:=table2.FieldByName('xin_time').AsString
else
t2.Text:='';
begin
dbcombobox2.ReadOnly:=true;
dbedit6.ReadOnly:=true;
dbedit7.ReadOnly:=true;
dbedit8.ReadOnly:=true;
dbedit10.ReadOnly:=true;
dbedit11.ReadOnly:=true;
t2.ReadOnly:=true;
 dbcombobox4.ReadOnly:=true;
 dbcombobox5.ReadOnly:=true;

end;
end;

procedure Tqc_xin_jua.Table1AfterScroll(DataSet: TDataSet);
begin
if table1.FieldByName('xin_date').AsString<>'' then
t1.Text:=table1.FieldByName('xin_date').AsString
else
t1.Text:='';
begin
dbcombobox1.ReadOnly:=true;
t1.ReadOnly:=true;
dbedit2.ReadOnly:=true;

 dbcombobox6.ReadOnly:=true;


end;
end;

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

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

end;
end;

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

procedure Tqc_xin_jua.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
bitbtn1.SetFocus;
end;

procedure Tqc_xin_jua.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tqc_xin_jua.BitBtn1Click(Sender: TObject);
begin
if dbedit1.Text='' then
begin
showmessage('ǖ琩絪腹ぃ