배순희 wrote:

> 안녕하십니까!!

> 오라클과 델파이로 프로그램하는데

> +---------+ text를 'aaa'를 입력하면 'aaaa' 'aaab' 'aaac'

> | aaaa | 를 display '' or 'a'를 입력하면 모두 display

> | aaab | 'aab' 는 'aabc' display하는데

> | aaac | 제 코딩이 틀렸나요??

> | aabc |

> +---------+

> if JScode.text = '' then

> ParamByName('Scode').AsString := '%'

> else

> ParamByName('Scode').AsString := '%JPcode.Text%';

> 감기조심 감사합니다... 열심히 빨리배워서 다른분께 도움이 되야지!!!



???=> Query를 어떻게 썼는지를 알수 없군요?

*** Query *************************************************************

SELECT FIELD NAME(예:SCode)

FROM TABLE NAME

WHERE SCODE LIKE :SCdode (변수-User가 입력하는 값이 들어가는 곳)

ORDER BY FIELD NAME (예:SCode-SCode순서로 DisPlay가 됨.)*** Query ***********************************************************************



*** User가 입력하는 부분 **********************************************

procedure Tform.btnExecuteClick(Sender: TObject);

Var

UserValue : String;

begin

if (JScode.text = '') then

UserValue := '%'

else

UserValue := JScode.text + '%';



With Query(Query컴포넌트 Name) do

begin

DisableControls;

Close;

ParamByName('SCode').AsString := UserValue;

Open;

EnableControls;

end;

end;

***********************************************************************

!!!=> 질문에 도움이 되는 답이 되었는지요!!!

배순희 wrote:

> 안녕하십니까!!

> 오라클과 델파이로 프로그램하는데

> +---------+ text를 'aaa'를 입력하면 'aaaa' 'aaab' 'aaac'

> | aaaa | 를 display '' or 'a'를 입력하면 모두 display

> | aaab | 'aab' 는 'aabc' display하는데

> | aaac | 제 코딩이 틀렸나요??

> | aabc |

> +---------+

> if JScode.text = '' then

> ParamByName('Scode').AsString := '%'

> else

> ParamByName('Scode').AsString := '%JPcode.Text%';

> 감기조심 감사합니다... 열심히 빨리배워서 다른분께 도움이 되야지!!!



자문자답이네요!!

%JPcode.Text% -> '%'+JPcode.Text; 이렇게 했는데 더좋은 방법을이신고수님부탁의

말씀을 기다리면서...