lai_liao_juan_cha.pas

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

unit lai_liao_juan_cha;

interface

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

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

var
  lai_liao_juan_ch: Tlai_liao_juan_ch;

implementation
 uses excel;
{$R *.dfm}

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

procedure Tlai_liao_juan_ch.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tlai_liao_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:=false;
edit1.Enabled:=true;
t1.Enabled:=true;

t2.Enabled:=true;
edit1.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 then
begin
combobox2.Visible:=false;
edit1.Enabled:=true;

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

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

t1.Enabled:=true;
t2.Enabled:=true;
edit1.SetFocus;
end;
if combobox1.ItemIndex=5 then
begin
combobox2.Visible:=false;
edit1.Enabled:=true;

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

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

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





end;

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

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

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

procedure Tlai_liao_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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE A.nian_shou_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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE (A.nian_shou_date>=:mm) and (A.nian_shou_date<=:nn) and  (A.gong_shang like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.nian_shou_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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE (A.nian_shou_date>=:mm) and (A.nian_shou_date<=:nn)');
query1.SQL.Add('order by A.nian_shou_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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE (B.ding_gou_no like ''%'+edit1.Text+'%'')');
//query1.SQL.Add('order by A.nian_shou_date');
query1.ParamByName('kk').AsString:=edit1.Text;

query1.Prepare;
query1.Active:=true;

end;
4:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select A.*,B.* from nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE (A.nian_shou_date>=:mm) and (A.nian_shou_date<=:nn) and (B.wu_no like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.nian_shou_date');
//query1.ParamByName('kk').AsString:=edit1.Text;
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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE (A.nian_shou_date>=:mm) and (A.nian_shou_date<=:nn) and (B.wu_name like''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.nian_shou_date');
//query1.ParamByName('kk').AsString:=edit1.Text;
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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE (A.nian_shou_date>=:mm) and (A.nian_shou_date<=:nn) and (A.nian_shou_ren like ''%'+edit1.Text+'%'')');
query1.SQL.Add('order by A.nian_shou_date');
//query1.ParamByName('kk').AsString:=edit1.Text;
query1.ParamByName('mm').asdatetime:=strtodate(t1.Text);
query1.ParamByName('nn').asdatetime:=strtodate(t2.Text);
query1.Prepare;
query1.Active:=true;
end;

end;

end;

procedure Tlai_liao_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 nian_shou_wei_zhu A inner join nian_shou_wei_chong B on A.nian_shou_no=B.nian_shou_no WHERE A.nian_shou_no=:kk');
exce.query1.ParamByName('kk').asstring:=edit1.Text;
exce.query1.Prepare;
exce.query1.Active:=true;
exce.sjbname:='ㄓ