u_filterfrm.~pas

给一个企业做的产品展示系统,很好的展示了产品的各种功能

unit U_FilterFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TFilterFrm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edtNumber: TEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FilterFrm: TFilterFrm;

  procedure ShowFilterDlg;

implementation

uses U_DataModule, U_MainFrm;

{$R *.dfm}
procedure ShowFilterDlg;
begin
  if FilterFrm = nil then
    FilterFrm := TFilterFrm.Create(application);
  FilterFrm.edtNumber.Clear;  
  FilterFrm.Show;
end;

procedure TFilterFrm.Button2Click(Sender: TObject);
begin
  if Length(Trim(edtNumber.Text)) = 0 then Exit;
// Tag := 1;
 //Close;
  MainFrm.FilterProduct(edtNumber.Text);
end;

end.