wu_liao_ji_cha.pas

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

unit wu_liao_ji_cha;

interface

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

type
  Twu_liao_ji_ch = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button2: TButton;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wu_liao_ji_ch: Twu_liao_ji_ch;

implementation

{$R *.dfm}

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

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

procedure Twu_liao_ji_ch.FormActivate(Sender: TObject);
begin
combobox1.SetFocus;
end;

procedure Twu_liao_ji_ch.FormCreate(Sender: TObject);
begin
combobox1.Text:='';
edit1.Text:='';
end;

procedure Twu_liao_ji_ch.ComboBox1Click(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure Twu_liao_ji_ch.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
edit1.SetFocus;
end;

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

procedure Twu_liao_ji_ch.Button1Click(Sender: TObject);
var n:integer;  xws:string;
begin
n:=length(edit1.Text);
xws:=midstr(edit1.Text,1,n)+'*';
case combobox1.ItemIndex of
0:
begin
table1.Active:=false;
table1.Filter:='fmno = ' + QuotedStr(xws);
table1.Filtered:=true;
table1.Active:=true;
end;
1:
begin
table1.Active:=false;
table1.Filter:='fmname = ' + QuotedStr(xws);
table1.Filtered:=true;
table1.Active:=true;
end;
2:
begin
table1.Active:=false;
table1.Filter:='FMGUID = ' + QuotedStr(xws);
table1.Filtered:=true;
table1.Active:=true;

end;
3:
begin
table1.Active:=false;
table1.Filter:='fkind = ' + QuotedStr(xws);
table1.Filtered:=true;
table1.Active:=true;

end;
end;

end;

end.