wu_select.pas

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

unit wu_select;

interface

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

type
  Twu_selec = class(TForm)
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
  xws:string;   { Public declarations }
  end;

var
  wu_selec: Twu_selec;
   dl,xl: string;
implementation
uses qing_gou_wei;
{$R *.dfm}

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

procedure Twu_selec.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure Twu_selec.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=chr(13) then
     begin
      query1.DisableControls ;
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add('select "FMNO","FMNAME","FMGUID","FUNIT" from "dbo"."t_material" where ');
      query1.SQL.add('"t_material"."FMNAME" LIKE ''%'+edit1.text+'%''');
      query1.Prepare;
      query1.Open;
      query1.EnableControls;
     end;
end;

procedure Twu_selec.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
     begin
        query1.Close;
        query1.SQL.Clear;
      if query1.SQL.Text='' then
        begin
        query1.DisableControls ;
        query1.Close;
        query1.SQL.Clear;
        query1.SQL.Add('select "FMNO","FMNAME","FMGUID","FUNIT" from "dbo"."t_material" where ');
        query1.SQL.add('"t_material"."FMNAME" LIKE ''%'+edit1.text+'%''');
        query1.SQL.Add(' and FMGUID like ''%'+edit2.Text+'%''');
        query1.Prepare;
        query1.Open;
        query1.EnableControls;
        end

     end;
end;

procedure Twu_selec.ComboBox2Change(Sender: TObject);
var asql:string;
begin
 if combobox2.text='砋' then
    asql:=' "t_material"."FMNO" > '''+'B110000000'+''' AND "t_material"."FMNO" < '''+'B310000000'+'''';
 if combobox2.text='舶/絚' then
    asql:=' "t_material"."FMNO" > '''+'B310000000'+''' AND "t_material"."FMNO" < '''+'B450000000'+'''';
if combobox2.text='溅