dutyfrm.pas

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

unit DutyFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DepartmentFrm, Menus, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

resourcestring
  sDelete='这是一个空表,不能用删除命令!';

type
  TDutyForm = class(TDepartMentForm)
    procedure pmiAddClick(Sender: TObject);
    procedure pmiEditClick(Sender: TObject);
    procedure pmiDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DutyForm: TDutyForm;

implementation

uses unDM2, DutyEditFrm, Dialog;

{$R *.DFM}

procedure TDutyForm.pmiAddClick(Sender: TObject);
begin
  DutyEditForm:=TDutyEditForm.Create(Self);
  DutyEditForm.showModalPopup(0);
end;

procedure TDutyForm.pmiEditClick(Sender: TObject);
begin
  DutyEditForm:=TDutyEditForm.Create(Self);
  DutyEditForm.showModalPopup(1);
end;

procedure TDutyForm.pmiDeleteClick(Sender: TObject);
begin
  if DM2.tblDuty.IsEmpty then
    Dialog.messagedlg(Pchar(sDelete),mtinformation,[mbOK],0)
  else
    DM2.tblDuty.delete;
end;

end.