qc_xin_juan_cha.pas

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

unit qc_xin_juan_cha;

interface

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

type
  Tqc_xin_juan_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 ComboBox1Click(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qc_xin_juan_ch: Tqc_xin_juan_ch;

implementation
uses excel;
{$R *.dfm}

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

procedure Tqc_xin_juan_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;
if (combobox1.ItemIndex=5) or (combobox1.ItemIndex=6) then
begin
combobox2.Visible:=false;
edit1.Enabled:=true;

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



end;

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

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

procedure Tqc_xin_juan_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 Tqc_xin_juan_ch.t2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
button1.SetFocus;
end;

procedure Tqc_xin_juan_ch.Button1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
0:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where A.xin_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 Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where (A.xin_date>=:mm) and (A.xin_date<=:nn) and (A.bumen like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.xin_date');

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 Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where (A.xin_date>=:mm) and (A.xin_date<=:nn)');
query1.SQL.Add('order by A.xin_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 Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where (A.xin_date>=:mm) and (A.xin_date<=:nn) and (B.ding_dan_no like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.xin_date');

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 Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where (A.xin_date>=:mm) and (A.xin_date<=:nn) and (B.pin_name like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.xin_date');
query1.ParamByName('mm').asdatetime:=strtodate(t1.Text);
query1.ParamByName('nn').asdatetime:=strtodate(t2.Text);

query1.Prepare;
query1.Active:=true;
end;
5:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where (A.xin_date>=:mm) and (A.xin_date<=:nn) and (B.mao_shu like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.xin_date');
query1.ParamByName('mm').asdatetime:=strtodate(t1.Text);
query1.ParamByName('nn').asdatetime:=strtodate(t2.Text);

query1.Prepare;
query1.Active:=true;
end;
6:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where (A.xin_date>=:mm) and (A.xin_date<=:nn) and (A.xin_ren like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.xin_date');
query1.ParamByName('mm').asdatetime:=strtodate(t1.Text);
query1.ParamByName('nn').asdatetime:=strtodate(t2.Text);

query1.Prepare;
query1.Active:=true;
end;

end;
end;

procedure Tqc_xin_juan_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 Qc_xin_zhu A inner join Qc_xin_chong B on A.xin_no=B.xin_no where A.xin_no=:kk');
exce.query1.ParamByName('kk').asstring:=edit1.Text;
exce.query1.Prepare;
exce.query1.Active:=true;

exce.sjbname:='QCǖ喷厨