modiaccreditfrm.pas

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

unit ModiAccreditFrm;

interface

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

type
  TModiAccreditForm = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    ActionList2: TActionList;
    backup: TAction;
    restore: TAction;
    accredit: TAction;
    department: TAction;
    emptype: TAction;
    employ: TAction;
    workpro: TAction;
    expression: TAction;
    makeNo: TAction;
    project: TAction;
    piecework: TAction;
    laborage: TAction;
    Report: TAction;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    BasePay: TAction;
    procedure backupExecute(Sender: TObject);
    procedure restoreExecute(Sender: TObject);
    procedure accreditExecute(Sender: TObject);
    procedure departmentExecute(Sender: TObject);
    procedure emptypeExecute(Sender: TObject);
    procedure employExecute(Sender: TObject);
    procedure workproExecute(Sender: TObject);
    procedure expressionExecute(Sender: TObject);
    procedure makeNoExecute(Sender: TObject);
    procedure projectExecute(Sender: TObject);
    procedure pieceworkExecute(Sender: TObject);
    procedure laborageExecute(Sender: TObject);
    procedure ReportExecute(Sender: TObject);
    procedure BasePayExecute(Sender: TObject);
  private
    { Private declarations }
    NewAccredit:Integer;
    function GetAccredit: Integer;
    procedure SetAccredit(oldAccredit: Integer);
  public
    { Public declarations }
    property FAccredit: Integer read GetAccredit write SetAccredit;
  end;

var
  ModiAccreditForm: TModiAccreditForm;

implementation

uses Globals;

{$R *.DFM}

function TModiAccreditForm.GetAccredit: Integer;
begin
  Result := NewAccredit;
end;

procedure TModiAccreditForm.SetAccredit(oldAccredit: Integer);
var
  i, laccredit:integer;
begin
  laccredit:=oldAccredit;
  NewAccredit:=oldAccredit;
  for i:=0 to actionlist2.ActionCount-1 do begin
//          TAction(ActionList2.Actions[i]).Checked:=False;
    case i of
      0:begin
        if (laccredit and 1)=1 then
          backup.Checked:=True
        else
          backup.Checked:=False;
      end;
      1:begin
        if (laccredit and 1)=1 then
          restore.Checked:=True
        else
          restore.Checked:=False;
      end;
      2:begin
        if (laccredit and 1)=1 then
          accredit.Checked:=True
        else
          accredit.Checked:=False;
      end;
      3:begin
        if (laccredit and 1)=1 then
          department.Checked:=True
        else
          department.Checked:=False;
      end;
      4:begin
        if (laccredit and 1)=1 then
          emptype.Checked:=True
        else
          emptype.Checked:=False;
      end;
      5:begin
        if (laccredit and 1)=1 then
          employ.Checked:=True
        else
          employ.Checked:=False;
      end;
      6:begin
        if (laccredit and 1)=1 then
          workpro.Checked:=True
        else
          workpro.Checked:=False;
      end;
      7:begin
        if (laccredit and 1)=1 then
          expression.Checked:=True
        else
          expression.Checked:=False;
      end;
      8:begin
        if (laccredit and 1)=1 then
          makeNo.Checked:=True
        else
          makeNo.Checked:=False;
      end;
      9:begin
        if (laccredit and 1)=1 then
          project.Checked:=True
        else
          project.Checked:=False;
      end;
      10:begin
        if (laccredit and 1)=1 then
          piecework.Checked:=True
        else
          piecework.Checked:=False;
      end;
      11:begin
        if (laccredit and 1)=1 then
          laborage.Checked:=True
        else
          laborage.Checked:=False;
      end;
      12:begin
        if (laccredit and 1)=1 then
          Report.Checked:=True
        else
          Report.Checked:=False;
      end;
      13:begin
        if (laccredit and 1)=1 then begin
          GetText:=True;
          BasePay.Checked:=True;
        end else begin
          GetText:=False;
          BasePay.Checked:=False;
        end;
      end;
    end;
    Laccredit:=laccredit shr 1;
  end;
end;

procedure TModiAccreditForm.backupExecute(Sender: TObject);
begin
  if backup.Checked then
    NewAccredit:=(NewAccredit and 8190)
  else
    NewAccredit:=(NewAccredit or 1)
end;

procedure TModiAccreditForm.restoreExecute(Sender: TObject);
begin
  if restore.Checked then
    NewAccredit:=(NewAccredit and 8189)
  else
    NewAccredit:=(NewAccredit or 2)
end;

procedure TModiAccreditForm.accreditExecute(Sender: TObject);
begin
  if accredit.Checked then
    NewAccredit:=(NewAccredit and 8187)
  else
    NewAccredit:=(NewAccredit or 4)
end;

procedure TModiAccreditForm.departmentExecute(Sender: TObject);
begin
  if department.Checked then
    NewAccredit:=(NewAccredit and 8183)
  else
    NewAccredit:=(NewAccredit or 8)
end;

procedure TModiAccreditForm.emptypeExecute(Sender: TObject);
begin
  if emptype.Checked then
    NewAccredit:=(NewAccredit and 8175)
  else
    NewAccredit:=(NewAccredit or 16)
end;

procedure TModiAccreditForm.employExecute(Sender: TObject);
begin
  if employ.Checked then
    NewAccredit:=(NewAccredit and 8159)
  else
    NewAccredit:=(NewAccredit or 32)
end;

procedure TModiAccreditForm.workproExecute(Sender: TObject);
begin
  if workpro.Checked then
    NewAccredit:=(NewAccredit and 8127)
  else
    NewAccredit:=(NewAccredit or 64)
end;

procedure TModiAccreditForm.expressionExecute(Sender: TObject);
begin
  if expression.Checked then
    NewAccredit:=(NewAccredit and 8063)
  else
    NewAccredit:=(NewAccredit or 128)
end;

procedure TModiAccreditForm.makeNoExecute(Sender: TObject);
begin
  if makeNo.Checked then
    NewAccredit:=(NewAccredit and 7935)
  else
    NewAccredit:=(NewAccredit or 256)
end;

procedure TModiAccreditForm.projectExecute(Sender: TObject);
begin
  if project.Checked then
    NewAccredit:=(NewAccredit and 7679)
  else
    NewAccredit:=(NewAccredit or 512)
end;

procedure TModiAccreditForm.pieceworkExecute(Sender: TObject);
begin
  if piecework.Checked then
    NewAccredit:=(NewAccredit and 7167)
  else
    NewAccredit:=(NewAccredit or 1024)
end;

procedure TModiAccreditForm.laborageExecute(Sender: TObject);
begin
  if laborage.Checked then
    NewAccredit:=(NewAccredit and 6143)
  else
    NewAccredit:=(NewAccredit or 2048)
end;

procedure TModiAccreditForm.ReportExecute(Sender: TObject);
begin
  if Report.Checked then
    NewAccredit:=(NewAccredit and 4095)
  else
    NewAccredit:=(NewAccredit or 4096)
end;

procedure TModiAccreditForm.BasePayExecute(Sender: TObject);
begin
  if BasePay.Checked then
    NewAccredit:=(NewAccredit and 8191)
  else
    NewAccredit:=(NewAccredit or 8192)
end;

end.