한국 델파이 개발자 모임 - 로그인정보에 따른 기능권한에 관한 질문입니다

로그인정보에 따른 기능권한에 관한 질문입니다

지금 관리프로그램을 만들고 있는중이거든요

그런데 로그인 정보에 따라서 메인메뉴기능을 분류하고 싶은데 어떻게 해야할지 모르겠어요

우선 로그인정보구분은 컴보박스에서 구분은 지어서, 컴보박스정보를 받아서 메인메뉴의 submenu들의 속성을 enable한다든지 disable한다든지 하는 것을 구분을 하고자 하는데 어케 하는지 몰라서 질문합니다 .. .

<로그인 폼 >

unit LogIn;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TEntrance = class(TForm)

Label1: TLabel;

Label2: TLabel;

LogINId: TEdit;

Label3: TLabel;

LogInPw: TEdit;

Button2: TButton;

Button3: TButton;

MRReqbt: TButton;

LogInReq: TButton;

Label4: TLabel;

LogInGubun: TComboBox;

procedure LogInReqClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure MRReqbtClick(Sender: TObject);

procedure LogInGubunChange(Sender: TObject);

procedure LogInGubunClick(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

var

Entrance: TEntrance;

LogInState : Integer;

implementation

{$R *.DFM}

procedure TEntrance.LogInReqClick(Sender: TObject);

begin

WebForm.REQ_USER_CONFIRM (LogInGubun.items[LogInGubun.itemindex],LogInId.Text, LogInPw.Test);

end;

if GetMethod = 'RES_USER_CONFIRM' then

//ShowMessage = ('사용자 인증을 확인했읍니다. 업주POS 프로그램으로 들어갑니다');

begin

LogIn.close ;

end;

procedure TEntrance.Button2Click(Sender: TObject);

begin

LostID.show;

end;

procedure TEntrance.Button3Click(Sender: TObject);

begin

LostPasswd.show;

end;

procedure TEntrance.MRReqbtClick(Sender: TObject);

begin

RegMaster.show;

end;

procedure TEntrance.LogInGubunClick(Sender: TObject);

begin

if LogInGubun.Items[3] then

MRReqbt.enabled := false;

end;

end.

여기서 컴보박스 구분정보를 [ 주인 , 아르바이트] 이렇게 두개를 줬거든요 ...

이정보를 메인메뉴폼에서 받아서 메인메뉴의 서브메뉴를 주인과 아르바이트에 따라 다르게 주고자 합니다 ...

급한 문제입니다. 부탁드립니다 ......

이 게시물을

2 COMMENTS

혀노 • 2000.12.03 02:15

간단히(?) 생각하심이 어떨까여?

사용자에따라 메뉴를 다르게 하려니까,,,사용자별로 메뉴를 등록시켜주면

되잖습니까여? 뭔말이냐구요?

메뉴 등록하는 테이블을 하나 더 만들고,,,,,

사용자하고 그 테이블하고 릴레이션을 걸어놓는겁니다.

그럼 거기메뉴 테이블의 프리이머리 키와 사용자정보테이블에서,,,

여기선,,,,,주인과,,,,아르바이트생으로 구분되겠져.....

그럼 초기에 주인을 선택하고 암호를 치고 들어가면,,,,,,

화면에 메뉴테이블에서 주인의 메뉴내용을 뿌려주면 되겠져......^^;;

인터페이스는 편한대로 구성하구요~!

도움이 되실려나,,,,,,,에궁

깡초보 wrote:

> 지금 관리프로그램을 만들고 있는중이거든요

> 그런데 로그인 정보에 따라서 메인메뉴기능을 분류하고 싶은데 어떻게 해야할지 모르겠어요

> 우선 로그인정보구분은 컴보박스에서 구분은 지어서, 컴보박스정보를 받아서 메인메뉴의 submenu들의 속성을 enable한다든지 disable한다든지 하는 것을 구분을 하고자 하는데 어케 하는지 몰라서 질문합니다 .. .

> <로그인 폼 >

> unit LogIn;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls;

>

> type

> TEntrance = class(TForm)

> Label1: TLabel;

> Label2: TLabel;

> LogINId: TEdit;

> Label3: TLabel;

> LogInPw: TEdit;

> Button2: TButton;

> Button3: TButton;

> MRReqbt: TButton;

> LogInReq: TButton;

> Label4: TLabel;

> LogInGubun: TComboBox;

> procedure LogInReqClick(Sender: TObject);

> procedure Button2Click(Sender: TObject);

> procedure Button3Click(Sender: TObject);

> procedure MRReqbtClick(Sender: TObject);

> procedure LogInGubunChange(Sender: TObject);

> procedure LogInGubunClick(Sender: TObject);

>

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Entrance: TEntrance;

> LogInState : Integer;

>

> implementation

>

> {$R *.DFM}

>

>

>

> procedure TEntrance.LogInReqClick(Sender: TObject);

> begin

> WebForm.REQ_USER_CONFIRM (LogInGubun.items[LogInGubun.itemindex],LogInId.Text, LogInPw.Test);

>

> end;

>

> if GetMethod = 'RES_USER_CONFIRM' then

>

> //ShowMessage = ('사용자 인증을 확인했읍니다. 업주POS 프로그램으로 들어갑니다');

> begin

> LogIn.close ;

> end;

>

> procedure TEntrance.Button2Click(Sender: TObject);

> begin

> LostID.show;

> end;

>

> procedure TEntrance.Button3Click(Sender: TObject);

> begin

> LostPasswd.show;

> end;

>

> procedure TEntrance.MRReqbtClick(Sender: TObject);

> begin

> RegMaster.show;

> end;

>

> procedure TEntrance.LogInGubunClick(Sender: TObject);

> begin

> if LogInGubun.Items[3] then

> MRReqbt.enabled := false;

> end;

>

> end.

>

>

> 여기서 컴보박스 구분정보를 [ 주인 , 아르바이트] 이렇게 두개를 줬거든요 ...

> 이정보를 메인메뉴폼에서 받아서 메인메뉴의 서브메뉴를 주인과 아르바이트에 따라 다르게 주고자 합니다 ...

>

> 급한 문제입니다. 부탁드립니다 ......
- 0
- 0
- 삭제
- 수정
- 댓글
황광일 • 2000.12.03 02:30

저두 그런문제로 고심중에 있었습니다...

말하자면 MDI 윈도우 하에 여러가지 메뉴가 수십개,,몰르지 수백개가 될지 몰르는데요...

음...

초기에 스플래쉬화면 뜨면서 db를 검색해서 사용자 인증하면서 암호를 확인하고 어쩌구 하게는 맹글어 놨는데요...중요한 건 메뉴가 사용자 권한에 따라 달라져야 한다고 하니..그거참 고민입니다..

다른분들은 어떻게 하셨는지 몰르겄습니다...

정녕 그 방법 밖에 없단 말인가여...

혀노 wrote:

> 간단히(?) 생각하심이 어떨까여?

> 사용자에따라 메뉴를 다르게 하려니까,,,사용자별로 메뉴를 등록시켜주면

> 되잖습니까여? 뭔말이냐구요?

> 메뉴 등록하는 테이블을 하나 더 만들고,,,,,

> 사용자하고 그 테이블하고 릴레이션을 걸어놓는겁니다.

> 그럼 거기메뉴 테이블의 프리이머리 키와 사용자정보테이블에서,,,

> 여기선,,,,,주인과,,,,아르바이트생으로 구분되겠져.....

> 그럼 초기에 주인을 선택하고 암호를 치고 들어가면,,,,,,

> 화면에 메뉴테이블에서 주인의 메뉴내용을 뿌려주면 되겠져......^^;;

> 인터페이스는 편한대로 구성하구요~!

> 도움이 되실려나,,,,,,,에궁

>

> 깡초보 wrote:

> > 지금 관리프로그램을 만들고 있는중이거든요

> > 그런데 로그인 정보에 따라서 메인메뉴기능을 분류하고 싶은데 어떻게 해야할지 모르겠어요

> > 우선 로그인정보구분은 컴보박스에서 구분은 지어서, 컴보박스정보를 받아서 메인메뉴의 submenu들의 속성을 enable한다든지 disable한다든지 하는 것을 구분을 하고자 하는데 어케 하는지 몰라서 질문합니다 .. .

> > <로그인 폼 >

> > unit LogIn;

> >

> > interface

> >

> > uses

> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> > StdCtrls;

> >

> > type

> > TEntrance = class(TForm)

> > Label1: TLabel;

> > Label2: TLabel;

> > LogINId: TEdit;

> > Label3: TLabel;

> > LogInPw: TEdit;

> > Button2: TButton;

> > Button3: TButton;

> > MRReqbt: TButton;

> > LogInReq: TButton;

> > Label4: TLabel;

> > LogInGubun: TComboBox;

> > procedure LogInReqClick(Sender: TObject);

> > procedure Button2Click(Sender: TObject);

> > procedure Button3Click(Sender: TObject);

> > procedure MRReqbtClick(Sender: TObject);

> > procedure LogInGubunChange(Sender: TObject);

> > procedure LogInGubunClick(Sender: TObject);

> >

> > { Private declarations }

> > public

> > { Public declarations }

> > end;

> >

> > var

> > Entrance: TEntrance;

> > LogInState : Integer;

> >

> > implementation

> >

> > {$R *.DFM}

> >

> >

> >

> > procedure TEntrance.LogInReqClick(Sender: TObject);

> > begin

> > WebForm.REQ_USER_CONFIRM (LogInGubun.items[LogInGubun.itemindex],LogInId.Text, LogInPw.Test);

> >

> > end;

> >

> > if GetMethod = 'RES_USER_CONFIRM' then

> >

> > //ShowMessage = ('사용자 인증을 확인했읍니다. 업주POS 프로그램으로 들어갑니다');

> > begin

> > LogIn.close ;

> > end;

> >

> > procedure TEntrance.Button2Click(Sender: TObject);

> > begin

> > LostID.show;

> > end;

> >

> > procedure TEntrance.Button3Click(Sender: TObject);

> > begin

> > LostPasswd.show;

> > end;

> >

> > procedure TEntrance.MRReqbtClick(Sender: TObject);

> > begin

> > RegMaster.show;

> > end;

> >

> > procedure TEntrance.LogInGubunClick(Sender: TObject);

> > begin

> > if LogInGubun.Items[3] then

> > MRReqbt.enabled := false;

> > end;

> >

> > end.

> >

> >

> > 여기서 컴보박스 구분정보를 [ 주인 , 아르바이트] 이렇게 두개를 줬거든요 ...

> > 이정보를 메인메뉴폼에서 받아서 메인메뉴의 서브메뉴를 주인과 아르바이트에 따라 다르게 주고자 합니다 ...

> >

> > 급한 문제입니다. 부탁드립니다 ......
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- nyam33
- 2000.12.04 10:27
- 0 COMMENTS
- /
- 0 LIKES
(질문)겹쳐진 두개의 이미지를 하나의 이미지로 저장하는법
- 장명미
- •
- 2000.12.04 08:37
- 1 COMMENTS
- /
- 0 LIKES
데이타 검색시 조건문에 대한 질문
- 이경문
  
  •
  
  2000.12.04 11:23
  
  ParamByName('pa1').AsString := '(Edit1.Text)%'; 이 부분을 ParamByName('pa1').AsString := Edit1.T...
- 이호철
- •
- 2000.12.04 08:03
- 1 COMMENTS
- /
- 0 LIKES
이멜프로그램인데요..
- 보리차
  
  •
  
  2000.12.06 08:02
  
  델파이에 기본적으로 있고욥. 그보담.. 좀더 존..인디 컴포넌트에 있습니다. 메일 글거오는건 pop3 컴포넌...
- 이경수
- •
- 2000.12.04 02:56
- 2 COMMENTS
- /
- 0 LIKES
mysql 의 datetime형 읽어올때 오류?
- 김종언
  
  •
  
  2000.12.04 20:20
  
  가져오는데 문제가 있는게 아니라.. 그 값을 변화시키고 있지는 않는지 모르겠네요... 변화시키는 부분이 ...
- 이경수
  
  •
  
  2000.12.08 06:58
  
  select 문에 mid문을 써서 에러를 해결했습니다. => select id, name, title, mid(wdate,1,10) wdate from...
- 이성윤
- 2000.12.04 01:30
- 0 COMMENTS
- /
- 0 LIKES
hooking을 하고 있는데 ....
- jjr
- •
- 2000.12.04 00:10
- 1 COMMENTS
- /
- 0 LIKES
동적으로 탭 생성시 탭을 추가하는 법을 모르겠어요 잉잉
- 어린왕자
  
  •
  
  2000.12.04 19:59
  
  메쏘드 없나요?? 쩝.. 전 TPageControl을 쓰는데..다루기 편해요. 그걸루 바꿔보지 않으실래요? jjr ...
- 임병우
- •
- 2000.12.03 23:13
- 2 COMMENTS
- /
- 0 LIKES
출력이 프린터마다 달라요!도와주세요.
- SerVing
  
  •
  
  2000.12.04 01:17
  
  일단 모든 프린터의 시작점을 똑같이 만드는건 어려울 겁니다. 저도 시도해 봤습죠... 프린터 여백 구하...
- 박종혁
  
  •
  
  2000.12.07 23:57
  
  안녕하세요.... 제가 보기에는 LPI가 맞지 않아서 그런서 같습니다. 프린터 매뉴얼을 구하신 다음.... E...
- 델퐁
- 2000.12.03 19:53
- 0 COMMENTS
- /
- 0 LIKES
살려주세요....델파이5.0 그리고 윈2000에서 퀵리포트 사용자정의
- 궁구미
- 2000.12.03 18:54
- 0 COMMENTS
- /
- 0 LIKES
레코드반복인쇄를 하고 시퍼서요!
- 델사랑
- •
- 2000.12.03 17:52
- 1 COMMENTS
- /
- 0 LIKES
리스트뷰에서요, 파일이름과 파일사이즈....
- 델사랑
  
  •
  
  2000.12.03 22:18
  
  거참 이렇게 간단한 것을..ㅜ.ㅜ 델사랑 wrote: > 안녕하세요.. > > 리스트 뷰에서 ...
- ryong
- 2000.12.06 08:28
- 0 COMMENTS
- /
- 0 LIKES
ActiveX의 등록에 관해
- 박웅철
- 2000.12.03 04:23
- 0 COMMENTS
- /
- 0 LIKES
PowerPoint 문서를 html변환시 PowerPoint 숨기기...
- wbh
- •
- 2000.12.03 02:30
- 2 COMMENTS
- /
- 0 LIKES
폼 생성
- 최영근
  
  •
  
  2000.12.03 18:05
  
  안녕하세요 ? 제 경우를 말하자면. 우선 어느 필드에서 새로 폼을 생성허는 방법을 두가지를 씁니다....
- 황광일
  
  •
  
  2000.12.03 02:40
  
  그 필드의 OnKeyDown이나 OnKeyChar 이벤트에서 원하는 값이 입력되면... 폼을 부르면 됩니다... 저 같...
- 깡초보
- •
- 2000.12.03 01:00
- 2 COMMENTS
- /
- 0 LIKES
로그인정보에 따른 기능권한에 관한 질문입니다

지금 관리프로그램을 만들고 있는중이거든요 그런데 로그인 정보에 따라서 메인메뉴기능을 분류하고 싶은데 어떻게 해야할지 모르겠어요 우선 로그인정보구분은 컴보박스에서 구분은 지어서, 컴보박스정보를 받아서 메인메뉴의 submenu들...
- 혀노
  
  •
  
  2000.12.03 02:15
  
  간단히(?) 생각하심이 어떨까여? 사용자에따라 메뉴를 다르게 하려니까,,,사용자별로 메뉴를 등록시켜주면...
- 황광일
  
  •
  
  2000.12.03 02:30
  
  저두 그런문제로 고심중에 있었습니다... 말하자면 MDI 윈도우 하에 여러가지 메뉴가 수십개,,몰르지 수백...
- 오지석
- 2000.12.03 00:34
- 0 COMMENTS
- /
- 0 LIKES
QuickReport에서 Shape를 일정각 기울려서 그리는법 좀..
- 왕초보
- •
- 2000.12.03 00:07
- 1 COMMENTS
- /
- 0 LIKES
NMHTTP 와 비슷한 컴포넌트 있나요?
- 이성윤
  
  •
  
  2000.12.03 01:36
  
  indy것을 써보시죠 . 자료실에 있던데 ..
- 김도형
- 2000.12.02 23:18
- 0 COMMENTS
- /
- 0 LIKES
RichEdit 출력시 페이지 Skip
- 금강산
- •
- 2000.12.02 22:09
- 1 COMMENTS
- /
- 0 LIKES
MDI폼에서???
- 나그네
  
  •
  
  2000.12.02 23:12
  
  자식폼의 formcreate, formshow 이벤트에서 left := 0; top := 0; 항상 같은자리 좌표로 고정되겠지여 ...
- won
- 2000.12.02 21:14
- 0 COMMENTS
- /
- 0 LIKES
Excel (파일명) 하면, (파일명)에포커스 안가고,book1에 포커스갑니다.
- 어린왕자
- •
- 2000.12.02 21:00
- 1 COMMENTS
- /
- 0 LIKES
에디트박스에 문자를 입력하게 하는 API...T.T 한번 봐주세요.
- 구창민
  
  •
  
  2000.12.02 23:17
  
  어린왕자 wrote: > 안녕하세요.. > 영원한 델초보 어린왕자입니다.. > 코딩으로.. > 에디트박스에 키보...

깡초보
2000/12/03 01:00
Views364

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

2079 2080 2081 2082 2083 2084 2085 2086 2087 2088

Last Page→