Q&A
- 콤보박스로 조회하기 문제
두개의 콤보박로 데이타를 조회하고자 합니다.
그런데 잘 안되거든요.
제가 IF문을 잘 못쓰는것 같습니다.
다음 소스좀 봐주세요.
with sch_qry do
begin
close;
sql.clear;
sql.text := ' select s.serial, s.buy_code, s.gbuy_code '+
' from stock s, buy b '+
' where s.buy_code = b.code ';
if gbuy_cbo.text <> '' then
begin
sql.Add('and gbuy_code = :gcode');
parambyname('gcode').AsString := copy(gbuy_cbo.text,1,2);
end
else if gbuy_cbo.text = ''then
begin
if buy_cbo.text <> '' then
begin
sql.Add('and buy_code = :buy_code');
parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
end;
end;
if buy_cbo.text <> '' then
begin
sql.Add('and buy_code = :buy_code');
parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
end
else
messagedlg('조회할 품명을 선택해 주십시요.', mtInformation,[mbYes, mbNo], 0);
end;
꼭 부탁드립니다...
그런데 잘 안되거든요.
제가 IF문을 잘 못쓰는것 같습니다.
다음 소스좀 봐주세요.
with sch_qry do
begin
close;
sql.clear;
sql.text := ' select s.serial, s.buy_code, s.gbuy_code '+
' from stock s, buy b '+
' where s.buy_code = b.code ';
if gbuy_cbo.text <> '' then
begin
sql.Add('and gbuy_code = :gcode');
parambyname('gcode').AsString := copy(gbuy_cbo.text,1,2);
end
else if gbuy_cbo.text = ''then
begin
if buy_cbo.text <> '' then
begin
sql.Add('and buy_code = :buy_code');
parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
end;
end;
if buy_cbo.text <> '' then
begin
sql.Add('and buy_code = :buy_code');
parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
end
else
messagedlg('조회할 품명을 선택해 주십시요.', mtInformation,[mbYes, mbNo], 0);
end;
꼭 부탁드립니다...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김성욱
- 2000.06.14 00:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 전준형
- •
- 2000.06.14 00:15
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.14 18:30안녕하세여..타락임다..^^ 에러의미가 RCVDATA.EXE라는 프로그램 모듈 안에서 무언가 읽거나 쓸려는...
-
- 초보자
- •
- 2000.06.14 00:08
- 3 COMMENTS
- /
- 0 LIKES
-
한창희•2000.06.14 10:36초보자 wrote: > Delphi 5.0 사용자로서 Db는 파라독스로 사용하구요. > 음............. > 바로 본론으...
-
까마귀•2000.06.14 01:54초보자 wrote: > Delphi 5.0 사용자로서 Db는 파라독스로 사용하구요. > 음............. > 바로 본론으...
-
모승열•2000.06.14 01:41로컬디비랑 똑같습니다. 단지 데이타가 잘 깨지는 문제 때문에 모두들 피하는거죠. 알리아스를 서버로 잡...
-
- 정우석
- •
- 2000.06.14 00:04
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.14 18:37안녕하세여.. 타락임다..ㅠㅠ 제 생각으론 ..님 생각은.. 에러와 예외를 생각하신거 같은데...ㅠㅠ ...
-
- 준희
- •
- 2000.06.13 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 23:51안녕하세요 하얀까마귀 입니다.. 지금 말씀하신게 폼위에 리포트를 올렸을때와 그냥 리포트만 썼을때 왜...
-
- 사발우성
- •
- 2000.06.13 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.06.14 02:48사발우성 wrote: > 고수님들 inner join 에 관해서 질문임당.... > > 넘어려워서리...ㅠ.ㅠ > > ...
-
하얀까마귀•2000.06.13 23:45안녕하세요 하얀까마귀 입니다... 조인은 두개이상의 테이블에서 연관된 데이타를 찾는 겁니다.. 음.. ....
-
-
하얀까마귀•2000.06.13 23:32안녕하세요 하얀까마귀 입니다.. 소스에서는 tag가 1인 에디트와 콤보는 다 첵크하게 되어 있는데... ...
-
heimdal•2000.06.14 00:36하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > 소스에서는 tag가 1인 에디트와 콤보는 다 ...
-
하얀까마귀•2000.06.14 08:37안녕하세요 하얀까마귀 입니다.. 허거걱... 죄송... if not ( .. and .. and... ) then 이 아니라...
-
서경환•2000.06.13 23:16소스를 봐서는 모르겠고 디버깅을 하죠 먼저 입력되지 않은것이 TDBEdit인지 아님 TDBCombobox인지 확인...
-
-
- 어린왕자
- 2000.06.13 22:52
- 0 COMMENTS
- /
- 0 LIKES
-
- heimdal
- •
- 2000.06.13 22:43
- 1 COMMENTS
- /
- 0 LIKES
-
서경환•2000.06.13 23:20당연히 디비에 연결이 되어있기 때문에 가져오는게 당연하지요 디비에디트박스의 내용을 지운다는것이 입...
-
- 김창규
- •
- 2000.06.13 22:18
- 1 COMMENTS
- /
- 0 LIKES
-
서경환•2000.06.13 23:23위의 소스만 봐서는 모르겠고 혹시 테이블을 오픈을 하지 않어서 그런거 아닐까요 실행을 시키지 마시고 ...
-
- 신지꾸
- •
- 2000.06.13 21:26
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 23:06안녕하세요 하얀까마귀 입니다.. 먼저 서버쪽 설정부터 하시구요... 서버에 프로그램 깔고.. 디비 만...
-
- 초보
- 2000.06.13 21:24
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 정우석
- •
- 2000.06.13 19:54
- 4 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.13 21:20안녕하세요 하얀까마귀 입니다.. 상관없는데요... dm이 몇개이든간에. tdb는 한개만 있으면 됩니다.....
-
정우석•2000.06.14 00:00다시 질문합니다. DM_1 에 있는 DBNAME은 DM_2에서 볼 수 없습니다. DM_2에서는 단지 BDE에 있는 Alias만...
-
하얀까마귀•2000.06.14 08:46안녕하세요 하얀까마귀 입니다.. TDataBase에 설정하신 DataBaseName을 쓰셔도 되고.. 또한 TDataBase에...
-
정우석•2000.06.14 18:46답변 감사드리며 다시 질문드리겠습니다... 제 경우를 자세히 말씀드리면 상황에 따라 DS를 쓸때 DBNAME...
-
- 초보
- 2000.06.13 19:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보에서벗어나자
- •
- 2000.06.13 19:41
- 1 COMMENTS
- /
- 0 LIKES
두개의 콤보박로 데이타를 조회하고자 합니다. 그런데 잘 안되거든요. 제가 IF문을 잘 못쓰는것 같습니다. 다음 소스좀 봐주세요. with sch_qry do begin close; sql.clear; sql.text := ' select s.serial, s.buy_code, s.gbuy_code '+ '...-
하얀까마귀•2000.06.13 22:15안녕하세요 하얀까마귀 입니다.. 맞네요 if문이 잘못되었습니다.. if 조건1 then begin 실행1 ...
-
- 먼지
- 2000.06.13 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 허브
- 2000.06.13 19:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이은경
- •
- 2000.06.13 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.13 19:17한델자료실에 가시면 날짜/시간계산프로그램이 있는것 같더군요 그걸 참고하시면 될것같습니다. http:/...
맞네요 if문이 잘못되었습니다..
if 조건1 then
begin
실행1
end else if 조건2 then
begin
실행2
end else
begin
실행3
end;
실행4
조건1에 만족할때 실행1을 실행하고 실행4로 넘어옵니다.
조건1에 만족하지 않을때 조건2를 비교하죠.. 그래서 만족하면 실행2를 그렇지 않으면
실행3를 실행하고 실행4로 넘어옵니다..
결국 이렇게 하면 실행1,2,3중 하나만 실행하고 4로 넘어가게 되죠...
따라서 님의 코드는 그냥 if문 하나로만 묶어 버리면 됩니다.
if gbuy_cbo.text <> '' then
begin
sql.Add('and gbuy_code = :gcode');
parambyname('gcode').AsString := copy(gbuy_cbo.text,1,2);
if buy_cbo.text <> '' then
begin
sql.Add('and buy_code = :buy_code');
parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
sql.Add('and buy_code = :buy_code');
parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
end;
end else
messagedlg('조회할 품명을 선택해 주십시요.', mtInformation,[mbYes,No], 0);
그럼 즐거운시간 되세요...
대충 고쳤는데.. 음..
조건이 다를수 있으니 코드는 그냥 참고만 하세요..
- 하얀까마귀 -
초보에서벗어나자 wrote:
> 두개의 콤보박로 데이타를 조회하고자 합니다.
> 그런데 잘 안되거든요.
> 제가 IF문을 잘 못쓰는것 같습니다.
> 다음 소스좀 봐주세요.
>
> with sch_qry do
> begin
> close;
> sql.clear;
> sql.text := ' select s.serial, s.buy_code, s.gbuy_code '+
> ' from stock s, buy b '+
> ' where s.buy_code = b.code ';
>
> if gbuy_cbo.text <> '' then
> begin
> sql.Add('and gbuy_code = :gcode');
> parambyname('gcode').AsString := copy(gbuy_cbo.text,1,2);
> end
>
> else if gbuy_cbo.text = ''then
> begin
> if buy_cbo.text <> '' then
> begin
> sql.Add('and buy_code = :buy_code');
> parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
> end;
> end;
>
> if buy_cbo.text <> '' then
> begin
> sql.Add('and buy_code = :buy_code');
> parambyname('buy_code').AsString := copy(buy_cbo.text,1,3);
> end
> else
> messagedlg('조회할 품명을 선택해 주십시요.', mtInformation,[mbYes, mbNo], 0);
> end;
>
> 꼭 부탁드립니다...