다른질문하나더요....

음... 폼이 두개가 있어요.... 처음 어미폼(query2)에서 속성보기라는 버튼을 누르면 새끼폼이 나와야 해요...

새끼폼에선 어미폼에 정의해놓은 속성쿼리문(query3)의 데이타들을 가지고 와서 에디트에 하나하나 뿌려 준답니다... 그때 기준이 되는 키가 LAYER_ITEM 입니다...

음... 어떻게 어미폼에서 사용한 query2 의 LAYER_ITEM 와 자식폼에서 속성을 뿌려줘야할 query3에서의 LAYER_ITEM를 비교해서 뿌려주죠??

허걱~

쉬운것 같은데 잘 안되네요..



아래의 소스는 속성보기라는 버튼을 눌렀을 경우의 이벤트입니다...



procedure TForm1.dEVENTClick(Sender: TObject);

begin

If eEVENT.TEXT = '2' Then

begin

MessageDlg(' ☞ 속성이 없습니다. 속성보기를 할수 없습니다...',mtError, [mbOk], 0);

end

else if eEVENT.TEXT = '1' Then

begin



query3.close;

query3.open;



with query3 do

begin

If Locate('LAYER_ITEM', Query2.FieldByName('LAYER_ITEM').AsString, [loPartialKey]) = TRUE

Then

close;

ParamByName('DT1').AsString := eITEM.text;

Form2.eITEM.Text := QUERY2.FieldByName('LAYER_ITEM').AsString ;

Form2.eNAME.Text := QUERY2.FieldByName('LAYER_NAME').AsString ;

Form2.eTEL.Text := query3.FieldByName('item_tel').AsString ;

Form2.eAddr.Text := query3.FieldByName('item_address').AsString ;

Form2.eTour.Text := query3.FieldByName('item_tour').AsString ;

Form2.epark.Text := query3.FieldByName('item_parking').AsString ;

Form2.eopen_mssg1.Text := query3.FieldByName('item_open_mssg_1').AsString ;

Form2.eopen_mssg2.Text := query3.FieldByName('item_open_mssg_2').AsString ;

Form2.eopen_mssg3.Text := query3.FieldByName('item_open_mssg_3').AsString ;

Form2.eopen_mssg4.Text := query3.FieldByName('item_open_mssg_4').AsString ;

Form2.eremark1.Text := query3.FieldByName('item_remark_1').AsString ;

Form2.eremark2.Text := query3.FieldByName('item_remark_2').AsString ;

Form2.eremark3.Text := query3.FieldByName('item_remark_3').AsString ;

Form2.eremark4.Text := query3.FieldByName('item_remark_4').AsString ;

Form2.eURL.Text := query3.FieldByName('item_URL').AsString ;

open;

End;





form2.ShowModal;

dEVENT.Setfocus;

end;

end;





아참 그리구 query3의 sql문은... 아래와 같습니다..



select * from kormap03

WHERE LAYER_ITEM LIKE :DT1

ORDER BY LAYER_ITEM