2個TADOQUERY master和Detail tablefilter插入

Question

我該如何使用2個Tadoquery並像Tadoquery（master）Tadotable（detail）一樣工作！

    var  tempvar : Variant;             
    begin  
    Edit1.text:=Ano.value;
    Begin  
      with Ano_planeamento do //Laço de consulta por codigo  
       Begin  
        Close;    
        SQL.Clear;  
        SQL.Add('SELECT * from planeamento_ano');  
        SQL.Add('Where ano LIKE ''%'+Edit1.text+'%''');  
        Open; 
        end; 
     end; 
     tempvar := Ano_planeamento.fieldbyname('ano').value;  
     planeamento.close;  
     if tempvar <> null then 
     begin  
      planeamento.SQL.Clear; 
      planeamento.SQL.add('SELECT * FROM planeamento');  
      planeamento.SQL.add(' WHERE ano = ');  
      planeamento.SQL.add('''' + tempvar + '''');   
       // here i nead to filter by ....        
      planeamento.open;

Answer 1

如果在細節上將數據源設置為主數據庫，則可以嘗試使用細節中與主數據庫字段匹配的參數。 因此，如果在主數據庫中具有以下內容： SELECT field1, field2, field3 FROM table然后在詳細信息中，您將具有： SELECT d_field1, d_field2, d_field3 FROM detail WHERE some_field=:field1因此參數'field1'具有相同的名稱從主服務器返回的字段（field1）。

Answer 2

從古老的歷史（即五年多以前）來講，使用VCL數據集自動處理主/明細的方式是通過在關聯的TDatasource組件上設置屬性。 參見此處的示例： http : //delphi.about.com/library/howto/htdbmasterdetail.htm

否則，只需在SQL中為明細數據集動態更改WHERE子句，或在明細數據集上設置Filter屬性： http : //docwiki.embarcadero.com/VCL/en/DB.TDataSet.Filter