gong_shang_cha.~pas

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

unit gong_shang_cha;

interface

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

type
  Tgong_shang_ch = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    SpeedButton4: TSpeedButton;
    BitBtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gong_shang_ch: Tgong_shang_ch;

implementation
uses excel;
{$R *.dfm}

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

procedure Tgong_shang_ch.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure Tgong_shang_ch.BitBtn1Click(Sender: TObject);
var str1:string;
begin
case combobox1.ItemIndex of
0:
begin
str1:=combobox2.Text+''''+edit1.Text+'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang where gong_shang_no'+str1;
query1.prepare;
 query1.open;
 end;
 1:
 begin
str1:=combobox2.Text+''''+edit1.Text+'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang where gong_computerno'+str1;
query1.prepare;
 query1.open;
 end;
 2:
begin
str1:=combobox2.Text+''''+edit1.Text+'''';
//str:=cob11.Text +cob12.Text +''''+edit1.Text +'''';
query1.close;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where gong_shang_name like ''%'+edit1.Text+'%''');
query1.prepare;
 query1.open;
 end;
 3:
begin
str1:=combobox2.Text+''''+datetostr(DateTimePicker1.Date)+'''';
query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang where gong_made_date'+str1;
query1.prepare;
 query1.open;
 end;
  4:
begin
query1.Active:=false;;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where gong_shang_adress like''%'+edit1.Text+'%''');
query1.Prepare;
 query1.Active:=true;
 end;
   5:
begin
query1.Active:=false;;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where cai_gou_things like''%'+edit1.Text+'%''');
query1.Prepare;
 query1.Active:=true;
 end;
    6:
begin
query1.Active:=false;;
query1.SQL.Clear ;
query1.SQL.Add('select * from gong_ying_shang where jing_ying_things like''%'+edit1.Text+'%''');
query1.Prepare;
 query1.Active:=true;
 end;

   

 end;
 if (combobox1.Text='') and (combobox2.Text='') then
 begin
 query1.close;
query1.SQL.Clear ;
query1.sql.Text:='select * from gong_ying_shang ';

         // DataSource1.DataSet :=query1;
  query1.prepare;
 query1.open;
 end;

end;

procedure Tgong_shang_ch.Button1Click(Sender: TObject);
var str1:string;
begin
exce:=Texce.Create(self);
case combobox1.ItemIndex of
0:
begin
str1:=combobox2.Text+''''+edit1.Text+'''';
exce.query1.close;
exce.query1.SQL.Clear ;
exce.query1.SQL.Add('select gong_computerno as''筿福絪腹'',gong_shang_name as''ㄑ坝