projectfilterfrm.pas

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

unit ProjectFilterFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls;

type
  TProjectFilterForm = class(TForm)
    btConfirm: TButton;
    btCancel: TButton;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    btAddition: TButton;
    btModfily: TButton;
    btDelete: TButton;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure btAdditionClick(Sender: TObject);
    procedure btModfilyClick(Sender: TObject);
    procedure btDeleteClick(Sender: TObject);
    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 GetFilterName:Integer;
  public
    { Public declarations }
    property FilterName: Integer read GetFilterName;
    function ShowModalFilterNo(): Integer;
  end;

var
  ProjectFilterForm: TProjectFilterForm;

implementation

uses unDM2, FilterProjectFrm;

{$R *.DFM}

function TProjectFilterForm.ShowModalFilterNo(): Integer;
begin
  Result := ShowModal;
end;

function TProjectFilterForm.GetFilterName:Integer;
begin
  Result:=DM2.tblProjectFilterFilterNo.Value;
end;

procedure TProjectFilterForm.DBGrid1DblClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TProjectFilterForm.btAdditionClick(Sender: TObject);
begin
  FilterProjectForm:=TFilterProjectForm.Create(Self);
  FilterProjectForm.ShowModalPopup(0);
end;

procedure TProjectFilterForm.btModfilyClick(Sender: TObject);
begin
  FilterProjectForm:=TFilterProjectForm.Create(Self);
  FilterProjectForm.ShowModalPopup(1);
end;

procedure TProjectFilterForm.btDeleteClick(Sender: TObject);
begin
  DM2.tblProjectFilter.Delete;
end;

procedure TProjectFilterForm.FormDestroy(Sender: TObject);
begin
  ProjectFilterForm:=Nil;
end;

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

procedure TProjectFilterForm.FormCreate(Sender: TObject);
begin
  Dm2.tblProjectFilter.Open;
end;

procedure TProjectFilterForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
//  Dm2.tblProjectFilter.Close;
end;

end.