문제가 해결되었습니다. 유용한 정보를 가르쳐줘서 고맙습니다.

cell wrote:

>

> 로그인시 DB에서 사용자 권한을 가져와서 각 메뉴의 활성화/비활성화를 하려 합니다.

> 예를 들면

> A, B, C, D 라는 메뉴가 있을때

> 1' 이라는 권한을 가지면 A, B의 메뉴만 활성화되고 나머지는 비활성화.

> 2' 라는 권한을 가지면 B, C메뉴만 활성화되는 것입니다.

> 메뉴가 적을때는 무식하고 코딩을 하면 되겠지만

> 양이 많을 경우 문제가 되네요.

> 좋은 방법을 알려주세요



사용자권한을 그룹으로 줄경우는 메뉴항목의 tag를 이용해서 활성/비활성하면 되고,

화면 하나 단위로 할경우는 권한테이블에 사용자번호, 화면명의 항목을 갖고

메뉴항목의 이름을 화면명과 같이 준뒤 활성/비활성 시키면 됩니다.



procedure TForm1.Button1Click(Sender: TObject);

var

intCnt: integer;

begin

// 화면내의 모든 콤포검색

For intCnt := 0 to Self.ComponentCount-1 do

begin

// 해당콤포가 메뉴인지 확인

if Components[intCnt] is TMenuItem then

// 메뉴면서 tag가 1이면 붉가능하게 만듬

if (Components[intCnt] as TMenuItem).Tag = 1 then

(Components[intCnt] as TMenuItem).Enabled := False;

end;

end;

cell wrote:

>

> 로그인시 DB에서 사용자 권한을 가져와서 각 메뉴의 활성화/비활성화를 하려 합니다.

> 예를 들면

> A, B, C, D 라는 메뉴가 있을때

> 1' 이라는 권한을 가지면 A, B의 메뉴만 활성화되고 나머지는 비활성화.

> 2' 라는 권한을 가지면 B, C메뉴만 활성화되는 것입니다.

> 메뉴가 적을때는 무식하고 코딩을 하면 되겠지만

> 양이 많을 경우 문제가 되네요.

> 좋은 방법을 알려주세요





가장 간단한 방법은 계정권한을 검사하여,



메뉴를 보이기/안보이기 하는 방법이 될거 같네요.



즐거운 프로그래밍 하시길~