초보에요33
(김현수)
|
|
지금 Case of를 써서
Case cbSelect.Itemindex of
0:begin
with Query1 do begin
Close;
with SQL do begin
Clear;
Add('SELECT MI.*, MSG.*, MS.*, MH.*, MG.*, ME.*, MEX.*');
Add('FROM FMAS_OO1 MI, FMAS_OO2 MSG, FMAS_OO3 MS, FMAS_OO4 MH, FMAS_OO5 MG, FMAS_ㅇㅇ6 ME, FMAS_EXTEND MEX');
Add('WHERE M_GU=MSG_GU(+) AND M_KEY=MSG_KEY(+)');
Add(' AND M_GU=MS_GU(+) AND M_KEY=MS_KEY(+)');
Add(' AND M_GU=MH_GU(+) AND M_KEY=MH_KEY(+)');
Add(' AND M_GU=MG_GU(+) AND M_KEY=MG_KEY(+)');
Add(' AND M_GU=ME_GU(+) AND M_KEY=ME_KEY(+)');
Add(' AND M_GU=MEX_GU(+) AND M_KEY=MEX_KEY(+)');
Add(' AND M_NAME LIKE :M_NAME');
Add('ORDER BY M_GU, M_KEY');
end;
ParamByName('M_NAME').AsString := '%' + Edname.Text + '%';
Open;
Screen.Cursor := crDefault;
end;
end;
1:begin
close;
end;
end;
end;
이런식으로했더니 대충 감은오는데 ParamByName 값을 바꿔서 다른것을 검색하고 싶은데 오류가 뜨는데 왜이런걸가요
2017-12-07 오후 4:33:31
|
|
