한국 델파이 개발자 모임 - 이름과 패스워드검색후에 다른 필드내용(부서명)를 가져오려면....

이름과 패스워드검색후에 다른 필드내용(부서명)를 가져오려면....

초보자 입니다.

우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 에러가 발생합니다.

(이름과 패스워드를 검색하고 부서명도 가져옴(이부분이 에러)

우선

var

dept : string; // 가져올 부서명

begin

if (edtname.text<>'')and(edtpass.text<>'') then

begin

with query1 do

begin

close;

SQL.Clear;

SQL.Add('select d_name,d_password,d_dept from depart');

SQL.Add('where d_name=:name and d_password=:pass');

Parambyname('name').asstring := edtname.text;

Parambyname('pass').asstring := edtpass.text;

dept:=parambyname('depart').value; <--- 이부분

open;

if isEmpty then

showMessage('이름과 패스워드를 다시 확인 해 주십시요')

else

begin

form2 := tform2.create(self);

form2.Caption := edtname.text;

// form2.paneldept :=

form2.panelname.Caption := edtname.Text;

form2.paneldept.caption := dept;

try

form2.Showmodal;

-----

생략

초보라서 고수님들의 조언을 부탁드립니다.

이 게시물을

3 COMMENTS

무 • 2001.01.17 23:10

전승헌 wrote:

> 초보자 입니다.

> 우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 에러가 발생합니다.

> (이름과 패스워드를 검색하고 부서명도 가져옴(이부분이 에러)

>

> 우선

>

>

> var

> dept : string; // 가져올 부서명

> begin

> if (edtname.text<>'')and(edtpass.text<>'') then

> begin

> with query1 do

>

> begin

> close;

> SQL.Clear;

> SQL.Add('select d_name,d_password,d_dept from depart');

> SQL.Add('where d_name=:name and d_password=:pass');

> Parambyname('name').asstring := edtname.text;

> Parambyname('pass').asstring := edtpass.text;

> dept:=parambyname('depart').value; <--- 이부분

> open;

> if isEmpty then

> showMessage('이름과 패스워드를 다시 확인 해 주십시요')

> else

> begin

> form2 := tform2.create(self);

> form2.Caption := edtname.text;

>

> // form2.paneldept :=

> form2.panelname.Caption := edtname.Text;

> form2.paneldept.caption := dept;

> try

> form2.Showmodal;

> -----

> 생략

>

> 초보라서 고수님들의 조언을 부탁드립니다.

begin

if (edtname.text<>'')and(edtpass.text<>'') then

begin

with query1 do

begin

close;

SQL.Clear;

SQL.Add('select d_name,d_password,d_dept from depart');

SQL.Add('where d_name=:name and d_password=:pass');

Parambyname('name').asstring := edtname.text;

Parambyname('pass').asstring := edtpass.text;

open;

end;

if query1.recordcount > 0 then

dept := query1.fieldbyname('d_dept').asstring;

로 고치시면 될꺼 같은데요...

====> dept:=parambyname('depart').value;

부분이 에러가 나는 이유는 파라미터로 depart라는 것을 사용하지

않았는데 정의가 되기 때문에 그렇습니다.
- 0
- 0
- 삭제
- 수정
- 댓글
한하눌 • 2001.01.15 22:22

전승헌 wrote:

> 초보자 입니다.

> 우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 에러가 발생합니다.

> (이름과 패스워드를 검색하고 부서명도 가져옴(이부분이 에러)

>

> 우선

>

>

> var

> dept : string; // 가져올 부서명

> begin

> if (edtname.text<>'')and(edtpass.text<>'') then

> begin

> with query1 do

>

> begin

> close;

> SQL.Clear;

> SQL.Add('select d_name,d_password,d_dept from depart');

> SQL.Add('where d_name=:name and d_password=:pass');

> Parambyname('name').asstring := edtname.text;

> Parambyname('pass').asstring := edtpass.text;

> dept:=parambyname('depart').value; <--- 이부분

> open;

> if isEmpty then

> showMessage('이름과 패스워드를 다시 확인 해 주십시요')

> else

> begin

> form2 := tform2.create(self);

> form2.Caption := edtname.text;

>

> // form2.paneldept :=

> form2.panelname.Caption := edtname.Text;

> form2.paneldept.caption := dept;

> try

> form2.Showmodal;

> -----

> 생략

>

> 초보라서 고수님들의 조언을 부탁드립니다.

*---------------------------------------------

> 1번줄 dept:=parambyname('depart').value; <--- 이부분

> 2번줄 open;

*---------------------------------------------

위의 문장에서 1번줄과 2번줄의 순서를 바꾸시고

2번줄의 내용은 dept := FieldbyName('depar').value;

로 하심이 어떨런지..

즐프하시길...
- 0
- 0
- 삭제
- 수정
- 댓글
전승헌 • 2001.01.16 06:36

한하눌 wrote:

> 전승헌 wrote:

> > 초보자 입니다.

> > 우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 에러가 발생합니다.

> > (이름과 패스워드를 검색하고 부서명도 가져옴(이부분이 에러)

> >

> > 우선

> >

> >

> > var

> > dept : string; // 가져올 부서명

> > begin

> > if (edtname.text<>'')and(edtpass.text<>'') then

> > begin

> > with query1 do

> >

> > begin

> > close;

> > SQL.Clear;

> > SQL.Add('select d_name,d_password,d_dept from depart');

> > SQL.Add('where d_name=:name and d_password=:pass');

> > Parambyname('name').asstring := edtname.text;

> > Parambyname('pass').asstring := edtpass.text;

> > dept:=parambyname('depart').value; <--- 이부분

> > open;

> > if isEmpty then

> > showMessage('이름과 패스워드를 다시 확인 해 주십시요')

> > else

> > begin

> > form2 := tform2.create(self);

> > form2.Caption := edtname.text;

> >

> > // form2.paneldept :=

> > form2.panelname.Caption := edtname.Text;

> > form2.paneldept.caption := dept;

> > try

> > form2.Showmodal;

> > -----

> > 생략

> >

> > 초보라서 고수님들의 조언을 부탁드립니다.

> *---------------------------------------------

> > 1번줄 dept:=parambyname('depart').value; <--- 이부분

> > 2번줄 open;

> *---------------------------------------------

> 위의 문장에서 1번줄과 2번줄의 순서를 바꾸시고

> 2번줄의 내용은 dept := FieldbyName('depar').value;

> 로 하심이 어떨런지..

>

> 즐프하시길...

>

잘 안되는 것 같은데요 다시 설명을
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 이승근
- •
- 2001.01.16 00:18
- 1 COMMENTS
- /
- 0 LIKES
검색에 모든것을 알려주십시요..
- 이영근
  
  •
  
  2001.01.16 08:39
  
  이승근 wrote: > 질문이 어렵다하여 다시 질문을 올립니다... > 간단히 제가 알고싶은것은 foxpro등의 db...
- 이원택
- 2001.01.15 23:44
- 0 COMMENTS
- /
- 0 LIKES
디버깅할때 어떤 변수의 값의 변화를 보려고하는데...
- 이원택
- 2001.01.15 23:43
- 0 COMMENTS
- /
- 0 LIKES
디버깅할때 어떤 변수의 값의 변화를 보려고하는데...
- hee
- 2001.01.15 23:30
- 0 COMMENTS
- /
- 0 LIKES
파일경로를 이용하여 ClassName알아내기
- 느티나무
- 2001.01.15 23:22
- 0 COMMENTS
- /
- 0 LIKES
socket에서 멀티로 오는 client를 서버에서 thread 로 처리방법
- 김범수
- 2001.01.15 23:17
- 0 COMMENTS
- /
- 0 LIKES
Spinedit 콤포넌트와 DB그리드 연결방법
- 과객
- •
- 2001.01.15 23:16
- 1 COMMENTS
- /
- 0 LIKES
이거 좀 봐주세여...문자열에 대한 질문...
- 이영근
  
  •
  
  2001.01.16 08:43
  
  과객 wrote: > 1. > procedure TfrmComMain.Button5Click(Sender: TObject); > var > S : String; >...
- 임소영
- •
- 2001.01.15 23:03
- 3 COMMENTS
- /
- 0 LIKES
(query 사용시..) 초보를 구해주세요
- Webcome
  
  •
  
  2001.01.16 01:46
  
  임소영 wrote: > 델파이초보인데요. > Table을 이용해서 DBgrid로 뿌려주는건 쉬운데 > 아래처럼 Tquery...
- 임소영
  
  •
  
  2001.01.16 02:48
  
  답변감사합니다만 더 여쭤보아도..되겠져? 한 폼에서 하나의 그리드에 여러개의 Tquery를 사용하는 형태입...
- Umpro
  
  •
  
  2001.01.16 06:35
  
  안녕 하세요. 도움이 될지 모르겠지만 .... query1.sql.text := 'select officename,stationname,st...
- 배우미
- 2001.01.15 23:01
- 0 COMMENTS
- /
- 0 LIKES
DBGrid에서 레코드 선택하기...
- 느티나무
- 2001.01.15 22:45
- 0 COMMENTS
- /
- 0 LIKES
[다시질문] 배열 선언을 한후 초기값을 넣을려고...
- 델파이 궁금이가 ....
- •
- 2001.01.15 22:29
- 2 COMMENTS
- /
- 0 LIKES
dbgrid에서 shift + 마우스버튼을 이용한 다중선택을 어떻게 하는지....
- 델초보
  
  •
  
  2001.01.16 03:31
  
  DBGrid에서 Multi Select를 하려면 DBGrid를 마우스로 선택한 후 Object Inspector로 가보면 Options라는 ...
- 델파이 궁금이가 ....
  
  •
  
  2001.01.16 03:43
  
  델초보 wrote: > DBGrid에서 Multi Select를 하려면 DBGrid를 마우스로 선택한 후 > Object Inspector로 ...
- 오렌지
- 2001.01.15 21:12
- 0 COMMENTS
- /
- 0 LIKES
퀵리포트 디테일 찍을때 이상한 점
- 초델
- 2001.01.15 21:11
- 0 COMMENTS
- /
- 0 LIKES
퀵레포트 프린트가 잘 안되거든요.....
- 김오성
- •
- 2001.01.15 21:08
- 1 COMMENTS
- /
- 0 LIKES
rxlib 2.75등록 문제
- 토마스
  
  •
  
  2001.01.16 00:00
  
  델파이 5에서 Rx를 인스톨하는건 생각보다 싶습니다. 젤먼저 5가 붙은 넘들을 오픈합니다. 젤앞에 Dcl이 ...
- 김형근
- 2001.01.15 21:02
- 0 COMMENTS
- /
- 0 LIKES
익스프레스퀀텀그리드에 대하여...
- 전승헌
- •
- 2001.01.15 20:52
- 3 COMMENTS
- /
- 0 LIKES
이름과 패스워드검색후에 다른 필드내용(부서명)를 가져오려면....

초보자 입니다. 우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 에러가 발생합니다. (이름과 패스워드를 검색하고 부서명도 가져옴(이부분이 에러) 우선 var dept : string; // 가져올 부서명 begin if (edtname.text...
- 무
  
  •
  
  2001.01.17 23:10
  
  전승헌 wrote: > 초보자 입니다. > 우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 ...
- 한하눌
  
  •
  
  2001.01.15 22:22
  
  전승헌 wrote: > 초보자 입니다. > 우선 로그인에서 검색을 하고 다른 필드의 내용도 가져오려고 하는데 ...
- 전승헌
  
  •
  
  2001.01.16 06:36
  
  한하눌 wrote: > 전승헌 wrote: > > 초보자 입니다. > > 우선 로그인에서 검색을 하고 다른 필드의 내용...
- 좀도와주세요
- •
- 2001.01.15 20:43
- 1 COMMENTS
- /
- 0 LIKES
Assigned <- 요 함수 이거 대체 ㅡ.ㅡ;;; 도와주세여 ㅜ.ㅜ
- 최의종
  
  •
  
  2001.01.16 00:41
  
  안녕하세요? Form2는 TForm2의 인스턴스인데, TForm2가 해제될때 Form2가 nil이 되진 않거든요. TForm2...
- 어린왕자
- •
- 2001.01.15 20:26
- 1 COMMENTS
- /
- 0 LIKES
메인폼이 자식폼 죽을때까지 기다리게 할수 없나요?? (한번 봐주세요)
- 방경주
  
  •
  
  2001.01.15 22:19
  
  procedure Tform1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; ...
- 이원택
- 2001.01.15 20:26
- 0 COMMENTS
- /
- 0 LIKES
글꼴을 등록했는데....
- Delphix
- •
- 2001.01.15 19:38
- 1 COMMENTS
- /
- 0 LIKES
date timepicker db에 저장하는 방법?
- 모름이
  
  •
  
  2001.01.16 00:29
  
  Delphix wrote: > 고수님들! > date timepicker을 이용하여 db에 년도와 달, 일을 저장하는 방법을 > 가...

전승헌
2001/01/15 20:52
Views303

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

2004 2005 2006 2007 2008 2009 2010 2011 2012 2013

Last Page→