zhi_cheng_chuan_juan.~pas

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

unit zhi_cheng_chuan_juan;

interface

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

type
  Tzhi_cheng_chuan_jua = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    t1: TMaskEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Shape1: TShape;
    Shape2: TShape;
    Table1: TTable;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    GroupBox1: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edit7: TEdit;
    Shape3: TShape;
    Shape4: TShape;
    Edit10: TEdit;
    Edit11: TEdit;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton3: TSpeedButton;
    Label15: TLabel;
    BitBtn7: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    Label16: TLabel;
    Query3: TQuery;
    Query4: TQuery;
    BitBtn9: TBitBtn;
    Query6: TQuery;
    Label18: TLabel;
    Query7: TQuery;
    Query8: TQuery;
    Table3: TTable;
    Query9: TQuery;
    Label19: TLabel;
    Label20: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Table4: TTable;
    Table5: TTable;
    DBComboBox3: TDBComboBox;
    Table6: TTable;
    Table7: TTable;
    Label7: TLabel;
    Label22: TLabel;
    DBEdit2: TDBEdit;
    Label21: TLabel;
    DBEdit1: TDBEdit;
    GroupBox4: TGroupBox;
    Label17: TLabel;
    Edit13: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    DBEdit3: TDBEdit;
    BitBtn10: TBitBtn;
    Query10: TQuery;
    DBComboBox4: TDBComboBox;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Table8: TTable;
    Table9: TTable;
    Table10: TTable;
    DBEdit4: TDBEdit;
    Query11: TQuery;
    Table11: TTable;
    sp1: TStoredProc;
    DBEdit5: TDBEdit;
    DBComboBox5: TDBComboBox;
    DBEdit6: TDBEdit;
    Table12: TTable;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn8Click(Sender: TObject);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure Edit10Exit(Sender: TObject);
    procedure Edit11Exit(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn10Click(Sender: TObject);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhi_cheng_chuan_jua: Tzhi_cheng_chuan_jua;

implementation
uses zhi_report,juan_ren_cha;
{$R *.dfm}

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

procedure Tzhi_cheng_chuan_jua.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tzhi_cheng_chuan_jua.Table1AfterScroll(DataSet: TDataSet);
begin
if table1.FieldByName('juan_no').AsString<>'' then
edit1.Text:=table1.FieldByName('juan_no').AsString
else
edit1.Text:='';
if table1.FieldByName('juan_date').AsString<>'' then
t1.Text:=table1.FieldByName('juan_date').AsString
else
t1.Text:='';
if table1.FieldByName('bumen').AsString<>'' then
combobox1.Text:=table1.FieldByName('bumen').AsString
else
combobox1.Text:='';
if table1.FieldByName('juan_manaage').AsString<>'' then
edit2.Text:=table1.FieldByName('juan_manaage').AsString
else
edit2.Text:='';

if table1.FieldByName('qian_shu').AsString<>'' then
edit7.Text:=table1.FieldByName('qian_shu').AsString
else
edit7.Text:='0';

if table1.FieldByName('huan_shu').AsString<>'' then
edit10.Text:=table1.FieldByName('huan_shu').AsString
else
edit10.Text:='0';

if table1.FieldByName('fei_shu').AsString<>'' then
edit11.Text:=table1.FieldByName('fei_shu').AsString
else
edit11.Text:='0';

if table1.FieldByName('bu_liang').AsString<>'' then
edit13.Text:=table1.FieldByName('bu_liang').AsString
else
edit13.Text:='';



begin
combobox1.Enabled:=false;
t1.ReadOnly:=true;
edit2.ReadOnly:=true;
dbcombobox4.ReadOnly:=true;
dbedit4.ReadOnly:=true;
dbedit7.ReadOnly:=true;
dbedit8.ReadOnly:=true;
edit10.ReadOnly:=true;
edit7.ReadOnly:=true;
edit11.ReadOnly:=true;

end;



end;

procedure Tzhi_cheng_chuan_jua.Table2AfterScroll(DataSet: TDataSet);
begin


begin


dbcombobox5.ReadOnly:=true;


dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;
dbcombobox1.ReadOnly:=true;
dbcombobox2.ReadOnly:=true;
dbcombobox3.ReadOnly:=true;
end;








end;

procedure Tzhi_cheng_chuan_jua.FormCreate(Sender: TObject);

begin








while not table8.Eof do begin
ComboBox1.Items.Add(table8.FieldByName('gong_xu').AsString);
table8.Next;
end;


{
query6.Close;
query6.SQL.Clear;
query6.SQL.Add('select * from  tue_dian');
query6.Open; }

while not table9.Eof do begin
dbComboBox5.Items.Add(table9.FieldByName('tue_dian_no').AsString);
table9.Next;
end;

 while not table4.Eof do begin
dbComboBox1.Items.Add(table4.FieldByName('juan_gong_name').AsString);
table4.Next;
end;


 while not table5.Eof do begin
dbComboBox2.Items.Add(table5.FieldByName('juan_fang_name').AsString);
table5.Next;
end;

 while not table6.Eof do begin
dbComboBox3.Items.Add(table6.FieldByName('juan_ren_name').AsString);
table6.Next;
end; 










label16.Visible:=false;
combobox1.Text:='';

edit1.Text:='';
edit2.Text:='';

edit4.Text:='';


edit7.Text:='';


edit10.Text:='';
edit11.Text:='';

bitbtn2.Enabled:=false;
 bitbtn8.Enabled:=false;
 bitbtn5.Enabled:=false;
  bitbtn6.Enabled:=false;
  speedbutton4.Enabled:=false;
   speedbutton5.Enabled:=false;
end;

procedure Tzhi_cheng_chuan_jua.SpeedButton1Click(Sender: TObject);
var id, mm,zz,yy,a,gg,ss1,ss2,hh,xws:string; b,c,j,k,x,i:integer;
begin

gg:=datetostr(date);
hh:=datetostr(date);
k:=length(gg);
table1.Last;
//query11.Close;
//query11.SQL.Clear;
//query11.SQL.Add('select max(juan_no) from zhi_chuan_juan_zhu');
//query11.Prepare;
//query11.Open;


id:=table1.FieldByName('juan_no').AsString;
yy:=table1.FieldByName('juan_no').AsString;
//id:=query11.Fields[0].AsString;
//yy:=query11.Fields[0].AsString;
table1.Append;
table1.Edit;
if id<>'' then
begin
c:=length(id);
j:=length(yy);
Delete(id,1,c-3);
a:=id;
Delete(yy,j-2,3);
//
Delete(gg,5,k-4);
ss1:=gg;
Delete(hh,1,5);
ss2:=hh;
x:=length(ss2);
i:=ansipos('/',ss2);
if i=2 then
begin
Delete(hh,2,x-1);
hh:='0'+hh;
if x<>4 then
begin
Delete(ss2,1,2);
ss2:='0'+ss2;
end
else
begin
Delete(ss2,1,2);
end;
end;
if i=3 then
begin
Delete(hh,3,x-2);
if x<>5 then
begin
Delete(ss2,1,3);
ss2:='0'+ss2;
end
else
begin
Delete(ss2,1,3);
end;
end;
xws:=ss1+hh+ss2;

//
zz:='J'+xws;
if zz=yy then
b:=strtoint(a)+1
else
b:=1;
begin
if b<10 then
mm:='J'+xws+'0'+'0'+inttostr(b)
else
if (b>=10) and (b<100) then
mm:='J'+xws+'0'+inttostr(b)
else
if b>=100 then
mm:='J'+xws+inttostr(b);
end;
end
else
begin
mm:='J'+xws+'001';
end;


table1.FieldByName('juan_no').AsString:=mm;
table1.FieldByName('juan_date').AsDateTime:=date;
table1.FieldByName('shu_dan_ren').AsString:=label16.Caption;
edit1.Text:=mm;
edit2.Text:='独ド地';
t1.Text:=datetostr(date);
edit4.Text:=label16.Caption;

//end
begin
combobox1.Enabled:=true;
t1.ReadOnly:=false;
edit2.ReadOnly:=false;
dbcombobox4.ReadOnly:=false;
bitbtn2.Enabled:=true;
speedbutton4.Enabled:=true;
speedbutton1.Enabled:=false;
bitbtn1.Enabled:=false;
dbnavigator1.Enabled:=false;
speedbutton2.Enabled:=false;
bitbtn3.Enabled:=false;
bitbtn7.Enabled:=false;
bitbtn9.Enabled:=false;
bitbtn4.Enabled:=false;

DBNavigator2.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
speedbutton3.Enabled:=false;
dbedit4.ReadOnly:=false;

edit10.ReadOnly:=false;
edit7.ReadOnly:=false;
edit11.ReadOnly:=false;
dbedit7.ReadOnly:=false;
dbedit8.ReadOnly:=false;
dbedit4.SetFocus;

end;
end;

procedure Tzhi_cheng_chuan_jua.BitBtn2Click(Sender: TObject);
begin
if combobox1.Text='' then
begin
showmessage('ネ玻舱