ding_dan_cha.pas

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

unit ding_dan_cha;

interface

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

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

var
  ding_dan_ch: Tding_dan_ch;

implementation
uses excel;
{$R *.dfm}

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

procedure Tding_dan_ch.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex=0 then
begin

edit1.Enabled:=true;
t1.Enabled:=false;
t2.Enabled:=false;
edit1.SetFocus;
end;
if (combobox1.ItemIndex=1) then
begin

edit1.Enabled:=true;
t1.Enabled:=true;

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

if  combobox1.ItemIndex=2 then
begin

edit1.Enabled:=false;

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


if combobox1.ItemIndex=4 then
begin

edit1.Enabled:=true;

t1.Enabled:=true;
t2.Enabled:=true;
edit1.SetFocus;
end;
if (combobox1.ItemIndex=5) or (combobox1.ItemIndex=6) then
begin

edit1.Enabled:=true;

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


end;

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

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

procedure Tding_dan_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 Tding_dan_ch.Button1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
0:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dingdan1  where dh like''%'+edit1.text+'%''');
query1.Prepare;
query1.Active:=true;
end;
1:
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dingdan1  where (chr>=:mm) and (chr<=:nn) and (chang_hao like''%'+edit1.text+'%'')');
query1.SQL.Add('order by chr');

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 * from dingdan1  where (xdr>=:mm) and (xdr<=:nn)');
query1.SQL.Add('order by xdr');
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 * from dingdan1  where (chr>=:mm) and (chr<=:nn)');
query1.SQL.Add('order by chr');

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 * from dingdan1  where  (chr>=:mm) and (chr<=:nn) and (pm like ''%'+edit1.text+'%'')');
query1.SQL.Add('order by chr');
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 * from dingdan1  where  (chr>=:mm) and (chr<=:nn) and (gdr like ''%'+edit1.text+'%'')');
query1.SQL.Add('order by chr');
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 * from dingdan1  where  (chr>=:mm) and (chr<=:nn) and (zf1 like ''%'+edit1.text+'%'')');
query1.SQL.Add('order by chr');
query1.ParamByName('mm').asdatetime:=strtodate(t1.Text);
query1.ParamByName('nn').asdatetime:=strtodate(t2.Text);

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

end;
end;

procedure Tding_dan_ch.Button5Click(Sender: TObject);
begin
exce:=Texce.Create(self);
case combobox1.ItemIndex of
0:
begin
exce.query1.Active:=false;
exce.query1.SQL.Clear;
exce.query1.SQL.Add('select * from dingdan1  where dh like''%'+edit1.text+'%''');
exce.query1.Prepare;
exce.query1.Active:=true;
exce.sjbname:='璹虫戈