copypieceworkfrm.pas

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

unit CopyPieceWorkFrm;

interface

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

type
  TCopyPieceWorkForm = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    cbCopy1: TCheckBox;
    cbCopy2: TCheckBox;
    cbCopy3: TCheckBox;
    cbCopy4: TCheckBox;
    cbCopy5: TCheckBox;
    cbCopy6: TCheckBox;
    cbCopy7: TCheckBox;
    cbCopy8: TCheckBox;
    cbCopy9: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    Fcopy:array[0..8] of boolean;
    function GetCopy(Index:Integer):Boolean;
    procedure SetCopy(Index:Integer;ACopy:Boolean);
    { Private declarations }
  public
    property Copy[Index:Integer] : Boolean Read GetCopy Write SetCopy;
    { Public declarations }
  end;

var
  CopyPieceWorkForm: TCopyPieceWorkForm;

implementation

{$R *.DFM}

function TCopyPieceWorkForm.GetCopy(Index : Integer) : Boolean;
Begin
  Result := FCopy[Index];
end;

Procedure TCopyPieceWorkForm.SetCopy(Index:Integer; Acopy:Boolean);
begin
  FCopy[Index]:=ACopy;
end;

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

procedure TCopyPieceWorkForm.FormDestroy(Sender: TObject);
begin
  CopyPieceWorkForm:=nil;
end;

end.