frm_s_subrightpas.pas

是一个用delphi设计的考勤系统

unit frm_s_subrightpas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, StdCtrls, CheckLst, Menus, ExtCtrls, UTGroup;

type
   Tfrm_s_subright = class(TMyModalForm)
      clbSubRight: TCheckListBox;
      clbSubRight1: TCheckListBox;
      procedure FormCreate(Sender: TObject);
      procedure clbSubRightDblClick(Sender: TObject);
      procedure FormShow(Sender: TObject);
      procedure clbSubRightClickCheck(Sender: TObject);
   private
    { Private declarations }
      procedure ShowRight;
   public
      ParentRight: string;
      Group: TGroup;
    { Public declarations }
   end;

var
   frm_s_subright: Tfrm_s_subright;

implementation

uses DM_DataModal, frm_s_endRightpas;


{$R *.dfm}

procedure Tfrm_s_subright.FormCreate(Sender: TObject);
var
   i: integer;
   j: integer;
begin
   inherited;
end;

procedure Tfrm_s_subright.clbSubRightDblClick(Sender: TObject);
begin
   inherited;
   if clbSubRight.ItemIndex > -1 then
   begin
      frm_s_endright := Tfrm_s_endright.Create(self);
      frm_s_endright.ParentRight := clbsubRight1.Items.Strings[clbsubRight.ItemIndex];
      frm_s_endright.Group := Group;
      frm_s_endright.ShowModal;
      frm_s_endright.Free;
      ShowRight;
   end;
end;

procedure Tfrm_s_subright.ShowRight;
var
   i: integer;
   s: string;
   j: integer;
begin
   inherited;
   clbSubRight.Items.Clear;
   clbSubRight1.Items.Clear;
   for i := 0 to group.RightCount - 1 do
   begin
      if (length(group.RecGRight[i].RightNum) = 4) and
         (copy(group.RecGRight[i].RightNum, 1, 2) = ParentRight) then
      begin
         j := clbSubRight.Items.Add(group.RecGRight[i].RightMc);
         clbSubRight1.Items.Add(group.RecGRight[i].RightNum);
         if not group.RecGRight[i].Right then
            clbSubRight.State[j] := cbUnchecked
         else
         begin
            if group.RecGRight[i].RightCount = group.RecGRight[i].SubCount then
               clbSubRight.State[j] := cbchecked
            else
               clbSubRight.State[j] := cbGrayed;
         end;
      end;
   end;
end;

procedure Tfrm_s_subright.FormShow(Sender: TObject);
begin
   inherited;
   ShowRight;
end;

procedure Tfrm_s_subright.clbSubRightClickCheck(Sender: TObject);
begin
   inherited;
   if clbsubRight.ItemIndex > -1 then
   begin
      group.SetRight(clbsubRight1.Items.Strings[clbsubRight.ItemIndex],
         clbsubRight.Checked[clbsubRight.ItemIndex]);
      group.UpdateRecGRight;
   end;
end;

end.