gmright.pas

delphi通用信息管理系统源码 供学习使用

unit GMright;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, Db, DBTables;

type
  TSetRight = class(TForm)
    SrcList: TListBox;
    DstList: TListBox;
    SrcLabel: TLabel;
    DstLabel: TLabel;
    IncludeBtn: TSpeedButton;
    IncAllBtn: TSpeedButton;
    ExcludeBtn: TSpeedButton;
    ExAllBtn: TSpeedButton;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    HelpBtn: TBitBtn;
    AllMenu: TTable;
    Security: TTable;
    procedure IncludeBtnClick(Sender: TObject);
    procedure ExcludeBtnClick(Sender: TObject);
    procedure IncAllBtnClick(Sender: TObject);
    procedure ExcAllBtnClick(Sender: TObject);
    procedure MoveSelected(List: TCustomListBox; Items: TStrings);
    procedure SetItem(List: TListBox; Index: Integer);
    function GetFirstSelection(List: TCustomListBox): Integer;
    procedure SetButtons;
    procedure FormCreate(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetRight: TSetRight;
  MenuCount:integer;
implementation
uses GMMSmain; 
{$R *.DFM}

procedure TSetRight.IncludeBtnClick(Sender: TObject);
var
  Index: Integer;
begin
  Index := GetFirstSelection(SrcList);
  MoveSelected(SrcList, DstList.Items);
  SetItem(SrcList, Index);
end;

procedure TSetRight.ExcludeBtnClick(Sender: TObject);
var
  Index: Integer;
begin
  Index := GetFirstSelection(DstList);
  MoveSelected(DstList, SrcList.Items);
  SetItem(DstList, Index);
end;

procedure TSetRight.IncAllBtnClick(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to SrcList.Items.Count - 1 do
    DstList.Items.AddObject(SrcList.Items[I], 
      SrcList.Items.Objects[I]);
  SrcList.Items.Clear;
  SetItem(SrcList, 0);
end;

procedure TSetRight.ExcAllBtnClick(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to DstList.Items.Count - 1 do
    SrcList.Items.AddObject(DstList.Items[I], DstList.Items.Objects[I]);
  DstList.Items.Clear;
  SetItem(DstList, 0);
end;

procedure TSetRight.MoveSelected(List: TCustomListBox; Items: TStrings);
var
  I: Integer;
begin
  for I := List.Items.Count - 1 downto 0 do
    if List.Selected[I] then
    begin
      Items.AddObject(List.Items[I], List.Items.Objects[I]);
      List.Items.Delete(I);
    end;
end;

procedure TSetRight.SetButtons;
var
  SrcEmpty, DstEmpty: Boolean;
begin
  SrcEmpty := SrcList.Items.Count = 0;
  DstEmpty := DstList.Items.Count = 0;
  IncludeBtn.Enabled := not SrcEmpty;
  IncAllBtn.Enabled := not SrcEmpty;
  ExcludeBtn.Enabled := not DstEmpty;
  ExAllBtn.Enabled := not DstEmpty;
end;

function TSetRight.GetFirstSelection(List: TCustomListBox): Integer;
begin
  for Result := 0 to List.Items.Count - 1 do
    if List.Selected[Result] then Exit;
  Result := LB_ERR;
end;

procedure TSetRight.SetItem(List: TListBox; Index: Integer);
var
  MaxIndex: Integer;
begin
  with List do
  begin
    SetFocus;
    MaxIndex := List.Items.Count - 1;
    if Index = LB_ERR then Index := 0
    else if Index > MaxIndex then Index := MaxIndex;
    Selected[Index] := True;
  end;
  SetButtons;
end;

procedure TSetRight.FormCreate(Sender: TObject);
var
  str:String;
begin
  allmenu.Open;
  allmenu.First;
  MenuCount:=allmenu.RecordCount;
  while not allmenu.Eof do
    begin
      str:=allmenu.FieldByName('Flag').AsString+'-'+allmenu.FieldByName('Content').AsString;
      srcList.Items.Add(str);
      allmenu.Next;
    end;
  allmenu.Close;
end;

procedure TSetRight.CancelBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TSetRight.OKBtnClick(Sender: TObject);
var
  i:Integer;
begin
  gmUnRight:='';
  for i:=0 to DstList.Items.Count-1 do
    gmUnRight:=gmUnRight+'-'+Copy(DstList.Items[I],1,4);
  security.Open;
  security.SetKey ;
  security.FieldByName('UserName').AsString:=gmUserName;
  if security.GotoKey then
    begin
      security.Edit;
      security.FieldByName('UnRight').AsString:=gmUnRight;
      security.Post;
    end
  else
    begin
      security.Append;
      security.Edit;
      security.FieldByName('UserName').AsString:=gmUserName;
      security.FieldByName('Password').AsString:=gmPassword;
      security.FieldByName('UnRight').AsString:=gmUnRight;
      security.Post;
    end;
  security.Close;
end;

end.