filterfrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 72 行

unit FilterFrm;

interface

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

type
  TFilterForm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    dblcDepartment: TDBLookupComboBox;
    edCode: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    function GetFilter:string;
  public
    { Public declarations }
    property Filter: string read GetFilter;
  end;

var
  FilterForm: TFilterForm;

implementation

uses unDM2;

{$R *.DFM}

function TFilterForm.GetFilter:string;
begin
  if (dblcDepartment.KeyValue=null) and (edCode.Text='') then
    ModalResult := mrCancel
  else if (dblcDepartment.KeyValue<>null) and (edCode.Text<>'') then
    Result:='Department='+IntToStr(dblcDepartment.KeyValue)+' and EmpCode='+''''+trim(edCode.Text)+''''
  else if (dblcDepartment.KeyValue<>null) and (edCode.Text='') then
    Result:='Department='+IntToStr(dblcDepartment.KeyValue)
  else if (dblcDepartment.KeyValue=null) and (edCode.Text<>'') then
    Result:='EmpCode='+''''+trim(edCode.Text)+''''
end;

procedure TFilterForm.FormDestroy(Sender: TObject);
begin
  FilterForm:=Nil;
end;

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

procedure TFilterForm.FormCreate(Sender: TObject);
begin
  Dm2.tblDepartment.open;
end;

procedure TFilterForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  Dm2.tblDepartment.Close;
end;

end.