안녕하세요. 제가 하려고 하는 부분은 폼 1에서 버튼 클릭시 폼 2가 생성됩니다.
DB는 paradox를 사용하고 있습니다.
이 때, 폼 1의 dbedit로 조건을 걸어서 그 결과가 폼 2의 dbgrid에 보여지고 싶습니다.
자세히 설명하면..
고객명을 like 검색으로 검색 버튼을 클릭시, like 검색한 결과값이 폼2의 dbgrid에 나오는 것입니다.
폼2의 dbgrid에서 선택한 recode를 폼 1에 다시 보여지게끔..
폼 2가 생성되는 것까진 했는데, 폼 2의 query컴포넌트에 넘기는 부분을 모르겠습니다. ㅡㅡ;
if not(assigned(Form2)) then
Form2 := TForm2.Create(nil);
Form2.Show; //폼 2 생성
< 이부분을 폼1과 폼2 연결을 어떻게 해야하는지 모르겠습니다.>
Query1.Close;
Query1.SQL.Text :=
'select cust_id, name, firm_nm, phone_num from customer' +
'where name like ''%' +
DBEdit1.text+ '%''';
Query1.Open;
Form1에 결과 값을 Form2에 넘겨주는게 아니라
Form1에서 Form2를 생성하고
Form2에서 Form1의 쿼리를 돌리는 식으로 말이죠.
Form1은 Form2만 호출하고 Form2에서
Form1.Query1.Close;
Form1.Query1.SQL.Text :=
'select cust_id, name, firm_nm, phone_num from customer' +
'where name like ''%' +
Form1.DBEdit1.text+ '%''';
Form1.Query1.Open;
요렇게 말이죠.
최종적으로 보여질 건
Form2에 DBGrid나 StringGrid로...