christians wrote:

> 사용자로그인 창인데요 제가 왕초보라서..

> 너무 모른다고 화내지 마시고 설명 부탁드립니다.

> Procedure TfmLOgin.btnOkClick(sender:TObject);

> begin

> if eUserID.text = ''then begin

> showMessage('사용자 아이디를 입력하세요.');

> exit;

> end;

>

> 암호 확인 부분

>

> end;

> with DM.qrysQL do begin //여기서 DM.prysQL 에대해 설명좀..

//Data Module이라고 사원디비,각종 코드디비등 자주 쓰는 디비를 연결하는 쿼리를

//매 폼마다 가져다 디자인 하기 번거로우니까 데이타 모듈에 쿼리 하나 가져다놓고

//그 데이타 모듈의 폼 이름을 DM이라하고 Query이름을 qrySQL이라고...했네요

> close; //이부분도

//혹시 이쿼리를 다른데서 사용했을수 있으므로깨끗이 지워야 하는데 열려저 있으면

// 이놈이 거부반응을 일으키니까 닫아줍니다.

> sql.clear; // sql 은 뭔지요 데이타베이스를 말하는건가요

// 혹시 다른데서 사용했을 수도 있으니까 Clear로 깨끗이 지워줍니다.

//SQL은 스탠다드 쿼리 랭귀지인가.. 책보면 다 나와 있음

> sql.add(; Select Passwd,Rights');

> open;

> if EoF then begin

> showmessage('사용자 아이디가 존재하지 않습니다.');

> eUserID.setFocus;

> eUserID.SelStatr:=0; // selstatr 은 ?//커서가 깜박이는 위치

> eUserID.SelLenght:=length(eUserID.text); //여기도.. //마찬가지

> end

> else begin

> if UpperCase(Fields[0].AsString) =UpperCase(ePasswd.Text)then begin // uppercase,field[0]이부분은 자세이좀 부탁드립니다



//어퍼케이스는 모든문잘 대문자로 만드는 함수

// 쿼리의 필드중 제일첫번째의 값과 패스워드텍스트 값이 같으면

> fmMain:=TfmMain.create(Self);

> fmLogin.visible:=false;

> 권한에 따른 메뉴를 구성하는 부분이 들어간다.

> fmMain.showmodal;

> fmMain.free;

> fmLogin.close;

> end

> else begin

> 생략

초보 wrote:

> christians wrote:

> > 사용자로그인 창인데요 제가 왕초보라서..

> > 너무 모른다고 화내지 마시고 설명 부탁드립니다.

> > Procedure TfmLOgin.btnOkClick(sender:TObject);

> > begin

> > if eUserID.text = ''then begin

> > showMessage('사용자 아이디를 입력하세요.');

> > exit;

> > end;

> >

> > 암호 확인 부분

> >

> > end;

> > with DM.qrysQL do begin //여기서 DM.prysQL 에대해 설명좀..

> //Data Module이라고 사원디비,각종 코드디비등 자주 쓰는 디비를 연결하는 쿼리를

> //매 폼마다 가져다 디자인 하기 번거로우니까 데이타 모듈에 쿼리 하나 가져다놓고

> //그 데이타 모듈의 폼 이름을 DM이라하고 Query이름을 qrySQL이라고...했네요

> > close; //이부분도

> //혹시 이쿼리를 다른데서 사용했을수 있으므로깨끗이 지워야 하는데 열려저 있으면

> // 이놈이 거부반응을 일으키니까 닫아줍니다.

> > sql.clear; // sql 은 뭔지요 데이타베이스를 말하는건가요

> // 혹시 다른데서 사용했을 수도 있으니까 Clear로 깨끗이 지워줍니다.

> //SQL은 스탠다드 쿼리 랭귀지인가.. 책보면 다 나와 있음

> > sql.add(; Select Passwd,Rights');

> > open;

> > if EoF then begin

> > showmessage('사용자 아이디가 존재하지 않습니다.');

> > eUserID.setFocus;

> > eUserID.SelStatr:=0; // selstatr 은 ?//커서가 깜박이는 위치

> > eUserID.SelLenght:=length(eUserID.text); //여기도.. //마찬가지

> > end

> > else begin

> > if UpperCase(Fields[0].AsString) =UpperCase(ePasswd.Text)then begin // uppercase,field[0]이부분은 자세이좀 부탁드립니다

>

> //어퍼케이스는 모든문잘 대문자로 만드는 함수

> // 쿼리의 필드중 제일첫번째의 값과 패스워드텍스트 값이 같으면

> > fmMain:=TfmMain.create(Self);

> > fmLogin.visible:=false;

> > 권한에 따른 메뉴를 구성하는 부분이 들어간다.

> > fmMain.showmodal;

> > fmMain.free;

> > fmLogin.close;

> > end

> > else begin

> > 생략

님아 이런 식으로 질문하시면 답받으시기 힘들꺼 같네요..



님 책을 한권 사서 공부하시고 다시 질문하시는게 나을꺼 같네요..



christians wrote:

> 사용자로그인 창인데요 제가 왕초보라서..

> 너무 모른다고 화내지 마시고 설명 부탁드립니다.

> Procedure TfmLOgin.btnOkClick(sender:TObject);

> begin

> if eUserID.text = ''then begin

> showMessage('사용자 아이디를 입력하세요.');

> exit;

> end;

>

> 암호 확인 부분

>

> end;

> with DM.qrysQL do begin //여기서 DM.prysQL 에대해 설명좀..

> close; //이부분도

> sql.clear; // sql 은 뭔지요 데이타베이스를 말하는건가요

> sql.add(; Select Passwd,Rights');

> open;

> if EoF then begin

> showmessage('사용자 아이디가 존재하지 않습니다.');

> eUserID.setFocus;

> eUserID.SelStatr:=0; // selstatr 은 ?

> eUserID.SelLenght:=length(eUserID.text); //여기도..

> end

> else begin

> if UpperCase(Fields[0].AsString) =UpperCase(ePasswd.Text)then begin // uppercase,field[0]이부분은 자세이좀 부탁드립니다

> fmMain:=TfmMain.create(Self);

> fmLogin.visible:=false;

> 권한에 따른 메뉴를 구성하는 부분이 들어간다.

> fmMain.showmodal;

> fmMain.free;

> fmLogin.close;

> end

> else begin

> 생략