departmenteditfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit DepartmentEditFrm;

interface

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

type
  TDepartmentEditForm = class(TForm)
    bbtnConfirm: TBitBtn;
    bbtnCancel: TBitBtn;
    bbtnAdd: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnConfirmClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnAddClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    procedure ShowModalPopup(popup: integer);
    { Public declarations }
  end;

var
  DepartmentEditForm: TDepartmentEditForm;

implementation

uses unDM2, Globals;

{$R *.DFM}

procedure TDepartmentEditForm.ShowModalPopup(popup : integer);
begin
  case popup of
    0: begin
        bbtnAdd.Visible:=true;
        DM2.tblDepartment.append;
        ShowModal;
       end;
    1: begin
        bbtnAdd.Visible:=false;
        DM2.tblDepartment.edit;
        ShowModal;
       end;
  end;
end;

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

procedure TDepartmentEditForm.bbtnConfirmClick(Sender: TObject);
begin
  DM2.tblDepartment.Post;
  DepartmentEditForm.close;
end;

procedure TDepartmentEditForm.bbtnCancelClick(Sender: TObject);
begin
  DM2.tblDepartment.Cancel;
  DepartmentEditForm.close;
end;

procedure TDepartmentEditForm.bbtnAddClick(Sender: TObject);
begin
  DM2.tblDepartment.append;
  Dbedit1.SetFocus;
end;

procedure TDepartmentEditForm.FormDestroy(Sender: TObject);
begin
  DepartmentEditForm:=nil;
end;

procedure TDepartmentEditForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := DM2.DataSetApplyUpdates(DM2.tblDepartment, ModalResult = mrOK);
end;

end.