강동희 wrote:

> 사용할 db는 파라독스 타입의 trans.db입니다.

>

> trans.DB는 Query1컴포넌트에 연결되 있구요...

> trans.DB 에는 4개의 필드

> ==> shop(상점번호), item(아이템번호), price(가격), disp(취급유무) 가 있습니다.

>

> 좀 더 자세한 예를 들면..

> shop [ ]

> item [ ]

> price[ ]~[ ]

> disp [ ]

>

저도 초보라..

간다하게 해보겠습니다.



with query1 do begin

close;

Sql.clear;

sql.Add('select.......');

sql.Add('where 1=1')

if shopedit.text <> '' then begn

sql.add('and shop = :shop');

parambyname('shop').AsString := showpedit.text;

end;

if itemedit.text <> '' then begn

sql.add('and item = :item');

parambyname('item').AsString := itemedit.text;

end;



[나머지 조건 두개도 위 식으로...]



open;

end;



좀더 게시판을 검색하시면 더욱 좋은 내용을 찾을수 있는데....^-^;

도움이 되셨으면 합니다..

hobakpa wrote:

> 강동희 wrote:

> > 사용할 db는 파라독스 타입의 trans.db입니다.

> >

> > trans.DB는 Query1컴포넌트에 연결되 있구요...

> > trans.DB 에는 4개의 필드

> > ==> shop(상점번호), item(아이템번호), price(가격), disp(취급유무) 가 있습니다.

> >

> > 좀 더 자세한 예를 들면..

> > shop [ ]

> > item [ ]

> > price[ ]~[ ]

> > disp [ ]

> >

> 저도 초보라..

> 간다하게 해보겠습니다.

>

> with query1 do begin

> close;

> Sql.clear;

> sql.Add('select.......');

> sql.Add('where 1=1')

> if shopedit.text <> '' then begn

> sql.add('and shop = :shop');

> parambyname('shop').AsString := showpedit.text;

> end;

> if itemedit.text <> '' then begn

> sql.add('and item = :item');

> parambyname('item').AsString := itemedit.text;

> end;

>

> [나머지 조건 두개도 위 식으로...]

>

> open;

> end;

>

> 좀더 게시판을 검색하시면 더욱 좋은 내용을 찾을수 있는데....^-^;

> 도움이 되셨으면 합니다..





++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

질문한 '강동희' 인데요...

Price필드의 검색은===> 범위(Range)를 주었거던요....

그래서,,, 다시 막히네여....

price에 대한 범위는 edit4와 edit5로 하거던요...

그럼 전부 4곱하기 4 = 16번을 해야하나요?



그럼 어케야죠?

지송해요.,.. 자꾸 묻기만 하구.. 답변은 못하구요...

> 질문한 '강동희' 인데요...

> Price필드의 검색은===> 범위(Range)를 주었거던요....

> 그래서,,, 다시 막히네여....

> price에 대한 범위는 edit4와 edit5로 하거던요...

> 그럼 전부 4곱하기 4 = 16번을 해야하나요?

>

> 그럼 어케야죠?

> 지송해요.,.. 자꾸 묻기만 하구.. 답변은 못하구요...

>



++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



보통 쿼리에서도 where price >0 and price < 100 는 식으로 범위를 정해줍니다.

쉽게 이야기해서 쿼리를 단지 델파이에서 돌아갈수 있게만 해주면 되는겁니다.





with query1 do begin

close;

Sql.clear;

sql.Add('select.......');

sql.Add('where 1=1')

if shopedit.text <> '' then begn

sql.add('and shop = :shop');

parambyname('shop').AsString := showpedit.text;

end;



if itemedit.text <> '' then begn

sql.add('and item = :item');

parambyname('item').AsString := itemedit.text;

end;

//여기 추가 했거든요....

if (edit4.text <> '' )and (edit5.text <> '' )then begin

sql.add(' and price > :price1 and price <= :price2');

parambyname('price1').AsString := edit4.text;

parambyname('price2').AsString := edit5.text;

end;



open;

end;



-------------------------------------------





저 Range 함수는 잘 모르겠군요.

너무 어렵게 생각하시지 마세요.....

꼭맞는 함수가있으면 당연히 그걸 쓰지만 물으시는걸 보면 함수 사용 안하셔도 될거같아요...도움이 되셨으면....

price 가 numeric이라고 가정합니다.



var s : string;



with query1 do begin

close;

Sql.clear;

sql.Add('select....... where 1 = 1 ');

if shopedit.text <> '' then begn

s := 'And shop = ''' + trim(shopedit.text) + ''' ';

sql.add(s);

end;

.

.

.



if edit4.text <> '' then begn

s := 'And price >= ' + trim(edit4.text) + ' ';

sql.add(s);

end;



if edit5.text <> '' then begn

s := 'And price < ' + trim(edit5.text) + ' ';

sql.add(s);

end;

end;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

> 질문한 '강동희' 인데요...

> Price필드의 검색은===> 범위(Range)를 주었거던요....

> 그래서,,, 다시 막히네여....

> price에 대한 범위는 edit4와 edit5로 하거던요...

> 그럼 전부 4곱하기 4 = 16번을 해야하나요?

>

> 그럼 어케야죠?

> 지송해요.,.. 자꾸 묻기만 하구.. 답변은 못하구요...

>

진지하고, 성의 있는 답변...

감사합니다.