ufform.pas

来自「delphi编程控件」· PAS 代码 · 共 66 行

unit ufform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  adbgrid, DBCtrls, ExtCtrls, StdCtrls, Buttons, afforms;

type
  TFAFilterForm = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    AutoDBGrid1: TAutoDBGrid;
    BitBtn1: TBitBtn;
    AutoFilterForm1: TAutoFilterForm;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure AutoFilterForm1Close(Sender: TObject; AClose: Boolean);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FAFilterForm: TFAFilterForm;

implementation

uses udm;

{$R *.DFM}

procedure TFAFilterForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  FAFilterForm := Nil;
end;

procedure TFAFilterForm.Button1Click(Sender: TObject);
begin
  AutoFilterForm1.Active := True;
end;

procedure TFAFilterForm.AutoFilterForm1Close(Sender: TObject;
  AClose: Boolean);
begin
  Edit1.Text := AutoFilterForm1.DataSet.Filter;
  Edit2.Text := IntToStr(AutoFilterForm1.DataSet.RecordCount);
end;

procedure TFAFilterForm.FormDestroy(Sender: TObject);
begin
  if Not (csDestroying in DM.ComponentState) then
    DM.ATReservat.Filter := '';
end;

end.