zhi_cheng_cha.~pas

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

unit zhi_cheng_cha;

interface

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

type
  Tzhi_cheng_ch = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button5: TButton;
    t1: TMaskEdit;
    t2: TMaskEdit;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Table1: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhi_cheng_ch: Tzhi_cheng_ch;

implementation
uses excel;
{$R *.dfm}

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

procedure Tzhi_cheng_ch.Button1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
0:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where A.juan_no=:kk');
query1.ParamByName('kk').asstring:=edit1.Text;
query1.Prepare;
query1.Active:=true;
end;
1:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where (A.bumen=:vv) and (A.juan_date>=:mm) and (A.juan_date<=:nn)');
query1.SQL.Add('order by A.juan_date');
query1.ParamByName('vv').AsString:=combobox2.Text;
query1.ParamByName('mm').AsDateTime:=strtodate(t1.Text);
query1.ParamByName('nn').AsDateTime:=strtodate(t2.Text);

query1.Prepare;
query1.Active:=true;

end;
2:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where  (A.juan_date>=:mm) and (A.juan_date<=:nn)');
query1.SQL.Add('order by A.juan_date');
query1.ParamByName('mm').AsDateTime:=strtodate(t1.Text);
query1.ParamByName('nn').AsDateTime:=strtodate(t2.Text);
query1.Prepare;
query1.Active:=true;

end;
3:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where (B.ding_dan_no=:oo) and (A.juan_date>=:mm) and (A.juan_date<=:nn)');
query1.SQL.Add('order by A.juan_date');
query1.ParamByName('oo').AsString:=edit1.Text;
query1.ParamByName('mm').AsDateTime:=strtodate(t1.Text);
query1.ParamByName('nn').AsDateTime:=strtodate(t2.Text);
query1.Prepare;
query1.Active:=true;

end;
4:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where (B.ng_things like''%'+edit1.Text+'%'') and (A.juan_date>=:mm) and (A.juan_date<=:nn)');
query1.SQL.Add('order by A.juan_date');
query1.ParamByName('mm').asdatetime:=strtodate(t1.Text);
query1.ParamByName('nn').asdatetime:=strtodate(t2.Text);

query1.Prepare;
query1.Active:=true;

end;

end;


end;

procedure Tzhi_cheng_ch.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex=0 then
begin
combobox2.Visible:=false;
edit1.Enabled:=true;
t1.Enabled:=false;
t2.Enabled:=false;
edit1.SetFocus;
end;
if (combobox1.ItemIndex=1) then
begin
combobox2.Visible:=true;
edit1.Enabled:=false;
t1.Enabled:=true;

t2.Enabled:=true;
combobox2.SetFocus;
end;

if  combobox1.ItemIndex=2 then
begin
combobox2.Visible:=false;
edit1.Enabled:=false;

t1.Enabled:=true;
t2.Enabled:=true;
t1.SetFocus;
end;

if (combobox1.ItemIndex=3) or (combobox1.ItemIndex=4) then
begin
combobox2.Visible:=false;
edit1.Enabled:=true;

t1.Enabled:=true;
t2.Enabled:=true;
edit1.SetFocus;
end;




end;

procedure Tzhi_cheng_ch.ComboBox2Click(Sender: TObject);
begin
if t1.CanFocus then
t1.SetFocus;
end;

procedure Tzhi_cheng_ch.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
if t1.CanFocus then
t1.SetFocus
else
button1.SetFocus;
end;
end;

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

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

procedure Tzhi_cheng_ch.Button5Click(Sender: TObject);
var exce:Texce;
begin
exce:=Texce.Create(self);
case combobox1.ItemIndex of
0:
begin
exce.query1.Active:=false;
exce.query1.SQL.Clear;
exce.query1.SQL.Add('select A.*,B.* from zhi_chuan_juan_zhu A inner join zhi_chuan_juan_chong B on A.juan_no=B.juan_no where A.juan_no=:kk');
exce.query1.ParamByName('kk').asstring:=edit1.Text;
exce.query1.Prepare;
exce.query1.Active:=true;
exce.sjbname:='