lai_juan.pas

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

unit lai_juan;

interface

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

type
  Tlai_jua = class(TForm)
    Label2: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    Label22: TLabel;
    Label4: TLabel;
    Label19: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label20: TLabel;
    DBEdit1: TDBEdit;
    t2: TMaskEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    t1: TMaskEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label1: TLabel;
    Label21: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label15: TLabel;
    Label25: TLabel;
    Label14: TLabel;
    Label10: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label30: TLabel;
    Label36: TLabel;
    Label31: TLabel;
    GroupBox1: TGroupBox;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DBComboBox4: TDBComboBox;
    DBEdit21: TDBEdit;
    DBComboBox5: TDBComboBox;
    Label24: TLabel;
    Label23: TLabel;
    Label9: TLabel;
    Label29: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBComboBox6: TDBComboBox;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit22: TDBEdit;
    DBComboBox7: TDBComboBox;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBNavigator2: TDBNavigator;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Shape4: TShape;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Table2: TTable;
    DataSource2: TDataSource;
    BitBtn7: TBitBtn;
    Table3: TTable;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    sp1: TStoredProc;
    sp2: TStoredProc;
    Table4: TTable;
    Label37: TLabel;
    DBComboBox8: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11Exit(Sender: TObject);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit13Exit(Sender: TObject);
    procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15Exit(Sender: TObject);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit17Exit(Sender: TObject);
    procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit19Exit(Sender: TObject);
    procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit23KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit24KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Table2AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
   abc:string;shou_shu,ss:double;   { Public declarations }
  end;

var
  lai_jua: Tlai_jua;

implementation
 uses iqc_lai_liao_report, dmm2;
{$R *.dfm}

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

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

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

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

t2.SetFocus;
end;
end;

procedure Tlai_jua.t2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
dbedit5.SetFocus;
table1.Edit;

table1.FieldByName('nian_shou_date').AsDateTime:=strtodate(t2.Text);
end;
end;

procedure Tlai_jua.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
dbedit6.SetFocus;
end;

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

procedure Tlai_jua.SpeedButton2Click(Sender: TObject);
var
  id, mm,zz,yy,a,gg,ss1,ss2,hh,xws:string;
  b,c,j,k,x,i,xu_hao:integer;
begin
table1.First;
table1.Last;

if table1.IsEmpty then
 xu_hao:=10000000
else
 xu_hao:=table1.FieldByName('nian_shou_no').AsInteger+1;

table1.Append;
table1.Edit;
table1.FieldByName('nian_shou_no').AsString:=inttostr(xu_hao);
table1.FieldByName('yes_or_no_nian_qi').AsString:='