procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.ShowModal;
Form2.DataSource1.DataSet := form2.DBISAMQuery1;
Form2.DBISAMQuery1.DatabaseName := ExtractFilePath(Application.ExeName) + 'LocalDB';
Form2.DBNavigator1.DataSource := form2.DataSource1;
Form2.DBISAMDBGrid1.DataSource := form2.DataSource1;

with Form2.DBISAMQuery1 do begin
Form2.DBISAMQuery1.Close;
Form2.DBISAMQuery1.SQL.Clear;
Form2.DBISAMQuery1.SQL.Text := 'Select Code, SubCodeName, bigo, Money  from Is_Code ' +
                               'where Gubun=:A and CodeName is Null';
       ParamByName('A').AsString:= '001';
      try                    
       Form2.DBISAMQuery1.Active := True;
       Except On E:EDataBaseError do
       ShowMessage('에러발생' + E.Message);
       end;
Form2.DBISAMQuery1.FieldByName('Code').DisplayLabel:= '코드';
Form2.DBISAMQuery1.FieldByName('SubCodeName').DisplayLabel:= '코드명';
Form2.DBISAMQuery1.FieldByName('bigo').DisplayLabel:= '비고';
Form2.DBISAMQuery1.FieldByName('Money').DisplayLabel:= '금액';
Form2.DBISAMQuery1.FieldByName('Code').DisplayWidth:=14;
Form2.DBISAMQuery1.FieldByName('SubCodeName').DisplayWidth:=17;
Form2.DBISAMQuery1.FieldByName('bigo').DisplayWidth:=13;
Form2.DBISAMQuery1.FieldByName('Money').DisplayWidth:=13;
end;
end;  //버튼1 클릭 이벤트 내용입니다.
=====================================================================
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form2.ShowModal;
Form2.DataSource1.DataSet := form2.DBISAMQuery1;
Form2.DBISAMQuery1.DatabaseName := ExtractFilePath(Application.ExeName) + 'LocalDB';
Form2.DBNavigator1.DataSource := form2.DataSource1;
Form2.DBISAMDBGrid1.DataSource := form2.DataSource1;

with Form2.DBISAMQuery1 do begin
Form2.DBISAMQuery1.Close;
Form2.DBISAMQuery1.SQL.Clear;
Form2.DBISAMQuery1.SQL.Text := 'Select Code, SubCodeName, bigo, Money  from Is_Code ' +
                               'where Gubun=:A and CodeName is Null';
       ParamByName('A').AsString:= '002';
      try                    
       Form2.DBISAMQuery1.Active := True;
       Except On E:EDataBaseError do
       ShowMessage('에러발생' + E.Message);
       end;
Form2.DBISAMQuery1.FieldByName('Code').DisplayLabel:= '코드';
Form2.DBISAMQuery1.FieldByName('SubCodeName').DisplayLabel:= '코드명';
Form2.DBISAMQuery1.FieldByName('bigo').DisplayLabel:= '비고';
Form2.DBISAMQuery1.FieldByName('Money').DisplayLabel:= '금액';
Form2.DBISAMQuery1.FieldByName('Code').DisplayWidth:=14;
Form2.DBISAMQuery1.FieldByName('SubCodeName').DisplayWidth:=17;
Form2.DBISAMQuery1.FieldByName('bigo').DisplayWidth:=13;
Form2.DBISAMQuery1.FieldByName('Money').DisplayWidth:=13;
end;
end;//이건 버튼2 클릭 이벤트입니다.
=====================================================================
이렇게 해서 동일한폼에 다른 쿼리만 다르게 날려줘서 검색합니다.

에러없이 컴파일 되서 안도의 한숨을 쉬면서 각버튼들에 대한 확인 작업을 실

시하였답니다. BitBtn1 클릭하게되면 그리드안에 아무것도 나타나지 않습니다.

그래서 취소 버튼을 누르고 다시 BitBtn1을 누르게 되면 내용이 제대로 보여

주게되는데요. 이제 BitBtn2을 클릭하게 되면 BitBtn1에 데이터들이 그대로

다시 보여 주게 됩니다. 취소을 누르고 다시 BitBtn2을 누르면 정상적으로

BitBtn2에 대한 데이터들이 보여주구요.

이러한 문제을 해결해볼려구 DBISAMQueyr2개을 가지구 각각 다르게 해서

해보았는데 똑같은 결과들이 나타나게 됩니다.

정상적으로 보이게 하고 싶은데..어떻게 해야 잘나올지 모르겠습니다ㅠ.ㅠ

p.s==================================================================
첨부 파일에 보시면 캡쳐한 이미지들이 있습니다. BitBtn1 처음 실행한 폼2에

그림, BitBtn1에 두번째 실행한 폼2에 그림, BitBtn2에 처음 실행한 폼2에 그림,

BitBtn2에 두번째 실행한 폼2에 그림들입니다.