wu_no_query.~pas

采购管理系统：delphi+sql实现了企业采购自动化作业流程

unit wu_no_query;

interface

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

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

var
  wu_no_quer: Twu_no_quer;

implementation
uses qing_gou_wei;
{$R *.dfm}

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

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

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

end;

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

procedure Twu_no_quer.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(edit1.Text);
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;

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

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

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

end.